LAPACK  3.4.2
LAPACK: Linear Algebra PACKage
 All Files Functions Groups
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 November 2011
37 *
38 * \ingroup single_eig
39 *
40 * =====================================================================
41  SUBROUTINE slasum( TYPE, IOUNIT, IE, NRUN )
42 *
43 * -- LAPACK test routine (version 3.4.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 * November 2011
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