& fld3d_procbuff_r8, fld3d_procbuff_r4
Real*8 fld3d_procbuff_r8
READ(dUnit,rec=iWh) fld3d_procbuff_r8
fld2d_procbuff_r8(i)=fld3d_procbuff_r8(j)
fld3d_procbuff_r8(j)=fld2d_procbuff_r8(i)
WRITE(dUnit,rec=iWh) fld3d_procbuff_r8
WRITE(tapeFileUnit,rec=iWh) fld3d_procbuff_r8