Commit af3a1896df50913dbacd635baa62e70d78a3acae

Authored by Jean-Philippe Bernard
1 parent 1dceb92c
Exists in master

improved

src/idl/dustem_fit_intensity_example.pro
@@ -387,7 +387,7 @@ IF keyword_set(fits_save_and_restore) THEN BEGIN @@ -387,7 +387,7 @@ IF keyword_set(fits_save_and_restore) THEN BEGIN
387 ;==== plot result taken from the saved fits table 387 ;==== plot result taken from the saved fits table
388 res=*(*!dustem_fit).CURRENT_PARAM_VALUES 388 res=*(*!dustem_fit).CURRENT_PARAM_VALUES
389 IF !dustem_noobj THEN BEGIN 389 IF !dustem_noobj THEN BEGIN
390 - dustemwrap_plot_noobj,res,dustem_spectra_st,xr=xr,/xstyle,yr=yr,/ysty,/ylog,/xlog,title=tit+' (From Saved FITS file)' 390 + dustemwrap_plot_noobj,res,dustem_spectra_st,xr=xr,/xstyle,yr=yr,/ysty,/ylog,/xlog,title=tit+' (From Saved FITS file)'
391 ENDIF ELSE BEGIN 391 ENDIF ELSE BEGIN
392 dustemwrap_plot,res,dustem_spectra_st,xr=xr,/xstyle,yr=yr,/ysty,/ylog,/xlog,title=tit+' (From Saved FITS file)' 392 dustemwrap_plot,res,dustem_spectra_st,xr=xr,/xstyle,yr=yr,/ysty,/ylog,/xlog,title=tit+' (From Saved FITS file)'
393 ENDELSE 393 ENDELSE
src/idl/dustem_write_fits_table.pro
@@ -63,9 +63,9 @@ ENDELSE @@ -63,9 +63,9 @@ ENDELSE
63 63
64 IF !run_pol THEN BEGIN 64 IF !run_pol THEN BEGIN
65 ;This is needed to compute Q,U of both SED and spectra 65 ;This is needed to compute Q,U of both SED and spectra
66 - toto=dustem_compute_stokes(*(*!dustem_fit).current_param_values,bidon, $ 66 + toto=dustem_compute_stokes(*(*!dustem_fit).current_param_values, $
67 Q_spec=dustem_predicted_Q_spec,U_spec=dustem_predicted_U_spec,PSI_spec=dustem_predicted_PSI_spec, $ 67 Q_spec=dustem_predicted_Q_spec,U_spec=dustem_predicted_U_spec,PSI_spec=dustem_predicted_PSI_spec, $
68 - dustem_psi_em,out_st=out_st) 68 + dustem_psi_em=dustem_psi_em)
69 dustem_predicted_Qsed=toto[0] 69 dustem_predicted_Qsed=toto[0]
70 dustem_predicted_Used=toto[1] 70 dustem_predicted_Used=toto[1]
71 ;Same in extinction, but does not work in polarization extinction was not fitted. 71 ;Same in extinction, but does not work in polarization extinction was not fitted.