ba2000_0_init.pro
1.6 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
;----------------ENVELOPE-------------------------
;
pro ba2000_0_init, CLUSTER1 = Cluster1, CLUSTER2 = Cluster2, CLUSTER3 = Cluster3, CLUSTER4 = Cluster4, $
THEMISA = ThemisA, THEMISB = ThemisB, THEMISC = ThemisC, $
THEMISD = ThemisD, THEMISE = ThemisE, $
GEOTAIL = Geotail, $
OMNI = OMNI, AMDA = AMDA, $
PSYM = psym, COLOR = color, AY1TITLE = AY1Title, $
; vector
X = x, Y = y, Z = z, TOTAL = total, FRAME = frame, $
DELAY = delay, $
; all additional keywords
_EXTRA = e
cmd = 'ba2000_init, /X'
if KEYWORD_SET(FRAME) then cmd += ',FRAME = ' + frame
if KEYWORD_SET(COLOR) then cmd += ',COLOR = ' + color;
if KEYWORD_SET(AY1TITLE) then cmd += ',AY1TITLE = ' + AY1Title;
if KEYWORD_SET(CLUSTER1) then cmd += ',/CLUSTER1'
if KEYWORD_SET(CLUSTER2) then cmd += ',/CLUSTER2'
if KEYWORD_SET(CLUSTER3) then cmd += ',/CLUSTER3'
if KEYWORD_SET(CLUSTER4) then cmd += ',/CLUSTER4'
if KEYWORD_SET(THEMISA) then cmd += ',/THEMISA'
if KEYWORD_SET(THEMISB) then cmd += ',/THEMISB'
if KEYWORD_SET(THEMISC) then cmd += ',/THEMISC'
if KEYWORD_SET(THEMISD) then cmd += ',/THEMISD'
if KEYWORD_SET(THEMISE) then cmd += ',/THEMISE'
if KEYWORD_SET(GEOTAIL) then cmd += ',/GEOTAIL'
if KEYWORD_SET(OMNI) then cmd += ',/OMNI'
if KEYWORD_SET(AMDA) then cmd += ',/AMDA'
R = execute(cmd)
return
end
;------------------------------------------------------------