dustem_save_system_variables.pro
4.11 KB
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
150
151
152
153
154
155
156
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