COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit,
_RL cg2dTargetResidual
CALL WRITE_0D_RL( cg2dTargetResidual, INDEX_NONE,
cg2dTolerance = cg2dTargetResidual
& cg2dTargetResidual, cg2dTargetResWunit,
cg2dTargetResidual = 1. _d -7
diagCG_resTarget = cg2dTargetResidual