OV-GSO-DC / dustem-wrapper_idl

Commit 90b73aa7554b339df5ecb787a33222da1c3b00ea

Authored by Jean-Philippe Bernard
1 parent 2c22f184
Exists in master

fixed Chipass

Showing 1 changed file with 25 additions and 0 deletions   Show diff stats
Inline Side-by-side
src/idl/dustem_read_filters.pro
  Diff comments   View file @90b73aa
... ... @@ -816,6 +816,30 @@ spass_struct={Name:'SPASS',Nbands:Nband,filter_names:filt_names,central_waveleng
816 816 use_frequencies:use_nu,use_transmissions:use_T,use_wavelengths:use_w,use_wmin:dblarr(Nband),use_wmax:dblarr(Nband),cc_method:'dustem_cc_spass'}
817 817  
818 818 ;======================================================
  819 +;==== CHIPASS
  820 +;======================================================
  821 +IF print_messages THEN message,'Reading CHIPASS filters',/continue
  822 +
  823 +Nband=1
  824 +filt_names=['CHIPASS1']
  825 +wfilt_chipass=dustem_filter2wav(filt_names)
  826 +wav_ptr=ptrarr(Nband)
  827 +nu_ptr=ptrarr(Nband) & T_ptr=ptrarr(Nband) & wav_ptr=ptrarr(Nband)
  828 +use_nu=ptrarr(Nband) & use_T=ptrarr(Nband) & use_w=ptrarr(Nband)
  829 +
  830 +;===== This is set on purpose to the SPASS directory.
  831 +st=read_xcat(dir_spass+'SPASS_transmission.xcat',/silent)
  832 +
  833 +freq=st.frequency*1.e9 ;Hz
  834 +Trans=st.transmission
  835 +
  836 +T_ptr(0)=ptr_new(Trans/max(Trans)) & nu_ptr(0)=ptr_new(freq) & wav_ptr(0)=ptr_new(cmic/freq)
  837 +
  838 +chipass_struct={Name:'CHIPASS',Nbands:Nband,filter_names:filt_names,central_wavelengths:wfilt_chipass,central_frequencies:cmic/wfilt_spass, $
  839 + filter_wavelengths:wav_ptr,filter_frequencies:nu_ptr,filter_transmissions:T_ptr, $
  840 + use_frequencies:use_nu,use_transmissions:use_T,use_wavelengths:use_w,use_wmin:dblarr(Nband),use_wmax:dblarr(Nband),cc_method:'dustem_cc_spass'}
  841 +
  842 +;======================================================
819 843 ;==== NIKA2
820 844 ;======================================================
821 845 IF print_messages THEN message,'Reading NIKA2 filters',/continue
... ... @@ -1045,6 +1069,7 @@ dm_filter_struct={ $
1045 1069 LABOCA:laboca_struct, $
1046 1070 GISMO:gismo_struct, $
1047 1071 SPASS:spass_struct, $
  1072 + CHIPASS:chipass_struct, $
1048 1073 NIKA2:nika2_struct, $
1049 1074 SCUBA2:scuba2_struct, $
1050 1075 IRS:irs_struct, $
... ...