pro spex_source, clear=clear
@spex_commons

if keyword_set(clear) then begin
  delvarx, flux_h, eflux_h, edges_h, count_2_flux_h, delta_light_h, e_in_h, det_id_h
  delvarx, ut_h, drm_h, ltime_h, source_h, edges_drm_h 
  return
endif

  data_tipe = spex_current('data_tipe')
  checkvar, more_types, standard_types
  data_id = where( more_types eq arr2str(data_tipe,','), n_id)
  if n_id eq 0 then begin
     more_types = [standard_types,arr2str(data_tipe,',')]
     data_id = where( more_types eq arr2str(data_tipe,','), n_id)
  endif
  nchan = n_elements(edges(0,*))
  w = fcheck(w,indgen(nchan))
  source = intarr(3,nchan)
  source(0,*) = data_id
  source(1,*) = det_id
  source(2,*) = indgen(nchan)
  edges_drm   = edges
end