_RL diagCG_pcOffDFac
& diagCG_resTarget, diagCG_pcOffDFac
I diagCG_pcOffDFac, residCriter,
diagCG_pcOffDFac = 1.
& diagCG_pcOffDFac = 0.25 _d 0 /( cg2dpcOffDFac*cg2dpcOffDFac )
CALL WRITE_0D_RL( diagCG_pcOffDFac, INDEX_NONE,
& diagCG_pcOffDFac, diagCG_prtResFrq, xPsi0, yPsi0,