adapted for new keyword definitions

Jean-Philippe Bernard
1 parent 53e653c3
Showing 1 changed file with 4 additions and 4 deletions Show diff stats
src/idl/dustem_write_fits_table.pro
@@ -63,11 +63,11 @@ ENDELSE
  
 IF !run_pol THEN BEGIN
 ;This is needed to compute Q,U of both SED and spectra
-   dustem_predicted_polsed=dustem_compute_stokes(*(*!dustem_fit).current_param_values,bidon, $
-                                                 dustem_predicted_Qsed,dustem_predicted_Used, $
-                                                 dustem_predicted_Q_spec,dustem_predicted_U_spec,dustem_predicted_PSI_spec, $
+   toto=dustem_compute_stokes(*(*!dustem_fit).current_param_values,bidon, $
+                                                 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_predicted_Qsed=toto[0]
+    dustem_predicted_Used=toto[1]
 ;Same in extinction, but does not work in polarization extinction was not fitted.
 ;   dustem_predicted_polext=dustem_compute_stokext(*(*!dustem_fit).current_param_values,bidon, $
 ;											  dustem_predicted_Qext,dustem_predicted_Uext, $