; IDL Version 5.3 (linux x86)
; Journal File for sxt_co@isass1.solar.isas.ac.jp
; Working directory: /home/sxt_co/idl
; Date: Mon Apr 16 21:34:42 2001
 
restgen,file='pointing_scatter.genx',rm,att,xy
n_pts = intarr(10000L)
xxyy = fltarr(2,10000L)
nrm = n_elements(rm)
for i = 0, nrm -1 do begin
  dd = rm(i).day
  n_pts(dd) = n_pts(dd)+1
  xxyy(*,dd) = xxyy(*,dd)+xy(*,i)
endfor
ss = where(n_pts,n_ss)
xysig = fltarr(2,n_ss)
xyrng = fltarr(2,n_ss)
for i = 0, n_ss-1 do begin
  xyrng(0,i) = max(xxyy(0,ss(i)))-min(xxyy(0,ss(i)))
  xyrng(1,i) = max(xxyy(1,ss(i)))-min(xxyy(1,ss(i)))
endfor
end