MINICERN/mathlib/gen/f/eisst1.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:02:39  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10       SUBROUTINE EISST1(NM,N,AR,WR,ZR,IERR,WORK)
  11 C     ALL EIGENVALUES AND CORRESPONDING EIGENVECTORS OF A REAL
  12 C     SYMMETRIC TRIDIAGONAL MATRIX
  13 C
  14       DIMENSION AR(NM,2),WR(N),ZR(NM,NM),WORK(N)
  15       DO 100 I=1,N
  16       DO 50 J=1,N
  17    50 ZR(I,J)=0.0
  18       ZR(I,I)=1.0
  19       WR(I)=AR(I,2)
  20   100 WORK(I)=AR(I,1)
  21       CALL IMTQL2(NM,N,WR,WORK,ZR,IERR)
  22       RETURN
  23       END