.TH "SRC/zlaqhp.f" 3 "Version 3.12.0" "LAPACK" \" -*- nroff -*-
.ad l
.nh
.SH NAME
SRC/zlaqhp.f
.SH SYNOPSIS
.br
.PP
.SS "Functions/Subroutines"

.in +1c
.ti -1c
.RI "subroutine \fBzlaqhp\fP (uplo, n, ap, s, scond, amax, equed)"
.br
.RI "\fBZLAQHP\fP scales a Hermitian matrix stored in packed form\&. "
.in -1c
.SH "Function/Subroutine Documentation"
.PP 
.SS "subroutine zlaqhp (character uplo, integer n, complex*16, dimension( * ) ap, double precision, dimension( * ) s, double precision scond, double precision amax, character equed)"

.PP
\fBZLAQHP\fP scales a Hermitian matrix stored in packed form\&.  
.PP
\fBPurpose:\fP
.RS 4

.PP
.nf
 ZLAQHP equilibrates a Hermitian matrix A using the scaling factors
 in the vector S\&.
.fi
.PP
 
.RE
.PP
\fBParameters\fP
.RS 4
\fIUPLO\fP 
.PP
.nf
          UPLO is CHARACTER*1
          Specifies whether the upper or lower triangular part of the
          Hermitian matrix A is stored\&.
          = 'U':  Upper triangular
          = 'L':  Lower triangular
.fi
.PP
.br
\fIN\fP 
.PP
.nf
          N is INTEGER
          The order of the matrix A\&.  N >= 0\&.
.fi
.PP
.br
\fIAP\fP 
.PP
.nf
          AP is COMPLEX*16 array, dimension (N*(N+1)/2)
          On entry, the upper or lower triangle of the Hermitian 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\&.

          On exit, the equilibrated matrix:  diag(S) * A * diag(S), in
          the same storage format as A\&.
.fi
.PP
.br
\fIS\fP 
.PP
.nf
          S is DOUBLE PRECISION array, dimension (N)
          The scale factors for A\&.
.fi
.PP
.br
\fISCOND\fP 
.PP
.nf
          SCOND is DOUBLE PRECISION
          Ratio of the smallest S(i) to the largest S(i)\&.
.fi
.PP
.br
\fIAMAX\fP 
.PP
.nf
          AMAX is DOUBLE PRECISION
          Absolute value of largest matrix entry\&.
.fi
.PP
.br
\fIEQUED\fP 
.PP
.nf
          EQUED is CHARACTER*1
          Specifies whether or not equilibration was done\&.
          = 'N':  No equilibration\&.
          = 'Y':  Equilibration was done, i\&.e\&., A has been replaced by
                  diag(S) * A * diag(S)\&.
.fi
.PP
 
.RE
.PP
\fBInternal Parameters:\fP
.RS 4

.PP
.nf
  THRESH is a threshold value used to decide if scaling should be done
  based on the ratio of the scaling factors\&.  If SCOND < THRESH,
  scaling is done\&.

  LARGE and SMALL are threshold values used to decide if scaling should
  be done based on the absolute size of the largest matrix element\&.
  If AMAX > LARGE or AMAX < SMALL, scaling is done\&.
.fi
.PP
 
.RE
.PP
\fBAuthor\fP
.RS 4
Univ\&. of Tennessee 
.PP
Univ\&. of California Berkeley 
.PP
Univ\&. of Colorado Denver 
.PP
NAG Ltd\&. 
.RE
.PP

.PP
Definition at line \fB125\fP of file \fBzlaqhp\&.f\fP\&.
.SH "Author"
.PP 
Generated automatically by Doxygen for LAPACK from the source code\&.