zla_herpvgrw - compute the reciprocal pivot growth factor using the "max absolute element" norm
SUBROUTINE ZLA_HERPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, WORK ) INTEGER N, INFO, LDA, LDAF INTEGER IPIV(*) DOUBLE COMPLEX A(LDA,*), AF(LDAF,*) DOUBLE PRECISION WORK(*) SUBROUTINE ZLA_HERPVGRW_64( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, WORK ) INTEGER*8 N, INFO, LDA, LDAF INTEGER*8 IPIV(*) DOUBLE COMPLEX A(LDA,*), AF(LDAF,*) DOUBLE PRECISION WORK(*) F95 INTERFACE SUBROUTINE LA_HERPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, WORK ) INTEGER :: N, INFO, LDA, LDAF CHARACTER(LEN=1) :: UPLO INTEGER, DIMENSION(:) :: IPIV COMPLEX(8), DIMENSION(:) :: WORK COMPLEX(8), DIMENSION(:,:) :: A, AF SUBROUTINE LA_HERPVGRW_64( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, WORK ) INTEGER(8) :: N, INFO, LDA, LDAF CHARACTER(LEN=1) :: UPLO INTEGER(8), DIMENSION(:) :: IPIV COMPLEX(8), DIMENSION(:) :: WORK COMPLEX(8), DIMENSION(:,:) :: A, AF C INTERFACE #include <sunperf.h>
Oracle Solaris Studio Performance Library zla_herpvgrw(3P) NAME zla_herpvgrw - compute the reciprocal pivot growth factor using the "max absolute element" norm SYNOPSIS SUBROUTINE ZLA_HERPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, WORK ) INTEGER N, INFO, LDA, LDAF INTEGER IPIV(*) DOUBLE COMPLEX A(LDA,*), AF(LDAF,*) DOUBLE PRECISION WORK(*) SUBROUTINE ZLA_HERPVGRW_64( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, WORK ) INTEGER*8 N, INFO, LDA, LDAF INTEGER*8 IPIV(*) DOUBLE COMPLEX A(LDA,*), AF(LDAF,*) DOUBLE PRECISION WORK(*) F95 INTERFACE SUBROUTINE LA_HERPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, WORK ) INTEGER :: N, INFO, LDA, LDAF CHARACTER(LEN=1) :: UPLO INTEGER, DIMENSION(:) :: IPIV COMPLEX(8), DIMENSION(:) :: WORK COMPLEX(8), DIMENSION(:,:) :: A, AF SUBROUTINE LA_HERPVGRW_64( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, WORK ) INTEGER(8) :: N, INFO, LDA, LDAF CHARACTER(LEN=1) :: UPLO INTEGER(8), DIMENSION(:) :: IPIV COMPLEX(8), DIMENSION(:) :: WORK COMPLEX(8), DIMENSION(:,:) :: A, AF C INTERFACE #include <sunperf.h> PURPOSE zla_herpvgrw 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. N (input) N is INTEGER The number of linear equations, i.e., the order of the matrix A. N >= 0. INFO (input) INFO is INTEGER The value of INFO returned from ZHETRF, .i.e., the pivot in column INFO is exactly 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 block diagonal matrix D and the multipliers used to obtain the factor U or L as computed by ZHETRF. LDAF (input) LDAF is INTEGER The leading dimension of the array AF. LDAF >= max(1,N). IPIV (input) IPIV is INTEGER array, dimension (N) Details of the interchanges and the block structure of D as determined by ZHETRF. WORK (input) WORK is COMPLEX*16 array, dimension (2*N) 7 Nov 2015 zla_herpvgrw(3P)