name='_B'

openu,1,'see'+name+'.out'

rr=fltarr(2,256,256)

readu,1,rr
close,1

openw,1,'see'+name+'.x'
for i=0,255 do begin
for j=0,255 do begin
printf,1,rr(0,i,j)
endfor
endfor
close,1

END