version 1.3, 2010/08/06 15:28:50
|
version 1.9, 2011/07/22 07:38:13
|
Line 1
|
Line 1
|
INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE ) |
INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE ) |
* |
* |
* -- LAPACK auxiliary routine (version 3.2) -- |
* -- LAPACK auxiliary routine (version 3.3.1) -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* November 2006 |
* -- April 2011 -- |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
INTEGER ISPEC |
INTEGER ISPEC |
Line 39
|
Line 39
|
* = 0: Arithmetic failed to produce the correct answers |
* = 0: Arithmetic failed to produce the correct answers |
* = 1: Arithmetic produced the correct answers |
* = 1: Arithmetic produced the correct answers |
* |
* |
|
* ===================================================================== |
|
* |
* .. Local Scalars .. |
* .. Local Scalars .. |
REAL NAN1, NAN2, NAN3, NAN4, NAN5, NAN6, NEGINF, |
REAL NAN1, NAN2, NAN3, NAN4, NAN5, NAN6, NEGINF, |
$ NEGZRO, NEWZRO, POSINF |
$ NEGZRO, NEWZRO, POSINF |
Line 112
|
Line 114
|
* |
* |
NAN5 = NEGINF*NEGZRO |
NAN5 = NEGINF*NEGZRO |
* |
* |
NAN6 = NAN5*0.0 |
NAN6 = NAN5*ZERO |
* |
* |
IF( NAN1.EQ.NAN1 ) THEN |
IF( NAN1.EQ.NAN1 ) THEN |
IEEECK = 0 |
IEEECK = 0 |