Mercurial > hg > octave-nkf

view libcruft/odessa/odessa_addx.f @ 4457:d7d9ca19960a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-07-11 03:05:38 by jwe]
author jwe
date Fri, 11 Jul 2003 03:05:39 +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