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


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$




Susan Blackford 2001-08-19