1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
SUBROUTINE SLASUM( TYPE, IOUNIT, IE, NRUN )
*
* -- LAPACK auxiliary test routine (version 3.0) --
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
* Courant Institute, Argonne National Lab, and Rice University
* June 30, 1999
*
* .. Scalar Arguments ..
CHARACTER*3 TYPE
INTEGER IE, IOUNIT, NRUN
* ..
*
* Purpose
* =======
*
* SLASUM prints a summary of the results from one of the test routines.
*
* =====================================================================
*
* .. Executable Statements ..
*
IF( IE.GT.0 ) THEN
WRITE( IOUNIT, FMT = 9999 )TYPE, ': ', IE, ' out of ', NRUN,
$ ' tests failed to pass the threshold'
ELSE
WRITE( IOUNIT, FMT = 9998 )'All tests for ', TYPE,
$ ' passed the threshold (', NRUN, ' tests run)'
END IF
9999 FORMAT( 1X, A3, A2, I4, A8, I5, A35 )
9998 FORMAT( / 1X, A14, A3, A23, I5, A11 )
RETURN
*
* End of SLASUM
*
END
|
