PRO predict_from_t_fun, file_path, r_in_file, r_in_vari_file, b_out_file, b_out_vari_file, $
    t_fun, times, r_in, r_in_vari, b_out, b_out_vari, b_out_pred
; Predicts the behavior of phase based on an existing transfer function
;
; Author:  Robert Kessel
;          Electro-Optics Technology Section
;          Code 8123
;          Naval Research Laboratory
;          Washington, D.C.  20375-5354
; email:   kessel@ncst.nrl.navy.mil
;
; This code was written for Bill Palya's and Don Walter's
; use at JSU.  However, anyone else who finds it useful
; should feel free to use it, rewrite it, or whatever else,
; save charging any money, goods or services from any other
; person for the code or use thereof.
; 10/22/03

; get data and load arrays
n_head = 0
n_sessions = 20
times = 2000.*FINDGEN(256)/256.
r_in = read_blk_ave_4_data_1024_v2(file_path, r_in_file, n_head)
r_in_vari = read_blk_ave_4_data_1024_v2(file_path, r_in_vari_file, n_head)
b_out = read_blk_ave_4_data_1024_v2(file_path, b_out_file, n_head)
b_out_vari = read_blk_ave_4_data_1024_v2(file_path, b_out_vari_file, n_head)
b_out_pred = FINDGEN(256)

; predict behavior
r_of_f = FFT(r_in, -1)
b_pred_of_f = r_of_f*t_fun
b_out_pred = FFT(b_pred_of_f, 1)

END