MINICERN/mathlib/gen/f/eiscg1.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:02:38  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10       SUBROUTINE EISCG1(NM,N,AR,AI,WR,WI,ZR,ZI,IERR,WORK)
  11 C     ALL EIGENVALUES AND CORRESPONDING EIGENVECTORS OF A COMPLEX
  12 C     GENERAL MATRIX
  13 C
  14       DIMENSION AR(NM,NM),AI(NM,NM),ZR(NM,NM),ZI(NM,NM),WR(N),WI(N),
  15      1          WORK(1)
  16       CALL CBAL(NM,N,AR,AI,LOW,IGH,WORK)
  17       CALL COMHES(NM,N,LOW,IGH,AR,AI,WORK(N+1))
  18       CALL COMLR2(NM,N,LOW,IGH,WORK(N+1),AR,AI,WR,WI,ZR,ZI,IERR)
  19       IF(IERR.NE.0) RETURN
  20       CALL CBABK2(NM,N,LOW,IGH,WORK,N,ZR,ZI)
  21       RETURN
  22       END