LAPACK  3.10.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.

Definition at line 40 of file chkxer.f.

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 *