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

p?pocon

Estimates the reciprocal of the condition number (in the 1 - norm) of a symmetric / Hermitian positive-definite distributed matrix.

Syntax

call pspocon(uplo, n, a, ia, ja, desca, anorm, rcond, work, lwork, iwork, liwork, info)

call pdpocon(uplo, n, a, ia, ja, desca, anorm, rcond, work, lwork, iwork, liwork, info)

call pcpocon(uplo, n, a, ia, ja, desca, anorm, rcond, work, lwork, rwork, lrwork, info)

call pzpocon(uplo, n, a, ia, ja, desca, anorm, rcond, work, lwork, rwork, lrwork, info)

Include Files

Description

The p?poconroutine estimates the reciprocal of the condition number (in the 1 - norm) of a real symmetric or complex Hermitian positive definite distributed matrix sub(A) = A(ia:ia+n-1, ja:ja+n-1), using the Cholesky factorization sub(A) = UH*U or sub(A) = L*LH computed by p?potrf.

An estimate is obtained for ||(sub(A))-1||, and the reciprocal of the condition number is computed as


Equation

Input Parameters

uplo

(global) CHARACTER*1. Must be 'U' or 'L'.

Specifies whether the factor stored in sub(A) is upper or lower triangular.

If uplo = 'U', sub(A) stores the upper triangular factor U of the Cholesky factorization sub(A) = UH*U.

If uplo = 'L', sub(A) stores the lower triangular factor L of the Cholesky factorization sub(A) = L*LH.

n

(global) INTEGER. The order of the distributed matrix sub(A) (n0).

a

(local)

REAL for pspocon

DOUBLE PRECISION for pdpocon

COMPLEX for pcpocon

DOUBLE COMPLEX for pzpocon.

Pointer into the local memory to an array of size (lld_a,LOCc(ja+n-1)).

The array a contains the local pieces of the factors L or U from the Cholesky factorization sub(A) = UH*U, or sub(A) = L*LH, as computed by p?potrf.

ia, ja

(global) INTEGER. The row and column indices in the global matrix A indicating the first row and the first column of the matrix sub(A), respectively.

desca

(global and local) INTEGER array of size dlen_. The array descriptor for the distributed matrix A.

anorm

(global) REAL for single precision flavors,

DOUBLE PRECISION for double precision flavors.

The 1-norm of the symmetric/Hermitian distributed matrix sub(A).

work

(local)

REAL for pspocon

DOUBLE PRECISION for pdpocon

COMPLEX for pcpocon

DOUBLE COMPLEX for pzpocon.

The array work of size lwork is a workspace array.

lwork

(local or global) INTEGER. The size of the array work.

For real flavors:

lwork must be at least

lwork 2*LOCr(n+mod(ia-1,mb_a))+2*LOCc(n+mod(ja-1,nb_a))+max(2, max(nb_a*iceil(NPROW-1, NPCOL), LOCc(n+mod(ja-1,nb_a))+nb_a*iceil(NPCOL-1, NPROW))).

For complex flavors:

lwork must be at least

lwork 2*LOCr(n+mod(ia-1,mb_a))+max(2, max(nb_a*max(1,iceil(NPROW-1, NPCOL)), LOCc(n+mod(ja-1,nb_a))+nb_a*max(1,iceil(NPCOL-1, NPROW)))).

If lwork = -1, then lwork is a global input and a workspace query is assumed. The routine only calculates the minimum and optimal size for all work arrays. Each value is returned in the first entry of the corresponding work array, and no error message is issued by pxerbla.

NOTE:

iceil(x,y) is the ceiling of x/y, and mod(x,y) is the integer remainder of x/y.

iwork

(local) INTEGER. Workspace array of size liwork. Used in real flavors only.

liwork

(local or global) INTEGER. The size of the array iwork; used in real flavors only. Must be at least liworkLOCr(n+mod(ia-1,mb_a)).

If liwork = -1, then liwork is a global input and a workspace query is assumed. The routine only calculates the minimum and optimal size for all work arrays. Each value is returned in the first entry of the corresponding work array, and no error message is issued by pxerbla.

rwork

(local) REAL for pcpocon

DOUBLE PRECISION for pzpocon

Workspace array of size lrwork. Used in complex flavors only.

lrwork

(local or global) INTEGER. The size of the array rwork; used in complex flavors only. Must be at least lrwork 2*LOCc(n+mod(ja-1,nb_a)).

If lrwork = -1, then lrwork is a global input and a workspace query is assumed. The routine only calculates the minimum and optimal size for all work arrays. Each value is returned in the first entry of the corresponding work array, and no error message is issued by pxerbla.

Output Parameters

rcond

(global) REAL for single precision flavors.

DOUBLE PRECISION for double precision flavors.

The reciprocal of the condition number of the distributed matrix sub(A).

work(1)

On exit, work(1) contains the minimum value of lwork required for optimum performance.

iwork(1)

On exit, iwork(1) contains the minimum value of liwork required for optimum performance (for real flavors).

rwork(1)

On exit, rwork(1) contains the minimum value of lrwork required for optimum performance (for complex flavors).

info

(global) INTEGER. If info=0, the execution is successful.

info < 0:

If the i-th argument is an array and the j-th entry had an illegal value, then info = -(i*100+j); if the i-th argument is a scalar and had an illegal value, then info = -i.

See Also