Change XER_REPLACE back to XERBLA for now

Author: martin-frbg

lapack-netlib/TESTING/EIG/dchkst.f

@@ -655,7 +655,7 @@ SUBROUTINE DCHKST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
      $                   DOPGTR, DORGTR, DPTEQR, DSPT21, DSPTRD, DSTEBZ,
      $                   DSTEBR, DSTECH, DSTEDC, DSTEMR, DSTEIN, DSTEQR,
      $                   DSTERF, DSTT21, DSTT22, DSYT21, DSYTRD,
-     $                   XER_REPLACE, XLAENV
+     $                   XERBLA, XLAENV
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          ABS, DBLE, INT, LOG, MAX, MIN, SQRT
@@ -710,7 +710,7 @@ SUBROUTINE DCHKST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
       END IF
 *
       IF( INFO.NE.0 ) THEN
-         CALL XER_REPLACE( 'DCHKST', -INFO )
+         CALL XERBLA( 'DCHKST', -INFO )
          RETURN
       END IF
 *

lapack-netlib/TESTING/EIG/schkst.f

@@ -655,7 +655,7 @@ SUBROUTINE SCHKST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
      $                   SOPGTR, SORGTR, SPTEQR, SSPT21, SSPTRD, SSTEBZ,
      $                   SSTEBR, SSTECH, SSTEDC, SSTEMR, SSTEIN, SSTEQR,
      $                   SSTERF, SSTT21, SSTT22, SSYT21, SSYTRD,
-     $                   XER_REPLACE, XLAENV
+     $                   XERBLA, XLAENV
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          ABS, INT, LOG, MAX, MIN, REAL, SQRT
@@ -710,7 +710,7 @@ SUBROUTINE SCHKST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
       END IF
 *
       IF( INFO.NE.0 ) THEN
-         CALL XER_REPLACE( 'SCHKST', -INFO )
+         CALL XERBLA( 'SCHKST', -INFO )
          RETURN
       END IF
 *