Commit 440f1ae1f92ec8d60113d7410af41a27d41f7f7d
1 parent
fc9462b1
Exists in
master
unknown
Showing
1 changed file
with
23 additions
and
7 deletions
Show diff stats
src/idl/dustem_make_fits_predicted_ext.pro
1 | 1 | FUNCTION dustem_make_fits_predicted_ext ,syst_var $ |
2 | - ,dustem_predicted_ext $ | |
3 | - ,str_input_ext=str_input_ext $ | |
4 | - ,dustem_predicted_Qext=dustem_predicted_Qext $ | |
5 | - ,dustem_predicted_Uext=dustem_predicted_Uext $ | |
6 | - ,help=help | |
2 | + ,dustem_predicted_ext $ | |
3 | + ,str_input_ext=str_input_ext $ | |
4 | + ,dustem_predicted_Qext=dustem_predicted_Qext $ | |
5 | + ,dustem_predicted_Uext=dustem_predicted_Uext $ | |
6 | + ,help=help | |
7 | 7 | |
8 | 8 | ;+ |
9 | 9 | ; NAME: |
10 | 10 | ; dustem_make_fits_predicted_ext |
11 | +; | |
11 | 12 | ; PURPOSE: |
12 | 13 | ; extracts dustemwrap predicted extinction SED from dustem system variable syst_var, to be put into fits files |
14 | +; | |
13 | 15 | ; CATEGORY: |
14 | 16 | ; DustEMWrap, Distributed, High-Level, User Convenience |
17 | +; | |
15 | 18 | ; CALLING SEQUENCE: |
16 | 19 | ; str_predicted_EXT=dustem_make_fits_predicted_ext(syst_var,dustem_predicted_ext[,str_input_ext=]) |
17 | 20 | ; see dustem_write_fits_table.pro |
21 | +; | |
18 | 22 | ; INPUTS: |
19 | 23 | ; syst_var : dustem system variable (*!dustem_data or *!dustem_show) |
20 | 24 | ; dustem_predicted_ext : dustemwrap predicted extinction SED as output by dustem_compute_ext.pro |
25 | +; | |
21 | 26 | ; OPTIONAL INPUT PARAMETERS: |
22 | 27 | ; dustem_predicted_Qext : Stokes Q extinction SED |
23 | 28 | ; dustem_predicted_Uext : Stokes U extinction SED |
29 | +; | |
24 | 30 | ; OUTPUTS: |
25 | 31 | ; str_predicted_EXT : dustemwrap predicted extinction SED as used to store into fits file |
32 | +; | |
26 | 33 | ; OPTIONAL OUTPUT PARAMETERS: |
27 | 34 | ; str_input_ext : dustem wrap input extinction SED |
35 | +; | |
28 | 36 | ; ACCEPTED KEY-WORDS: |
29 | 37 | ; help = If set, print this help |
38 | +; | |
30 | 39 | ; COMMON BLOCKS: |
31 | 40 | ; None |
41 | +; | |
32 | 42 | ; SIDE EFFECTS: |
33 | 43 | ; None |
44 | +; | |
34 | 45 | ; RESTRICTIONS: |
35 | 46 | ; The DustEMWrap IDL code must be installed |
47 | +; | |
36 | 48 | ; PROCEDURE: |
37 | 49 | ; None |
50 | +; | |
38 | 51 | ; EXAMPLES: |
39 | 52 | ; str_predicted_EXT=dustem_make_fits_predicted_ext(*!dustem_data,dustem_predicted_ext,str_input_ext=str_input_ext) |
53 | +; | |
40 | 54 | ; MODIFICATION HISTORY: |
41 | 55 | ; Written by J.-Ph. Bernard Dec 2022 |
42 | 56 | ; Evolution details on the DustEMWrap gitlab. |
... | ... | @@ -60,8 +74,10 @@ str_input_EXT.FILTER=(*syst_var.ext).filt_names |
60 | 74 | str_input_EXT.Wavelength=(*syst_var.ext).wav |
61 | 75 | str_input_EXT.StokesI_EXT=(*syst_var.ext).values |
62 | 76 | str_input_EXT.varianceII_EXT=la_power((*syst_var.ext).sigma,2.) |
63 | -stop | |
77 | + | |
78 | +;stop | |
64 | 79 | ;IC; if I didn't misunderstand the str_input_EXT output lacks this information |
80 | + | |
65 | 81 | IF !run_pol THEN BEGIN |
66 | 82 | qext=aos2soa(*syst_var.qext) |
67 | 83 | FOR i=0L,n_elements(qext.wav)-1 DO BEGIN |
... | ... | @@ -106,4 +122,4 @@ RETURN,str_predicted_EXT |
106 | 122 | |
107 | 123 | the_end: |
108 | 124 | |
109 | -END | |
110 | 125 | \ No newline at end of file |
126 | +END | ... | ... |