LAPACK
3.7.0
LAPACK: Linear Algebra PACKage
Main Page
Modules
Data Types List
Files
subroutine chkxer
(
character*6
SRNAMT
,
integer
INFOT
,
integer
NOUT
,
logical
LERR
,
logical
OK
)
Definition at line
3199
of file
cblat2.f
.
3199
*
3200
* Tests whether XERBLA has detected an error when it should.
3201
*
3202
* Auxiliary routine for test program for Level 2 Blas.
3203
*
3204
* -- Written on 10-August-1987.
3205
* Richard Hanson, Sandia National Labs.
3206
* Jeremy Du Croz, NAG Central Office.
3207
*
3208
* .. Scalar Arguments ..
3209
INTEGER
infot, nout
3210
LOGICAL
lerr, ok
3211
CHARACTER*6
srnamt
3212
* .. Executable Statements ..
3213
IF
( .NOT.lerr )
THEN
3214
WRITE
( nout, fmt = 9999 )infot, srnamt
3215
ok = .false.
3216
END IF
3217
lerr = .false.
3218
RETURN
3219
*
3220
9999
FORMAT
(
' ***** ILLEGAL VALUE OF PARAMETER NUMBER '
, i2,
' NOT D'
,
3221
$
'ETECTED BY '
, a6,
' *****'
)
3222
*
3223
* End of CHKXER.
3224
*
BLAS
TESTING
cblat2.f
Generated on Fri Dec 23 2016 15:28:49 for LAPACK by
1.8.10