pro wbs_struct, WBS_QS_Instr = WBS_QS_Instr, $ WBS_QS_Offset = WBS_QS_Offset, $ WBS_QS_Del = WBS_QS_Del, $ WBS_QS_Conv1 = WBS_QS_Conv1, $ WBS_QS_Conv2 = WBS_QS_Conv2, $ WBS_Index = WBS_Index, $ WBS_DHK_Data = WBS_DHK_Data, $ WBS_PC_Data = WBS_PC_Data, $ WBS_PH_Data = WBS_PH_Data, $ WBS_RoadMap = WBS_RoadMap, $ WBS_Version = WBS_Version ;+ ; NAME: ; WBS_STRUCT ; PURPOSE: ; Define the following WBS specific database structures ; * WBS_QS_Instr_Rec ; * WBS_QS_Offset_Rec ; * WBS_QS_Del_Rec ; * WBS_QS_Conv1_Rec ; * WBS_QS_Conv2_Rec ; * WBS_Index_Rec ; * WBS_DHK_Data_Rec ; * WBS_PC_Data_Rec ; * WBS_PH_Data_Rec ; * WBS_RoadMap_Rec ; ; CALLING SEQUENCE: ; WBS_STRUCT ; HISTORY: ; written by Mons Morrison, Fall 90. ; ;- WBS_QS_Instr = { WBS_QS_Instr_Rec, $ ; NOT IMPLEMENTED AS OF 25-Mar-92] ; entry_type : FIX('5011'x), $ ; ; 00- Structure/Entry type ; st_time: LONG(0), $ ; 02- Start time (millisec of day) entries are valid st_day: FIX(0), $ ; 06- Start day (since 1-Jan-79) en_time: LONG(0), $ ; 08- End time (millisec of day) en_day: FIX(0), $ ; 12- End day (since 1-Jan-79) ; gain: BYTARR(32), $ ; 14- Gain information W49 F32 ; spare: BYTARR(18) } ; 46- WBS_QS_Offset = { WBS_QS_Offset_Rec, $ ; NOT IMPLEMENTED AS OF 25-Mar-92] ; entry_type : FIX('5021'x), $ ; ; 00- Structure/Entry type ; st_time: LONG(0), $ ; 02- Start time (millisec of day) entries are valid st_day: FIX(0), $ ; 06- Start day (since 1-Jan-79) en_time: LONG(0), $ ; 08- End time (millisec of day) en_day: FIX(0), $ ; 12- End day (since 1-Jan-79) ; sxs_pc: LONG(0), $ ; 14- SXS offset relative to the time in the main ; index record. The units are in increments ; of 1 microsec. The delay is mainly due ; to the DP software. hxs_pc: LONG(0), $ ; 18- hxs offset grs_pc1: LONG(0), $ ; 22- grs1 offset grs_pc2: LONG(0), $ ; 26- grs2 offset rbm_pc: LONG(0), $ ; 30- rbm offset gbd_pc: LONG(0), $ ; 34- gbd offset dhk: LONG(0), $ ; 38- dhk offset ; solution_ver: FIX(0), $ ; 42- Solution version ; spare: BYTARR(20) } ; 44- WBS_QS_Del = { WBS_QS_Del_Rec, $ ;[two values ? one for hi, one for med] ; ; NOT IMPLEMENTED AS OF 25-Mar-92] entry_type : FIX('5031'x), $ ; ; 00- Structure/Entry type ; st_time: LONG(0), $ ; 02- Start time (millisec of day) entries are valid st_day: FIX(0), $ ; 06- Start day (since 1-Jan-79) en_time: LONG(0), $ ; 08- End time (millisec of day) en_day: FIX(0), $ ; 12- End day (since 1-Jan-79) ; sxs_pc: LONG(0), $ ; 14- SXS interval between samples in units of ; microseconds. The values include ; corrections for satellite clock variations. hxs_pc: LONG(0), $ ; 18- hxs interval grs_pc1: LONG(0), $ ; 22- grs1 interval grs_pc2: LONG(0), $ ; 26- grs2 interval rbm_pc: LONG(0), $ ; 30- rbm interval gbd_pc: LONG(0), $ ; 34- gbd interval dhk: LONG(0), $ ; 38- dhk interval ; solution_ver: FIX(0), $ ; 42- Solution version ; spare: BYTARR(20) } ; 44- WBS_QS_Conv1 = { WBS_QS_Conv1_Rec, $ ; NOT IMPLEMENTED AS OF 25-Mar-92] entry_type : FIX('5041'x), $ ; ; 00- Structure/Entry type ; st_time: LONG(0), $ ; 02- Start time (millisec of day) entries are valid st_day: FIX(0), $ ; 06- Start day (since 1-Jan-79) en_time: LONG(0), $ ; 08- End time (millisec of day) en_day: FIX(0), $ ; 12- End day (since 1-Jan-79) ; sxs_ph0: LONG(0), $ ; 14- energy * 0.01 keV sxs_phw: LONG(0), $ ; 18- width * 0.001 keV/ch hxs_ph0: LONG(0), $ ; 22- base * 0.01 sq(keV) hxs_phw: LONG(0), $ ; 26- width * 0.01 sq(keV)/ch hxs_chw: LONG(0), $ ; 30- Factor * 0.001 rbm_ph0: LONG(0), $ ; 34- base * 0.01 sq(keV) rbm_phw: LONG(0), $ ; 38- width * 0.01 sq(keV)/ch rbm_chw: LONG(0), $ ; 42- Factor * 0.001 grs1_ph0: LONG(0), $ ; 46- base * 0.01 sq(keV) grs1_phw: LONG(0), $ ; 50- width * 0.01 sq(keV)/ch grs1_chw: LONG(0), $ ; 54- Factor * 0.01 grs2_ph0: LONG(0), $ ; 58- base * 0.01 sq(keV) grs2_phw: LONG(0), $ ; 62- width * 0.01 sq(keV)/ch grs2_chw: LONG(0), $ ; 66- Factor * 0.01 grsh_ph0: LONG(0), $ ; 70- energy *10.0 keV grsh_phw: LONG(0), $ ; 74- width * 1.00 keV/ch ; solution_ver: FIX(0), $ ; 78- Solution version ; spare: BYTARR(48) } ; 80- WBS_QS_Conv2 = { WBS_QS_Conv2_Rec, $ ; NOT IMPLEMENTED AS OF 25-Mar-92] entry_type : FIX('5051'x), $ ; ; 00- Structure/Entry type ; st_time: LONG(0), $ ; 02- Start time (millisec of day) entries are valid st_day: FIX(0), $ ; 06- Start day (since 1-Jan-79) en_time: LONG(0), $ ; 08- End time (millisec of day) en_day: FIX(0), $ ; 12- End day (since 1-Jan-79) ; sxs_hv0: FIX(0), $ ; 14- voltage * 0.1 volts sxs_hvc: FIX(0), $ ; 16- voltage * 0.01 volts/chan hxs_hv0: FIX(0), $ ; 18- voltage * 0.1 volts hxs_hvc: FIX(0), $ ; 20- voltage * 0.01 volts/chan grs1_hv0: FIX(0), $ ; 22- voltage * 0.1 volts grs1_hvc: FIX(0), $ ; 24- voltage * 0.01 volts/chan grs2_hv0: FIX(0), $ ; 26- voltage * 0.1 volts grs2_hvc: FIX(0), $ ; 28- voltage * 0.01 volts/chan rbm_hv0: FIX(0), $ ; 30- voltage * 0.1 volts rbm_hvc: FIX(0), $ ; 32- voltage * 0.01 volts/chan sxst_tm0: FIX(0), $ ; 34- temp * 0.01 degrees sxst_tmc: FIX(0), $ ; 36- temp * 0.01 degrees/chan hxst_tm0: FIX(0), $ ; 38- temp * 0.01 degrees hxst_tmc: FIX(0), $ ; 40- temp * 0.01 degrees/chan grst_tm0: FIX(0), $ ; 42- temp * 0.01 degrees grst_tmc: FIX(0), $ ; 44- temp * 0.01 degrees/chan rbmt_tm0: FIX(0), $ ; 46- temp * 0.01 degrees rbmt_tmc: FIX(0), $ ; 48- temp * 0.01 degrees/chan ; solution_ver: FIX(0), $ ; 50- Solution version ; spare: BYTARR(12) } ; 52- WBS_Index = { WBS_Index_Rec, $ index_version : FIX('5011'x), $ ; ; 0- Index structure version Ground ; AAAABBBB CCCCDDDD ; pow_stat: BYTARR(2), $ ; 02- Power status W48 F32 ; b7 = WBS HV enable/disable ; b6 = WBS on/off (set=on) ; b5 = WBS-A on/off (set=on) ; b4 = SXS-HV on/off (set=on) ; b3 = HXS-HV on/off (set=on) ; b2 = GRS-HV1 on/off (set=on) ; b1 = GRS-HV2 on/off (set=on) ; b0 = RBM-HV on/off (set=on) gbd_status1: BYTE(0), $ ; 04- [TODO - ADD INFO] W50 F63 gbd_status2: BYTE(0), $ ; 05- W50 F47 ; b5 = block 1? ; b4 = block 0? ; b0:3 = ? ; [TODO - ADD INFO] PIOS: BYTARR(8,2), $ ; 06- WBS control ; (0,*) = GRS1 Control W49 F32 ; b6:7 = HV control ; 00 = 750 V (default) ; 01 = 720 V ; 10 = 780 V ; 11 = 810 V ; b4:5 = Amp-L Gain ; 00 = X1 (What is this? TODO??) ; 01 = 1.11 ; 10 = 1.22 ; 11 = 1.33 ; b2:3 = Amp-H Gain ; 00 = X1 (What is this? TODO??) ; 01 = 1.11 ; 10 = 1.22 ; 11 = 1.33 ; b1 = CAL discriminator (set=60 keV, low=30 KeV) ; b0 = CAL disabled/enabled ; (1,*) = GRS2 Control W49 F32 ; b6:7 = HV control ; 00 = 700 V (default) ; 01 = 670 V ; 10 = 730 V ; 11 = 760 V ; b4:5 = Amp-L Gain ; 00 = X1 (What is this? TODO??) ; 01 = 1.11 ; 10 = 1.22 ; 11 = 1.33 ; b2:3 = Amp-H Gain ; 00 = X1 (What is this? TODO??) ; 01 = 1.11 ; 10 = 1.22 ; 11 = 1.33 ; (2,*) HXS Control W49 F32 ; b6:7 = HV control ; 00 = 730 V (default) ; 01 = 700 V ; 10 = 760 V ; 11 = 790 V ; b4:5 = Amp Gain ; 00 = X1 (What is this? TODO??) ; 01 = 1.13 ; 10 = 1.30 ; 11 = 0.43 ; b2 = MD Control (high=100 keV, low=50 keV) ; b1 = CAL discriminator (high=1.0 MeV, low=0.5 MeV) ; b0 = CAL enable/disable ; (3,*) = BC-DATA W49 F32 ; (4,*) = RBM Control W49 F32 ; b6:7 = HV control ; 00 = 1250 V (default) ; 01 = 1200 V ; 10 = 1300 V ; 11 = 1350 V ; b4:5 = Amp Gain ; 00 = X1 (What is this? TODO??) ; 01 = 1.15 ; 10 = 1.30 ; 11 = 0.55 ; b2:3 = SSD Discrimination levels ; 00 = 20 keV (default) ; 01 = 40 keV ; 10 = 70 keV ; 11 = 90 keV ; b1 = MD Control (high=100 keV, low=50 keV) ; b0 = SSD off/on ; (5,*) = SXS1 Control W49 F32 ; b6:7 = HV control ; 00 = 2300 V (default) ; 01 = 2250 V ; 10 = 2350 V ; 11 = 24000 V ; b4:5 = Amp Gain ; 00 = X1 (What is this? TODO??) ; 01 = 1.11 ; 10 = 1.22 ; 11 = 1.33 ; b2:3 = MD1 Control ; 00 = 7.5 keV (default) ; 01 = 10.0 keV ; 10 = 12.5 keV ; 11 = 15.0 keV ; b0:1 = MD2 Control ; 00 = 15.0 keV (default) ; 01 = 20.0 keV ; 10 = 25.0 keV ; 11 = 30.0 keV ; (6,*) = SXS2 Control W49 F32 ; b7 = RBM Flag (set=on) ; b4:5 = Amp Gain ; 00 = X1 (What is this? TODO??) ; 01 = 1.11 ; 10 = 1.22 ; 11 = 1.33 ; b2:3 = MD1 Control ; 00 = 7.5 keV (default) ; 01 = 10.0 keV ; 10 = 12.5 keV ; 11 = 15.0 keV ; b0:1 = MD2 Control ; 00 = 15.0 keV (default) ; 01 = 20.0 keV ; 10 = 25.0 keV ; 11 = 30.0 keV ; (7,*) = BC-DATA W49 F32 ahk_hv: BYTARR(5), $ ; 22- Analog house keeping (AHK) voltages W32 F27 ; (0) = SXS HV (0-5 V) ; (1) = HXS HV ; (2) = GRS HV1 ; (3) = GRS HV2 ; (4) = RBM HV ahk_temp: BYTARR(4), $ ; 27- Analog house keeping (AHK) Temperatures W32 F91 ; (0) = SXS Temperature ; (1) = HXS Temperature ; (2) = GRS Temperature ; (3) = RBM Temperature bcs_a_temp: BYTE(0), $ ; 31- TODO - why is this here? W32 F95 ; sxs1: FIX(0), $ ; 32- SXS2 channel 1 counts per sec. (3-15 keV) Derived ; Only SXS_PC21 are totaled ; NOTE: For reformatter Ver 1.06 and before, ; the data stored here was for PC12 sxs2: FIX(0), $ ; 34- SXS2 channel 2 counts per sec. (15-40 keV) Derived ; Only SXS_PC22 are totaled ; NOTE: For reformatter Ver 1.06 and before, ; the data stored here was for PC21 hxs: FIX(0), $ ; 36- HXS counts per sec. (20-600 keV) Derived ; HXS_PC1 and HXS_PC2 are totaled ; Data is decompressed first grs1: FIX(0), $ ; 38- GRS1 counts per sec. (0.2-0.7 MeV) Derived ; GRS_PC11 and GRS_PC21 are totaled ; Data is decompressed first grs2: FIX(0), $ ; 40- GRS2 counts per sec. (0.7-4 MeV) Derived ; GRS_PC12 and GRS_PC22 are totaled ; Data is decompressed first rbmsc: FIX(0), $ ; 42- RBMSC counts per sec. (5-300 keV) Derived ; PC1 and PC2 are totaled rbmsd: FIX(0), $ ; 44- RBMSD counts per sec. (20 keV) Derived unit_time: FIX(0), $ ; 46- Unit time (in .01 sec) Derived ; dataRecTypes: BYTE(0), $ ; 48- What data follows (set bits) ; b0 = wbs_dhk_data_rec ; b1 = wbs_pc_data_rec ; b2 = wbs_ph_data_rec nmf: BYTE(0), $ ; 49- "Which" major frames are in the following data ; b0 = First half (even MF #s) ; b1 = Second half (odd MF #s) ; A value of (3) says there are 2 MF of data spare: BYTARR(14) } ; 50 WBS_DHK_Data = { WBS_DHK_Data_Rec, $ sxs_ud1: BYTARR(8), $ ; 0- [add words - elaborate] W67 F16 sxs_adct1: BYTARR(8), $ ; 8- [add words - elaborate] W67 F16 sxs_ud2: BYTARR(8), $ ; 16- [add words - elaborate] W67 F16 sxs_adct2: BYTARR(8), $ ; 24- [add words - elaborate] W67 F16 hxs_ud: BYTARR(8), $ ; 32- [add words - elaborate] W67 F16 hxs_adct: BYTARR(8), $ ; 40- [add words - elaborate] W67 F16 hxs_cal: BYTARR(8), $ ; 48- [add words - elaborate] W67 F16 grs_udh1: BYTARR(8), $ ; 56- [add words - elaborate] W67 F16 grs_adclt1: BYTARR(8), $ ; 64- [add words - elaborate] W67 F16 grs_adcht1: BYTARR(8), $ ; 72- [add words - elaborate] W67 F16 grs_udh2: BYTARR(8), $ ; 80- [add words - elaborate] W67 F16 grs_adclt2: BYTARR(8), $ ; 88- [add words - elaborate] W67 F16 grs_adcht2: BYTARR(8), $ ; 96- [add words - elaborate] W67 F16 grs_cal: BYTARR(8), $ ; 104- [add words - elaborate] W67 F16 rbm_sc_ud: BYTARR(8), $ ; 112- [add words - elaborate] W67 F16 rbm_sc_adct: BYTARR(8) } ; 120- [add words - elaborate] W67 F16 WBS_PC_Data = { WBS_PC_Data_Rec, $ ; Soft X-Ray Spectrometer (SXS) sxs_pc11: INTARR(16), $ ; 00- SXS1 Detector, chan 1 (3-15 keV) W96,W97 sxs_pc12: INTARR(16), $ ; 32- SXS1 Detector, chan 2 (15-40 keV) W96,W97 sxs_pc21: INTARR(16), $ ; 64- SXS2 Detector, chan 1 (3-15 keV) W96,W97 sxs_pc22: INTARR(16), $ ; 96- SXS2 Detector, chan 2 (15-40 keV) W96,W97 ; ; Hard X-Ray Spectrometer (HXS) hxs_pc1: BYTARR(32), $ ; 128- (20-60 keV) W99 F4n hxs_pc2: BYTARR(32), $ ; 160- (60-600 keV) W99 F4n ; ; Gamma-Ray Burst Detection (GBD) gbd_pc1: BYTARR(32), $ ; 192- [add words - elaborate] W99 F4n gbd_pc2: BYTARR(32), $ ; 224- [add words - elaborate] W99 F4n ; ; Gamma-Ray Spectrometer (GRS) grs_pc11: BYTARR(16), $ ; 256- (0.2-0.7 MeV) W98 F8n grs_pc12: BYTARR(16), $ ; 272- (0.7-4.0 MeV) W98 F8n grs_pc21: BYTARR(16), $ ; 288- (0.2-0.7 MeV) W98 F8n grs_pc22: BYTARR(16), $ ; 304- (0.7-4.0 MeV) W98 F8n grs_pc13: BYTARR(8), $ ; 320- (4-7 MeV) W98 F16 grs_pc14: BYTARR(8), $ ; 328- (7-10 MeV) W98 F16 grs_pc15: BYTARR(8), $ ; 336- (8-30 MeV) W98 F16 grs_pc16: BYTARR(8), $ ; 344- (30-100 MeV) W98 F16 grs_pc23: BYTARR(8), $ ; 352- (4-7 MeV) W98 F16 grs_pc24: BYTARR(8), $ ; 360- (7-10 MeV) W98 F16 grs_pc25: BYTARR(8), $ ; 368- (8-30 MeV) W98 F16 grs_pc26: BYTARR(8), $ ; 376- (30-100 MeV) W98 F16 ; ; Radiation Belt Monitor (RBM) rbm_sc_pc1: INTARR(16), $ ; 384- NaI scintillation detector (5-60 keV) W96,W97 rbm_sc_pc2: INTARR(16), $ ; 416- NaI scintillation detector (60-300 keV) W96,W97 rbm_sd_pc: INTARR(16) } ; 448- Si detector (20 kev) W96,W97 WBS_PH_Data = { WBS_PH_Data_Rec, $ sxs_ph1: BYTARR(128,2), $ ; 0- SXS1 pulse height data (2-30 keV) ; Chan 0-127 for 1st MF, and 2nd MF sxs_ph2: BYTARR(128,2), $ ; 256- SXS2 pulse height data (2-30 keV) ; Chan 0-127 for 1st MF, and 2nd MF grs_phl1: BYTARR(128), $ ; 512- GRS pulse height data for lower channels (0.2-10 MeV) ; Chan 0-127 takes 2 MF to dump grs_phl2: BYTARR(128), $ ; 640- GRS pulse height data for lower channels (0.2-10 MeV) ; Chan 0-127 takes 2 MF to dump hxs_ph: BYTARR(32,4), $ ; 768- HXS pulse height data (20-400 keV) ; Chan 0-31 twice for 1st MF, and 2nd MF rbm_sc_ph: BYTARR(32,4), $ ; 896- NaI scintillation detector (5-300 keV) ; Chan 0-31 twice for 1st MF, and 2nd MF grs_phh1: BYTARR(16), $ ;1024- GRS pulse height data for higher channels (8-100 MeV) ; Chan 0-15 grs_phh2: BYTARR(16) } ;1040- GRS pulse height data for higher channels (8-100 MeV) WBS_RoadMap = { WBS_RoadMap_Rec, $ ; For a full description of the fields, ; look at the Index_Rec definition ; ByteSkip: LONG(0), $ ; 00- Starting byte of index rec ; time: LONG(0), $ ; 04- Major frame time (millisec of day) day: FIX(0), $ ; 08- Major frame day (since 1-Jan-79) ; DP_mode: BYTE(0), $ ; 10- DP Mode DP_rate: BYTE(0), $ ; 11- DP Rate ; pow_stat: BYTE(0), $ ; 12- [add words - elaborate] flags: BYTE(0), $ ; 13- [add words - elaborate] ; sxs1: FIX(0), $ ; 32- SXS2 channel 1 counts per sec. (3-15 keV) sxs2: FIX(0), $ ; 34- SXS2 channel 2 counts per sec. (15-40 keV) hxs: FIX(0), $ ; 36- HXS counts per sec. (20-600 keV) grs1: FIX(0), $ ; 38- GRS1 counts per sec. (0.2-0.7 MeV) grs2: FIX(0), $ ; 40- GRS2 counts per sec. (0.7-4 MeV) rbmsc: FIX(0), $ ; 42- RBMSC counts per sec. (5-300 keV) rbmsd: FIX(0), $ ; 44- RBMSD counts per sec. (20 keV) unit_time: FIX(0), $ ; 28- Unit time (in .01 sec) ; nmf: BYTE(0), $ ; 30- "Which" major frames are in the following data spare: BYTARR(1) } ; 31 WBS_Version = { WBS_Version_Rec, $ roadmap : FIX('50F2'x), $ ; ; 00- The version number of the Roadmap ; This value is not contained in the ; roadmap structure to save space. It is ; saved in the "Pointer Record" data : FIX('50E1'x), $ ; 02- Data section version number ; ; This structure is not written to any files spare: BYTARR(12) } ; (need for automatic conversion to IDL format) end