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 FORMAT1X, 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