LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ slasum()

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

SLASUM

Definition at line 42 of file slasum.f.

42 *
43 * -- LAPACK test routine (version 3.7.0) --
44 * -- LAPACK is a software package provided by Univ. of Tennessee, --
45 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
46 * December 2016
47 *
48 * .. Scalar Arguments ..
49  CHARACTER*3 type
50  INTEGER ie, iounit, nrun
51 * ..
52 *
53 *
54 * .. Executable Statements ..
55 *
56  IF( ie.GT.0 ) THEN
57  WRITE( iounit, fmt = 9999 )TYPE, ': ', ie, ' out of ', nrun,
58  $ ' tests failed to pass the threshold'
59  ELSE
60  WRITE( iounit, fmt = 9998 )'All tests for ', TYPE,
61  $ ' passed the threshold ( ', nrun, ' tests run)'
62  END IF
63  9999 FORMAT( 1x, a3, a2, i4, a8, i5, a35 )
64  9998 FORMAT( / 1x, a14, a3, a24, i5, a11 )
65  RETURN
66 *
67 * End of SLASUM
68 *
Here is the caller graph for this function: