PRO TEST_SH, str

; @(#)test_sh.pro	1.1 01/23/98 :LASCO IDL LIBRARY
;
sh = READALLSH(str)

obtsync = WHERE(sh EQ '4660'XL)

msw_msb = BYTE((sh(obtsync) AND  'ff00'XL)/2.D^8) ;* MSB
msw_lsb = BYTE(sh(obtsync) AND  '00ff'XL) ;* LSB
mid_msb = BYTE((sh((obtsync)+1) AND  'ff00'XL)/2.D^8) ;* MSB
mid_lsb = BYTE(sh((obtsync)+1) AND  '00ff'XL) ;* LSB
lsw_msb = BYTE((sh((obtsync)+2) AND  'ff00'XL)/2.D^8) ;* MSB
lsw_lsb = BYTE(sh((obtsync)+2) AND  '00ff'XL) ;* LSB

obt = [msw_msb, msw_lsb, mid_msb, mid_lsb, lsw_msb, lsw_lsb]
obt = REFORM(obt, N_ELEMENTS(msw_msb), 6)
obt = TRANSPOSE(obt)

tai = OBT2TAI(obt)

diff = SHIFT(tai, 1) - tai

PLOT, diff, YRANGE=[-.3, 0], TITLE='Jun 1 1995', YTITLE='time between HR SCI acquisitions (sec)'

STOP

END