SUBROUTINE LA_GGGLM( A, B, D, X, Y, INFO=info ) type(wp), INTENT( INOUT ) :: A( :, : ), B(:,:), D(:) type(wp), INTENT( OUT ) :: X(:), Y(:) INTEGER, INTENT(OUT), OPTIONAL :: INFO where type ::= REAL COMPLEX wp ::= KIND(1.0) KIND(1.0D0)