version 1.5, 2020/05/21 21:46:11
|
version 1.6, 2023/08/07 08:39:39
|
Line 125
|
Line 125
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date November 2017 |
|
* |
|
*> \ingroup complex16SYcomputational |
*> \ingroup complex16SYcomputational |
* |
* |
* ===================================================================== |
* ===================================================================== |
SUBROUTINE ZSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO) |
SUBROUTINE ZSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO) |
* |
* |
* -- LAPACK computational routine (version 3.8.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 2017 |
|
* |
* |
IMPLICIT NONE |
IMPLICIT NONE |
* |
* |
Line 460
|
Line 457
|
END IF |
END IF |
* |
* |
20 CONTINUE |
20 CONTINUE |
|
WORK( 1 ) = LWKOPT |
RETURN |
RETURN |
* |
* |
* End of ZSYTRF_AA |
* End of ZSYTRF_AA |