LAPACK  3.4.2
LAPACK: Linear Algebra PACKage
 All Files Functions Groups
chkxer.f
Go to the documentation of this file.
1 *> \brief \b CHKXER
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 CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
12 *
13 * .. Scalar Arguments ..
14 * LOGICAL LERR, OK
15 * CHARACTER*(*) SRNAMT
16 * INTEGER INFOT, NOUT
17 *
18 *
19 *> \par Purpose:
20 * =============
21 *>
22 *> \verbatim
23 *> \endverbatim
24 *
25 * Arguments:
26 * ==========
27 *
28 *
29 * Authors:
30 * ========
31 *
32 *> \author Univ. of Tennessee
33 *> \author Univ. of California Berkeley
34 *> \author Univ. of Colorado Denver
35 *> \author NAG Ltd.
36 *
37 *> \date November 2011
38 *
39 *> \ingroup complex_eig
40 *
41 * =====================================================================
42  SUBROUTINE chkxer( SRNAMT, INFOT, NOUT, LERR, OK )
43 *
44 * -- LAPACK test routine (version 3.4.0) --
45 * -- LAPACK is a software package provided by Univ. of Tennessee, --
46 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
47 * November 2011
48 *
49 * .. Scalar Arguments ..
50  LOGICAL lerr, ok
51  CHARACTER*(*) srnamt
52  INTEGER infot, nout
53 * ..
54 * .. Intrinsic Functions ..
55  INTRINSIC len_trim
56 * ..
57 * .. Executable Statements ..
58  IF( .NOT.lerr ) THEN
59  WRITE( nout, fmt = 9999 )infot,
60  $ srnamt( 1:len_trim( srnamt ) )
61  ok = .false.
62  END IF
63  lerr = .false.
64  return
65 *
66  9999 format( ' *** Illegal value of parameter number ', i2,
67  $ ' not detected by ', a6, ' ***' )
68 *
69 * End of CHKXER.
70 *
71  END