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 /TESTING/LIN/cerrtsqr.f | |
| parent | ca017fe2b6bfe4831ef862f06b5bed27a20650af (diff) | |
TESTING/LIN/*errtsqr.f: fix LDA in ?GEMQR calls
Diffstat (limited to 'TESTING/LIN/cerrtsqr.f')
| -rw-r--r-- | TESTING/LIN/cerrtsqr.f | 6 |
1 files changed, 3 insertions, 3 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) |