Mercurial > hg > octave-lyh

annotate 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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3983
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
1 DOUBLE PRECISION FUNCTION ODESSA_ADDX(A,B)
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
2 DOUBLE PRECISION A,B
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
3 C
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
4 C THIS FUNCTION IS NECESSARY TO FORCE OPTIMIZING COMPILERS TO
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
5 C EXECUTE AND STORE A SUM, FOR SUCCESSFUL EXECUTION OF THE
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
6 C TEST A + B = B.
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
7 C
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
8 ODESSA_ADDX = A + B
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
9 RETURN
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
10 C-------------------- END OF FUNCTION SUM ------------------------------
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
11 END