#This script mutes the top 10 ms of each trace in the input seg-y file. In this instance, it was used to mute
#the direct arrival so the seafloor autopicker could work correctly. 

sioseis << eof
procs diskin mute diskoa end
diskin
	ipath $1.sgy end
end
mute
	ttp 999999999 0.01 end
end
diskoa
	 opath $1_topmute.sgy end
end
end