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