;+
; NAME:
;     PATROL_ORDER
; PURPOSE:
;     list the sequence of images preceding an SXT patrol image
; CATEGORY:
; CALLING SEQUENCE:
;     patrol_order, t_start, t_stop
; INPUTS:
; OPTIONAL (KEYWORD) INPUT PARAMETERS:
; OUTPUTS:
; COMMON BLOCKS:
; SIDE EFFECTS:
; RESTRICTIONS:
; MODIFICATION HISTORY:
;     8-Aug-1997, written (HSH)
;-
pro patrol_order, t1, t2, qstop = qstop
rd_obs,t1,t2,aa,bb,cc,/sxtf
shape = gt_shape_cmd(bb)
ss = where(shape(0,*) eq 256 and shape(1,*) eq 128, n_pat)
if n_pat ne 0 then begin
  for i = 0, n_pat-1 do begin
    fmt_timer,bb([ss(i)-1,ss(i)+1]),tt1,tt2
    rd_obs,tt1,tt2,a,b,c,/sxtp,/sxtf
    index = sort_index(b,c)
    info = get_info(index)
  endfor
endif else begin
  print,'Sorry, no patrol images in this time range'
  fmt_timer, t1,t2
endelse
if keyword_set(qstop) then stop
end