;+
; NAME:
; ftok
;
;
; PURPOSE:
; convert degrees F to K
;
;
; CATEGORY:
; conversion
;
;
; INPUTS:
; Tf: Temperature
;
;
; OUTPUTS:
; Temperature in K
;
;
; MODIFICATION HISTORY:
;       Wed Nov 5 22:08:50 2003, Brian Larsen
;
;		written
;-
function Ftok, Tf
  compile_opt strictarr
  return, ((5./9.)*(Tf-32.)+273.15)
end