diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-03-03 23:14:53 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-03-03 23:14:53 +0000 |
| commit | 472bfdccf7aa2fef03d010e8f60644cf90383e9d (patch) | |
| tree | 7d015bbbca0f3b62052782a73c0df67b45dd7cc6 /SRC/cuncsd.f | |
| parent | adc144b1c153d1ba27490a5363443257603e8adf (diff) | |
Correct Workspace Query to make sure we return the max of LWORKOPT and LWORKMIN
Diffstat (limited to 'SRC/cuncsd.f')
| -rw-r--r-- | SRC/cuncsd.f | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/SRC/cuncsd.f b/SRC/cuncsd.f index 070b45cc..b5166a8f 100644 --- a/SRC/cuncsd.f +++ b/SRC/cuncsd.f @@ -14,6 +14,8 @@ * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * +* @generated c +* * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS INTEGER INFO, LDU1, LDU2, LDV1T, LDV2T, LDX11, LDX12, @@ -157,7 +159,7 @@ * this value as the first entry of the work array, and no error * message related to LRWORK is issued by XERBLA. * -* IWORK (workspace) INTEGER array, dimension (M-MIN(P, M-P, Q, M-Q)) +* IWORK (workspace) INTEGER array, dimension (M-MIN(P,M-P,Q,M-Q)) * * INFO (output) INTEGER * = 0: successful exit. @@ -197,8 +199,8 @@ LOGICAL LRQUERY * .. * .. External Subroutines .. - EXTERNAL CBBCSD, CLACPY, CLAPMR, CLAPMT, CLASCL, CLASET, - $ CUNBDB, CUNGLQ, CUNGQR, XERBLA + EXTERNAL XERBLA, CBBCSD, CLACPY, CLAPMR, CLAPMT, CLASCL, + $ CLASET, CUNBDB, CUNGLQ, CUNGQR * .. * .. External Functions .. LOGICAL LSAME @@ -327,7 +329,7 @@ $ IORBDB + LORBDBWORKOPT ) - 1 LWORKMIN = MAX( IORGQR + LORGQRWORKMIN, IORGLQ + LORGLQWORKMIN, $ IORBDB + LORBDBWORKMIN ) - 1 - WORK(1) = LWORKOPT + WORK(1) = MAX(LWORKOPT,LWORKMIN) * IF( LWORK .LT. LWORKMIN $ .AND. .NOT. ( LQUERY .OR. LRQUERY ) ) THEN |