LAPACK
3.10.1
LAPACK: Linear Algebra PACKage
◆
chkxer()
subroutine chkxer
(
character*6
SRNAMT
,
integer
INFOT
,
integer
NOUT
,
logical
LERR
,
logical
OK
)
Definition at line
3195
of file
cblat2.f
.
3196
*
3197
* Tests whether XERBLA has detected an error when it should.
3198
*
3199
* Auxiliary routine for test program for Level 2 Blas.
3200
*
3201
* -- Written on 10-August-1987.
3202
* Richard Hanson, Sandia National Labs.
3203
* Jeremy Du Croz, NAG Central Office.
3204
*
3205
* .. Scalar Arguments ..
3206
INTEGER
INFOT, NOUT
3207
LOGICAL
LERR, OK
3208
CHARACTER*6
SRNAMT
3209
* .. Executable Statements ..
3210
IF
( .NOT.lerr )
THEN
3211
WRITE
( nout, fmt = 9999 )infot, srnamt
3212
ok = .false.
3213
END IF
3214
lerr = .false.
3215
RETURN
3216
*
3217
9999
FORMAT
(
' ***** ILLEGAL VALUE OF PARAMETER NUMBER '
, i2,
' NOT D'
,
3218
$
'ETECTED BY '
, a6,
' *****'
)
3219
*
3220
* End of CHKXER
3221
*
BLAS
TESTING
cblat2.f
Generated on Tue Apr 12 2022 14:48:53 for LAPACK by
1.9.1