1*> \brief \b ALAESM
2*
3*  =========== DOCUMENTATION ===========
4*
5* Online html documentation available at
6*            http://www.netlib.org/lapack/explore-html/
7*
8*  Definition:
9*  ===========
10*
11*       SUBROUTINE ALAESM( PATH, OK, NOUT )
12*
13*       .. Scalar Arguments ..
14*       LOGICAL            OK
15*       CHARACTER*3        PATH
16*       INTEGER            NOUT
17*       ..
18*
19*
20*> \par Purpose:
21*  =============
22*>
23*> \verbatim
24*>
25*> ALAESM prints a summary of results from one of the -ERR- routines.
26*> \endverbatim
27*
28*  Arguments:
29*  ==========
30*
31*> \param[in] PATH
32*> \verbatim
33*>          PATH is CHARACTER*3
34*>          The LAPACK path name.
35*> \endverbatim
36*>
37*> \param[in] OK
38*> \verbatim
39*>          OK is LOGICAL
40*>          The flag from CHKXER that indicates whether or not the tests
41*>          of error exits passed.
42*> \endverbatim
43*>
44*> \param[in] NOUT
45*> \verbatim
46*>          NOUT is INTEGER
47*>          The unit number on which results are to be printed.
48*>          NOUT >= 0.
49*> \endverbatim
50*
51*  Authors:
52*  ========
53*
54*> \author Univ. of Tennessee
55*> \author Univ. of California Berkeley
56*> \author Univ. of Colorado Denver
57*> \author NAG Ltd.
58*
59*> \ingroup aux_lin
60*
61*  =====================================================================
62      SUBROUTINE ALAESM( PATH, OK, NOUT )
63*
64*  -- LAPACK test routine --
65*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
66*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
67*
68*     .. Scalar Arguments ..
69      LOGICAL            OK
70      CHARACTER*3        PATH
71      INTEGER            NOUT
72*     ..
73*
74*  =====================================================================
75*
76*     .. Executable Statements ..
77*
78      IF( OK ) THEN
79         WRITE( NOUT, FMT = 9999 )PATH
80      ELSE
81         WRITE( NOUT, FMT = 9998 )PATH
82      END IF
83*
84 9999 FORMAT( 1X, A3, ' routines passed the tests of the error exits'
85     $       )
86 9998 FORMAT( ' *** ', A3, ' routines failed the tests of the error ',
87     $      'exits ***' )
88      RETURN
89*
90*     End of ALAESM
91*
92      END
93