LAPACK  3.10.1
LAPACK: Linear Algebra PACKage
tstiee.f
Go to the documentation of this file.
1 *> \brief \b TSTIEE
2 *
3 * =========== DOCUMENTATION ===========
4 *
5 * Online html documentation available at
6 * http://www.netlib.org/lapack/explore-html/
7 *
8 * Authors:
9 * ========
10 *
11 *> \author Univ. of Tennessee
12 *> \author Univ. of California Berkeley
13 *> \author Univ. of Colorado Denver
14 *> \author NAG Ltd.
15 *
16 *> \ingroup auxOTHERauxiliary
17 *
18 * =====================================================================
19  PROGRAM tstiee
20 *
21 * -- LAPACK test routine --
22 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
23 *
24 * .. External Functions ..
25  INTEGER ilaenv
26  EXTERNAL ilaenv
27 * ..
28 * .. Local Scalars ..
29  INTEGER ieeeok
30 * ..
31 * .. Executable Statements ..
32 *
33  WRITE( 6, fmt = * )
34  $ 'We are about to check whether infinity arithmetic'
35  WRITE( 6, fmt = * )'can be trusted. If this test hangs, set'
36  WRITE( 6, fmt = * )
37  $ 'ILAENV = 0 for ISPEC = 11 in LAPACK/SRC/ilaenv.f'
38 *
39  ieeeok = ilaenv( 11, 'ILAENV', 'N', 1, 2, 3, 4 )
40  WRITE( 6, fmt = * )
41 *
42  IF( ieeeok.EQ.0 ) THEN
43  WRITE( 6, fmt = * )
44  $ 'Infinity arithmetic did not perform per the ieee spec'
45  ELSE
46  WRITE( 6, fmt = * )
47  $ 'Infinity arithmetic performed as per the ieee spec.'
48  WRITE( 6, fmt = * )
49  $ 'However, this is not an exhaustive test and does not'
50  WRITE( 6, fmt = * )
51  $ 'guarantee that infinity arithmetic meets the',
52  $ ' ieee spec.'
53  END IF
54 *
55  WRITE( 6, fmt = * )
56 * ILAENV( 10, ...) checks both infinity and NaN arithmetic
57 * infinity has already been checked so checking NaN now
58  WRITE( 6, fmt = * )
59  $ 'We are about to check whether NaN arithmetic'
60  WRITE( 6, fmt = * )'can be trusted. If this test hangs, set'
61  WRITE( 6, fmt = * )
62  $ 'ILAENV = 0 for ISPEC = 10 in LAPACK/SRC/ilaenv.f'
63  ieeeok = ilaenv( 10, 'ILAENV', 'N', 1, 2, 3, 4 )
64 *
65  WRITE( 6, fmt = * )
66  IF( ieeeok.EQ.0 ) THEN
67  WRITE( 6, fmt = * )
68  $ 'NaN arithmetic did not perform per the ieee spec'
69  ELSE
70  WRITE( 6, fmt = * )'NaN arithmetic performed as per the ieee',
71  $ ' spec.'
72  WRITE( 6, fmt = * )
73  $ 'However, this is not an exhaustive test and does not'
74  WRITE( 6, fmt = * )'guarantee that NaN arithmetic meets the',
75  $ ' ieee spec.'
76  END IF
77  WRITE( 6, fmt = * )
78 *
79  END
integer function ilaenv(ISPEC, NAME, OPTS, N1, N2, N3, N4)
ILAENV
Definition: ilaenv.f:162
program tstiee
TSTIEE
Definition: tstiee.f:19