LA_GGSVD

SUBROUTINE LA_GGSVD( A, B, ALPHA, BETA, K=k, L=l, & 


U=u, V=v, Q=q, IWORK=iwork, INFO=info ) 

type(wp), INTENT(INOUT) :: A(:,:), B(:,:) 


REAL(wp), INTENT(OUT) :: ALPHA(:), BETA(:) 


INTEGER, INTENT(OUT), OPTIONAL :: K, L 

type(wp), INTENT(OUT), OPTIONAL :: U(:,:), V(:,:), Q(:,:) 


INTEGER, INTENT(IN), OPTIONAL :: IWORK(:) 


INTEGER, INTENT(OUT), OPTIONAL :: INFO 


where 

type   ::= REAL $\mid$ COMPLEX 

wp     ::= KIND(1.0) $\mid$ KIND(1.0D0)