LA_GGEVX

SUBROUTINE LA_GGEVX( A, B, alpha, BETA, VL=vl, & 


VR=vr, BALANC=balanc, ILO=ilo, IHI=ihi, & 


LSCALE=lscale, RSCALE=rscale, ABNRM=abnrm, & 


BBNRM=bbnrm, RCONDE=rconde, RCONDV=rcondv, & 


INFO=info ) 

type(wp), INTENT(INOUT) :: A(:,:), B(:,:) 

type(wp), INTENT(OUT) :: alpha(:), BETA(:) 

type(wp), INTENT(OUT), OPTIONAL :: VL(:,:), VR(:,:) 


CHARACTER(LEN=1), INTENT(IN), OPTIONAL :: BALANC  


INTEGER, INTENT(OUT), OPTIONAL :: ILO, IHI 


REAL(wp), INTENT(OUT), OPTIONAL :: LSCALE(:),  


RSCALE(:), RCONDE(:), RCONDV(:) 


REAL(wp), INTENT(OUT), OPTIONAL :: ABNRM, BBNRM       


INTEGER, INTENT(OUT), OPTIONAL :: INFO 


where 

type   ::= REAL $\mid$ COMPLEX 

wp     ::= KIND(1.0) $\mid$ KIND(1.0D0) 

alpha  ::= ALPHAR, ALPHAI $\mid$ ALPHA 

alpha(:) ::= ALPHAR(:), ALPHAI(:) $\mid$ ALPHA(:)