diff options
| author | eugene.chereshnev <eugenechereshnev@gmail.com> | 2017-03-24 13:56:44 -0700 |
|---|---|---|
| committer | eugene.chereshnev <eugenechereshnev@gmail.com> | 2017-03-26 19:04:34 -0700 |
| commit | 287c28a9f854557b7be0e1bcb93e7b9fd0f61d70 (patch) | |
| tree | 7ca2c10044a52ee1595c9a30a48ab4b79138ed03 | |
| parent | fd621af925abff6f676b24ea0216b7bafaf8fc93 (diff) | |
| download | lapack-287c28a9f854557b7be0e1bcb93e7b9fd0f61d70.tar.gz lapack-287c28a9f854557b7be0e1bcb93e7b9fd0f61d70.tar.bz2 lapack-287c28a9f854557b7be0e1bcb93e7b9fd0f61d70.zip | |
Align TESTING/{EIG,LIN}/chkxer.f
| -rw-r--r-- | TESTING/LIN/chkxer.f | 22 |
1 files changed, 2 insertions, 20 deletions
diff --git a/TESTING/LIN/chkxer.f b/TESTING/LIN/chkxer.f index 86a44e38..44c1be40 100644 --- a/TESTING/LIN/chkxer.f +++ b/TESTING/LIN/chkxer.f @@ -14,25 +14,7 @@ * LOGICAL LERR, OK * CHARACTER*(*) SRNAMT * INTEGER INFOT, NOUT -* .. -* .. Intrinsic Functions .. -* INTRINSIC LEN_TRIM -* .. -* .. Executable Statements .. -* IF( .NOT.LERR ) THEN -* WRITE( NOUT, FMT = 9999 )INFOT, -* $ SRNAMT( 1:LEN_TRIM( SRNAMT ) ) -* OK = .FALSE. -* END IF -* LERR = .FALSE. -* RETURN -* -* 9999 FORMAT( ' *** Illegal value of parameter number ', I2, -* $ ' not detected by ', A6, ' ***' ) -* -* End of CHKXER. -* -* END +* * *> \par Purpose: * ============= @@ -59,7 +41,7 @@ * ===================================================================== SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) * -* -- LAPACK test routine (input) -- +* -- LAPACK test routine (version 3.7.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * December 2016 |