LAPACK  3.10.1 LAPACK: Linear Algebra PACKage
alasum.f
Go to the documentation of this file.
1 *> \brief \b ALASUM
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 ALASUM( 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 *> ALASUM 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 alasum( 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 ALASUM
104 *
105  END
subroutine alasum(TYPE, NOUT, NFAIL, NRUN, NERRS)
ALASUM
Definition: alasum.f:73