fi_freq.pro (Kronos IDL library)

;+
; Contains the fi_freq procedure
;
; :Author:
;    Baptiste Cecconi
;
; :History:
;    2006/03/07: Created
;
;    2006/03/07: Last Edit
;-
;
;+
; fi_freq is a function that <behavior desc here>
;
; :Uses:
;    freq_abc
;
; :Returns:
;    <return desc here>
;
; :Params:
;    FI: in, required, type=sometype
;       A parameter named FI
;-
FUNCTION FI_FREQ,FI

nfi = n_elements(fi)

if nfi eq 1 then ffi = [fi] else ffi = fi

fi_b   = ffi/10000000l
fi_ccc = (ffi mod 10000000l) / 10000l
fi_ff  = (ffi mod 10000l) / 100l
fi_nn  = (ffi mod 100l)

wabc = where(fi_b le 2, count_abc)
wh12 = where(fi_b ge 3, count_h12)

ff = fltarr(nfi)

if count_abc ne 0 then begin
  fabc = [freq_abc(8),freq_abc(16),freq_abc(32)]
  ff(wabc) = fabc(fi_ff(wabc)*fi_b(wabc)+(fi_ff(wabc)-8l)*3l+fi_nn(wabc))
endif

if count_h12 ne 0 then begin
  ff(wh12) = (float(fi_ccc(wh12))+float(2l*fi_nn(wh12)-fi_ff(wh12)+1l)/float(2l*fi_ff(wh12)))*25.
endif

return,ff
END