version 1.2, 2016/08/27 15:35:11
|
version 1.3, 2017/06/17 10:54:31
|
Line 2
|
Line 2
|
* |
* |
* =========== DOCUMENTATION =========== |
* =========== DOCUMENTATION =========== |
* |
* |
* Online html documentation available at |
* Online html documentation available at |
* http://www.netlib.org/lapack/explore-html/ |
* http://www.netlib.org/lapack/explore-html/ |
* |
* |
*> \htmlonly |
*> \htmlonly |
*> Download ZTREVC3 + dependencies |
*> Download ZTREVC3 + dependencies |
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ztrevc3.f"> |
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ztrevc3.f"> |
*> [TGZ]</a> |
*> [TGZ]</a> |
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ztrevc3.f"> |
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ztrevc3.f"> |
*> [ZIP]</a> |
*> [ZIP]</a> |
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ztrevc3.f"> |
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ztrevc3.f"> |
*> [TXT]</a> |
*> [TXT]</a> |
*> \endhtmlonly |
*> \endhtmlonly |
* |
* |
* Definition: |
* Definition: |
* =========== |
* =========== |
* |
* |
* SUBROUTINE ZTREVC3( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, |
* SUBROUTINE ZTREVC3( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, |
* VR, LDVR, MM, M, WORK, LWORK, RWORK, INFO ) |
* $ LDVR, MM, M, WORK, LWORK, RWORK, LRWORK, INFO) |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
* CHARACTER HOWMNY, SIDE |
* CHARACTER HOWMNY, SIDE |
Line 222
|
Line 222
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date November 2011 |
*> \date December 2016 |
* |
* |
* @precisions fortran z -> c |
* @precisions fortran z -> c |
* |
* |
Line 247
|
Line 247
|
$ LDVR, MM, M, WORK, LWORK, RWORK, LRWORK, INFO) |
$ LDVR, MM, M, WORK, LWORK, RWORK, LRWORK, INFO) |
IMPLICIT NONE |
IMPLICIT NONE |
* |
* |
* -- LAPACK computational routine (version 3.4.0) -- |
* -- LAPACK computational routine (version 3.7.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 |
* December 2016 |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
CHARACTER HOWMNY, SIDE |
CHARACTER HOWMNY, SIDE |
Line 288
|
Line 288
|
* .. |
* .. |
* .. External Subroutines .. |
* .. External Subroutines .. |
EXTERNAL XERBLA, ZCOPY, ZDSCAL, ZGEMV, ZLATRS |
EXTERNAL XERBLA, ZCOPY, ZDSCAL, ZGEMV, ZLATRS |
|
$ ZGEMM, DLABAD, ZLASET |
* .. |
* .. |
* .. Intrinsic Functions .. |
* .. Intrinsic Functions .. |
INTRINSIC ABS, DBLE, DCMPLX, CONJG, AIMAG, MAX |
INTRINSIC ABS, DBLE, DCMPLX, CONJG, AIMAG, MAX |
Line 593
|
Line 594
|
* When the number of vectors stored reaches NB, |
* When the number of vectors stored reaches NB, |
* or if this was last vector, do the GEMM |
* or if this was last vector, do the GEMM |
IF( (IV.EQ.NB) .OR. (KI.EQ.N) ) THEN |
IF( (IV.EQ.NB) .OR. (KI.EQ.N) ) THEN |
CALL ZGEMM( 'N', 'N', N, IV, N-KI+IV, ONE, |
CALL ZGEMM( 'N', 'N', N, IV, N-KI+IV, CONE, |
$ VL( 1, KI-IV+1 ), LDVL, |
$ VL( 1, KI-IV+1 ), LDVL, |
$ WORK( KI-IV+1 + (1)*N ), N, |
$ WORK( KI-IV+1 + (1)*N ), N, |
$ CZERO, |
$ CZERO, |