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