diff options
| author | konstantin.i.arturov <karturov@mugwort.jf.intel.com> | 2016-12-14 02:00:12 -0800 |
|---|---|---|
| committer | konstantin.i.arturov <karturov@mugwort.jf.intel.com> | 2016-12-14 02:00:12 -0800 |
| commit | 151dfc99aa8d19a52487995d228c32db80a94591 (patch) | |
| tree | 5309025fb58c13d19a1adeb3390b31b1e54be903 /TESTING/LIN/ctsqr01.f | |
| parent | f7dcf99f3fa16fe2903294b70f9fca72c0494776 (diff) | |
| download | lapack-151dfc99aa8d19a52487995d228c32db80a94591.tar.gz lapack-151dfc99aa8d19a52487995d228c32db80a94591.tar.bz2 lapack-151dfc99aa8d19a52487995d228c32db80a94591.zip | |
Minor fix in Netlib test
Diffstat (limited to 'TESTING/LIN/ctsqr01.f')
| -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 ) ) |