LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
alasmg.f
Go to the documentation of this file.
1*> \brief \b ALASMG
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 ALASMG( TYPE, NOUT, NFAIL, NRUN, NERRS )
12*
13* .. Scalar Arguments ..
14* CHARACTER*3 TYPE
15* INTEGER NFAIL, NOUT, NRUN, NERRS
16* ..
17*
18*
19*> \par Purpose:
20* =============
21*>
22*> \verbatim
23*>
24*> ALASMG prints a summary of results from one of the -CHK- routines.
25*> \endverbatim
26*
27* Arguments:
28* ==========
29*
30*> \param[in] TYPE
31*> \verbatim
32*> TYPE is CHARACTER*3
33*> The LAPACK path name.
34*> \endverbatim
35*>
36*> \param[in] NOUT
37*> \verbatim
38*> NOUT is INTEGER
39*> The unit number on which results are to be printed.
40*> NOUT >= 0.
41*> \endverbatim
42*>
43*> \param[in] NFAIL
44*> \verbatim
45*> NFAIL is INTEGER
46*> The number of tests which did not pass the threshold ratio.
47*> \endverbatim
48*>
49*> \param[in] NRUN
50*> \verbatim
51*> NRUN is INTEGER
52*> The total number of tests.
53*> \endverbatim
54*>
55*> \param[in] NERRS
56*> \verbatim
57*> NERRS is INTEGER
58*> The number of error messages recorded.
59*> \endverbatim
60*
61* Authors:
62* ========
63*
64*> \author Univ. of Tennessee
65*> \author Univ. of California Berkeley
66*> \author Univ. of Colorado Denver
67*> \author NAG Ltd.
68*
69*> \ingroup aux_eig
70*
71* =====================================================================
72 SUBROUTINE alasmg( TYPE, NOUT, NFAIL, NRUN, NERRS )
73*
74* -- LAPACK test routine --
75* -- LAPACK is a software package provided by Univ. of Tennessee, --
76* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
77*
78* .. Scalar Arguments ..
79 CHARACTER*3 TYPE
80 INTEGER NFAIL, NOUT, NRUN, NERRS
81* ..
82*
83* ======================================================================
84*
85* .. Executable Statements ..
86*
87 IF( nfail.GT.0 ) THEN
88 WRITE( nout, fmt = 9999 )TYPE, nfail, nrun
89 ELSE
90 WRITE( nout, fmt = 9998 )TYPE, nrun
91 END IF
92 IF( nerrs.GT.0 ) THEN
93 WRITE( nout, fmt = 9997 )nerrs
94 END IF
95*
96 9999 FORMAT( 1x, a3, ': ', i6, ' out of ', i6,
97 $ ' tests failed to pass the threshold' )
98 9998 FORMAT( /1x, 'All tests for ', a3,
99 $ ' routines passed the threshold ( ', i6, ' tests run)' )
100 9997 FORMAT( 6x, i6, ' error messages recorded' )
101 RETURN
102*
103* End of ALASMG
104*
105 END
subroutine alasmg(type, nout, nfail, nrun, nerrs)
ALASMG
Definition alasmg.f:73