improved

Jean-Philippe Bernard
1 parent 1dceb92c
Showing 2 changed files with 3 additions and 3 deletions Show diff stats
src/idl/dustem_fit_intensity_example.pro
src/idl/dustem_write_fits_table.pro
@@ -387,7 +387,7 @@ IF keyword_set(fits_save_and_restore) THEN BEGIN
   ;==== plot result taken from the saved fits table
   res=*(*!dustem_fit).CURRENT_PARAM_VALUES
   IF !dustem_noobj THEN BEGIN
-     dustemwrap_plot_noobj,res,dustem_spectra_st,xr=xr,/xstyle,yr=yr,/ysty,/ylog,/xlog,title=tit+' (From Saved FITS file)'
+    dustemwrap_plot_noobj,res,dustem_spectra_st,xr=xr,/xstyle,yr=yr,/ysty,/ylog,/xlog,title=tit+' (From Saved FITS file)'
   ENDIF ELSE BEGIN
     dustemwrap_plot,res,dustem_spectra_st,xr=xr,/xstyle,yr=yr,/ysty,/ylog,/xlog,title=tit+' (From Saved FITS file)'
   ENDELSE
@@ -63,9 +63,9 @@ ENDELSE
  
 IF !run_pol THEN BEGIN
 ;This is needed to compute Q,U of both SED and spectra
-   toto=dustem_compute_stokes(*(*!dustem_fit).current_param_values,bidon, $
+   toto=dustem_compute_stokes(*(*!dustem_fit).current_param_values, $
                                                  Q_spec=dustem_predicted_Q_spec,U_spec=dustem_predicted_U_spec,PSI_spec=dustem_predicted_PSI_spec, $
-                                                 dustem_psi_em,out_st=out_st)
+                                                 dustem_psi_em=dustem_psi_em)
    	dustem_predicted_Qsed=toto[0]
     dustem_predicted_Used=toto[1]
 ;Same in extinction, but does not work in polarization extinction was not fitted.