This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / f / eiscg2.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 EISCG2(NM,N,AR,AI,WR,WI,IERR)
11 C     ALL EIGENVALUES OF A COMPLEX GENERAL MATRIX
12 C
13       DIMENSION AR(NM,NM),AI(NM,NM),WR(N),WI(N)
14       CALL CBAL(NM,N,AR,AI,LOW,IGH,WR)
15       CALL COMHES(NM,N,LOW,IGH,AR,AI,WR)
16       CALL COMLR(NM,N,LOW,IGH,AR,AI,WR,WI,IERR)
17       RETURN
18       END