actualResidual = SQRT(err)
firstResidual=actualResidual
IF ( actualResidual .LT. cg3dTargetResidual ) GOTO 11
actualResidual = err
lastResidual=actualResidual
_RL actualResidual