function cfo_coarse_fract_eval(x, cpoff)

N = 1024;
Ng = 256;
L = Ng;

for d=1:3,
    k = 1;
    Nd = N-2+d;
    for nt=cpoff+1:N+Ng:length(x)-2*N-Ng,
        x1 = x(nt+1:nt+L);
        x2 = x(nt+Nd+1:nt+Nd+L);
        c(k, d) = sum(x1 .* conj(x2));
        k = k + 1;
    end
end
domega_f = 1/(2*pi*N) * angle(c)

figure(1);
plot(0:length(c)-1, domega_f*48000); grid;