dustem_read_taille.pro
358 Bytes
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