added noobj keyword

Annie Hughes
1 parent 134c5e51
Showing 1 changed file with 7 additions and 4 deletions Show diff stats
src/idl/dustem_init.pro
@@ -2,6 +2,7 @@ PRO dustem_init,model=model $
                 ,wraptest=wraptest $
                 ,plot_it=plot_it $
                 ,noerase=noerase $
+                ,noobj=noobj $
                 ,st_model=st_model $
                 ,polarization=polarization $
                 ,verbose=verbose $
@@ -52,7 +53,10 @@ PRO dustem_init,model=model $
 ;   help           = if set, print this help
 ;   verbose        = if set, output code diagnostic info (default OFF)
 ;   polarization   = set this variables for runs taking polarization into account
-;   noerase        : set this keyword to not erase the temporary memory used by dustemwrap
+;   noerase        : set this keyword to not erase the temporary DAT files used by dustemwrap
+;   noobj          : set this keyword to turn off object-oriented
+;                    graphical output when using IDL. Object-oriented
+;                    graphics are OFF by default for GDL and Fawlty.
 ;   grain_keywords : Fortran grain keywords. Must be an array of Ngrains strings. Use '?' to keep default values.
 ;
 ; COMMON BLOCKS:
@@ -105,10 +109,9 @@ IF fawlty THEN defsysv,&#39;!dustemwrap_which_language&#39;,&#39;fawlty&#39;
 IF gdl THEN defsysv,'!dustemwrap_which_language','gdl'
 IF not fawlty and not gdl THEN defsysv,'!dustemwrap_which_language','idl'
  
-;use this to let dustemwrap to not use object-oriented graphics
-;IF gdl THEN defsysv,'!dustem_noobj',1 ELSE defsysv,'!dustem_noobj',0
+;Control of object-oriented graphics
 IF fawlty OR gdl THEN defsysv,'!dustem_noobj',1 ELSE defsysv,'!dustem_noobj',0
-;defsysv,'!dustem_noobj',1
+IF keyword_set(noobj) then defsysv,'!dustem_noobj',1
  
 un_mouchard={iteration:0L,chi2:0.d0,rchi2:0.d0,parameters_descriptions:ptr_new(),parameters_values:ptr_new()}
 mouchard=ptr_new(replicate(un_mouchard,1))