4if [ -z $JPP_DIR ]; then
 
    5    echo "Variable JPP_DIR undefined."
 
    9source $JPP_DIR/setenv.sh $JPP_DIR >& /dev/null
 
   12set_variable   WORKDIR     ${TMPDIR:-/tmp}                           
 
   13set_variable   DIR         $JPP_DIR/examples/JAcoustics/  
 
   14set_array      GRID        18 60 570
 
   15set_variable:  FORMAT      GRAPHICS_FORMAT        gif
 
   16set_variable+  BATCH       GRAPHICS_BATCH         -B
 
   19    usage "$script <a> <b>"
 
   23    set_variable  A               $argv[1]
 
   24    set_variable  B               $argv[2]
 
   26    fatal "Wrong number of arguments."
 
   30for TX in 0.01 0.05 0.10; do
 
   36        -o $WORKDIR/geometry\[${TX}\].txt
 
   39        -f $WORKDIR/geometry\[${TX}\].txt    \
 
   40        -o $WORKDIR/geometry\[${TX}\].root   >& /dev/null
 
   42    tail -1 $WORKDIR/geometry\[${TX}\].txt   | read XMAX ZMAX
 
   45set_variable  GRAPHS  `ls $WORKDIR/geometry\[*\].root | sed 's/.root/.root:\.\*/g' `
 
   47let "XMAX = $XMAX    +  2.0"
 
   48let "YMAX = $GRID[3] + 10.0"
 
   60    -o geometry_${A}_${B}.$FORMAT    $BATCH