actualResidual = err
firstResidual=actualResidual
& ' cg2d: iter=', actualIts, ' ; resid.= ', actualResidual
lastResidual=actualResidual
_RL actualResidual
actualResidual = SQRT(err)
IF ( actualResidual .LT. cg3dTargetResidual ) GOTO 11
& ' cg3d: iter=', actualIts, ' ; resid.= ', actualResidual
lastResidual = actualResidual