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