Go to the source code of this file.
subroutine slasum |
( |
character*3 |
TYPE, |
|
|
integer |
IOUNIT, |
|
|
integer |
IE, |
|
|
integer |
NRUN |
|
) |
| |
SLASUM
Definition at line 42 of file slasum.f.
50 INTEGER ie, iounit, nrun
57 WRITE( iounit, fmt = 9999 )
TYPE,
': ', ie,
' out of ', nrun,
58 $
' tests failed to pass the threshold'
60 WRITE( iounit, fmt = 9998 )
'All tests for ',
TYPE,
61 $
' passed the threshold ( ', nrun,
' tests run)'
63 9999
FORMAT( 1x, a3, a2, i4, a8, i5, a35 )
64 9998
FORMAT( / 1x, a14, a3, a24, i5, a11 )