4if [ -z $JPP_DIR ]; then
 
    5    echo "Variable JPP_DIR undefined."
 
    9source $JPP_DIR/setenv.sh $JPP_DIR >& /dev/null
 
   11set_variable:  DEBUG       ACOUSTICS_DEBUG        2
 
   12set_variable:  WORKDIR     ACOUSTICS_WORKDIR      ./
 
   13set_variable   FORMULA     "[0] + [1] * log(1.0 + 0.5*(x-[2])*(x-[2])/([3]*[3]))"  
 
   14set_variable:  FORMAT      GRAPHICS_FORMAT        gif
 
   15set_variable+  BATCH       GRAPHICS_BATCH         -B
 
   18    usage "$script <string identifier>"
 
   22    fatal "Wrong number of arguments."
 
   25set_variable  STRING              $argv[1]
 
   27set_variable  DETECTORXY_TXT      $WORKDIR/detectorxy_${STRING}.txt
 
   29sort -gr -k 4,4 $DETECTORXY_TXT | tail -1 | read X Y CHI2 RMS
 
   31printf "optimum %7.3f %7.3f %7.3f %7.3f\n" $X $Y $CHI2 $RMS
 
   33awk -v Y=$Y '{ if ( $2 == Y )  { printf "%7.3f %7.3f %7.3f\n", $1, $3, $4 } }' $DETECTORXY_TXT  >!  $WORKDIR/detectorx_${STRING}.txt
 
   34awk -v X=$X '{ if ( $1 == X )  { printf "%7.3f %7.3f %7.3f\n", $2, $3, $4 } }' $DETECTORXY_TXT  >!  $WORKDIR/detectory_${STRING}.txt
 
   38    set_variable  DETECTOR_TXT        $WORKDIR/detector${var}_${STRING}.txt
 
   39    set_variable  DETECTOR_ROOT       $WORKDIR/detector${var}_${STRING}.root
 
   45    sort -gr -k 2,2 $DETECTOR_TXT | tail -1 | read X Z RMS
 
   51        -f ${DETECTOR_ROOT}:\.\*                  \
 
   52        -o $WORKDIR/fit.root                      \
 
   61    mv $WORKDIR/fit.root $DETECTOR_ROOT
 
   64        -f ${DETECTOR_ROOT}:\.\*                                  \
 
   65        -> "#Delta${var} [m]"                                    \
 
   68        -T "[${(l:4::0::0:)STRING}].${var}"                       \
 
   69        -o $WORKDIR/detector${var}_${(l:4::0::0:)STRING}.$FORMAT  $BATCH