# History file 'len-grd.h' to generate PostScript files with the sections
# across the model with aLENticular inclusion, displaying the velocities
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Input files required:
 #chk.pl: "forms/" "echo.pl"
 #chk.pl: "model/" "model.dat"

# Creating input data file for 'grid.for':
  echo.pl: "' ' 'len-vel.out' ' ' /"  >grid.tmp
  echo.pl: "/                      " >>grid.tmp

# Grid dimensions, initial position, and plotting parameters:
  MODEL='model.dat'
  N1=601    N2=1    N3=301
  D1=0.1    D2=0.1  D3=0.1
  O1=0      O2=0    O3=-25
  VMIN=0
  VCIRC=-6  VREF=3
  HSIZE=15.025
# Running programs to plot the velocities:
  grid:  'len-grd.h' 'grid.tmp' /                  # Gridding velocities
  grdps: 'len-grd.h' 'len-vel.out' 'len-vel1.ps' / # Plotting velocities

# Shifting the grid:
  O2=5
  grid:  'len-grd.h' 'grid.tmp' /                  # Gridding velocities
  grdps: 'len-grd.h' 'len-vel.out' 'len-vel2.ps' / # Plotting velocities

# Shifting the grid:
  O2=10
  grid:  'len-grd.h' 'grid.tmp' /                  # Gridding velocities
  grdps: 'len-grd.h' 'len-vel.out' 'len-vel3.ps' / # Plotting velocities

# ======================================================================

# List of output PostScript figures:
# len-vel1.ps \  Individual sections across the model with LENticular
# len-vel2.ps  > inclusion, displaying the P-wave velocities
# len-vel3.ps /