version 1.1, 2010/01/26 15:22:45
|
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 |