LA_GGES

SUBROUTINE LA_GGES( A, B, alpha, BETA,VSL=vsl, & 


VSR=vsr, SELECT=select, SDIM=sdim, 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 


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$