OV-GSO-DC / dustem-wrapper_idl

Blame view

src/idl/dustem_save_system_variables.pro 4.05 KB
Edit Raw Normal View History
b5ccb706   Jean-Philippe Bernard   improved to fit p... 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
 
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_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_IDL_CONTINUUM=!DUSTEM_IDL_CONTINUUM
saved_DUSTEM_IDL_FREEFREE=!DUSTEM_IDL_FREEFREE
saved_DUSTEM_IDL_SYNCHROTRON=!DUSTEM_IDL_SYNCHROTRON
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

save,saved_dustem_dat,$
	saved_dustem_data, $
	saved_dustem_fit, $
	saved_dustem_do_cc, $
	saved_dustem_f90_exec, $
    saved_dustem_filters, $
    saved_dustem_fit, $
    saved_dustem_f_hi, $
    saved_dustem_IDL_CONTINUUM, $
	saved_DUSTEM_IDL_FREEFREE, $
	saved_DUSTEM_IDL_SYNCHROTRON, $
	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, $
	file=file

the_end:

END