version 1.2, 2017/06/17 11:06:48
|
version 1.3, 2018/05/29 06:55:23
|
Line 129
|
Line 129
|
*> The length of WORK. LWORK >= MAX(1,2*N,3*N-2), and for best |
*> The length of WORK. LWORK >= MAX(1,2*N,3*N-2), and for best |
*> performance LWORK >= max(1,N*NB), where NB is the optimal |
*> performance LWORK >= max(1,N*NB), where NB is the optimal |
*> blocksize for ZHETRF. |
*> blocksize for ZHETRF. |
*> for LWORK < N, TRS will be done with Level BLAS 2 |
|
*> for LWORK >= N, TRS will be done with Level BLAS 3 |
|
*> |
*> |
*> If LWORK = -1, then a workspace query is assumed; the routine |
*> If LWORK = -1, then a workspace query is assumed; the routine |
*> only calculates the optimal size of the WORK array, returns |
*> only calculates the optimal size of the WORK array, returns |
Line 156
|
Line 154
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date December 2016 |
*> \date November 2017 |
* |
* |
*> \ingroup complex16HEsolve |
*> \ingroup complex16HEsolve |
* |
* |
Line 164
|
Line 162
|
SUBROUTINE ZHESV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, |
SUBROUTINE ZHESV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, |
$ LWORK, INFO ) |
$ LWORK, INFO ) |
* |
* |
* -- LAPACK driver routine (version 3.7.0) -- |
* -- LAPACK driver routine (version 3.8.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..-- |
* December 2016 |
* November 2017 |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
CHARACTER UPLO |
CHARACTER UPLO |
Line 190
|
Line 188
|
EXTERNAL LSAME, ILAENV |
EXTERNAL LSAME, ILAENV |
* .. |
* .. |
* .. External Subroutines .. |
* .. External Subroutines .. |
EXTERNAL XERBLA, ZHETRF, ZHETRS, ZHETRS2 |
EXTERNAL XERBLA, ZHETRF_AA, ZHETRS_AA |
* .. |
* .. |
* .. Intrinsic Functions .. |
* .. Intrinsic Functions .. |
INTRINSIC MAX |
INTRINSIC MAX |