Commit 0dfa314b1f09d933ab68c23b0ea164cd3ec6e12d
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))) |
... | ... |