version 1.11, 2014/01/27 09:28:40
|
version 1.12, 2016/08/27 15:27:14
|
Line 69
|
Line 69
|
*> |
*> |
*> \param[in,out] A |
*> \param[in,out] A |
*> \verbatim |
*> \verbatim |
*> A is COMPLEX array, dimension ( N*(N+1)/2 ); |
*> A is COMPLEX*16 array, dimension ( N*(N+1)/2 ); |
*> On entry, the Hermitian matrix A in RFP format. RFP format is |
*> On entry, the Hermitian matrix A in RFP format. RFP format is |
*> described by TRANSR, UPLO, and N as follows: If TRANSR = 'N' |
*> described by TRANSR, UPLO, and N as follows: If TRANSR = 'N' |
*> then RFP A is (0:N,0:k-1) when N is even; k=N/2. RFP A is |
*> then RFP A is (0:N,0:k-1) when N is even; k=N/2. RFP A is |
Line 204
|
Line 204
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date November 2011 |
*> \date June 2016 |
* |
* |
*> \ingroup complex16OTHERcomputational |
*> \ingroup complex16OTHERcomputational |
* |
* |
* ===================================================================== |
* ===================================================================== |
SUBROUTINE ZPFTRF( TRANSR, UPLO, N, A, INFO ) |
SUBROUTINE ZPFTRF( TRANSR, UPLO, N, A, INFO ) |
* |
* |
* -- LAPACK computational routine (version 3.4.0) -- |
* -- LAPACK computational routine (version 3.6.1) -- |
* -- 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 |
* June 2016 |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
CHARACTER TRANSR, UPLO |
CHARACTER TRANSR, UPLO |