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
69