1 SUBROUTINE ALAESM( PATH, OK, NOUT )
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 LOGICAL OK
9 CHARACTER*3 PATH
10 INTEGER NOUT
11 * ..
12 *
13 * Purpose
14 * =======
15 *
16 * ALAESM prints a summary of results from one of the -ERR- routines.
17 *
18 * Arguments
19 * =========
20 *
21 * PATH (input) CHARACTER*3
22 * The LAPACK path name.
23 *
24 * OK (input) LOGICAL
25 * The flag from CHKXER that indicates whether or not the tests
26 * of error exits passed.
27 *
28 * NOUT (input) INTEGER
29 * The unit number on which results are to be printed.
30 * NOUT >= 0.
31 *
32 * =====================================================================
33 *
34 * .. Executable Statements ..
35 *
36 IF( OK ) THEN
37 WRITE( NOUT, FMT = 9999 )PATH
38 ELSE
39 WRITE( NOUT, FMT = 9998 )PATH
40 END IF
41 *
42 9999 FORMAT( 1X, A3, ' routines passed the tests of the error exits'
43 $ )
44 9998 FORMAT( ' *** ', A3, ' routines failed the tests of the error ',
45 $ 'exits ***' )
46 RETURN
47 *
48 * End of ALAESM
49 *
50 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 LOGICAL OK
9 CHARACTER*3 PATH
10 INTEGER NOUT
11 * ..
12 *
13 * Purpose
14 * =======
15 *
16 * ALAESM prints a summary of results from one of the -ERR- routines.
17 *
18 * Arguments
19 * =========
20 *
21 * PATH (input) CHARACTER*3
22 * The LAPACK path name.
23 *
24 * OK (input) LOGICAL
25 * The flag from CHKXER that indicates whether or not the tests
26 * of error exits passed.
27 *
28 * NOUT (input) INTEGER
29 * The unit number on which results are to be printed.
30 * NOUT >= 0.
31 *
32 * =====================================================================
33 *
34 * .. Executable Statements ..
35 *
36 IF( OK ) THEN
37 WRITE( NOUT, FMT = 9999 )PATH
38 ELSE
39 WRITE( NOUT, FMT = 9998 )PATH
40 END IF
41 *
42 9999 FORMAT( 1X, A3, ' routines passed the tests of the error exits'
43 $ )
44 9998 FORMAT( ' *** ', A3, ' routines failed the tests of the error ',
45 $ 'exits ***' )
46 RETURN
47 *
48 * End of ALAESM
49 *
50 END