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
*