1 * From
: niles@fan745
.gsfc
.nasa
.gov
3 * Cc
: niles@fan745
.gsfc
.nasa
.gov
4 * Subject
: problem with DNINT
() on Linux
/Alpha
.
5 * Date: Sun
, 06 Jun
1999 16:39:35 -0400
6 * X
-UIDL
: 6aa9208d7bda8b6182a095dfd37016b7
8 IF (DNINT
(0.0D0
) .NE
. 0.) CALL ABORT
12 * Result on Linux
/i386
: " 0." (and every other computer
!)
13 * Result on Linux
/alpha
: " 3.6028797E+16"
15 * It seems
to work fine
if I change it
to the generic NINT
(). Probably
16 * a name pollution problem in the new C library
, but it seems bad
. no?