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