Helper function for GradThetaTheta_cppi

MPhelper_GradThetaTheta(M, N, PI, NecPres)