next up previous contents index
Next: Purpose Up: Standard Nonsymmetric Eigenvalue Problems Previous: Example 2 (from Program   Contents   Index


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$




Susan Blackford 2001-08-19