JEvalMstep function

Evaluation of criterion J