*
* $Id: eisrg1.F,v 1.1.1.1 1996/04/01 15:02:39 mclareni Exp $
*
* $Log: eisrg1.F,v $
* Revision 1.1.1.1  1996/04/01 15:02:39  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
      SUBROUTINE EISRG1(NM,N,AR,WR,WI,ZR,IERR,WORK)
C     ALL EIGENVALUES AND CORRESPONDING EIGENVECTORS OF A REAL GENERAL
C     MATRIX
C
      DIMENSION AR(NM,NM),WR(N),WI(N),ZR(NM,NM),WORK(1)
      CALL BALANC(NM,N,AR,LOW,IGH,WORK)
      CALL ELMHES(NM,N,LOW,IGH,AR,WORK(N+1))
      CALL ELTRAN(NM,N,LOW,IGH,AR,WORK(N+1),ZR)
      CALL HQR2(NM,N,LOW,IGH,AR,WR,WI,ZR,IERR)
      IF(IERR.NE.0) RETURN
      CALL BALBAK(NM,N,LOW,IGH,WORK,N,ZR)
      RETURN
      END