LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
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
ilaenv
integer function ilaenv(ispec, name, opts, n1, n2, n3, n4)
ILAENV
Definition ilaenv.f:162
tstiee
program tstiee
TSTIEE
Definition tstiee.f:19