version 1.1, 2016/08/27 15:31:05
|
version 1.7, 2023/08/07 08:39:42
|
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 |
|
* |
|
* @precisions fortran z -> c |
|
* |
|
*> \ingroup complex16OTHERcomputational |
*> \ingroup complex16OTHERcomputational |
* |
* |
*> \par Further Details: |
*> \par Further Details: |
Line 247
|
Line 243
|
$ 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 -- |
* -- 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 |
|
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
CHARACTER HOWMNY, SIDE |
CHARACTER HOWMNY, SIDE |
Line 287
|
Line 282
|
EXTERNAL LSAME, ILAENV, IZAMAX, DLAMCH, DZASUM |
EXTERNAL LSAME, ILAENV, IZAMAX, DLAMCH, DZASUM |
* .. |
* .. |
* .. External Subroutines .. |
* .. External Subroutines .. |
EXTERNAL XERBLA, ZCOPY, ZDSCAL, ZGEMV, ZLATRS |
EXTERNAL XERBLA, ZCOPY, ZDSCAL, ZGEMV, ZLATRS, |
|
$ ZGEMM, DLABAD, ZLASET, ZLACPY |
* .. |
* .. |
* .. Intrinsic Functions .. |
* .. Intrinsic Functions .. |
INTRINSIC ABS, DBLE, DCMPLX, CONJG, AIMAG, MAX |
INTRINSIC ABS, DBLE, DCMPLX, CONJG, DIMAG, MAX |
* .. |
* .. |
* .. Statement Functions .. |
* .. Statement Functions .. |
DOUBLE PRECISION CABS1 |
DOUBLE PRECISION CABS1 |
* .. |
* .. |
* .. Statement Function definitions .. |
* .. Statement Function definitions .. |
CABS1( CDUM ) = ABS( DBLE( CDUM ) ) + ABS( AIMAG( CDUM ) ) |
CABS1( CDUM ) = ABS( DBLE( CDUM ) ) + ABS( DIMAG( CDUM ) ) |
* .. |
* .. |
* .. Executable Statements .. |
* .. Executable Statements .. |
* |
* |
Line 593
|
Line 589
|
* 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, |