# Calculation and smoothing of the optimum initial
# parameters of Gaussian beams
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# see  Zacek, K. (2006): Optimization of the Shape of Gaussian Beams.
#      Stud. Geophys. Geod., 50, 346-366.
#
# This example shows calculation for shot 77.
# Programs matmul and invpts need MRAM=12000000 in file "ram.inc".

# Input files required
  chk.pl: "crt/"      "codep.dat"
  chk.pl: "crt/"      "writall.dat"
  chk.pl: "forms/"    "echo.pl"
  chk.pl: "forms/"    "append.pl"
  chk.pl: "forms/"    "copy.pl"
  chk.pl: "forms/"    "del.pl"
  chk.pl: "forms/"    "div.cal"
  chk.pl: "data/mar/" "mar-mod.dat"
  chk.pl: "data/mar/" "mgb-crt.dat"
  chk.pl: "data/mar/" "mgp-wri.dat"
  chk.pl: "data/mar/" "mgb-m0.dat"
  chk.pl: "data/mar/" "mgb-opt1.h"
  chk.pl: "data/mar/" "mgb-grd.h"
  chk.pl: "data/mar/" "gb-ry.cal"
  chk.pl: "data/mar/" "gb-s.cal"
  chk.pl: "data/mar/" "gb-yd.cal"
  chk.pl: "data/mar/" "gb-ry0m.cal"
  chk.pl: "data/mar/" "gb-tau.cal"
  chk.pl: "data/mar/" "mgbstep.ini"
  chk.pl: "data/mar/" "gb-sob11.dat"
  chk.pl: "data/mar/" "mgp-step.h"
  chk.pl: "data/mar/" "mgb-smo.h"

# Calculation of the optimum initial parameters of Gaussian beams
# and calculation of discretization steps for decomposition
# and migration
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  echo.pl: "ISRC=77" "> gbo.tmp"
  append.pl: "gbo.tmp" "mgb-opt1.h"
  go.pl: "gbo.tmp" "gbo.out"
  echo.pl: "COEF1=1.  COEF2=19.5" "> smo.tmp"
  append.pl: "smo.tmp" "mgb-smo.h"
  go.pl: "smo.tmp" "smo.out"
  echo.pl: "ISRC=77" "> gp-step.tmp"
  append.pl: "gp-step.tmp" "mgp-step.h"
  go.pl: "gp-step.tmp" "gp-step.out"
  copy.pl:"r0mnew.out" "r0m077.out"
  copy.pl:"y0mnew.out" "y0m077.out"
  copy.pl:"mgpstep.out" "step077.out"