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 June 2017
38*
39*> \ingroup complex_lin
40*
41*  =====================================================================
42      SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
43*
44*  -- LAPACK test routine (version 3.7.1) --
45*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
46*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
47*     June 2017
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
72