FUNCTION dustem_read_mix,file,silent=silent
  
  st=''
  Nmax=10000L
  sts=strarr(Nmax)
  openr,unit,file,/get_lun
  
;==read comments

  str=''
  first_char='#'
  comments=['']
  Ncomments=0L

  WHILE first_char EQ '#' DO BEGIN
     readf,unit,str
     first_char=strmid(str,0,1)

     comments=[comments,str]
     IF first_char EQ '#' THEN Ncomments=Ncomments+1

  ENDWHILE
  
;==read FMIX
;last line in previous WHILE loop is first FMIX
  tmp = [double(str)]
  WHILE NOT EOF(unit) DO BEGIN
     READF, unit, newline
     tmp = [tmp, newline]
  ENDWHILE
  fmix = tmp

;==save and return structure

  full_st={file:file,fmix:fmix,comments:comments}

  
  close,unit
  free_lun,unit
  return,full_st
  
END