CH(3F)

NAME
     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.


SYNOPSYS
          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)



DESCRIPTION
     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