LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
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