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 * .. Intrinsic Functions ..
19 * INTRINSIC LEN_TRIM
20 * ..
21 * .. Executable Statements ..
22 * IF( .NOT.LERR ) THEN
23 * WRITE( NOUT, FMT = 9999 )INFOT,
24 * $ SRNAMT( 1:LEN_TRIM( SRNAMT ) )
25 * OK = .FALSE.
26 * END IF
27 * LERR = .FALSE.
28 * RETURN
29 *
30 * 9999 FORMAT( ' *** Illegal value of parameter number ', I2,
31 * $ ' not detected by ', A6, ' ***' )
32 *
33 * End of CHKXER.
34 *
35 * END
36 *
37 *> \par Purpose:
38 * =============
39 *>
40 *> \verbatim
41 *> \endverbatim
42 *
43 * Arguments:
44 * ==========
45 *
46 *
47 * Authors:
48 * ========
49 *
50 *> \author Univ. of Tennessee
51 *> \author Univ. of California Berkeley
52 *> \author Univ. of Colorado Denver
53 *> \author NAG Ltd.
54 *
55 *> \date November 2011
56 *
57 *> \ingroup complex_lin
58 *
59 * =====================================================================
60  SUBROUTINE chkxer( SRNAMT, INFOT, NOUT, LERR, OK )
61 *
62 * -- LAPACK test routine (input) --
63 * -- LAPACK is a software package provided by Univ. of Tennessee, --
64 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
65 * November 2011
66 *
67 * .. Scalar Arguments ..
68  LOGICAL lerr, ok
69  CHARACTER*(*) srnamt
70  INTEGER infot, nout
71 * ..
72 * .. Intrinsic Functions ..
73  INTRINSIC len_trim
74 * ..
75 * .. Executable Statements ..
76  IF( .NOT.lerr ) THEN
77  WRITE( nout, fmt = 9999 )infot,
78  $ srnamt( 1:len_trim( srnamt ) )
79  ok = .false.
80  END IF
81  lerr = .false.
82  return
83 *
84  9999 format( ' *** Illegal value of parameter number ', i2,
85  $ ' not detected by ', a6, ' ***' )
86 *
87 * End of CHKXER.
88 *
89  END