cg2dTolerance = cg2dTargetResidual
CALL WRITE_0D_R8( cg2dTargetResidual, INDEX_NONE,
& cg2dMaxIters, cg2dChkResFreq, cg2dTargetResidual,
COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit,
_RL cg2dTargetResidual
cg2dTargetResidual = 1.D-7