noexit keyword and cosmetic modifs

Annie Hughes
1 parent d390acd6
Showing 1 changed file with 3 additions and 2 deletions Show diff stats
src/idl/dustem_run_example.pro
 PRO dustem_run_example, model $
                         ,show=show $
                         ,postscript=postscript $
-                        ,help=help
+                        ,help=help $
+                        ,noexit=noexit
  
 ;+
 ; NAME:
@@ -111,7 +112,6 @@ dustem_write_all,st_model,!dustem_dat
  
 ;== The following line runs the Fortran. The ouput structure st contains the results
 st=dustem_run()
-stop
  
 known_plots=["emis", "extuv", "extir", "alb", "sdist"]
 if polct gt 0 then known_plots=["emis", "extuv", "extir", "alb", "sdist","polext", "polsed", "align"]
@@ -199,5 +199,6 @@ goto,the_end
  
 the_end:
 message,'Finished dustem_run_example',/info
+if keyword_set(noexit) then stop
  
 END