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*> \ingroup complex_lin 38* 39* ===================================================================== 40 SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) 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* 68 END 69