Go to the source code of this file.
subroutine dlasum |
( |
character*3 |
TYPE, |
|
|
integer |
IOUNIT, |
|
|
integer |
IE, |
|
|
integer |
NRUN |
|
) |
| |
DLASUM
- Purpose:
DLASUM prints a summary of the results from one of the test routines.
- Author
- Univ. of Tennessee
-
Univ. of California Berkeley
-
Univ. of Colorado Denver
-
NAG Ltd.
- Date
- November 2011
Definition at line 45 of file dlasum.f.
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 )