|
version 1.7, 2010/12/21 13:53:26
|
version 1.8, 2011/07/22 07:38:05
|
|
Line 1
|
Line 1
|
| SUBROUTINE DGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, LDVT, |
SUBROUTINE DGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, LDVT, |
| $ WORK, LWORK, INFO ) |
$ WORK, LWORK, INFO ) |
| * |
* |
| * -- LAPACK driver routine (version 3.2) -- |
* -- LAPACK driver routine (version 3.3.1) -- |
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| * November 2006 |
* -- April 2011 -- |
| * |
* |
| * .. Scalar Arguments .. |
* .. Scalar Arguments .. |
| CHARACTER JOBU, JOBVT |
CHARACTER JOBU, JOBVT |
|
Line 115
|
Line 115
|
| * |
* |
| * LWORK (input) INTEGER |
* LWORK (input) INTEGER |
| * The dimension of the array WORK. |
* The dimension of the array WORK. |
| * LWORK >= MAX(1,3*MIN(M,N)+MAX(M,N),5*MIN(M,N)). |
* LWORK >= MAX(1,5*MIN(M,N)) for the paths (see comments inside code): |
| |
* - PATH 1 (M much larger than N, JOBU='N') |
| |
* - PATH 1t (N much larger than M, JOBVT='N') |
| |
* LWORK >= MAX(1,3*MIN(M,N)+MAX(M,N),5*MIN(M,N)) for the other paths |
| * For good performance, LWORK should generally be larger. |
* For good performance, LWORK should generally be larger. |
| * |
* |
| * If LWORK = -1, then a workspace query is assumed; the routine |
* If LWORK = -1, then a workspace query is assumed; the routine |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dgesvd.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / lapack / lapack