bug in [c,d,s,z]get02.f when calling the norm computation for A

diff --git a/TESTING/LIN/cget02.f b/TESTING/LIN/cget02.f
index 7fe35e9e286e53fc321515f7a4a98e674c5e9010..2a493eaf380129b5cbab273bb729f498cd552d5b 100644 (file)
--- a/TESTING/LIN/cget02.f
+++ b/TESTING/LIN/cget02.f
@@ -191,7 +191,7 @@
 *     Exit with RESID = 1/EPS if ANORM = 0.
 *
       EPS = SLAMCH( 'Epsilon' )
-      ANORM = CLANGE( '1', N1, N2, A, LDA, RWORK )
+      ANORM = CLANGE( '1', M, N, A, LDA, RWORK )
       IF( ANORM.LE.ZERO ) THEN
          RESID = ONE / EPS
          RETURN

diff --git a/TESTING/LIN/dget02.f b/TESTING/LIN/dget02.f
index 0939eeb624f0593a04338ad3acc8b60da3a7048a..56cb579ef9b65c78ccfc1ab550be9f1c98263d03 100644 (file)
--- a/TESTING/LIN/dget02.f
+++ b/TESTING/LIN/dget02.f
@@ -189,7 +189,7 @@
 *     Exit with RESID = 1/EPS if ANORM = 0.
 *
       EPS = DLAMCH( 'Epsilon' )
-      ANORM = DLANGE( '1', N1, N2, A, LDA, RWORK )
+      ANORM = DLANGE( '1', M, N, A, LDA, RWORK )
       IF( ANORM.LE.ZERO ) THEN
          RESID = ONE / EPS
          RETURN

diff --git a/TESTING/LIN/sget02.f b/TESTING/LIN/sget02.f
index 85adaaf9aaaf922feafe40ef64281699e5977eb6..e6ca7e1f8220459930c930e3d2af03b42d9ba89a 100644 (file)
--- a/TESTING/LIN/sget02.f
+++ b/TESTING/LIN/sget02.f
@@ -189,7 +189,7 @@
 *     Exit with RESID = 1/EPS if ANORM = 0.
 *
       EPS = SLAMCH( 'Epsilon' )
-      ANORM = SLANGE( '1', N1, N2, A, LDA, RWORK )
+      ANORM = SLANGE( '1', M, N, A, LDA, RWORK )
       IF( ANORM.LE.ZERO ) THEN
          RESID = ONE / EPS
          RETURN

diff --git a/TESTING/LIN/zget02.f b/TESTING/LIN/zget02.f
index 55025c97fa4ee98968d0461ce5d1f7743cdd4eb0..ffea7d22033a64cc649babd1e16d4259ec294955 100644 (file)
--- a/TESTING/LIN/zget02.f
+++ b/TESTING/LIN/zget02.f
@@ -191,7 +191,7 @@
 *     Exit with RESID = 1/EPS if ANORM = 0.
 *
       EPS = DLAMCH( 'Epsilon' )
-      ANORM = ZLANGE( '1', N1, N2, A, LDA, RWORK )
+      ANORM = ZLANGE( '1', M, N, A, LDA, RWORK )
       IF( ANORM.LE.ZERO ) THEN
          RESID = ONE / EPS
          RETURN