LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ 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: