home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / octave-1.1.1p1-src.tgz / tar.out / fsf / octave / libcruft / lapack / dlamc3.f < prev    next >
Text File  |  1996-09-28  |  891b  |  39 lines
  1. *
  2. ************************************************************************
  3. *
  4.       DOUBLE PRECISION FUNCTION DLAMC3( A, B )
  5. *
  6. *  -- LAPACK auxiliary routine (version 2.0) --
  7. *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
  8. *     Courant Institute, Argonne National Lab, and Rice University
  9. *     October 31, 1992
  10. *
  11. *     .. Scalar Arguments ..
  12.       DOUBLE PRECISION   A, B
  13. *     ..
  14. *
  15. *  Purpose
  16. *  =======
  17. *
  18. *  DLAMC3  is intended to force  A  and  B  to be stored prior to doing
  19. *  the addition of  A  and  B ,  for use in situations where optimizers
  20. *  might hold one of these in a register.
  21. *
  22. *  Arguments
  23. *  =========
  24. *
  25. *  A, B    (input) DOUBLE PRECISION
  26. *          The values A and B.
  27. *
  28. * =====================================================================
  29. *
  30. *     .. Executable Statements ..
  31. *
  32.       DLAMC3 = A + B
  33. *
  34.       RETURN
  35. *
  36. *     End of DLAMC3
  37. *
  38.       END
  39.