pro ciread,dd openr,1,'/home/stephan/Morton/CIcull.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,150) readf,1,dd close,1 return end