xmute

su 的源代码库

#! /bin/sh
# Muting data:
#set -x

## Set parameters
data=dsc01324.su		# A panel of data to be muted
mutepicks=mutepicks.$data	# output file of tmute= and xmute= values
parfile=par.$data

key=tracl

suximage < $data mpicks=$mutepicks wbox=1000 hbox=500 

sort < $mutepicks  -n |
mkparfile string1=tmute string2=xmute > $parfile


sumute < $data par=$parfile key=$key  > mute.$data

exit 0