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