& fld3d_globuff_r8, fld3d_globuff_r4,
Real*4 fld3d_globuff_r4
READ(dUnit,rec=iWh) fld3d_globuff_r4
fld2d_globuff_r4(i)=fld3d_globuff_r4(j)
fld3d_globuff_r4(j)=fld2d_globuff_r4(i)
WRITE(dUnit,rec=iWh) fld3d_globuff_r4
WRITE(tapeFileUnit,rec=iWh) fld3d_globuff_r4