NPX=384
barfi_pre = fltarr(NPX)
barfi_preM= fltarr(NPX)


filenm='barfi_pre'
close,1 & openr,1,filenm & readu,1,barfi_pre & close,1

filenm='barfi_preM'
close,1 & openr,1,filenm & readu,1,barfi_preM & close,1

mn=200
mx=383
plot,barfi_pre(mn:mx)
oplot,barfi_preM(mn:mx),linestyle=2
print,barfi_pre(120)
print,barfi_preM(120)

end