TESTING/LIN/*errtsqr.f: fix LDA in ?GEMQR calls

diff --git a/TESTING/LIN/cerrtsqr.f b/TESTING/LIN/cerrtsqr.f
index b8b42dccca3fe3d5905b9bfa64d3c27bdb69e9bc..399fcc4169424227df5d95e7d6c7ce29d3e3a7b2 100644 (file)
--- a/TESTING/LIN/cerrtsqr.f
+++ b/TESTING/LIN/cerrtsqr.f
@@ -161,13 +161,13 @@
       CALL CGEMQR( 'L', 'N', 2, 1, 0, A, 0, TAU, 1, C, 1, W, 1,INFO)
       CALL CHKXER( 'CGEMQR', INFOT, NOUT, LERR, OK )
       INFOT = 9
-      CALL CGEMQR( 'R', 'N', 2, 2, 1, A, 1, TAU, 0, C, 1, W, 1,INFO)
+      CALL CGEMQR( 'R', 'N', 2, 2, 1, A, 2, TAU, 0, C, 1, W, 1,INFO)
       CALL CHKXER( 'CGEMQR', INFOT, NOUT, LERR, OK )
       INFOT = 9
-      CALL CGEMQR( 'L', 'N', 2, 2, 1, A, 1, TAU, 0, C, 1, W, 1,INFO)
+      CALL CGEMQR( 'L', 'N', 2, 2, 1, A, 2, TAU, 0, C, 1, W, 1,INFO)
       CALL CHKXER( 'CGEMQR', INFOT, NOUT, LERR, OK )
       INFOT = 11
-      CALL CGEMQR( 'L', 'N', 2, 1, 1, A, 1, TAU, 6, C, 0, W, 1,INFO)
+      CALL CGEMQR( 'L', 'N', 2, 1, 1, A, 2, TAU, 6, C, 0, W, 1,INFO)
       CALL CHKXER( 'CGEMQR', INFOT, NOUT, LERR, OK )
       INFOT = 13
       CALL CGEMQR( 'L', 'N', 2, 2, 1, A, 2, TAU, 6, C, 2, W, 0,INFO)

diff --git a/TESTING/LIN/derrtsqr.f b/TESTING/LIN/derrtsqr.f
index 4a5ad5e67f6a5d3c6edde060f4e69f16966e51dd..a83ed1fbb3e74cb1b66ffa91729fdba9e035407c 100644 (file)
--- a/TESTING/LIN/derrtsqr.f
+++ b/TESTING/LIN/derrtsqr.f
@@ -161,13 +161,13 @@
       CALL DGEMQR( 'L', 'N', 2, 1, 0, A, 0, TAU, 1, C, 1, W, 1,INFO)
       CALL CHKXER( 'DGEMQR', INFOT, NOUT, LERR, OK )
       INFOT = 9
-      CALL DGEMQR( 'R', 'N', 2, 2, 1, A, 1, TAU, 0, C, 1, W, 1,INFO)
+      CALL DGEMQR( 'R', 'N', 2, 2, 1, A, 2, TAU, 0, C, 1, W, 1,INFO)
       CALL CHKXER( 'DGEMQR', INFOT, NOUT, LERR, OK )
       INFOT = 9
-      CALL DGEMQR( 'L', 'N', 2, 2, 1, A, 1, TAU, 0, C, 1, W, 1,INFO)
+      CALL DGEMQR( 'L', 'N', 2, 2, 1, A, 2, TAU, 0, C, 1, W, 1,INFO)
       CALL CHKXER( 'DGEMQR', INFOT, NOUT, LERR, OK )
       INFOT = 11
-      CALL DGEMQR( 'L', 'N', 2, 1, 1, A, 1, TAU, 6, C, 0, W, 1,INFO)
+      CALL DGEMQR( 'L', 'N', 2, 1, 1, A, 2, TAU, 6, C, 0, W, 1,INFO)
       CALL CHKXER( 'DGEMQR', INFOT, NOUT, LERR, OK )
       INFOT = 13
       CALL DGEMQR( 'L', 'N', 2, 2, 1, A, 2, TAU, 6, C, 2, W, 0,INFO)

diff --git a/TESTING/LIN/serrtsqr.f b/TESTING/LIN/serrtsqr.f
index eddadbee9fa9be27a23b098c474ddf8e4f89a39c..cb7c32661aff19a4435f33798a8dfc17979ca2b5 100644 (file)
--- a/TESTING/LIN/serrtsqr.f
+++ b/TESTING/LIN/serrtsqr.f
@@ -161,13 +161,13 @@
       CALL SGEMQR( 'L', 'N', 2, 1, 0, A, 0, TAU, 1, C, 1, W, 1,INFO)
       CALL CHKXER( 'SGEMQR', INFOT, NOUT, LERR, OK )
       INFOT = 9
-      CALL SGEMQR( 'R', 'N', 2, 2, 1, A, 1, TAU, 0, C, 1, W, 1,INFO)
+      CALL SGEMQR( 'R', 'N', 2, 2, 1, A, 2, TAU, 0, C, 1, W, 1,INFO)
       CALL CHKXER( 'SGEMQR', INFOT, NOUT, LERR, OK )
       INFOT = 9
-      CALL SGEMQR( 'L', 'N', 2, 2, 1, A, 1, TAU, 0, C, 1, W, 1,INFO)
+      CALL SGEMQR( 'L', 'N', 2, 2, 1, A, 2, TAU, 0, C, 1, W, 1,INFO)
       CALL CHKXER( 'SGEMQR', INFOT, NOUT, LERR, OK )
       INFOT = 11
-      CALL SGEMQR( 'L', 'N', 2, 1, 1, A, 1, TAU, 6, C, 0, W, 1,INFO)
+      CALL SGEMQR( 'L', 'N', 2, 1, 1, A, 2, TAU, 6, C, 0, W, 1,INFO)
       CALL CHKXER( 'SGEMQR', INFOT, NOUT, LERR, OK )
       INFOT = 13
       CALL SGEMQR( 'L', 'N', 2, 2, 1, A, 2, TAU, 6, C, 2, W, 0,INFO)

diff --git a/TESTING/LIN/zerrtsqr.f b/TESTING/LIN/zerrtsqr.f
index 3aa3e4a5ac1295b73f2d6a18bd534c9796415d82..5550e219b1d28588102ce8841e17b7af4b85bb10 100644 (file)
--- a/TESTING/LIN/zerrtsqr.f
+++ b/TESTING/LIN/zerrtsqr.f
@@ -161,13 +161,13 @@
       CALL ZGEMQR( 'L', 'N', 2, 1, 0, A, 0, TAU, 1, C, 1, W, 1,INFO)
       CALL CHKXER( 'ZGEMQR', INFOT, NOUT, LERR, OK )
       INFOT = 9
-      CALL ZGEMQR( 'R', 'N', 2, 2, 1, A, 1, TAU, 0, C, 1, W, 1,INFO)
+      CALL ZGEMQR( 'R', 'N', 2, 2, 1, A, 2, TAU, 0, C, 1, W, 1,INFO)
       CALL CHKXER( 'ZGEMQR', INFOT, NOUT, LERR, OK )
       INFOT = 9
-      CALL ZGEMQR( 'L', 'N', 2, 2, 1, A, 1, TAU, 0, C, 1, W, 1,INFO)
+      CALL ZGEMQR( 'L', 'N', 2, 2, 1, A, 2, TAU, 0, C, 1, W, 1,INFO)
       CALL CHKXER( 'ZGEMQR', INFOT, NOUT, LERR, OK )
       INFOT = 11
-      CALL ZGEMQR( 'L', 'N', 2, 1, 1, A, 1, TAU, 6, C, 0, W, 1,INFO)
+      CALL ZGEMQR( 'L', 'N', 2, 1, 1, A, 2, TAU, 6, C, 0, W, 1,INFO)
       CALL CHKXER( 'ZGEMQR', INFOT, NOUT, LERR, OK )
       INFOT = 13
       CALL ZGEMQR( 'L', 'N', 2, 2, 1, A, 2, TAU, 6, C, 2, W, 0,INFO)