44 SUBROUTINE dlasum( TYPE, IOUNIT, IE, NRUN )
53 INTEGER ie, iounit, nrun
61 WRITE( iounit, fmt = 9999 )type,
': ', ie,
' out of ', nrun,
62 $
' tests failed to pass the threshold'
64 WRITE( iounit, fmt = 9998 )
'All tests for ', type,
65 $
' passed the threshold ( ', nrun,
' tests run)'
67 9999 format( 1x, a3, a2, i4, a8, i5, a35 )
68 9998 format( / 1x, a14, a3, a24, i5, a11 )