1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
FUNCTION dustem_read_taille,file,silent=silent ;READ(UNIT = ftaille%unit,FMT = *) alpha(i), tmin(i),& ; & tmax(i), ndiscr(i) readcol,file,alpha,tmin,tmax,ndiscr,silent=silent nlines=n_elements(alpha) one_st={alpha:0.,tmin:0.,tmax:0.,ndiscr:0} st=replicate(one_st,Nlines) st.alpha=alpha st.tmin=tmin st.tmax=tmax st.ndiscr=ndiscr return,st END