OV-GSO-DC / dustem-wrapper_idl

Commit d8173bba8401fb0a885bedb690aab51749e5d38b

Authored by Annie Hughes
1 parent 604f0859
Exists in master

removed unused stop and else brnach

Showing 1 changed file with 4 additions and 7 deletions   Show diff stats
Inline Side-by-side
src/idl/dustem_write_fits_table.pro
  Diff comments   View file @d8173bb
... ... @@ -55,19 +55,16 @@ IF keyword_set(help) THEN BEGIN
55 55 ENDIF
56 56  
57 57 ;===== run dustem to get predicted spectrum and sed
58   -IF ptr_valid((*!dustem_data).sed) THEN BEGIN
59   - stop
  58 +IF ptr_valid((*!dustem_data).sed) THEN $
60 59 dustem_predicted_sed=dustem_compute_sed(*(*!dustem_fit).current_param_values,out_st=dustem_spectra_st)
61   -ENDIF ELSE BEGIN
62   -ENDELSE
63 60  
64 61 IF !run_pol THEN BEGIN
65 62 ;This is needed to compute Q,U of both SED and spectra
66   - toto=dustem_compute_stokes(*(*!dustem_fit).current_param_values,bidon, $
  63 + dustem_predicted_polsed=dustem_compute_stokes(*(*!dustem_fit).current_param_values,bidon, $
67 64 Q_spec=dustem_predicted_Q_spec,U_spec=dustem_predicted_U_spec,PSI_spec=dustem_predicted_PSI_spec, $
68 65 dustem_psi_em,out_st=out_st)
69   - dustem_predicted_Qsed=toto[0]
70   - dustem_predicted_Used=toto[1]
  66 + dustem_predicted_Qsed=dustem_predicted_polsed[0]
  67 + dustem_predicted_Used=dustem_predicted_polsed[1]
71 68 ;Same in extinction, but does not work in polarization extinction was not fitted.
72 69 ; dustem_predicted_polext=dustem_compute_stokext(*(*!dustem_fit).current_param_values,bidon, $
73 70 ; dustem_predicted_Qext,dustem_predicted_Uext, $
... ...