version 1.7, 2010/08/13 21:03:52
|
version 1.8, 2010/12/21 13:48:05
|
Line 1
|
Line 1
|
SUBROUTINE DLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDDIFR, |
SUBROUTINE DLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDDIFR, |
$ DSIGMA, WORK, INFO ) |
$ DSIGMA, WORK, INFO ) |
* |
* |
* -- LAPACK auxiliary routine (version 3.2.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..-- |
* June 2010 |
* November 2010 |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
INTEGER ICOMPQ, INFO, K, LDDIFR |
INTEGER ICOMPQ, INFO, K, LDDIFR |
Line 195
|
Line 195
|
* If the root finder fails, the computation is terminated. |
* If the root finder fails, the computation is terminated. |
* |
* |
IF( INFO.NE.0 ) THEN |
IF( INFO.NE.0 ) THEN |
|
CALL XERBLA( 'DLASD4', -INFO ) |
RETURN |
RETURN |
END IF |
END IF |
WORK( IWK3I+J ) = WORK( IWK3I+J )*WORK( J )*WORK( IWK2I+J ) |
WORK( IWK3I+J ) = WORK( IWK3I+J )*WORK( J )*WORK( IWK2I+J ) |