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 )
subroutine dlasum(TYPE, IOUNIT, IE, NRUN)
DLASUM