Previous: rsgba Up: ../eispas.html Next: rsp


RSM(NM,N,A,W,M,Z,FWORK,IWORK,IERR)

       SUBROUTINE RSM(NM,N,A,W,M,Z,FWORK,IWORK,IERR)
 C
       INTEGER N,NM,M,IWORK(N),IERR
       REAL A(NM,N),W(N),Z(NM,M),FWORK(1)
 C
 C     THIS SUBROUTINE CALLS THE RECOMMENDED SEQUENCE OF
 C     SUBROUTINES FROM THE EIGENSYSTEM SUBROUTINE PACKAGE (EISPACK)
 C     TO FIND ALL OF THE EIGENVALUES AND SOME OF THE EIGENVECTORS
 C     OF A REAL SYMMETRIC MATRIX.
 C
 C     ON INPUT
 C
 C        NM  MUST BE SET TO THE ROW DIMENSION OF THE TWO-DIMENSIONAL
 C        ARRAY PARAMETERS AS DECLARED IN THE CALLING PROGRAM
 C        DIMENSION STATEMENT.
 C
 C        N  IS THE ORDER OF THE MATRIX  A.
 C
 C        A  CONTAINS THE REAL SYMMETRIC MATRIX.
 C
 C        M  THE EIGENVECTORS CORRESPONDING TO THE FIRST M EIGENVALUES
 C           ARE TO BE COMPUTED.
 C           IF M = 0 THEN NO EIGENVECTORS ARE COMPUTED.
 C           IF M = N THEN ALL OF THE EIGENVECTORS ARE COMPUTED.
 C
 C     ON OUTPUT
 C
 C        W  CONTAINS ALL N EIGENVALUES IN ASCENDING ORDER.
 C
 C        Z  CONTAINS THE ORTHONORMAL EIGENVECTORS ASSOCIATED WITH
 C           THE FIRST M EIGENVALUES.
 C
 C        IERR  IS AN INTEGER OUTPUT VARIABLE SET EQUAL TO AN ERROR
 C           COMPLETION CODE DESCRIBED IN THE DOCUMENTATION FOR TQLRAT,
 C           IMTQLV AND TINVIT.  THE NORMAL COMPLETION CODE IS ZERO.
 C
 C        FWORK  IS A TEMPORARY STORAGE ARRAY OF DIMENSION 8*N.
 C
 C        IWORK  IS AN INTEGER TEMPORARY STORAGE ARRAY OF DIMENSION N.
 C
 C     QUESTIONS AND COMMENTS SHOULD BE DIRECTED TO BURTON S. GARBOW,
 C     MATHEMATICS AND COMPUTER SCIENCE DIV, ARGONNE NATIONAL LABORATORY
 C
 C     THIS VERSION DATED AUGUST 1983.
 C
 C     ------------------------------------------------------------------
 C