introduced a test that does not work for Ilyes to fix

Jean-Philippe Bernard
1 parent 7266e5ed
Showing 1 changed file with 10 additions and 2 deletions Show diff stats
src/idl/dustem_fit_intensity_example.pro
@@ -342,6 +342,8 @@ IF keyword_set(postscript) THEN BEGIN
     device,filename=ps_file,/color
 ENDIF
  
+;stop
+
 IF !dustem_noobj THEN BEGIN
   dustemwrap_plot_noobj,*(*!dustem_fit).CURRENT_PARAM_VALUES,dummy,xr=xr,/xstyle,yr=yr,/ysty,/ylog,/xlog,title=tit+' (Final fit)'
  ENDIF ELSE BEGIN
@@ -366,13 +368,19 @@ IF keyword_set(fits_save_and_restore) THEN BEGIN
 ;=== information needed to recover the results and remake the plots has been saved in the FITS table
   ;stop
   dustem_read_fits_table,filename=fits_save_and_restore,dustem_st=dustem_spectra_st
+  ;stop
+  !dustem_show=ptr_new(*!dustem_data)   ;test
+  !dustem_noobj=1
   ;==== 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)'
+    dustemwrap_plot_noobj,res,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)'
+    ;dustemwrap_plot,res,dustem_spectra_st,xr=xr,/xstyle,yr=yr,/ysty,/ylog,/xlog,title=tit+' (From Saved FITS file)'
+    dustemwrap_plot,res,xr=xr,/xstyle,yr=yr,/ysty,/ylog,/xlog,title=tit+' (From Saved FITS file)'
   ENDELSE
+  stop
   IF keyword_set(wait) THEN BEGIN
      message,'Saved the results as FITS in the file: '+fits_save_and_restore+', and made a plot using the data in this file',/info
      wait,wait