switched logic of restart to norestart

Annie Hughes
1 parent 79417f9a
Showing 1 changed file with 11 additions and 12 deletions Show diff stats
src/idl/dustem_cc_print.pro
-PRO dustem_cc_print,filters,restart=restart,help=help
+PRO dustem_cc_print,filters,norestart=norestart,help=help
  
 ;+
 ; NAME:
@@ -34,8 +34,7 @@ PRO dustem_cc_print,filters,restart=restart,help=help
 ;
 ; ACCEPTED KEY-WORDS:
 ;    help      = If set, print this help
-;    restart   = If set, reinitialise DustEMWrap and use a new
-;                wavelength vector for integration. 
+;    norestart   = If set, do not reinitialise DustEMWrap
 ;
 ; COMMON BLOCKS:
 ;    None
@@ -53,8 +52,8 @@ PRO dustem_cc_print,filters,restart=restart,help=help
 ; PROCEDURES AND SUBROUTINES USED:
 ;    
 ; EXAMPLES
-;    dustem_cc_print,['MIRI1','MIRI6'],/restart
-;    dustem_cc_print,['IRAS1','IRAC2']
+;    dustem_cc_print,['MIRI1','MIRI6']
+;    dustem_cc_print,['IRAS1','IRAC2'],/norestart
 ;
 ; MODIFICATION HISTORY:
 ;    Written by JPB Apr-2011
@@ -66,8 +65,14 @@ IF keyword_set(help) THEN BEGIN
   goto,the_end
 ENDIF
  
+;== Check if user gave us filters
+  if not keyword_set(filters) then begin
+     message,'You must provide a list of filters',/info
+     stop
+  end
+
 ;== Initialize DustemWrap if restart requested
-  if keyword_set(restart) then begin
+  if not keyword_set(norestart) then begin
      dustem_init
      Nwav=50000 & wavmin=0.1 & wavmax=500.
      wavs=findgen(Nwav)/(Nwav-1)*(wavmax-wavmin)+wavmin
@@ -78,12 +83,6 @@ ENDIF
      wavs=st.sed.wav
   end
  
-;== Check if user gave us filters
-  if not keyword_set(filters) then begin
-     message,'You must provide a list of filters',/info
-     stop
-  end
-
 Nfilt=n_elements(filters)
 wavref=dustem_filter2wav(filters)