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/dgesvd.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/dgesvd.f')
| -rw-r--r-- | SRC/dgesvd.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/dgesvd.f b/SRC/dgesvd.f index 29af093f..4b678abf 100644 --- a/SRC/dgesvd.f +++ b/SRC/dgesvd.f @@ -477,7 +477,7 @@ CALL DGELQF( M, N, A, LDA, DUM(1), DUM(1), -1, IERR ) LWORK_DGELQF=DUM(1) * Compute space needed for DORGLQ - CALL DORGLQ( N, N, M, VT, LDVT, DUM(1), DUM(1), -1, IERR ) + CALL DORGLQ( N, N, M, DUM(1), N, DUM(1), DUM(1), -1, IERR ) LWORK_DORGLQ_N=DUM(1) CALL DORGLQ( M, N, M, A, LDA, DUM(1), DUM(1), -1, IERR ) LWORK_DORGLQ_M=DUM(1) |