1*> \brief \b ALASVM
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 ALASVM( 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*> ALASVM prints a summary of results from one of the -DRV- 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_lin
70*
71*  =====================================================================
72      SUBROUTINE ALASVM( 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, ' drivers: ', I6, ' out of ', I6,
97     $      ' tests failed to pass the threshold' )
98 9998 FORMAT( /1X, 'All tests for ', A3, ' drivers  passed the ',
99     $      'threshold ( ', I6, ' tests run)' )
100 9997 FORMAT( 14X, I6, ' error messages recorded' )
101      RETURN
102*
103*     End of ALASVM
104*
105      END
106