From 287c28a9f854557b7be0e1bcb93e7b9fd0f61d70 Mon Sep 17 00:00:00 2001
From: "eugene.chereshnev" <eugenechereshnev@gmail.com>
Date: Fri, 24 Mar 2017 13:56:44 -0700
Subject: Align TESTING/{EIG,LIN}/chkxer.f

---
 TESTING/LIN/chkxer.f | 22 ++--------------------
 1 file changed, 2 insertions(+), 20 deletions(-)

(limited to 'TESTING')

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
-- 
cgit v1.2.3