PRO dustem_save_system_variables,file,help=help

;+
; NAME:
;    dustem_save_system_variables
; PURPOSE:
;    Save Dustem system variables a file
; CATEGORY:
;    Dustem
; CALLING SEQUENCE:
;    dustem_save_system_variables,file[,/help]
; INPUTS:
;    file      = File name
; OPTIONAL INPUT PARAMETERS:
;    None
; OUTPUTS:
;    None
; OPTIONAL OUTPUT PARAMETERS:
;    None
; ACCEPTED KEY-WORDS:
;    help      = If set, print this help
; COMMON BLOCKS:
;    None
; SIDE EFFECTS:
;    File is stored.
;    The following system variables are stored:
;    !dustem_fit
;    !dustem_data
;    !dustem_filters
;    !run_ionfrac
;    !dustem_verbose
; RESTRICTIONS:
;    The dustem idl wrapper must be installed
; PROCEDURE:
;    None
; EXAMPLES
;    
; MODIFICATION HISTORY:
;    Written by J.-Ph. Bernard
;    see evolution details on the dustem cvs maintained at CESR
;    Contact J.-Ph. Bernard (Jean-Philippe.Bernard@cesr.fr) in case of problems.
;-

; !DUSTEM_DAT = '/tmp/ramdisk8MB/'       
; !DUSTEM_DATA = -> <Anonymous> Array[1]
; !DUSTEM_DO_CC =        1
; !DUSTEM_F90_EXEC = '$HOME/Soft_Librairies/dustem4.3_wk/src/dustem'
; !DUSTEM_FILTERS = <PtrHeapVar570>
; !DUSTEM_FIT = <PtrHeapVar1>
; !DUSTEM_F_HI =       1.00000   
; !DUSTEM_IDL_CONTINUUM =       0.00000
; !DUSTEM_IDL_FREEFREE =       0.00000
; !DUSTEM_IDL_SYNCHROTRON =       0.00000
; !DUSTEM_INPUTS = <PtrHeapVar2>
; !DUSTEM_INSTRUMENT_DESCRIPTION = -> <Anonymous> Array[120]
; !DUSTEM_NEVER_DO_CC =        0 
; !DUSTEM_PARAMS = <PtrHeapVar15>
; !DUSTEM_PARINFO = <PtrHeapVar943>
; !DUSTEM_PREVIOUS_CC = <PtrHeapVar3346>
; !DUSTEM_RES = '/tmp/ramdisk8MB/'
; !DUSTEM_SHOW_PLOT =        1 
; !DUSTEM_SOFT_DIR = '$HOME/Soft_Librairies/dustem4.3_wk/'       
; !DUSTEM_VERBOSE =        1
; !DUSTEM_WHICH = 'WEB3p8'
; !DUSTEM_WRAP_SOFT_DIR = '$HOME/Soft_Librairies/dustem-wrapper_idl/'
; !FIT_RCHI2_WEIGHT = -> <Anonymous> Array[1]
; !RUN_ANIS =       0.00000
; !RUN_CIRC =       0.00000      
; !RUN_IONFRAC =       0.00000
; !RUN_LIN =       1.00000
; !RUN_POL =        1
; !RUN_RRF =       0.00000
; !RUN_TLS =       0.00000
; !RUN_UNIV =       0.00000

IF keyword_set(help) THEN BEGIN
  doc_library,'dustem_save_system_variables'
  goto,the_end
ENDIF

saved_dustem_dat=!dustem_dat
saved_dustem_data=!dustem_data
saved_dustem_show=!dustem_show
saved_dustem_do_cc=!DUSTEM_DO_CC
saved_dustem_f90_exec=!DUSTEM_F90_EXEC
saved_dustem_filters=!dustem_filters
saved_dustem_fit=!dustem_fit
saved_dustem_f_hi=!DUSTEM_F_HI
saved_DUSTEM_INPUTS=!DUSTEM_INPUTS
saved_DUSTEM_INSTRUMENT_DESCRIPTION=!DUSTEM_INSTRUMENT_DESCRIPTION
saved_DUSTEM_NEVER_DO_CC=!DUSTEM_NEVER_DO_CC
saved_DUSTEM_PARAMS=!DUSTEM_PARAMS
saved_DUSTEM_PARINFO=!DUSTEM_PARINFO
saved_DUSTEM_PREVIOUS_CC=!DUSTEM_PREVIOUS_CC
saved_DUSTEM_RES=!DUSTEM_RES
saved_DUSTEM_SHOW_PLOT=!DUSTEM_SHOW_PLOT
saved_DUSTEM_SOFT_DIR=!DUSTEM_SOFT_DIR
saved_DUSTEM_VERBOSE=!DUSTEM_VERBOSE
saved_DUSTEM_WHICH=!DUSTEM_WHICH
saved_DUSTEM_WRAP_SOFT_DIR=!DUSTEM_WRAP_SOFT_DIR
saved_FIT_RCHI2_WEIGHT=!FIT_RCHI2_WEIGHT
saved_RUN_ANIS=!RUN_ANIS
saved_RUN_CIRC=!RUN_CIRC
saved_RUN_IONFRAC=!RUN_IONFRAC
saved_RUN_LIN=!RUN_LIN
saved_RUN_POL=!RUN_POL
saved_RUN_RRF=!RUN_RRF
saved_RUN_TLS=!RUN_TLS
saved_RUN_UNIV=!RUN_UNIV
saved_DUSTEM_REDSHIFT=!DUSTEM_REDSHIFT
saved_DUSTEM_PLUGIN=!DUSTEM_PLUGIN

save,saved_dustem_dat,$
	saved_dustem_data, $
	saved_dustem_show, $
	saved_dustem_fit, $
	saved_dustem_do_cc, $
	saved_dustem_f90_exec, $
    saved_dustem_filters, $
    saved_dustem_fit, $
    saved_dustem_f_hi, $
	saved_DUSTEM_INPUTS, $
	saved_DUSTEM_INSTRUMENT_DESCRIPTION, $
	saved_DUSTEM_NEVER_DO_CC, $
	saved_DUSTEM_PARAMS, $
	saved_DUSTEM_PARINFO, $
	saved_DUSTEM_PREVIOUS_CC, $
	saved_DUSTEM_RES, $
	saved_DUSTEM_SHOW_PLOT, $
	saved_DUSTEM_SOFT_DIR, $
	saved_DUSTEM_VERBOSE, $
	saved_DUSTEM_WHICH, $
	saved_DUSTEM_WRAP_SOFT_DIR, $
	saved_FIT_RCHI2_WEIGHT, $
	saved_RUN_ANIS, $
	saved_RUN_CIRC, $
	saved_RUN_IONFRAC, $
	saved_RUN_LIN, $
	saved_RUN_POL, $
	saved_RUN_RRF, $
	saved_RUN_TLS, $
	saved_RUN_UNIV, $
	saved_DUSTEM_REDSHIFT, $
    saved_DUSTEM_PLUGIN, $
	
	file=file

the_end:

END