clf
clear all

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 file='2016.09.03-19.14.53.FR.CIVV.BH-Z.SAC'  % SUD FRANCE
 data=rsac(file);

 t=data(:,1);
 z=data(:,2);
% 
 dt=data1(2,1)-data1(1,1); % pas echantillonnage en temps
 n=length(t1); % nombre de points du signal
 tmin=0.; % tmin
 tmax=tmin1+(n1-1)*dt1; % tmax
% 
 z1=z-mean(z); % on retire la valeur moyenne du signal