version 1.1, 2010/01/26 15:22:45
|
version 1.8, 2010/12/21 13:53:50
|
Line 1
|
Line 1
|
SUBROUTINE ZLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, |
SUBROUTINE ZLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, |
$ RANK, WORK, RWORK, IWORK, INFO ) |
$ RANK, WORK, RWORK, IWORK, INFO ) |
* |
* |
* -- LAPACK routine (version 3.2) -- |
* -- LAPACK routine (version 3.2.2) -- |
* -- 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 |
* June 2010 |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
CHARACTER UPLO |
CHARACTER UPLO |
Line 89
|
Line 89
|
* (N * NRHS). |
* (N * NRHS). |
* |
* |
* RWORK (workspace) DOUBLE PRECISION array, dimension at least |
* RWORK (workspace) DOUBLE PRECISION array, dimension at least |
* (9*N + 2*N*SMLSIZ + 8*N*NLVL + 3*SMLSIZ*NRHS + (SMLSIZ+1)**2), |
* (9*N + 2*N*SMLSIZ + 8*N*NLVL + 3*SMLSIZ*NRHS + |
|
* MAX( (SMLSIZ+1)**2, N*(1+NRHS) + 2*NRHS ), |
* where |
* where |
* NLVL = MAX( 0, INT( LOG_2( MIN( M,N )/(SMLSIZ+1) ) ) + 1 ) |
* NLVL = MAX( 0, INT( LOG_2( MIN( M,N )/(SMLSIZ+1) ) ) + 1 ) |
* |
* |
Line 99
|
Line 100
|
* INFO (output) INTEGER |
* INFO (output) INTEGER |
* = 0: successful exit. |
* = 0: successful exit. |
* < 0: if INFO = -i, the i-th argument had an illegal value. |
* < 0: if INFO = -i, the i-th argument had an illegal value. |
* > 0: The algorithm failed to compute an singular value while |
* > 0: The algorithm failed to compute a singular value while |
* working on the submatrix lying in rows and columns |
* working on the submatrix lying in rows and columns |
* INFO/(N+1) through MOD(INFO,N+1). |
* INFO/(N+1) through MOD(INFO,N+1). |
* |
* |