diff options
author | eugene.chereshnev <echeresh@mandrake.jf.intel.com> | 2016-12-14 11:05:32 -0800 |
---|---|---|
committer | eugene.chereshnev <eugenechereshnev@gmail.com> | 2016-12-14 11:30:52 -0800 |
commit | fd746a6013490e2154dc0c2eeb14357c94fa97f8 (patch) | |
tree | 7f3c347486684386be982ea32844223b8ba2a653 | |
parent | ca017fe2b6bfe4831ef862f06b5bed27a20650af (diff) |
TESTING/LIN/*errtsqr.f: fix LDA in ?GEMQR calls
-rw-r--r-- | TESTING/LIN/cerrtsqr.f | 6 | ||||
-rw-r--r-- | TESTING/LIN/derrtsqr.f | 6 | ||||
-rw-r--r-- | TESTING/LIN/serrtsqr.f | 6 | ||||
-rw-r--r-- | TESTING/LIN/zerrtsqr.f | 6 |
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) |