cg2dNormaliseRHS = cg2dTargetResWunit.LE.0
cg2dTolerance = cg2dNorm * cg2dTargetResWunit
CALL WRITE_0D_R8( cg2dTargetResWunit, INDEX_NONE,
& cg2dTargetResWunit, cg2dpcOffDFac, cg2dPreCondFreq,
COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit,
_RL cg2dTargetResWunit
cg2dTargetResWunit = -1.