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