#! /bin/csh
# ----------
#  Keyword:  synthetic seismogram
# ----------
if ($#argv < 1)  then
cat <<\#
/*
Create synthetic seismograms with specified power of gaussian
  
  Sparse pow=3 [sep cube params] > out.H

  if pow= is present, it must be the FIRST arg


JFC
*/
\#
else


source /opt/jon/nomad.setup
#Spike n1=300 $* title=synthetic_data| Noise var=1 gauss=1 rep=1 | Pow pow=3 $1

Spike n1=300 $* title=synthetic_data > junk99.H
<junk99.H  Noise var=1 gauss=1 rep=1 >junk101.H
<junk101.H Pow pow=3 $1


endif

