;
fd1=fltarr(115,595)
fd2=fd1
;
openr,1,'schweingruber_mxdabd_grid.dat'
openr,2,'schweingruber_mxdabd_grid.dat.sent2rutherford'
headst=strarr(5)
readf,1,headst
readf,1,fd1
readf,2,fd2
;
close,1
close,2
;
ml=where(fd1 eq -9.99)
fd1[ml]=!values.f_nan
ml=where(fd2 eq -9.99)
fd2[ml]=!values.f_nan

end