Mercurial > octave-nkf

view libcruft/odessa/odessa_addx.f @ 5070:1e6f653ef1e3 ss-2-1-61

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-11-06 00:33:38 by jwe]
author jwe
date Sat, 06 Nov 2004 00:33:38 +0000
parents 7a37caf6ed43
children
line wrap: on
line source

      DOUBLE PRECISION FUNCTION ODESSA_ADDX(A,B)
      DOUBLE PRECISION A,B
C
C  THIS FUNCTION IS NECESSARY TO FORCE OPTIMIZING COMPILERS TO
C  EXECUTE AND STORE A SUM, FOR SUCCESSFUL EXECUTION OF THE
C  TEST A + B = B.
C
      ODESSA_ADDX = A + B
      RETURN
C-------------------- END OF FUNCTION SUM ------------------------------
      END