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