LAPACK  3.4.2
LAPACK: Linear Algebra PACKage
 All Files Functions Groups
alaesm.f
Go to the documentation of this file.
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 *> \date November 2011
60 *
61 *> \ingroup aux_lin
62 *
63 * =====================================================================
64  SUBROUTINE alaesm( PATH, OK, NOUT )
65 *
66 * -- LAPACK test routine (version 3.4.0) --
67 * -- LAPACK is a software package provided by Univ. of Tennessee, --
68 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
69 * November 2011
70 *
71 * .. Scalar Arguments ..
72  LOGICAL ok
73  CHARACTER*3 path
74  INTEGER nout
75 * ..
76 *
77 * =====================================================================
78 *
79 * .. Executable Statements ..
80 *
81  IF( ok ) THEN
82  WRITE( nout, fmt = 9999 )path
83  ELSE
84  WRITE( nout, fmt = 9998 )path
85  END IF
86 *
87  9999 format( 1x, a3, ' routines passed the tests of the error exits'
88  $ )
89  9998 format( ' *** ', a3, ' routines failed the tests of the error ',
90  $ 'exits ***' )
91  return
92 *
93 * End of ALAESM
94 *
95  END