1*> \brief \b SLASUM
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 SLASUM( TYPE, IOUNIT, IE, NRUN )
12*
13*       .. Scalar Arguments ..
14*       CHARACTER*3        TYPE
15*       INTEGER            IE, IOUNIT, NRUN
16*       ..
17*
18*  Purpose
19*  =======
20*
21*\details \b Purpose:
22*\verbatim
23*
24* SLASUM prints a summary of the results from one of the test routines.
25*
26* =====================================================================
27*
28*  Authors:
29*  ========
30*
31* \author Univ. of Tennessee
32* \author Univ. of California Berkeley
33* \author Univ. of Colorado Denver
34* \author NAG Ltd.
35*
36
37* \ingroup single_eig
38*
39*  =====================================================================
40      SUBROUTINE SLASUM( TYPE, IOUNIT, IE, NRUN )
41*
42*  -- LAPACK test routine --
43*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
44*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
45*
46*     .. Scalar Arguments ..
47      CHARACTER*3        TYPE
48      INTEGER            IE, IOUNIT, NRUN
49*     ..
50*
51*
52*    .. Executable Statements ..
53*
54      IF( IE.GT.0 ) THEN
55         WRITE( IOUNIT, FMT = 9999 )TYPE, ': ', IE, ' out of ', NRUN,
56     $      ' tests failed to pass the threshold'
57      ELSE
58         WRITE( IOUNIT, FMT = 9998 )'All tests for ', TYPE,
59     $      ' passed the threshold ( ', NRUN, ' tests run)'
60      END IF
61 9999 FORMAT( 1X, A3, A2, I4, A8, I5, A35 )
62 9998 FORMAT( / 1X, A14, A3, A24, I5, A11 )
63      RETURN
64*
65*    End of SLASUM
66*
67      END
68