#!/bin/sh
### ====================================================================
### Model with LENticular inclusion: Boundary-value rays corresponding
### to the plane wave incident at the Bottom of the model (Unix)
### ====================================================================
### Ray tracing (refracted wave):
### ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo "'lenb-crt.dat' /" >crt.tmp
echo                   >>crt.tmp
    crt                 <crt.tmp
rm                       crt.tmp
### Note: The blank line in crt.tmp is required only if 'scronum.for' is
###       replaced with 'scropc.for'.  Otherwise, the above lines can be
###       simplified to a single line:
###       echo "'lenb-crt.dat' /"|crt
### ....................................................................
### Supplementing receivers with the third coordinate:
### ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo "'model.dat' 'len-rec.dat' 'len-rec.tmp' 2 3 /"|intf
### ....................................................................
### Rewriting the travel times at the receivers into a formatted file:
### ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo "'len-rec.tmp' 3* 'lenb-rec.out' 4 0 1 0 /"|crtpts
### ====================================================================