function read_point_file, file
;+
; NAME:
;	READ_POINT_FILE
;
;
; PURPOSE:
;	Reads a height-time file.
;
;
; CATEGORY:
;	UTILS
;
;
; CALLING SEQUENCE:
;	points = read_point_file(file)
;
;
; INPUTS:
;	file	string	The file to be read.
;
;
; OUTPUTS:
;	points	struct	The list of points.
;
;
; MODIFICATION HISTORY:
;	Original: 25/11/08; SJT
;-

if ~file_test(file) then begin
    smei_msg, /warn, "File not found"
    return, 0
endif

lines = file_lines(file)
rv = replicate({smei_point}, lines-1)

fmt = "(2F15.0,F8.0,f7.0,2f7.0,g14.0,f7.0,f7.0,f8.0,z5," $
  +"f9.0,f8.0,f7.0,2i5)"

openr, ilu, /get, file
inln = ''
readf, ilu, inln                ; Skip the header
rv1 = {smei_point}

for j = 0, lines-2 do begin
    readf, ilu, rv1, format = fmt
    rv[j] = rv1
endfor

free_lun, ilu

return, rv

end