dustem_read_propmass.pro
280 Bytes
FUNCTION dustem_read_propmass,file,silent=silent
; DO i = 1,nesp
; READ(UNIT = fpropmas%unit,FMT = *)propm(i)
; END DO
readcol,file,propmass,silent=silent
nlines=n_elements(propmass)
one_st={propmass:0.}
st=replicate(one_st,Nlines)
st.propmass=propmass
return,st
END