LAPACK  3.5.0
LAPACK: Linear Algebra PACKage
 All Classes Files Functions Variables Typedefs Macros
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 *> \date November 2011
70 *
71 *> \ingroup aux_eig
72 *
73 * =====================================================================
74  SUBROUTINE alasmg( TYPE, NOUT, NFAIL, NRUN, NERRS )
75 *
76 * -- LAPACK test routine (version 3.4.0) --
77 * -- LAPACK is a software package provided by Univ. of Tennessee, --
78 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
79 * November 2011
80 *
81 * .. Scalar Arguments ..
82  CHARACTER*3 type
83  INTEGER nfail, nout, nrun, nerrs
84 * ..
85 *
86 * ======================================================================
87 *
88 * .. Executable Statements ..
89 *
90  IF( nfail.GT.0 ) THEN
91  WRITE( nout, fmt = 9999 )type, nfail, nrun
92  ELSE
93  WRITE( nout, fmt = 9998 )type, nrun
94  END IF
95  IF( nerrs.GT.0 ) THEN
96  WRITE( nout, fmt = 9997 )nerrs
97  END IF
98 *
99  9999 FORMAT( 1x, a3, ': ', i6, ' out of ', i6,
100  $ ' tests failed to pass the threshold' )
101  9998 FORMAT( /1x, 'All tests for ', a3,
102  $ ' routines passed the threshold ( ', i6, ' tests run)' )
103  9997 FORMAT( 6x, i6, ' error messages recorded' )
104  RETURN
105 *
106 * End of ALASMG
107 *
108  END