_CH(3F) _CH(3F)
CH, SCH - EISPACK routine. This subroutine calls the recommended
sequence of subroutines from the eigensystem subroutine package (EISPACK)
to find the eigenvalues and eigenvectors (if desired) of a COMPLEX
HERMITIAN matrix.
subroutine ch(nm,n,ar,ai,w,matz,zr,zi,fv1,fv2,fm1,ierr)
integer nm, n, matz, ierr
double precision ar(nm,n), ai(nm,n), w(n)
double precision zr(nm,n), zi(nm,n), fv1(n), fv2(n), fm1(2,n)
subroutine sch(nm,n,ar,ai,w,matz,zr,zi,fv1,fv2,fm1,ierr)
integer nm, n, matz, ierr
real ar(nm,n), ai(nm,n), w(n)
real zr(nm,n), zi(nm,n), fv1(n), fv2(n), fm1(2,n)
On INPUT
NM must be set to the row dimension of the two-dimensional array
parameters as declared in the calling program dimension statement.
N is the order of the matrix A=(AR,AI).
AR and AI contain the real and imaginary parts, respectively, of the
complex hermitian matrix.
MATZ is an integer variable set equal to zero if only eigenvalues are
desired. Otherwise it is set to any non-zero integer for both
eigenvalues and eigenvectors. On OUTPUT
W contains the eigenvalues in ascending order.
ZR and ZI contain the real and imaginary parts, respectively, of the
eigenvectors if MATZ is not zero.
IERR is an integer output variable set equal to an error completion code
described in section 2B of the documentation. The normal completion code
is zero.
FV1 , FV2, and FM1 are temporary storage arrays. Questions and comments
should be directed to B. S. Garbow, APPLIED MATHEMATICS DIVISION, ARGONNE
NATIONAL LABORATORY
PPPPaaaaggggeeee 1111 [ Back ]
|