LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ chkxer()

subroutine chkxer ( character*(*)  SRNAMT,
integer  INFOT,
integer  NOUT,
logical  LERR,
logical  OK 
)

CHKXER

Purpose:
 
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date
June 2017

Definition at line 43 of file chkxer.f.

43 *
44 * -- LAPACK test routine (version 3.7.1) --
45 * -- LAPACK is a software package provided by Univ. of Tennessee, --
46 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
47 * June 2017
48 *
49 * .. Scalar Arguments ..
50  LOGICAL lerr, ok
51  CHARACTER*(*) srnamt
52  INTEGER infot, nout
53 * ..
54 * .. Intrinsic Functions ..
55  INTRINSIC len_trim
56 * ..
57 * .. Executable Statements ..
58  IF( .NOT.lerr ) THEN
59  WRITE( nout, fmt = 9999 )infot,
60  $ srnamt( 1:len_trim( srnamt ) )
61  ok = .false.
62  END IF
63  lerr = .false.
64  RETURN
65 *
66  9999 FORMAT( ' *** Illegal value of parameter number ', i2,
67  $ ' not detected by ', a6, ' ***' )
68 *
69 * End of CHKXER.
70 *