firstResidual=0.
O firstResidual,
WRITE(msgBuf,'(A34,1PE24.14)') 'cg2d_init_res =',firstResidual
WRITE(msgBuf,'(A34,1PE24.14)') 'cg3d_init_res =',firstResidual
_RL firstResidual,lastResidual
firstResidual=actualResidual
_RL firstResidual