summaryrefslogtreecommitdiff
path: root/TESTING
diff options
context:
space:
mode:
authoreugene.chereshnev <eugenechereshnev@gmail.com>2017-03-24 13:56:44 -0700
committereugene.chereshnev <eugenechereshnev@gmail.com>2017-03-26 19:04:34 -0700
commit287c28a9f854557b7be0e1bcb93e7b9fd0f61d70 (patch)
tree7ca2c10044a52ee1595c9a30a48ab4b79138ed03 /TESTING
parentfd621af925abff6f676b24ea0216b7bafaf8fc93 (diff)
downloadlapack-287c28a9f854557b7be0e1bcb93e7b9fd0f61d70.tar.gz
lapack-287c28a9f854557b7be0e1bcb93e7b9fd0f61d70.tar.bz2
lapack-287c28a9f854557b7be0e1bcb93e7b9fd0f61d70.zip
Align TESTING/{EIG,LIN}/chkxer.f
Diffstat (limited to 'TESTING')
-rw-r--r--TESTING/LIN/chkxer.f22
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