% Mute Direct Wave
% In the Sigsbee 2B synthetic data
% The water velocity is 4920 ft/sec
% The Sample rate is 8 ms
% The receiver interval is 75 ft
% Write by Yibo Wang, UTAM 2007
function [output]=DirectWaveMute(input)
tmp=75/4920/0.008;
wl=8; % half wavelet length, you can see the data.
for i=1:348
    index=ceil((i-1)*tmp)+1+wl;
    input(i,1:index)=0;
end
output=input;
