3
* =========== DOCUMENTATION ===========
5
* Online html documentation available at
6
* http://www.netlib.org/lapack/explore-html/
9
*> Download IEEECK + dependencies
10
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ieeeck.f">
12
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ieeeck.f">
14
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ieeeck.f">
21
* INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE )
23
* .. Scalar Arguments ..
34
*> IEEECK is called from the ILAENV to verify that Infinity and
35
*> possibly NaN arithmetic is safe (i.e. will not trap).
44
*> Specifies whether to test just for inifinity arithmetic
45
*> or whether to test for infinity and NaN arithmetic.
46
*> = 0: Verify infinity arithmetic only.
47
*> = 1: Verify infinity and NaN arithmetic.
53
*> Must contain the value 0.0
54
*> This is passed to prevent the compiler from optimizing
61
*> Must contain the value 1.0
62
*> This is passed to prevent the compiler from optimizing
65
*> RETURN VALUE: INTEGER
66
*> = 0: Arithmetic failed to produce the correct answers
67
*> = 1: Arithmetic produced the correct answers
73
*> \author Univ. of Tennessee
74
*> \author Univ. of California Berkeley
75
*> \author Univ. of Colorado Denver
78
*> \date November 2011
80
*> \ingroup auxOTHERauxiliary
82
* =====================================================================
1
83
INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE )
2
* $Id: ieeeck.f 19697 2010-10-29 16:57:34Z d3y133 $
4
* -- LAPACK auxiliary routine (version 3.0) --
5
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
6
* Courant Institute, Argonne National Lab, and Rice University
85
* -- LAPACK auxiliary routine (version 3.4.0) --
86
* -- LAPACK is a software package provided by Univ. of Tennessee, --
87
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
9
90
* .. Scalar Arguments ..
17
* IEEECK is called from the ILAENV to verify that Infinity and
18
* possibly NaN arithmetic is safe (i.e. will not trap).
23
* ISPEC (input) INTEGER
24
* Specifies whether to test just for inifinity arithmetic
25
* or whether to test for infinity and NaN arithmetic.
26
* = 0: Verify infinity arithmetic only.
27
* = 1: Verify infinity and NaN arithmetic.
30
* Must contain the value 0.0
31
* This is passed to prevent the compiler from optimizing
35
* Must contain the value 1.0
36
* This is passed to prevent the compiler from optimizing
39
* RETURN VALUE: INTEGER
40
* = 0: Arithmetic failed to produce the correct answers
41
* = 1: Arithmetic produced the correct answers
95
* =====================================================================
43
97
* .. Local Scalars ..
44
98
REAL NAN1, NAN2, NAN3, NAN4, NAN5, NAN6, NEGINF,