OV-GSO-DC / dustem-wrapper_idl

Commit 7d3f28dc760738c607b0294ee128ac01507ac1fa

Authored by Jean-Philippe Bernard
1 parent 83c68818
Exists in master

not sure what I did exactly

Showing 3 changed files with 12 additions and 7 deletions   Show diff stats
Inline Side-by-side
src/idl/dustem_compute_polsed.pro
  Diff comments   View file @7d3f28d
@@ -175,7 +175,7 @@ IF count_spec NE 0 THEN dustem_polsed(ind_spec)=interpol(P_spec,st.polsed.wav,(( @@ -175,7 +175,7 @@ IF count_spec NE 0 THEN dustem_polsed(ind_spec)=interpol(P_spec,st.polsed.wav,((
175 175
176 ;GENERATING THE INTERPOLATES FOR POLFRAC (dustem_polfrac) 176 ;GENERATING THE INTERPOLATES FOR POLFRAC (dustem_polfrac)
177 if !run_lin then begin 177 if !run_lin then begin
178 - 178 + ;stop
179 if not keyword_set(dustem_sed) then dustem_sed = dustem_compute_sed(p_dim,st=st,SED_spec=SED_spec) 179 if not keyword_set(dustem_sed) then dustem_sed = dustem_compute_sed(p_dim,st=st,SED_spec=SED_spec)
180 180
181 If n_elements(dustem_sed) ne n_elements(dustem_polsed) then begin 181 If n_elements(dustem_sed) ne n_elements(dustem_polsed) then begin
src/idl/dustem_mask_data.pro
  Diff comments   View file @7d3f28d
@@ -9,7 +9,7 @@ @@ -9,7 +9,7 @@
9 ; CALLING SEQUENCE: 9 ; CALLING SEQUENCE:
10 ; data_struct=dustem_mask_data(data_struct,omit=,data_set=) 10 ; data_struct=dustem_mask_data(data_struct,omit=,data_set=)
11 ; INPUTS: 11 ; INPUTS:
12 -; data_struct=read_xcat(file,/silent). Data structure formatted as outlined in the DustermWrap Users' Guide 12 +; data_struct : SED Data structure formatted as outlined in the DustermWrap Users' Guide
13 ; data_set : Array of character strings containing the different data sets to be filtered. 13 ; data_set : Array of character strings containing the different data sets to be filtered.
14 ; ie: ['SED'],['QSED'],'USED'] or just ['QSED'] for example. The use of ['STOKESI','STOKESQ','STOKESU'] instead is equivalent. 14 ; ie: ['SED'],['QSED'],'USED'] or just ['QSED'] for example. The use of ['STOKESI','STOKESQ','STOKESU'] instead is equivalent.
15 ; omit : Can be an array or list. In both cases it should contain the filter names as character strings. 15 ; omit : Can be an array or list. In both cases it should contain the filter names as character strings.
src/idl/dustem_plot_nuinu_em.pro
  Diff comments   View file @7d3f28d
@@ -86,8 +86,11 @@ defsysv,'!dustem_data',exists=exists @@ -86,8 +86,11 @@ defsysv,'!dustem_data',exists=exists
86 86
87 IF exists THEN BEGIN 87 IF exists THEN BEGIN
88 IF ptr_valid((*!dustem_data).sed) THEN BEGIN 88 IF ptr_valid((*!dustem_data).sed) THEN BEGIN
89 - ind_filt=where((*!dustem_data).sed.filt_names NE 'SPECTRUM',count_filt)  
90 - ind_spec=where((*!dustem_data).sed.filt_names EQ 'SPECTRUM',count_spec) 89 + sed=(*(*!dustem_data).sed)
  90 + stop
  91 +
  92 + ind_filt=where(sed.filt_names NE 'SPECTRUM',count_filt)
  93 + ind_spec=where(sed.filt_names EQ 'SPECTRUM',count_spec)
91 94
92 ;=== Plot the data 95 ;=== Plot the data
93 ;use_col_data_spec=255 96 ;use_col_data_spec=255
@@ -97,13 +100,15 @@ IF exists THEN BEGIN @@ -97,13 +100,15 @@ IF exists THEN BEGIN
97 IF count_spec NE 0 THEN BEGIN 100 IF count_spec NE 0 THEN BEGIN
98 ;plotsym,0,/fill 101 ;plotsym,0,/fill
99 ;oplot,((*!dustem_data.sed).wav)(ind_spec),((*!dustem_data.sed).values)(ind_spec)*(3.e8/1.e-6/(*!dustem_data.sed).wav(ind_spec))/1.d20,psym=8,_extra=extra,color=use_col_data_spec,syms=0.5 102 ;oplot,((*!dustem_data.sed).wav)(ind_spec),((*!dustem_data.sed).values)(ind_spec)*(3.e8/1.e-6/(*!dustem_data.sed).wav(ind_spec))/1.d20,psym=8,_extra=extra,color=use_col_data_spec,syms=0.5
100 - cgoplot,((*!dustem_data).sed.wav)[ind_spec],((*!dustem_data).sed.values)[ind_spec]*(3.e8/1.e-6/(*!dustem_data).sed.wav[ind_spec])/1.d20,psym='Filled Circle',_extra=extra,color=use_col_data_spec  
101 - err_bar,((*!dustem_data).sed.wav)(ind_spec),((*!dustem_data).sed.values)(ind_spec)*(3.e8/1.e-6/(*!dustem_data).sed.wav(ind_spec))/1.d20,yrms=3.*((*!dustem_data).sed.sigma)(ind_spec)/2.*(3.e8/1.e-6/(*!dustem_data).sed.wav(ind_spec))/1.d20,color=use_col_data_spec 103 + ;cgoplot,(sed.wav)[ind_spec],((sed.values)[ind_spec])*(3.e8/1.e-6/(sed.wav[ind_spec])/1.d20,psym='Filled Circle',_extra=_extra,color=use_col_data_spec
  104 + ;err_bar,(sed.wav)[ind_spec],((sed.values)[ind_spec])*(3.e8/1.e-6/(sed.wav[ind_spec])/1.d20,yrms=3.*(sed.sigma)[ind_spec]/2.*(3.e8/1.e-6/(sed.wav[ind_spec])/1.d20,color=use_col_data_spec
102 ENDIF 105 ENDIF
103 IF count_filt NE 0 THEN BEGIN 106 IF count_filt NE 0 THEN BEGIN
  107 + stop
104 plotsym,0,/fill 108 plotsym,0,/fill
  109 + facts=3.e8/1.e-6/(sed.wav[ind_filt])/1.d20
105 ;oplot,((*!dustem_data.sed).wav)(ind_filt),((*!dustem_data.sed).values)(ind_filt)*(3.e8/1.e-6/(*!dustem_data.sed).wav(ind_filt))/1.d20,psym=8,_extra=extra,color=use_col_data_filt 110 ;oplot,((*!dustem_data.sed).wav)(ind_filt),((*!dustem_data.sed).values)(ind_filt)*(3.e8/1.e-6/(*!dustem_data.sed).wav(ind_filt))/1.d20,psym=8,_extra=extra,color=use_col_data_filt
106 - cgoplot,((*!dustem_data).sed.wav)(ind_filt),((*!dustem_data).sed.values)(ind_filt)*(3.e8/1.e-6/(*!dustem_data).sed.wav(ind_filt))/1.d20,psym=8,_extra=extra,color=use_col_data_filt 111 + cgoplot,(sed.wav)[ind_filt],(sed.values)[ind_filt]*facts,psym=8,_extra=_extra,color=use_col_data_filt
107 err_bar,((*!dustem_data).sed.wav)(ind_filt),((*!dustem_data).sed.values)(ind_filt)*(3.e8/1.e-6/(*!dustem_data).sed.wav(ind_filt))/1.d20,yrms=3.*((*!dustem_data).sed.sigma)(ind_filt)/2*(3.e8/1.e-6/(*!dustem_data).sed.wav(ind_filt))/1.d20,color=use_col_data_filt 112 err_bar,((*!dustem_data).sed.wav)(ind_filt),((*!dustem_data).sed.values)(ind_filt)*(3.e8/1.e-6/(*!dustem_data).sed.wav(ind_filt))/1.d20,yrms=3.*((*!dustem_data).sed.sigma)(ind_filt)/2*(3.e8/1.e-6/(*!dustem_data).sed.wav(ind_filt))/1.d20,color=use_col_data_filt
108 ENDIF 113 ENDIF
109 ENDIF 114 ENDIF