SUBROUTINE LA_GGEV( A, B, alpha, BETA, VL=vl, &
VR=vr, INFO=info )
type(wp), INTENT(INOUT) :: A(:,:), B(:,:)
type(wp), INTENT(OUT) :: alpha(:), BETA(:)
type(wp), INTENT(OUT), OPTIONAL :: VL(:,:), VR(:,:)
INTEGER, INTENT(OUT), OPTIONAL :: INFO
where
type ::= REAL COMPLEX
wp ::= KIND(1.0) KIND(1.0D0)
alpha ::= ALPHAR, ALPHAI ALPHA
alpha(:) ::= ALPHAR(:), ALPHAI(:) ALPHA(:)