;+
; NAME:
; fxtm
; PURPOSE: (one line)
; Fix bad time codes from Anderson Mesa CCD software.
; DESCRIPTION:
; This is a special purpose routine for fixing bad times that are
; generated from using MGO with the Hendon CCD control software at
; Anderson Mesa. For a string of times, this is what it looks like:
; Frame Stored time Actual time
; n t(n+1) t(n)
; n+1 t(n+2) t(n+1)
; n+2 t(n+3) t(n+2)
; n+3 t(n+3) t(n+3)
; for a four frame sequence. The times for n to n+2 are actually the
; times for the next frame, the n+3 time is correct. The time for
; the first frame is lost.
;
; This program copies the times that are out of place and computes
; the first time by backing up from the n+1 frame by the mean of the
; difference between all the other frames.
; CATEGORY:
; CCD data processing
; CALLING SEQUENCE:
; INPUTS:
; vec - Time vector to be repaired (MODIFIED).
; i1 - First point in sequence within the vector.
; i2 - Last point in sequence within the vector.
; OPTIONAL INPUT PARAMETERS:
; KEYWORD PARAMETERS:
; OUTPUTS:
; vec - Time vector with i1 to i2 points repaired.
; COMMON BLOCKS:
; SIDE EFFECTS:
; RESTRICTIONS:
; PROCEDURE:
; MODIFICATION HISTORY:
; Written 1992 Jan 28, by Marc W. Buie, Lowell Observatory
;-
pro fxtm,vec,i1,i2
tmp1=vec[i1:i2-2]
tmp2=vec[i1+1:i2-1]
tdif = tmp2-tmp1
avgtdif = mean(tdif)
vec[i1+1:i2-1]=tmp1
vec[i1] = vec[i1+1]-avgtdif
end