diff options
| -rw-r--r-- | TESTING/LIN/ctsqr01.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/TESTING/LIN/ctsqr01.f b/TESTING/LIN/ctsqr01.f index 23046cd7..6fbeb837 100644 --- a/TESTING/LIN/ctsqr01.f +++ b/TESTING/LIN/ctsqr01.f @@ -179,7 +179,7 @@ LWORK = MAX( LWORK, INT( WORKQUERY ) ) CALL CGEMQR( 'L', 'N', M, N, K, AF, M, TQUERY, TSIZE, CF, M, $ WORKQUERY, -1, INFO) - LWORK = MAX( LWORK, INT( WORKQUERY ) + LWORK = MAX( LWORK, INT( WORKQUERY ) ) CALL CGEMQR( 'L', 'C', M, N, K, AF, M, TQUERY, TSIZE, CF, M, $ WORKQUERY, -1, INFO) LWORK = MAX( LWORK, INT( WORKQUERY ) ) |