MAGMA  1.2.0
MatrixAlgebraonGPUandMulticoreArchitectures
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Groups
alaesm.f
Go to the documentation of this file.
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