1      SUBROUTINE YGEEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, WR, WI,
2     $                   VL, LDVL, VR, LDVR, ILO, IHI, SCALE, ABNRM,
3     $                   RCONDE, RCONDV, WORK, LWORK, IWORK, INFO )
4*
5* $Id$
6*
7      implicit none
8#include "y64.fh"
9*     .. Scalar Arguments ..
10      CHARACTER          BALANC, JOBVL, JOBVR, SENSE
11      INTEGER            IHI, ILO, INFO, LDA, LDVL, LDVR, LWORK, N
12      DOUBLE PRECISION   ABNRM
13*     ..
14*     .. Array Arguments ..
15      INTEGER            IWORK( * )
16      DOUBLE PRECISION   A( LDA, * ), RCONDE( * ), RCONDV( * ),
17     $                   SCALE( * ), VL( LDVL, * ), VR( LDVR, * ),
18     $                   WI( * ), WORK( * ), WR( * )
19c
20      INTGR4            N4, LDA4, LDVL4, LDVR4, LWORK4, INFO4,
21     $     ILO4,IHI4
22c
23      N4=N
24      LDA4=LDA
25      LDVL4=LDVL
26      LDVR4=LDVR
27      LWORK4=LWORK
28c
29      CALL DGEEVX( BALANC, JOBVL, JOBVR, SENSE, N4, A, LDA4, WR, WI,
30     $                   VL, LDVL4, VR, LDVR4, ILO4, IHI4, SCALE, ABNRM,
31     $                   RCONDE, RCONDV, WORK, LWORK4, IWORK, INFO4 )
32      INFO=INFO4
33      ILO=ILO4
34      IHI=IHI4
35
36      RETURN
37      END
38