LAPACK  3.10.0
LAPACK: Linear Algebra PACKage
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 *> \ingroup complex_lin
38 *
39 * =====================================================================
40  SUBROUTINE chkxer( SRNAMT, INFOT, NOUT, LERR, OK )
41 *
42 * -- LAPACK test routine --
43 * -- LAPACK is a software package provided by Univ. of Tennessee, --
44 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
45 *
46 * .. Scalar Arguments ..
47  LOGICAL LERR, OK
48  CHARACTER*(*) SRNAMT
49  INTEGER INFOT, NOUT
50 * ..
51 * .. Intrinsic Functions ..
52  INTRINSIC len_trim
53 * ..
54 * .. Executable Statements ..
55  IF( .NOT.lerr ) THEN
56  WRITE( nout, fmt = 9999 )infot,
57  $ srnamt( 1:len_trim( srnamt ) )
58  ok = .false.
59  END IF
60  lerr = .false.
61  RETURN
62 *
63  9999 FORMAT( ' *** Illegal value of parameter number ', i2,
64  $ ' not detected by ', a6, ' ***' )
65 *
66 * End of CHKXER
67 *
68  END
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
Definition: cblat2.f:3196