zla_porpvgrw - compute the reciprocal pivot growth factor norm(A)/norm(U) for a symmetric or Hermitian positive-definite matrix
DOUBLE PRECISION FUNCTION ZLA_PORPVGRW(UPLO, NCOLS, A, LDA, AF, LDAF, WORK) INTEGER NCOLS, LDA, LDAF DOUBLE COMPLEX A(LDA,*), AF(LDAF,*) DOUBLE PRECISION WORK(*) DOUBLE PRECISION FUNCTION ZLA_PORPVGRW_64(UPLO, NCOLS, A, LDA, AF, LDAF, WORK) INTEGER*8 NCOLS, LDA, LDAF DOUBLE COMPLEX A(LDA,*), AF(LDAF,*) DOUBLE PRECISION WORK(*) F95 INTERFACE REAL(8) FUNCTION LA_PORPVGRW(UPLO, NCOLS, A, LDA, AF, LDAF, WORK) INTEGER :: NCOLS, LDA, LDAF CHARACTER(LEN=1) :: UPLO COMPLEX(8), DIMENSION(:) :: WORK COMPLEX(8), DIMENSION(:,:) :: A, AF REAL(8) FUNCTION LA_PORPVGRW_64(UPLO, NCOLS, A, LDA, AF, LDAF, WORK) INTEGER(8) :: NCOLS, LDA, LDAF CHARACTER(LEN=1) :: UPLO COMPLEX(8), DIMENSION(:) :: WORK COMPLEX(8), DIMENSION(:,:) :: A, AF C INTERFACE #include <sunperf.h> double zla_porpvgrw (char uplo, int ncols, doublecomplex *a, int lda, doublecomplex *af, int ldaf); double zla_porpvgrw_64 (char uplo, long ncols, doublecomplex *a, long lda, doublecomplex *af, long ldaf);
Oracle Solaris Studio Performance Library zla_porpvgrw(3P) NAME zla_porpvgrw - compute the reciprocal pivot growth factor norm(A)/norm(U) for a symmetric or Hermitian positive-definite matrix SYNOPSIS DOUBLE PRECISION FUNCTION ZLA_PORPVGRW(UPLO, NCOLS, A, LDA, AF, LDAF, WORK) INTEGER NCOLS, LDA, LDAF DOUBLE COMPLEX A(LDA,*), AF(LDAF,*) DOUBLE PRECISION WORK(*) DOUBLE PRECISION FUNCTION ZLA_PORPVGRW_64(UPLO, NCOLS, A, LDA, AF, LDAF, WORK) INTEGER*8 NCOLS, LDA, LDAF DOUBLE COMPLEX A(LDA,*), AF(LDAF,*) DOUBLE PRECISION WORK(*) F95 INTERFACE REAL(8) FUNCTION LA_PORPVGRW(UPLO, NCOLS, A, LDA, AF, LDAF, WORK) INTEGER :: NCOLS, LDA, LDAF CHARACTER(LEN=1) :: UPLO COMPLEX(8), DIMENSION(:) :: WORK COMPLEX(8), DIMENSION(:,:) :: A, AF REAL(8) FUNCTION LA_PORPVGRW_64(UPLO, NCOLS, A, LDA, AF, LDAF, WORK) INTEGER(8) :: NCOLS, LDA, LDAF CHARACTER(LEN=1) :: UPLO COMPLEX(8), DIMENSION(:) :: WORK COMPLEX(8), DIMENSION(:,:) :: A, AF C INTERFACE #include <sunperf.h> double zla_porpvgrw (char uplo, int ncols, doublecomplex *a, int lda, doublecomplex *af, int ldaf); double zla_porpvgrw_64 (char uplo, long ncols, doublecomplex *a, long lda, doublecomplex *af, long ldaf); PURPOSE zla_porpvgrw computes the reciprocal pivot growth factor norm(A)/norm(U). The "max absolute element" norm is used. If this is much less than 1, the stability of the LU factorization of the (equili- brated) matrix A could be poor. This also means that the solution X, estimated condition numbers, and error bounds could be unreliable. ARGUMENTS UPLO (input) UPLO is CHARACTER*1 = 'U': Upper triangle of A is stored; = 'L': Lower triangle of A is stored. NCOLS (input) NCOLS is INTEGER The number of columns of the matrix A. NCOLS >= 0. A (input) A is COMPLEX*16 array, dimension (LDA,N) On entry, the N-by-N matrix A. LDA (input) LDA is INTEGER The leading dimension of the array A. LDA >= max(1,N). AF (input) AF is COMPLEX*16 array, dimension (LDAF,N) The triangular factor U or L from the Cholesky factorization A=U**T*U or A=L*L**T, as computed by ZPOTRF. LDAF (input) LDAF is INTEGER The leading dimension of the array AF. LDAF >= max(1,N). WORK (input) WORK is COMPLEX*16 array, dimension (2*N) 7 Nov 2015 zla_porpvgrw(3P)