OV-GSO-DC / dustem-wrapper_idl

Commit c7448fb225aab181ec53fe7fd609ade4b40bf9fd

Authored by Annie Hughes
2 parents fe8c0437 83c68818
Exists in master

Merge JP with Annie local

Showing 1 changed file with 7 additions and 5 deletions   Show diff stats
Inline Side-by-side
src/idl/dustem_fit_intensity_mbb_example.pro
  Diff comments   View file @c7448fb
... ... @@ -239,9 +239,9 @@ IF keyword_set(postscript) THEN BEGIN
239 239 device,filename=ps_file,/color
240 240 ENDIF
241 241 IF !dustem_noobj THEN BEGIN
242   - dustemwrap_plot_noobj,*(*!dustem_fit).CURRENT_PARAM_VALUES,dummy,xr=xr,/xstyle,yr=yr,/ysty,/ylog,/xlog,title=tit+' (Final fit)'
  242 + dustemwrap_plot_noobj,*(*!dustem_fit).CURRENT_PARAM_VALUES,st=dummy,xr=xr,/xstyle,yr=yr,/ysty,/ylog,/xlog,title=tit+' (Final fit)'
243 243 ENDIF ELSE BEGIN
244   - dustemwrap_plot,*(*!dustem_fit).CURRENT_PARAM_VALUES,dummy,xr=xr,/xstyle,yr=yr,/ysty,/ylog,/xlog,title=tit+' (Final fit)'
  244 + dustemwrap_plot,*(*!dustem_fit).CURRENT_PARAM_VALUES,st=dummy,xr=xr,/xstyle,yr=yr,/ysty,/ylog,/xlog,title=tit+' (Final fit)'
245 245 ENDELSE
246 246  
247 247 IF keyword_set(postscript) THEN BEGIN
... ... @@ -255,18 +255,20 @@ IF keyword_set(wait) THEN BEGIN
255 255 wait,wait
256 256 ENDIF
257 257  
  258 +stop
  259 +
258 260 IF keyword_set(fits_save_and_restore) THEN BEGIN
259 261 message,'Writing out results structure: '+fits_save_and_restore,/info
260 262 dustem_write_fits_table,filename=fits_save_and_restore,help=help
261 263 ;=== At this point, you could erase all dustem system variables, or exit idl... all the
262 264 ;=== information needed to recover the results and remake the plots has been saved in the FITS table
263   - dustem_read_fits_table,filename=fits_save_and_restore,dustem_spectra_st=dustem_spectra_st
  265 + dustem_read_fits_table,filename=fits_save_and_restore,dustem_st=dustem_spectra_st
264 266 ;==== plot result taken from the saved fits table
265 267 res=*(*!dustem_fit).CURRENT_PARAM_VALUES
266 268 IF !dustem_noobj THEN BEGIN
267   - dustemwrap_plot_noobj,res,dustem_spectra_st,xr=xr,/xstyle,yr=yr,/ysty,/ylog,/xlog,title=tit+' (From Saved FITS file)'
  269 + dustemwrap_plot_noobj,res,st=dustem_spectra_st,xr=xr,/xstyle,yr=yr,/ysty,/ylog,/xlog,title=tit+' (From Saved FITS file)'
268 270 ENDIF ELSE BEGIN
269   - dustemwrap_plot,res,dustem_spectra_st,xr=xr,/xstyle,yr=yr,/ysty,/ylog,/xlog,title=tit+' (From Saved FITS file)'
  271 + dustemwrap_plot,res,st=dustem_spectra_st,xr=xr,/xstyle,yr=yr,/ysty,/ylog,/xlog,title=tit+' (From Saved FITS file)'
270 272 ENDELSE
271 273 IF keyword_set(wait) THEN BEGIN
272 274 message,'Saved the results as FITS in the file: '+fits_save_and_restore+', and made a plot using the data in this file',/info
... ...