pro ariread,dd openr,1,'/home/stephan/Morton/ArIcull.dat' d={wav:0.0d0,el:0.0,eu:0.0,gl:0,gu:0,a:0.0,gam:0.0,f:0.0,lgf:0.0,llf:0.0} dd=replicate(d,2) readf,1,dd close,1 return end