Commit 04db949131ec602de2d3ad790144fa45a8a7765c

Authored by Ilyes Choubani
1 parent fdc0dcfe
Exists in master

fixing small error in dustem_init and completing dustem_mpfit_run and dustemwrap_plot

src/idl/dustem_init.pro
... ... @@ -188,7 +188,7 @@ endelse
188 188  
189 189 if !run_pol then begin
190 190 tagnames=tag_names(!dustem_data)
191   - testpol = tagnames EQ 'POLSED' or tagnames EQ 'POLEXT' or tagnames EQ 'POLFRAC' or tagnames EQ 'POLSED' or tagnames EQ 'PSI_EM' or tagnames EQ 'PSI_EXT'
  191 + testpol = tagnames EQ 'POLSED' or tagnames EQ 'POLEXT' or tagnames EQ 'POLFRAC' or tagnames EQ 'FPOLEXT' or tagnames EQ 'PSI_EM' or tagnames EQ 'PSI_EXT'
192 192 ind_data=where(~testpol,ctestpol)
193 193 if ctestpol ne 0 then tagnames =(tag_names(!dustem_data))[ind_data]
194 194  
... ...
src/idl/dustem_mpfit_run.pro
... ... @@ -262,7 +262,7 @@ ENDFOR
262 262  
263 263 ;Plotting only every successful dustem run
264 264 if !dustem_iter.act NE !dustem_iter.prv or !dustem_iter.prv EQ 1 then begin
265   - dustemwrap_plot,p_dim,st,dustem_sed,SED_spec,dustem_qsed,Q_spec,dustem_used,U_spec,dustem_polsed,P_spec,dustem_polfrac,SP_spec, dustem_psi_em, PSI_spec,_extra=_extra
  265 + dustemwrap_plot,p_dim,st,dustem_sed,SED_spec,dustem_qsed,Q_spec,dustem_used,U_spec,dustem_polsed,P_spec,dustem_polfrac,SP_spec, dustem_psi_em, PSI_spec,dustem_ext,EXT_spec,dustem_qext,QEXT_spec,dustem_uext,UEXT_spec,dustem_polext,POLEXT_spec,dustem_fpolext,SPEXT_spec,dustem_psi_ext,PSIEXT_spec,_extra=_extra
266 266 if !dustem_iter.act EQ 1 then begin
267 267 !dustem_iter.prv=0
268 268 !dustem_iter.act=0
... ...
src/idl/dustemwrap_plot.pro
1   -PRO dustemwrap_plot,p_dim,st,dustem_sed,SED_spec,dustem_qsed,Q_spec,dustem_used,U_spec,dustem_polsed,P_spec,dustem_polfrac,SP_spec,dustem_psi_em,PSI_spec,_extra=_extra
2   -
3   -;dustem_sed,SED_spec,dustem_qsed,Q_spec,dustem_used,U_spec,dustem_polsed,P_spec,dustem_polfrac,SP_spec,dustem_psi_em,PSI_spec,
4   -
  1 +PRO dustemwrap_plot,p_dim,st,dustem_sed,SED_spec,dustem_qsed,Q_spec,dustem_used,U_spec,dustem_polsed,P_spec,dustem_polfrac,SP_spec,dustem_psi_em,PSI_spec,dustem_ext,EXT_spec,dustem_qext,QEXT_spec,dustem_uext,UEXT_spec,dustem_polext,POLEXT_spec,dustem_fpolext,SPEXT_spec,dustem_psi_ext,PSIEXT_spec,_extra=_extra
5 2  
6 3  
7 4 ;This is also necessary for the plotting of the results of the fit (Last iteration)
... ...