LA_GEESX

SUBROUTINE LA_GEESX( A, w, VS=vs,SELECT=select, SDIM=sdim, & 


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

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

type(wp), INTENT(OUT) :: w(:) 

type(wp), INTENT(OUT), OPTIONAL :: VS(:,:) 


INTERFACE 


LOGICAL FUNCTION SELECT(w$_j$) 

type(wp), INTENT(IN) :: w$_j$ 


END FUNCTION SELECT 


END INTERFACE 


OPTIONAL :: SELECT 


INTEGER, INTENT(OUT), OPTIONAL :: SDIM 


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


INTEGER, INTENT(OUT), OPTIONAL :: INFO 


where 

type ::= REAL $\mid$ COMPLEX 

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

w    ::= WR, WI $\mid$ W 

w(:)   ::= WR(:), WI(:) $\mid$ W(:) 

w$_j$::= WR$_j$, WI$_j$ $\mid$ W$_j$