#!/bin/sh

rm -f 00*
HS=$1
R=$2

cat > HALF.mod << EOF
MODEL.01
CUS Model with Q from simple gamma values
ISOTROPIC
KGS
FLAT EARTH
1-D
CONSTANT VELOCITY
LINE08
LINE09
LINE10
LINE11
  H(KM) VP(KM/S) VS(KM/S) RHO(GM/CC)   QP   QS  ETAP  ETAS  FREFP  FREFS
 40.0000  6.00  3.5  2.7 0 0 0 0 1 1
EOF

cat > dfile << EOF
${R} 0.05 512 0 0
EOF
hprep96 -M  HALF.mod -d dfile -ALL -HS ${HS} -HR 0 -TF -BH  -XF 8
sshspec96strain 
hpulse96strain -TEST1 -V -p -l 2 -FMT 2 -HALF
