|
version 1.2, 2010/04/21 13:45:20
|
version 1.8, 2010/12/21 13:48:05
|
|
Line 3
|
Line 3
|
| $ LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK, |
$ LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK, |
| $ IWORK, INFO ) |
$ IWORK, INFO ) |
| * |
* |
| * -- LAPACK auxiliary routine (version 3.2) -- |
* -- LAPACK auxiliary routine (version 3.3.0) -- |
| * -- 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 |
* November 2010 |
| * |
* |
| * .. Scalar Arguments .. |
* .. Scalar Arguments .. |
| INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, |
INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, |
|
Line 191
|
Line 191
|
| * 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: if INFO = 1, an singular value did not converge |
* > 0: if INFO = 1, a singular value did not converge |
| * |
* |
| * Further Details |
* Further Details |
| * =============== |
* =============== |
|
Line 282
|
Line 282
|
| CALL DLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDGNUM, |
CALL DLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDGNUM, |
| $ WORK( ISIGMA ), WORK( IW ), INFO ) |
$ WORK( ISIGMA ), WORK( IW ), INFO ) |
| * |
* |
| |
* Handle error returned |
| |
* |
| |
IF( INFO.NE.0 ) THEN |
| |
CALL XERBLA( 'DLASD8', -INFO ) |
| |
RETURN |
| |
END IF |
| |
* |
| * Save the poles if ICOMPQ = 1. |
* Save the poles if ICOMPQ = 1. |
| * |
* |
| IF( ICOMPQ.EQ.1 ) THEN |
IF( ICOMPQ.EQ.1 ) THEN |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dlasd6.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / lapack / lapack