| 687 | /* *********************************************************************** */ |
| 688 | |
| 689 | doublereal dlamc3_(doublereal *a, doublereal *b) |
| 690 | { |
| 691 | /* System generated locals */ |
| 692 | doublereal ret_val; |
| 693 | |
| 694 | |
| 695 | /* |
| 696 | -- LAPACK auxiliary routine (version 3.2) -- |
| 697 | Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. |
| 698 | November 2006 |
| 699 | |
| 700 | |
| 701 | Purpose |
| 702 | ======= |
| 703 | |
| 704 | DLAMC3 is intended to force A and B to be stored prior to doing |
| 705 | the addition of A and B , for use in situations where optimizers |
| 706 | might hold one of these in a register. |
| 707 | |
| 708 | Arguments |
| 709 | ========= |
| 710 | |
| 711 | A (input) DOUBLE PRECISION |
| 712 | B (input) DOUBLE PRECISION |
| 713 | The values A and B. |
| 714 | |
| 715 | ===================================================================== |
| 716 | */ |
| 717 | |
| 718 | |
| 719 | ret_val = *a + *b; |
| 720 | |
| 721 | return ret_val; |
| 722 | |
| 723 | /* End of DLAMC3 */ |
| 724 | |
| 725 | } /* dlamc3_ */ |
| 726 | |
| 727 | |
| 728 | /* *********************************************************************** */ |