LAPACK 3.11.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ slasum()

subroutine slasum ( character*3  TYPE,
integer  IOUNIT,
integer  IE,
integer  NRUN 
)

SLASUM

Definition at line 40 of file slasum.f.

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*
Here is the caller graph for this function: