& fld2d_globuff_r8, fld2d_globuff_r4,
Real*8 fld2d_globuff_r8( (sNx+2*Olx)*(sNy+2*Oly)*nSx*nSy*nPx*nPy )
fld2d_globuff_r8(i)=fld3d_globuff_r8(j)
READ(dUnit,rec=irec2d) fld2d_globuff_r8
CALL SCATTER_2D_WH_R8 ( fld2d_globuff_r8,
CALL GATHER_2D_WH_R8( fld2d_globuff_r8,
fld3d_globuff_r8(j)=fld2d_globuff_r8(i)
WRITE(dUnit,rec=irec2d) fld2d_globuff_r8