LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ 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.

73 *
74 * -- LAPACK test routine --
75 * -- LAPACK is a software package provided by Univ. of Tennessee, --
76 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
77 *
78 * .. Scalar Arguments ..
79  CHARACTER*3 TYPE
80  INTEGER NFAIL, NOUT, NRUN, NERRS
81 * ..
82 *
83 * ======================================================================
84 *
85 * .. Executable Statements ..
86 *
87  IF( nfail.GT.0 ) THEN
88  WRITE( nout, fmt = 9999 )TYPE, NFAIL, NRUN
89  ELSE
90  WRITE( nout, fmt = 9998 )TYPE, NRUN
91  END IF
92  IF( nerrs.GT.0 ) THEN
93  WRITE( nout, fmt = 9997 )nerrs
94  END IF
95 *
96  9999 FORMAT( 1x, a3, ': ', i6, ' out of ', i6,
97  $ ' tests failed to pass the threshold' )
98  9998 FORMAT( /1x, 'All tests for ', a3,
99  $ ' routines passed the threshold ( ', i6, ' tests run)' )
100  9997 FORMAT( 6x, i6, ' error messages recorded' )
101  RETURN
102 *
103 * End of ALASMG
104 *