LA_GEES

SUBROUTINE LA_GEES( A, w, VS=vs, SELECT=select, & 


SDIM=sdim, 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, 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$