ISAJET/utils/cern_lib/eisrs1.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.9  2000/07/25 14:53:05  mclareni
   6 * Version 7.51 from author
   7 *
   8 *
   9 *#include "sys/CERNLIB_machine.h"
  10 #include "isajet/pilot.h"
  11 #if defined(CERNLIB_NOCERN)
  12       SUBROUTINE EISRS1(NM,N,AR,WR,ZR,IERR,WORK)
  13 C     ALL EIGENVALUES AND CORRESPONDING EIGENVECTORS OF A REAL
  14 C     SYMMETRIC MATRIX
  15 C     FROM CERN PROGRAM LIBRARY
  16 C
  17 #if defined(CERNLIB_IMPNONE)
  18       IMPLICIT NONE
  19 #endif
  20       INTEGER NM,N,IERR
  21       REAL AR(NM,NM),WR(N),ZR(NM,NM),WORK(1)
  22       CALL TRED2(NM,N,AR,WR,WORK,ZR)
  23       CALL TQL2(NM,N,WR,WORK,ZR,IERR)
  24       RETURN
  25       END
  26 #endif