alasmg()

subroutine alasmg	(	character*3	type,
		integer	nout,
		integer	nfail,
		integer	nrun,
		integer	nerrs
	)

ALASMG

Purpose:

 ALASMG prints a summary of results from one of the -CHK- routines.

Parameters

[in]	TYPE	TYPE is CHARACTER*3 The LAPACK path name.
[in]	NOUT	NOUT is INTEGER The unit number on which results are to be printed. NOUT >= 0.
[in]	NFAIL	NFAIL is INTEGER The number of tests which did not pass the threshold ratio.
[in]	NRUN	NRUN is INTEGER The total number of tests.
[in]	NERRS	NERRS is INTEGER The number of error messages recorded.

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Definition at line 72 of file alasmg.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            NFAIL, NOUT, NRUN, NERRS
*     ..
*
* ======================================================================
*
*     .. Executable Statements ..
*
      IF( nfail.GT.0 ) THEN
         WRITE( nout, fmt = 9999 )TYPE, NFAIL, NRUN
      ELSE
         WRITE( nout, fmt = 9998 )TYPE, NRUN
      END IF
      IF( nerrs.GT.0 ) THEN
         WRITE( nout, fmt = 9997 )nerrs
      END IF
*
 9999 FORMAT( 1x, a3, ': ', i6, ' out of ', i6,
     $      ' tests failed to pass the threshold' )
 9998 FORMAT( /1x, 'All tests for ', a3,
     $      ' routines passed the threshold ( ', i6, ' tests run)' )
 9997 FORMAT( 6x, i6, ' error messages recorded' )
      RETURN
*
*     End of ALASMG
*