PRO dustem_save_system_variables,file,help=help

;+
; NAME:
;    dustem_save_system_variables

;

; PURPOSE:

;    Save DustEMWrap system variables a file
;

; CATEGORY:

;    DustEMWrap, Distributed, LowLevel, Initialization
;

; CALLING SEQUENCE:
;    dustem_save_system_variables,file[,/help]

;

; INPUTS:

;    file      = output file to be written
;

; 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 containing system variables is written.
;

; RESTRICTIONS:

;    The DustEM fortran code must be installed
;    The DustEMWrap IDL code must be installed
;
; PROCEDURES AND SUBROUTINES USED:  
;
; EXAMPLES:
;

; MODIFICATION HISTORY:

;    Written by JPB
;    Evolution details on the DustEMWrap gitlab.
;    See http://dustemwrap.irap.omp.eu/ for FAQ and help.  

;-

; !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  ; observaitonal 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