RS(3F)

NAME
     RS, SRS   -  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 REAL SYMMETRIC
     matrix.


SYNOPSYS
          subroutine  rs(nm, n, a, w, matz, z, fv1, fv2, ierr)
          integer          nm, n, matz, ierr
          double precision a(nm,n), w(n), z(nm,n), fv1(n), fv2(n)

          subroutine srs(nm, n, a, w, matz, z, fv1, fv2, ierr)
          integer          nm, n, matz, ierr
          real             a(nm,n), w(n), z(nm,n), fv1(n), fv2(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.

     A contains the real symmetric 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.

     Z contains 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 and  FV2  are temporary storage arrays. Questions and comments should
     be directed to B. S. Garbow, APPLIED MATHEMATICS DIVISION, ARGONNE
     NATIONAL LABORATORY