1 SUBROUTINE ALASMG( TYPE, NOUT, NFAIL, NRUN, NERRS )
2 *
3 * -- LAPACK test routine (version 3.1) --
4 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
5 * November 2006
6 *
7 * .. Scalar Arguments ..
8 CHARACTER*3 TYPE
9 INTEGER NFAIL, NOUT, NRUN, NERRS
10 * ..
11 *
12 * Purpose
13 * =======
14 *
15 * ALASMG prints a summary of results from one of the -CHK- routines.
16 *
17 * Arguments
18 * =========
19 *
20 * TYPE (input) CHARACTER*3
21 * The LAPACK path name.
22 *
23 * NOUT (input) INTEGER
24 * The unit number on which results are to be printed.
25 * NOUT >= 0.
26 *
27 * NFAIL (input) INTEGER
28 * The number of tests which did not pass the threshold ratio.
29 *
30 * NRUN (input) INTEGER
31 * The total number of tests.
32 *
33 * NERRS (input) INTEGER
34 * The number of error messages recorded.
35 *
36 * ======================================================================
37 *
38 * .. Executable Statements ..
39 *
40 IF( NFAIL.GT.0 ) THEN
41 WRITE( NOUT, FMT = 9999 )TYPE, NFAIL, NRUN
42 ELSE
43 WRITE( NOUT, FMT = 9998 )TYPE, NRUN
44 END IF
45 IF( NERRS.GT.0 ) THEN
46 WRITE( NOUT, FMT = 9997 )NERRS
47 END IF
48 *
49 9999 FORMAT( 1X, A3, ': ', I6, ' out of ', I6,
50 $ ' tests failed to pass the threshold' )
51 9998 FORMAT( /1X, 'All tests for ', A3,
52 $ ' routines passed the threshold (', I6, ' tests run)' )
53 9997 FORMAT( 6X, I6, ' error messages recorded' )
54 RETURN
55 *
56 * End of ALASMG
57 *
58 END
2 *
3 * -- LAPACK test routine (version 3.1) --
4 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
5 * November 2006
6 *
7 * .. Scalar Arguments ..
8 CHARACTER*3 TYPE
9 INTEGER NFAIL, NOUT, NRUN, NERRS
10 * ..
11 *
12 * Purpose
13 * =======
14 *
15 * ALASMG prints a summary of results from one of the -CHK- routines.
16 *
17 * Arguments
18 * =========
19 *
20 * TYPE (input) CHARACTER*3
21 * The LAPACK path name.
22 *
23 * NOUT (input) INTEGER
24 * The unit number on which results are to be printed.
25 * NOUT >= 0.
26 *
27 * NFAIL (input) INTEGER
28 * The number of tests which did not pass the threshold ratio.
29 *
30 * NRUN (input) INTEGER
31 * The total number of tests.
32 *
33 * NERRS (input) INTEGER
34 * The number of error messages recorded.
35 *
36 * ======================================================================
37 *
38 * .. Executable Statements ..
39 *
40 IF( NFAIL.GT.0 ) THEN
41 WRITE( NOUT, FMT = 9999 )TYPE, NFAIL, NRUN
42 ELSE
43 WRITE( NOUT, FMT = 9998 )TYPE, NRUN
44 END IF
45 IF( NERRS.GT.0 ) THEN
46 WRITE( NOUT, FMT = 9997 )NERRS
47 END IF
48 *
49 9999 FORMAT( 1X, A3, ': ', I6, ' out of ', I6,
50 $ ' tests failed to pass the threshold' )
51 9998 FORMAT( /1X, 'All tests for ', A3,
52 $ ' routines passed the threshold (', I6, ' tests run)' )
53 9997 FORMAT( 6X, I6, ' error messages recorded' )
54 RETURN
55 *
56 * End of ALASMG
57 *
58 END