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>

Description

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)