4 if [ -z $JPP_DIR ]; then
 
    5     echo "Variable JPP_DIR undefined."
 
    9 source $JPP_DIR/setenv.sh $JPP_DIR >& /dev/null
 
   11 set_variable:  DEBUG       ACOUSTICS_DEBUG        2
 
   12 set_variable:  WORKDIR     ACOUSTICS_WORKDIR      `pwd`
 
   13 set_array      MULS        -2.0e-2 -1.7e-2 -1.6e-2 -1.5e-2 -1.4e-2 -1.3e-2 -1.2e-2 -1.1e-2 -1.0e-2 -0.9e-2 -0.9e-2 -0.8e-2 -0.5e-2 +0.0e-2 +0.5e-2
 
   14 set_variable   FORMULA     "[0] + [1] * ((x-[2])*(x-[2])/([3]*[3]))"
 
   15 set_variable:  FORMAT      GRAPHICS_FORMAT        gif
 
   16 set_variable+  BATCH       GRAPHICS_BATCH         -B
 
   19     usage "$script <detector specific pre-calibration script> <option>"\
 
   20           "\nAuxiliary script to make scan of pre-stretching of detector strings (see JEditDetector)."\
 
   21           "\nPossible options: run, plot or fit."
 
   24 if (( $# < 1 || $# > 2)); then
 
   25     fatal "Wrong number of arguments."
 
   30 set_variable  SCRIPT              $argv[1]
 
   31 set_variable  OPTION              $argv[-1]
 
   33 if [[ $OPTION != "run" && $OPTION != "plot" && $OPTION != "fit" ]]; then
 
   34     fatal "Invalid option $OPTION."
 
   37 if [[ $OPTION == "run" ]]; then
 
   39     for MUL in $MULS[*]; do
 
   41         set_variable  DIR                $WORKDIR/mul=$MUL
 
   46         # set varibales in script
 
   48         set_variable  ACOUSTICS_MUL      $MUL
 
   50         nohup $SCRIPT >& all.log &
 
   54 if [[ $OPTION == "plot" || $OPTION == "fit" ]]; then
 
   56     set_variable  ACOUSTICS_ZMUL_TXT    ${TMPDIR:-/tmp}/acoustics-zmul.txt
 
   57     set_variable  ACOUSTICS_ZMUL_ROOT   ${TMPDIR:-/tmp}/acoustics-zmul.root
 
   59     rm -f $ACOUSTICS_ZMUL_TXT >& /dev/null
 
   61     for MUL in $MULS[*]; do
 
   63         set_variable  DIR                $WORKDIR/mul=$MUL
 
   64         set_variable  FILE               `ls $DIR/stage-(1|A).log`
 
   66         tail -1 $FILE | grep "Elapsed time" >& /dev/null
 
   68         if (( $? == 0 )); then
 
   70             set_array  RESULT  `grep -v "warning" $FILE | tail -2 | head -1`
 
   72             printf "%4.1e %6.3f\n" $MUL $RESULT[-1]  >>  $ACOUSTICS_ZMUL_TXT
 
   77         -f $ACOUSTICS_ZMUL_TXT                    \
 
   78         -o $ACOUSTICS_ZMUL_ROOT
 
   80     XMIN=`sort -k1g $ACOUSTICS_ZMUL_TXT | head -1 | awk '{ print $1 }'`
 
   81     XMAX=`sort -k1g $ACOUSTICS_ZMUL_TXT | tail -1 | awk '{ print $1 }'`
 
   83     let "XMIN = $XMIN - 1.0e-3"
 
   84     let "XMAX = $XMAX + 1.0e-3"
 
   86     if [[ $OPTION == "fit" ]]; then
 
   88         sort -gr -k2gr $ACOUSTICS_ZMUL_TXT | tail -1 | read X Y
 
   91             -f ${ACOUSTICS_ZMUL_ROOT}:\.\*            \
 
   92             -o ${TMPDIR:-/tmp}/fit.root                          \
 
  100         set_array P2 `JPrintFit -f ${TMPDIR:-/tmp}/fit.root:\.\* -@p2`
 
  102         printf "Optimal stretching factor %8.2e\n" $P2[1]
 
  104         mv ${TMPDIR:-/tmp}/fit.root $ACOUSTICS_ZMUL_ROOT
 
  109         -f $ACOUSTICS_ZMUL_ROOT:\.\*        \
 
  114         -o acoustics-zmul.$FORMAT           $BATCH