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*> \date June 2017 38* 39*> \ingroup complex_lin 40* 41* ===================================================================== 42 SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) 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* 71 END 72