control.profile function

Auxliary function for controlling profile log-likelihood in the linear Gaussian model