Developer Reference for Intel® oneAPI Math Kernel Library for Fortran

ID 766686
Date 7/13/2023
Public

A newer version of this document is available. Customers should click here to go to the newest version.

Document Table of Contents

?tpttf

Copies a triangular matrix from the standard packed format (TP) to the rectangular full packed format (TF).

Syntax

call stpttf( transr, uplo, n, ap, arf, info )

call dtpttf( transr, uplo, n, ap, arf, info )

call ctpttf( transr, uplo, n, ap, arf, info )

call ztpttf( transr, uplo, n, ap, arf, info )

Include Files

  • mkl.fi

Description

The routine copies a triangular matrix A from the standard packed format to the Rectangular Full Packed (RFP) format. For the description of the RFP format, see Matrix Storage Schemes.

Input Parameters

transr

CHARACTER*1.

= 'N': arf must be in the Normal format,

= 'T': arf must be in the Transpose format (for stpttf and dtpttf),

= 'C': arf must be in the Conjugate-transpose format (for ctpttf and ztpttf).

uplo

CHARACTER*1.

Specifies whether A is upper or lower triangular:

= 'U': A is upper triangular,

= 'L': A is lower triangular.

n

INTEGER. The order of the matrix A. n 0.

ap

REAL for stpttf,

DOUBLE PRECISION for dtpttf,

COMPLEX for ctpttf,

DOUBLE COMPLEX for ztpttf.

Array, size at least max (1, n*(n+1)/2).

On entry, 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.

Output Parameters

arf

REAL for stpttf,

DOUBLE PRECISION for dtpttf,

COMPLEX for ctfttp,

DOUBLE COMPLEX for ztpttf.

Array, size at least max (1, n*(n+1)/2).

On exit, the upper or lower triangular matrix A stored in the RFP format.
info

INTEGER.

=0: successful exit,

< 0: if info = -i, the i-th parameter had an illegal value.

If info = -1011, memory allocation error occurred.