LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
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:3224