pro feiiread,dd

openr,1,'/home/stephan/Morton/FeIIcull.dat';kruz.dat'
d={wav:0.0d0,el:0.d0,eu:0.d0,gl:0,gu:0,a:0.0,f:0.0,lgf:0.0,llf:0.0}
dd=replicate(d,129);152)
readf,1,dd
close,1

return
end