LAPACK  3.4.2
LAPACK: Linear Algebra PACKage
 All Files Functions Groups
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 *> \date November 2011
40 *
41 *> \ingroup double_eig
42 *
43 * =====================================================================
44  SUBROUTINE dlasum( TYPE, IOUNIT, IE, NRUN )
45 *
46 * -- LAPACK test routine (version 3.4.0) --
47 * -- LAPACK is a software package provided by Univ. of Tennessee, --
48 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
49 * November 2011
50 *
51 * .. Scalar Arguments ..
52  CHARACTER*3 type
53  INTEGER ie, iounit, nrun
54 * ..
55 *
56 * =====================================================================
57 *
58 * .. Executable Statements ..
59 *
60  IF( ie.GT.0 ) THEN
61  WRITE( iounit, fmt = 9999 )type, ': ', ie, ' out of ', nrun,
62  $ ' tests failed to pass the threshold'
63  ELSE
64  WRITE( iounit, fmt = 9998 )'All tests for ', type,
65  $ ' passed the threshold ( ', nrun, ' tests run)'
66  END IF
67  9999 format( 1x, a3, a2, i4, a8, i5, a35 )
68  9998 format( / 1x, a14, a3, a24, i5, a11 )
69  return
70 *
71 * End of DLASUM
72 *
73  END