PRO TEST_SC, str
; @(#)test_sc.pro	1.1 01/23/98 :LASCO IDL LIBRARY
;

sh = READALLSC(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

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


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=[-.8, -.5], TITLE='Jun 1 1995', YTITLE='time between LR SCI acquisitions (sec)'

STOP

END