function omega_coarse = fdet_coarse(x, N, omega_min, omega_step, omega_max)

omega_range = (omega_min:omega_step:omega_max);

for k=1:lge(omega_range)
    x_est = exp(-j*(2*pi*omega_range(k)*(0:N-1)' + 0));
    dmod(k) = sum(x(1:N).*x_est);
end;
[v maxk] = max(abs(dmod));
omega_coarse = omega_range(maxk);