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