FUNCTION read_256_t_fun, filename
; reads a 256 element transfer function and returns it
; as a complex array
;
; 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/24/03

t_fun = COMPLEXARR(256)
;
OPENR, 1, filename
FOR i=0,255 DO BEGIN
  READF, 1, glopo_real
  READF, 1, glopo_imag
  t_fun[i] = COMPLEX(glopo_real, glopo_imag)
ENDFOR
CLOSE, 1

RETURN, t_fun
END