I residCriter,
IF ( err .LT. residCriter ) GOTO 11
_RL residCriter
residCriter = diagCG_resTarget
residCriter = a2dNorm * ABS(diagCG_resTarget)
& ' ,', x2dNorm, ' ; Criter=', residCriter
_RL residCriter, firstResidual, minResidual, lastResidual