LAPACK  3.10.0
LAPACK: Linear Algebra PACKage
slasum.f
Go to the documentation of this file.
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
subroutine slasum(TYPE, IOUNIT, IE, NRUN)
SLASUM
Definition: slasum.f:41