LAPACK  3.8.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 * \date December 2016
37 *
38 * \ingroup single_eig
39 *
40 * =====================================================================
41  SUBROUTINE slasum( TYPE, IOUNIT, IE, NRUN )
42 *
43 * -- LAPACK test routine (version 3.7.0) --
44 * -- LAPACK is a software package provided by Univ. of Tennessee, --
45 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
46 * December 2016
47 *
48 * .. Scalar Arguments ..
49  CHARACTER*3 TYPE
50  INTEGER IE, IOUNIT, NRUN
51 * ..
52 *
53 *
54 * .. Executable Statements ..
55 *
56  IF( ie.GT.0 ) THEN
57  WRITE( iounit, fmt = 9999 )TYPE, ': ', IE, ' out of ', NRUN,
58  $ ' tests failed to pass the threshold'
59  ELSE
60  WRITE( iounit, fmt = 9998 )'All tests for ', TYPE,
61  $ ' passed the threshold ( ', nrun, ' tests run)'
62  END IF
63  9999 FORMAT( 1x, a3, a2, i4, a8, i5, a35 )
64  9998 FORMAT( / 1x, a14, a3, a24, i5, a11 )
65  RETURN
66 *
67 * End of SLASUM
68 *
69  END
subroutine slasum(TYPE, IOUNIT, IE, NRUN)
SLASUM
Definition: slasum.f:42