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.

*
*  -- LAPACK test routine --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*
*     .. Scalar Arguments ..
      CHARACTER*3        TYPE
      INTEGER            IE, IOUNIT, NRUN
*     ..
*
*  =====================================================================
*
*     .. Executable Statements ..
*
      IF( ie.GT.0 ) THEN
         WRITE( iounit, fmt = 9999 )TYPE, ': ', IE, ' out of ', NRUN,
     $      ' tests failed to pass the threshold'
      ELSE
         WRITE( iounit, fmt = 9998 )'All tests for ', TYPE,
     $      ' passed the threshold ( ', NRUN, ' tests run)'
      END IF
 9999 FORMAT( 1x, a3, a2, i4, a8, i5, a35 )
 9998 FORMAT( / 1x, a14, a3, a24, i5, a11 )
      RETURN
*
*     End of DLASUM
*

Here is the caller graph for this function: