function Y=locmax(X)

%             Y=locmax(X)
%
% Opération consistant à remplacer le vecteur ligne X par le vecteur ligne
% où tous les X(k) tels que |X(k)| n'est pas maximum local de |X| sont 
% remplacés par 0. Cette routine constitue ici un sous-programme dans gaussq.  

N=length(X);
Y1=[max(X,zeros(1,N)), 1];
Y2=[max(-X,zeros(1,N)),1];
X1=localmax(Y1);
X2=localmax(Y2);
YY=X1-X2;
Y=YY(1:N);