74 SUBROUTINE alasvm( 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,
' drivers: ', i6,
' out of ', i6,
100 $
' tests failed to pass the threshold' )
101 9998 format( /1x,
'All tests for ', a3,
' drivers passed the ',
102 $
'threshold ( ', i6,
' tests run)' )
103 9997 format( 14x, i6,
' error messages recorded' )