1
2
3
4
5
6
7
8
9
10
11
|
--- SRC/dgesvd.f 2011-11-12 04:34:11.000000000 +0900
+++ SRC/dgesvd.f 2012-03-12 16:38:41.000000000 +0900
@@ -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)
|
