Commit 0dfa314b1f09d933ab68c23b0ea164cd3ec6e12d

Authored by Annie Hughes
1 parent 165d85f9
Exists in master

added GALEX and SWIFT filter placeholders

Showing 1 changed file with 62 additions and 7 deletions   Show diff stats
src/idl/dustem_read_filters.pro
... ... @@ -25,7 +25,7 @@ FUNCTION dustem_read_filters,plot_it=plot_it,help=help
25 25 ; cc_method: Color correction method to be used for these filters
26 26 ;
27 27 ; The following instruments are known:
28   -;; IRAC:irac_struct, $
  28 +;; IRAC:irac_struct, $
29 29 ;; MIPS:mips_struct, $
30 30 ;; MSX:msx_struct, $
31 31 ;; IRAS:iras_struct, $
... ... @@ -58,6 +58,8 @@ FUNCTION dustem_read_filters,plot_it=plot_it,help=help
58 58 ;; NIRISS:niriss_struct $
59 59 ;; SDSS:sdss_struct $
60 60 ;; ASTROSAT:astrosat_struct $
  61 +;; GALEX:galex_struct $
  62 +;; SWIFT:swift_struct
61 63 ;
62 64 ; CATEGORY:
63 65 ; DustEMWrap, Distributed, Low-Level, Instrument Filters
... ... @@ -157,6 +159,8 @@ dir_nircam=filter_dir+'NIRCam'+'/'
157 159 dir_niriss=filter_dir+'NIRISS'+'/'
158 160 dir_sdss=filter_dir+'SDSS'+'/'
159 161 dir_astrosat=filter_dir+'ASTROSAT'+'/'
  162 +dir_galex=filter_dir+'GALEX'+'/'
  163 +dir_swift=filter_dir+'SWIFT'+'/'
160 164  
161 165 ;======================================================
162 166 ;==== Herschel PACS
... ... @@ -207,9 +211,6 @@ pacs_struct={Name:'PACS',Nbands:Nband,filter_names:filt_names,central_wavelength
207 211 cc_method:cc_method,filters_integral:replicate(0.D0,Nband)}
208 212 ;pacs_struct=dustem_compute_filter_integral(pacs_struct)
209 213  
210   -;stop
211   -
212   -
213 214 ;======================================================
214 215 ;==== PILOT
215 216 ;======================================================
... ... @@ -1340,6 +1341,58 @@ astrosat_struct={Name:'ASTROSAT',Nbands:Nband,filter_names:filt_names,central_wa
1340 1341 use_frequencies:use_nu,use_transmissions:use_T,use_wavelengths:use_w,use_wmin:dblarr(Nband),use_wmax:dblarr(Nband),cc_method:'dustem_cc_astrosat',filters_integral:replicate(0.D0,Nband)}
1341 1342  
1342 1343 ;======================================================
  1344 +;==== GALEX
  1345 +;======================================================
  1346 +IF print_messages THEN message,'Reading GALEX filters',/continue
  1347 +
  1348 +Nband=2
  1349 +filt_names='GALEX'+strtrim(indgen(Nband)+1,2)
  1350 +wfilt_galex=dustem_filter2wav(filt_names)
  1351 +wav_ptr=ptrarr(Nband)
  1352 +nu_ptr=ptrarr(Nband) & T_ptr=ptrarr(Nband) & wav_ptr=ptrarr(Nband)
  1353 +use_nu=ptrarr(Nband) & use_T=ptrarr(Nband) & use_w=ptrarr(Nband)
  1354 +
  1355 +FOR i=0L,Nband-1 DO BEGIN
  1356 + readcol,dir_galex+dustem_filter2filter_filename(filt_names[i]),waves_angstrom,transmissions_E
  1357 + waves_mic=waves_angstrom/1.e10*1.e6
  1358 + freq=cmic/waves_mic
  1359 + Trans=transmissions_E/freq
  1360 + T_ptr[i]=ptr_new(Trans/max(Trans)) & nu_ptr[i]=ptr_new(freq) & wav_ptr[i]=ptr_new(waves_mic)
  1361 +ENDFOR
  1362 +
  1363 +galex_struct={Name:'GALEX',Nbands:Nband,filter_names:filt_names,central_wavelengths:wfilt_galex,central_frequencies:cmic/wfilt_galex, $
  1364 + filter_wavelengths:wav_ptr,filter_frequencies:nu_ptr,filter_transmissions:T_ptr, $
  1365 + use_frequencies:use_nu,use_transmissions:use_T,$
  1366 + use_wavelengths:use_w,use_wmin:dblarr(Nband),use_wmax:dblarr(Nband)$
  1367 + ,cc_method:'dustem_cc_galex',filters_integral:replicate(0.D0,Nband)}
  1368 +
  1369 +;======================================================
  1370 +;==== SWIFT
  1371 +;======================================================
  1372 +IF print_messages THEN message,'Reading SWIFT filters',/continue
  1373 +
  1374 +Nband=7
  1375 +filt_names='SWIFT'+strtrim(indgen(Nband)+1,2)
  1376 +wfilt_swift=dustem_filter2wav(filt_names)
  1377 +wav_ptr=ptrarr(Nband)
  1378 +nu_ptr=ptrarr(Nband) & T_ptr=ptrarr(Nband) & wav_ptr=ptrarr(Nband)
  1379 +use_nu=ptrarr(Nband) & use_T=ptrarr(Nband) & use_w=ptrarr(Nband)
  1380 +
  1381 +FOR i=0L,Nband-1 DO BEGIN
  1382 + readcol,dir_swift+dustem_filter2filter_filename(filt_names[i]),waves_angstrom,transmissions_E
  1383 + waves_mic=waves_angstrom/1.e10*1.e6
  1384 + freq=cmic/waves_mic
  1385 + Trans=transmissions_E/freq
  1386 + T_ptr[i]=ptr_new(Trans/max(Trans)) & nu_ptr[i]=ptr_new(freq) & wav_ptr[i]=ptr_new(waves_mic)
  1387 +ENDFOR
  1388 +
  1389 +swift_struct={Name:'SWIFT',Nbands:Nband,filter_names:filt_names,central_wavelengths:wfilt_swift,central_frequencies:cmic/wfilt_swift, $
  1390 + filter_wavelengths:wav_ptr,filter_frequencies:nu_ptr,filter_transmissions:T_ptr, $
  1391 + use_frequencies:use_nu,use_transmissions:use_T,$
  1392 + use_wavelengths:use_w,use_wmin:dblarr(Nband),use_wmax:dblarr(Nband)$
  1393 + ,cc_method:'dustem_cc_swift',filters_integral:replicate(0.D0,Nband)}
  1394 +
  1395 +;======================================================
1343 1396 ;==== Make the filter strcuture
1344 1397 ;======================================================
1345 1398 dm_filter_struct={ $
... ... @@ -1377,6 +1430,8 @@ dm_filter_struct={ $
1377 1430 NIRISS:niriss_struct, $
1378 1431 SDSS:sdss_struct, $
1379 1432 ASTROSAT:astrosat_struct $
  1433 + GALEX:galex_struct, $
  1434 + SWIFT:swift_struct $
1380 1435 }
1381 1436  
1382 1437 ;======================================================
... ... @@ -1385,11 +1440,11 @@ dm_filter_struct={ $
1385 1440 IF keyword_set(plot_it) THEN BEGIN
1386 1441 xtit=textoidl('\lambda (\mum)')
1387 1442 ytit='Filter transmission'
1388   -; FOR i=0L,n_tags(dm_filter_struct)-1 DO BEGIN
1389   - FOR i=n_tags(dm_filter_struct)-1,n_tags(dm_filter_struct)-1 DO BEGIN
  1443 + FOR i=0L,n_tags(dm_filter_struct)-1 DO BEGIN
  1444 +; FOR i=n_tags(dm_filter_struct)-1,n_tags(dm_filter_struct)-1 DO BEGIN
1390 1445 tit=dm_filter_struct.(i).Name
1391 1446 Nband=dm_filter_struct.(i).Nbands
1392   - colors=findgen(Nband)/(1.*Nband-1)*(240-20)+20
  1447 + colors=fix(findgen(Nband)/(1.*Nband-1)*(240-20)+20)
1393 1448 xmin=200000 & xmax=0
1394 1449 FOR j=0,Nband-1 DO BEGIN
1395 1450 xminmax=minmax(cmic/*(dm_filter_struct.(i).filter_frequencies(j)))
... ...