1 SUBROUTINE alasum( TYPE, NOUT, NFAIL, NRUN, NERRS )
9 INTEGER nfail, nout, nrun, nerrs
41 WRITE( nout, fmt = 9999 )type, nfail, nrun
43 WRITE( nout, fmt = 9998 )type, nrun
46 WRITE( nout, fmt = 9997 )nerrs
49 9999
format( 1x, a3,
': ', i6,
' out of ', i6,
50 $
' tests failed to pass the threshold' )
51 9998
format( /1x,
'All tests for ', a3,
52 $
' routines passed the threshold (', i6,
' tests run)' )
53 9997
format( 6x, i6,
' error messages recorded' )