OpenRadioss 2025.1.11
OpenRadioss project
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.EQ. IF( IEEEOK0 ) 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.EQ. IF( IEEEOK0 ) 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
the
end diagonal values have been computed in the(sparse) matrix id.SOL
ilaenv
integer function ilaenv(ispec, name, opts, n1, n2, n3, n4)
ILAENV
Definition ilaenv.f:162
for
for(i8=*sizetab-1;i8 >=0;i8--)
Definition mumps_common.c:91
tstiee
program tstiee
TSTIEE
Definition tstiee.f:19