diff options
| author | julie <julielangou@users.noreply.github.com> | 2012-01-07 06:00:05 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2012-01-07 06:00:05 +0000 |
| commit | a055c28aa29a338fef15d9d4550b03bcbbfda298 (patch) | |
| tree | 22a4a46d982c83cd7c6370602d4ff465eb189cfb /SRC/cgesvd.f | |
| parent | c47cfff838215c075050dde40395b3d682a1af76 (diff) | |
| download | lapack-a055c28aa29a338fef15d9d4550b03bcbbfda298.tar.gz lapack-a055c28aa29a338fef15d9d4550b03bcbbfda298.tar.bz2 lapack-a055c28aa29a338fef15d9d4550b03bcbbfda298.zip | |
Fix bug0085 - xGESVD Problem in Workspace computation
Diffstat (limited to 'SRC/cgesvd.f')
| -rw-r--r-- | SRC/cgesvd.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/cgesvd.f b/SRC/cgesvd.f index 93fecc01..98d42772 100644 --- a/SRC/cgesvd.f +++ b/SRC/cgesvd.f @@ -474,7 +474,7 @@ CALL CGELQF( M, N, A, LDA, DUM(1), DUM(1), -1, IERR ) LWORK_CGELQF=DUM(1) * Compute space needed for CUNGLQ - CALL CUNGLQ( N, N, M, VT, LDVT, DUM(1), DUM(1), -1, IERR ) + CALL CUNGLQ( N, N, M, DUM(1), N, DUM(1), DUM(1), -1, IERR ) LWORK_CUNGLQ_N=DUM(1) CALL CUNGLQ( M, N, M, A, LDA, DUM(1), DUM(1), -1, IERR ) LWORK_CUNGLQ_M=DUM(1) |