Fix typo

diff --git a/TESTING/LIN/derrvxx.f b/TESTING/LIN/derrvxx.f
index b4d0904b8f0d61b510033550c0aed9a9366aa983..ef4029e7d83ebaf6aee468e02b28f3466d48e48c 100644 (file)
--- a/TESTING/LIN/derrvxx.f
+++ b/TESTING/LIN/derrvxx.f
@@ -893,7 +893,7 @@
          R(1) = -ONE
          CALL DSYSVXX( 'F', 'U', 2, 0, A, 2, AF, 2, IP, EQ, R, B, 2, X,
      $        2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N,
-     $        ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO )
+     $        ERR_BNDS_C, NPARAMS, PARAMS, W, IW, INFO )
          CALL CHKXER( 'DSYSVXX', INFOT, NOUT, LERR, OK )
          INFOT = 13
          EQ = 'N'

diff --git a/TESTING/LIN/serrvxx.f b/TESTING/LIN/serrvxx.f
index d3eb33c98cadde60159d73a77f161b02e99f51e2..a05a8ab62644205251b98c515cf1cfd34ade97a7 100644 (file)
--- a/TESTING/LIN/serrvxx.f
+++ b/TESTING/LIN/serrvxx.f
@@ -894,7 +894,7 @@
          R(1) = -ONE
          CALL SSYSVXX( 'F', 'U', 2, 0, A, 2, AF, 2, IP, EQ, R, B, 2, X,
      $        2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N,
-     $        ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO )
+     $        ERR_BNDS_C, NPARAMS, PARAMS, W, IW, INFO )
          CALL CHKXER( 'SSYSVXX', INFOT, NOUT, LERR, OK )
          INFOT = 13
          EQ = 'N'