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