diff options
| -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) |