version 1.6, 2012/08/22 09:48:28
|
version 1.8, 2014/01/27 09:24:36
|
Line 322
|
Line 322
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date November 2011 |
*> \date November 2013 |
* |
* |
*> \ingroup complex16OTHERcomputational |
*> \ingroup complex16OTHERcomputational |
* |
* |
Line 332
|
Line 332
|
$ V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, |
$ V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, |
$ B22D, B22E, RWORK, LRWORK, INFO ) |
$ B22D, B22E, RWORK, LRWORK, INFO ) |
* |
* |
* -- LAPACK computational routine (version 3.4.0) -- |
* -- LAPACK computational routine (version 3.5.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 2011 |
* November 2013 |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS |
CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS |
Line 476
|
Line 476
|
* Initial deflation |
* Initial deflation |
* |
* |
IMAX = Q |
IMAX = Q |
DO WHILE( ( IMAX .GT. 1 ) .AND. ( PHI(IMAX-1) .EQ. ZERO ) ) |
DO WHILE( IMAX .GT. 1 ) |
|
IF( PHI(IMAX-1) .NE. ZERO ) THEN |
|
EXIT |
|
END IF |
IMAX = IMAX - 1 |
IMAX = IMAX - 1 |
END DO |
END DO |
IMIN = IMAX - 1 |
IMIN = IMAX - 1 |