function ncero=zerocross(X)

% ---- First zero crossing in signal X ----

I=find(sign(X)~=sign(X(1)));
if ~isempty(I)
ncero=I(1); ncero=ncero-(abs(X(ncero-1))<abs(X(ncero)));  % JGM
else ncero=[];
end