#! /bin/csh
#
##
##Script to generated synthetic waveform data from 4 stations. Note the focal
##mechanism prescribed below.
##
putmech in=gil7_100d8 out=tmp azimuth=0. strike=23. rake=45. dip=67 moment=1.23e+24
sac << eof
cuterr fillz
cut -10 400
read tmp.tan tmp.rad tmp.ver
write over
quit
eof
\cp tmp.tan tmp1
\cp tmp.rad tmp2
\cp tmp.ver tmp3
sac2helm out=stat1.dat
putmech in=gil7_200d8 out=tmp azimuth=83. strike=23. rake=45. dip=67 moment=1.23e+24
sac << eof
cuterr fillz
cut -10 400
read tmp.tan tmp.rad tmp.ver
write over
quit
eof
\cp tmp.tan tmp1
\cp tmp.rad tmp2
\cp tmp.ver tmp3
sac2helm out=stat2.dat
putmech in=gil7_300d8 out=tmp azimuth=202. strike=23. rake=45. dip=67 moment=1.23e+24
sac << eof
cuterr fillz
cut -10 400
read tmp.tan tmp.rad tmp.ver
write over
quit
eof
\cp tmp.tan tmp1
\cp tmp.rad tmp2
\cp tmp.ver tmp3
sac2helm out=stat3.dat
putmech in=gil7_400d8 out=tmp azimuth=233. strike=23. rake=45. dip=67 moment=1.23e+24
sac << eof
cuterr fillz
cut -10 400
read tmp.tan tmp.rad tmp.ver
write over
quit
eof
\cp tmp.tan tmp1
\cp tmp.rad tmp2
\cp tmp.ver tmp3
sac2helm out=stat4.dat
