LAPACK  3.8.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.
Date
December 2016

Definition at line 45 of file dlasum.f.

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