LAPACK  3.4.2
LAPACK: Linear Algebra PACKage
 All Files Functions Groups
ctrttp.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine ctrttp (UPLO, N, A, LDA, AP, INFO)
 CTRTTP copies a triangular matrix from the standard full format (TR) to the standard packed format (TP).

Function/Subroutine Documentation

subroutine ctrttp ( character  UPLO,
integer  N,
complex, dimension( lda, * )  A,
integer  LDA,
complex, dimension( * )  AP,
integer  INFO 
)

CTRTTP copies a triangular matrix from the standard full format (TR) to the standard packed format (TP).

Download CTRTTP + dependencies [TGZ] [ZIP] [TXT]
Purpose:
 CTRTTP copies a triangular matrix A from full format (TR) to standard
 packed format (TP).
Parameters:
[in]UPLO
          UPLO is CHARACTER*1
          = 'U':  A is upper triangular;
          = 'L':  A is lower triangular.
[in]N
          N is INTEGER
          The order of the matrices AP and A.  N >= 0.
[in]A
          A is COMPLEX array, dimension (LDA,N)
          On entry, the triangular matrix A.  If UPLO = 'U', the leading
          N-by-N upper triangular part of A contains the upper
          triangular part of the matrix A, and the strictly lower
          triangular part of A is not referenced.  If UPLO = 'L', the
          leading N-by-N lower triangular part of A contains the lower
          triangular part of the matrix A, and the strictly upper
          triangular part of A is not referenced.
[in]LDA
          LDA is INTEGER
          The leading dimension of the array A.  LDA >= max(1,N).
[out]AP
          AP is COMPLEX array, dimension ( N*(N+1)/2 ),
          On exit, the upper or lower triangular matrix A, packed
          columnwise in a linear array. The j-th column of A is stored
          in the array AP as follows:
          if UPLO = 'U', AP(i + (j-1)*j/2) = A(i,j) for 1<=i<=j;
          if UPLO = 'L', AP(i + (j-1)*(2n-j)/2) = A(i,j) for j<=i<=n.
[out]INFO
          INFO is INTEGER
          = 0:  successful exit
          < 0:  if INFO = -i, the i-th argument had an illegal value
Author:
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date:
September 2012

Definition at line 105 of file ctrttp.f.

Here is the call graph for this function:

Here is the caller graph for this function: