#!/bin/sh

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

cat > W.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 256 0 0
EOF
hprep96 -M W.mod -d dfile -ALL -HS ${HS} -HR 0 -TH -BH
hwhole96strain
hpulse96strain -TEST1 -V -p -l 2 -FMT 2
