74 SUBROUTINE alasmg( TYPE, NOUT, NFAIL, NRUN, NERRS )
83 INTEGER nfail, nout, nrun, nerrs
91 WRITE( nout, fmt = 9999 )type, nfail, nrun
93 WRITE( nout, fmt = 9998 )type, nrun
96 WRITE( nout, fmt = 9997 )nerrs
99 9999 format( 1x, a3,
': ', i6,
' out of ', i6,
100 $
' tests failed to pass the threshold' )
101 9998 format( /1x,
'All tests for ', a3,
102 $
' routines passed the threshold ( ', i6,
' tests run)' )
103 9997 format( 6x, i6,
' error messages recorded' )