;+
; NAME:
;     KSC_RAW_FFI
; PURPOSE:
;     display an image from the KSC raw archive. To get one, use anonymous
;        ftp from flare5 at /flare5.data/SXTffi/SAmmdd/ (account yohkoh)
;        where SAmmdd is the given day's subdirectory name. The actual
;        data directory may move around but seems to be called SXTffi
;        wherever it goes, so search with df and ls until you find it -
;        on 20 July 1996 it was at /flare4.data0/SXTffi instead of on
;        flare5.  The IP number to ftp to is: 133.74.12.103.
; CATEGORY:
;     Yohkoh
; CALLING SEQUENCE:
;     ksc_raw                 (finds .dat files in the current directory)
;     ksc_raw_ffi, infil
; INPUTS:
;     infil, file name (string)
; OPTIONAL (KEYWORD) INPUT PARAMETERS:
; ROUTINES CALLED
;     FFI_HEAD
; OUTPUTS:
;     header, 512-byte information of most recent image
;     image, most recent image
; COMMON BLOCKS:
; SIDE EFFECTS:
; RESTRICTIONS:
;     you need to acquire the data via ftp before displaying it, and
;       for the ftp you need a password. It is the yohkoh account.
;     this routine is updated whenever a typhoon hits KSC
; MODIFICATION HISTORY:
;     HSH 18-feb-96 got it from Hara
;     HSH 20-jul-96 edited the documentation
;     HSH 16-jan-00 modified for single-file read
;-

pro ksc_raw_ffi, infil_in, header=header, image=image, qstop = qstop,$
  img_time = img_time, notv = notv
get_lun, lun
if n_elements(infil_in) ne 0 then infil = infil_in+'.dat'
if n_elements(infil_in) eq 0 then infil = findfile('*.dat')
n_dat = n_elements(infil)
for i = 0, n_dat-1 do begin
  print,' '
  print,'File is ',infil(i)
  openr,lun,infil(i)
  header=bytarr(512)
  readu,lun,header
  resolution=byte(header,89)
  case resolution of 
    0:begin
       lx=1024
       ly=512
      end
    1:begin
       lx=512
       ly=512
      end
    2:begin
       lx=256
       ly=256
      end
  endcase
  image=bytarr(lx,ly)
  readu,lun,image
  close,lun
  if keyword_set(notv) eq 0 then begin
    wdef,0,lx,ly
    image = rotate(image,5)
    tvscl, image
  endif
  ffi_head,header,img_time=img_time
  if keyword_set(infil_in) eq 0 then begin
    if keyword_set(qstop) then stop
    print,'Return to get next image'
    pause
  endif
endfor
end