version 1.1, 2010/01/26 15:22:45
|
version 1.5, 2010/08/07 13:18:06
|
Line 1
|
Line 1
|
SUBROUTINE DBDSDC( UPLO, COMPQ, N, D, E, U, LDU, VT, LDVT, Q, IQ, |
SUBROUTINE DBDSDC( UPLO, COMPQ, N, D, E, U, LDU, VT, LDVT, Q, IQ, |
$ WORK, IWORK, INFO ) |
$ WORK, 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 COMPQ, UPLO |
CHARACTER COMPQ, UPLO |
Line 119
|
Line 119
|
* 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. |
* > 0: The algorithm failed to compute a singular value. |
* The update process of divide and conquer failed. |
* The update process of divide and conquer failed. |
* |
* |
* Further Details |
* Further Details |
Line 368
|
Line 368
|
$ Q( START+( IC+QSTART-2 )*N ), |
$ Q( START+( IC+QSTART-2 )*N ), |
$ Q( START+( IS+QSTART-2 )*N ), |
$ Q( START+( IS+QSTART-2 )*N ), |
$ WORK( WSTART ), IWORK, INFO ) |
$ WORK( WSTART ), IWORK, INFO ) |
IF( INFO.NE.0 ) THEN |
END IF |
RETURN |
IF( INFO.NE.0 ) THEN |
END IF |
RETURN |
END IF |
END IF |
START = I + 1 |
START = I + 1 |
END IF |
END IF |