;+
; NAME:
;     LONGEST_FFI
; PURPOSE:
;     print the exposure time of the longest FFI in a given sequence table
; CATEGORY:
; CALLING SEQUENCE:
; INPUTS:
;     input_date
; OPTIONAL (KEYWORD) INPUT PARAMETERS:
; OUTPUTS:
; COMMON BLOCKS:
; SIDE EFFECTS:
; RESTRICTIONS:
; MODIFICATION HISTORY:
;     29-Dec-00, written by HSH
;-
pro longest_ffi, input_time, qdebug=qdebug
ffi2 = gtab_ffi(input_time,2)
ss = 10+indgen(13)
dpe = strmid(ffi2(ss),26,2)
type = strmid(ffi2(ss),29,4)
norm = where(type eq 'Norm')
print,' '
print,ffi2(2)
print,' '
print,gt_dpe(max(fix(dpe(norm))),/conv)/1000.
if n_elements(qdebug) ne 0 then stop
end