1% load_comp.m
2% David Rowe Sep 2015
3
4function s = load_comp(fn)
5  fs=fopen(fn,"rb");
6  s = fread(fs,Inf,"float32");
7  ls = length(s);
8  s = s(1:2:ls) + j*s(2:2:ls);
9endfunction
10