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