LA_GGESX

SUBROUTINE LA_GGESX( A, B, alpha, BETA,VSL=vsl, & 


VSR=vsr, SELECT=select, SDIM=sdim,& 


RCONDE=rconde, RCONDV=rcondv, INFO=info ) 

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

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

type(wp), INTENT(OUT), OPTIONAL :: VSL(:,:), VSR(:,:) 


INTERFACE 


LOGICAL FUNCTION SELECT(alpha$_j$, BETA$_j$) 

type(wp), INTENT(IN) :: alpha$_j$, BETA$_j$ 


END FUNCTION SELECT 


END INTERFACE 


OPTIONAL :: SELECT                    


INTEGER, INTENT(OUT), OPTIONAL :: SDIM  


REAL(wp), INTENT(OUT), OPTIONAL :: RCONDE(2), RCONDV(2) 


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(:) 

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