LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
alaesm.f
Go to the documentation of this file.
1*> \brief \b ALAESM
2*
3* =========== DOCUMENTATION ===========
4*
5* Online html documentation available at
6* http://www.netlib.org/lapack/explore-html/
7*
8* Definition:
9* ===========
10*
11* SUBROUTINE ALAESM( PATH, OK, NOUT )
12*
13* .. Scalar Arguments ..
14* LOGICAL OK
15* CHARACTER*3 PATH
16* INTEGER NOUT
17* ..
18*
19*
20*> \par Purpose:
21* =============
22*>
23*> \verbatim
24*>
25*> ALAESM prints a summary of results from one of the -ERR- routines.
26*> \endverbatim
27*
28* Arguments:
29* ==========
30*
31*> \param[in] PATH
32*> \verbatim
33*> PATH is CHARACTER*3
34*> The LAPACK path name.
35*> \endverbatim
36*>
37*> \param[in] OK
38*> \verbatim
39*> OK is LOGICAL
40*> The flag from CHKXER that indicates whether or not the tests
41*> of error exits passed.
42*> \endverbatim
43*>
44*> \param[in] NOUT
45*> \verbatim
46*> NOUT is INTEGER
47*> The unit number on which results are to be printed.
48*> NOUT >= 0.
49*> \endverbatim
50*
51* Authors:
52* ========
53*
54*> \author Univ. of Tennessee
55*> \author Univ. of California Berkeley
56*> \author Univ. of Colorado Denver
57*> \author NAG Ltd.
58*
59*> \ingroup aux_lin
60*
61* =====================================================================
62 SUBROUTINE alaesm( PATH, OK, NOUT )
63*
64* -- LAPACK test routine --
65* -- LAPACK is a software package provided by Univ. of Tennessee, --
66* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
67*
68* .. Scalar Arguments ..
69 LOGICAL OK
70 CHARACTER*3 PATH
71 INTEGER NOUT
72* ..
73*
74* =====================================================================
75*
76* .. Executable Statements ..
77*
78 IF( ok ) THEN
79 WRITE( nout, fmt = 9999 )path
80 ELSE
81 WRITE( nout, fmt = 9998 )path
82 END IF
83*
84 9999 FORMAT( 1x, a3, ' routines passed the tests of the error exits'
85 $ )
86 9998 FORMAT( ' *** ', a3, ' routines failed the tests of the error ',
87 $ 'exits ***' )
88 RETURN
89*
90* End of ALAESM
91*
92 END
alaesm
subroutine alaesm(path, ok, nout)
ALAESM
Definition alaesm.f:63