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