FUNCTION read_realft


; ---------
; Open file
; ---------

  OPENR, 1, 'realft_output.dat'


; -------------------------------------------
; Determine array size (assumes 4-byte reals)
; -------------------------------------------

  file_info = FSTAT( 1 )
  n         = file_info.size / 4
  MESSAGE, STRING( n ) + ' real points to be read', /INFO


; --------------------------------
; Declare arrays and read the data
; --------------------------------

  realft_data = FLTARR( n )
  READU, 1, realft_data
  CLOSE, 1


; ---------------
; Return the data
; ---------------

  RETURN, realft_data

END