*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:02:38  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
      SUBROUTINE EISCG1(NM,N,AR,AI,WR,WI,ZR,ZI,IERR,WORK)
C     ALL EIGENVALUES AND CORRESPONDING EIGENVECTORS OF A COMPLEX
C     GENERAL MATRIX
C
      DIMENSION AR(NM,NM),AI(NM,NM),ZR(NM,NM),ZI(NM,NM),WR(N),WI(N),
     1          WORK(1)
      CALL CBAL(NM,N,AR,AI,LOW,IGH,WORK)
      CALL COMHES(NM,N,LOW,IGH,AR,AI,WORK(N+1))
      CALL COMLR2(NM,N,LOW,IGH,WORK(N+1),AR,AI,WR,WI,ZR,ZI,IERR)
      IF(IERR.NE.0) RETURN
      CALL CBABK2(NM,N,LOW,IGH,WORK,N,ZR,ZI)
      RETURN
      END