next up previous contents index
Next: Purpose Up: Standard Nonsymmetric Eigenvalue Problems Previous: Standard Nonsymmetric Eigenvalue Problems   Contents   Index


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$




Susan Blackford 2001-08-19