get_mode_peir.pro
1.29 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
;-------------------- Get THEMIS Modeity ION -------------------------------
;
;-----------------------------------------------------------------------------
pro Get_Mode_Peir, THEMIS, st, dt
common GraphC, Graph, GraphN, Item
common ThaModePeirCom, ThaMode
common ThbModePeirCom, ThbMode
common ThcModePeirCom, ThcMode
common ThdModePeirCom, ThdMode
common TheModePeirCom, TheMode
cmd = 'ThMode = Th'+THEMIS+'Mode'
R = execute(cmd)
sz = ThMode.DefSize
T=dblarr(sz)
mode = fltarr(3,sz);
ID = Long(graph[GraphN].DataID[Item])
VI = 'th'+THEMIS+':peir:mom'
CONT:
RetSize = call_external(!PROJLIB + 'libParam.so', 'getLocalData', $
ID, VI, 'Mode', st, dt, sz, T, mode)
if (Retsize eq -34) OR (Retsize eq -35) OR (Retsize eq -0) then begin
wait, 3
goto, CONT
endif
if (RetSize GT 1) then begin
Val = mode[2, 0:Retsize-1]
T -= graph[GraphN].TimeBase
graph[GraphN].DataID[Item] = ID
graph[GraphN].DataFlags[Item] = 1
graph[GraphN].dataTime[Item] = T[0]
immediate, ThMode, T[0:RetSize-1], Val
endif
cmd = 'Th'+THEMIS+'Mode = ThMode'
R = execute(cmd)
return
end
;-----------------------------------------------------------