LAPACK
3.12.1
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
chkxer
subroutine chkxer(srnamt, infot, nout, lerr, ok)
Definition
cblat2.f:3224
TESTING
LIN
chkxer.f
Generated on Mon Jan 20 2025 17:18:17 for LAPACK by
1.11.0