aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoreugene.chereshnev <echeresh@mandrake.jf.intel.com>2016-12-14 11:05:32 -0800
committereugene.chereshnev <eugenechereshnev@gmail.com>2016-12-14 11:30:52 -0800
commitfd746a6013490e2154dc0c2eeb14357c94fa97f8 (patch)
tree7f3c347486684386be982ea32844223b8ba2a653
parentca017fe2b6bfe4831ef862f06b5bed27a20650af (diff)
TESTING/LIN/*errtsqr.f: fix LDA in ?GEMQR calls
-rw-r--r--TESTING/LIN/cerrtsqr.f6
-rw-r--r--TESTING/LIN/derrtsqr.f6
-rw-r--r--TESTING/LIN/serrtsqr.f6
-rw-r--r--TESTING/LIN/zerrtsqr.f6
4 files changed, 12 insertions, 12 deletions
diff --git a/TESTING/LIN/cerrtsqr.f b/TESTING/LIN/cerrtsqr.f
index b8b42dcc..399fcc41 100644
--- 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 4a5ad5e6..a83ed1fb 100644
--- 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 eddadbee..cb7c3266 100644
--- 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 3aa3e4a5..5550e219 100644
--- 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)