LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ dlasum()

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

DLASUM

Purpose:
 DLASUM prints a summary of the results from one of the test routines.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.

Definition at line 42 of file dlasum.f.

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