version 1.6, 2010/08/07 13:22:29
|
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.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..-- |
* June 2010 |
* -- 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 |