Blame view

src/idl/dustem_read_taille.pro 358 Bytes
427f1205   Jean-Michel Glorian   version 4.2 merged
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