4 if [ -z $JPP_DIR ]; 
then 
    5     echo "Variable JPP_DIR undefined." 
    9 source $JPP_DIR/setenv.sh $JPP_DIR >& /dev/
null 
   14 set_variable  FORMULA             
"[0] + [1] * log(1.0 + 0.5*(x-[2])*(x-[2])/([3]*[3]))" 
   16 if ( do_usage $* ); 
then 
   17     usage "$script [<tripod file>]" 
   21     fatal 
"Wrong number of arguments." 
   24 source JAcoustics.sh --
 
   28 if [[ ! -
f $TRIPOD3Z_TXT ]] 
then 
   29     fatal 
"No detector data file $TRIPOD3Z_TXT." 
   32 sort -gr -
k 4,4 $TRIPOD3Z_TXT | tail -1 | 
read X 
Y Z CHI2 RMS
 
   34 printf 
"optimum %7.3f %7.3f %7.3f %7.3f %7.3f\n" $X $Y $Z $CHI2 $RMS
 
   36 awk                 
'$1  ~ /^#/ { for (i = 2; i <= NF; ++i ) { printf " %s", $i }}' $TRIPOD3Z_TXT  |  
read A B 
C 
   38 awk -
v Y=$Y -
v Z=$Z 
'$1 !~ /^#/ { if ( $2 == Y && $3 == Z )  { printf "%7.3f %7.3f %7.3f\n", $1, $4, $5 } }' $TRIPOD3Z_TXT  >!  
$WORKDIR/
tripod3z_${
A}.txt
 
   39 awk -
v X=$X -
v Z=$Z 
'$1 !~ /^#/ { if ( $1 == X && $3 == Z )  { printf "%7.3f %7.3f %7.3f\n", $2, $4, $5 } }' $TRIPOD3Z_TXT  >!  
$WORKDIR/
tripod3z_${B}.txt
 
   40 awk -
v X=$X -
v Y=$Y 
'$1 !~ /^#/ { if ( $1 == X && $2 == Y )  { printf "%7.3f %7.3f %7.3f\n", $3, $4, $5 } }' $TRIPOD3Z_TXT  >!  
$WORKDIR/
tripod3z_${
C}.txt
 
   42 for TRIPOD 
in $A $B $C; 
do 
   54         -
f ${TRIPOD_ROOT}:\.\*                    \
 
   63     set_array P2 `JPrintFit -
f $WORKDIR/fit.root:\.\* -@
p2`
 
   65     printf 
"nominal %2d %7.3f %7.3f\n" $TRIPOD   0.0  `JPrintFit -
f $WORKDIR/fit.root:\.\* -x 
"  0.0 "`
 
   66     printf 
"optimal %2d %7.3f %7.3f\n" $TRIPOD $P2[1] `JPrintFit -
f $WORKDIR/fit.root:\.\* -x 
"$P2[1]"`
 
   68     if (( $# == 1 )); 
then 
   69         JEditTripod -
f $argv[1] -
T "$TRIPOD add 0.0 0.0 $P2[1]"  
   78     let 
XMIN=
"$XMIN - 0.05" 
   79     let XMAX=
"$XMAX + 0.05" 
   82         -
f $TRIPOD_ROOT:\.\*                      \
 
void set_variable(const std::string &name, const std::string &value)
Set environment variable. 
 
bool read(Vec &v, std::istream &is)
Read a Vec(tor) from a stream. 
 
then fatal No sound hydrophone file $HYDROPHONE_TXT fi JGraph f $HYDROPHONE_TXT o $HYDROPHONE_ROOT sort gr k
 
do set_array DAQHEADER JPrintDAQHeader f
 
then fatal Wrong number of arguments fi set_variable STRING $argv[1] set_variable DETECTORXY_TXT $WORKDIR $DETECTORXY_TXT tail read X Y CHI2 RMS printf optimum n $X $Y $CHI2 $RMS awk v Y
 
do set_variable TRIPOD_TXT $WORKDIR tripod3z_
 
static const double C
Physics constants. 
 
do set_variable OUTPUT_DIRECTORY $WORKDIR T
 
then fatal Wrong number of arguments fi set_variable STRING $argv[1] set_variable DETECTOR_TXT $WORKDIR $DETECTOR_TXT tail read X Y Z RMS let XMIN
 
then echo Variable JPP_DIR undefined exit fi source $JPP_DIR setenv sh $JPP_DIR &dev null set_variable ACOUSTICS_DEBUG
 
*set_variable DETECTOR $argv[1] set_variable INPUT_FILE $argv[2,-2] set_variable OUTPUT_FILE $argv[-1]
 
then JMuonMCEvt f $INPUT_FILE o $INTERMEDIATE_FILE d
 
then fatal Wrong number of arguments fi set_variable DETECTOR $argv[1] set_variable INPUT_FILE $argv[2] eval JPrintDetector a $DETECTOR O IDENTIFIER eval JPrintDetector a $DETECTOR O SUMMARY source JAcoustics sh $DETECTOR_ID typeset A TRIPODS get_tripods $WORKDIR tripod txt TRIPODS for EMITTER in
 
then fatal Invalid tripod $TRIPOD
 
then usage $script< detector file >< inputfile > fi case set_variable WORKDIR
 
source $JPP_DIR setenv csh $JPP_DIR eval JShellParser o a A
 
esac $JPP_BIN JLogger sh $LOGGER until pgrep JGetMessage</dev/null > dev null
 
#define DEBUG(A)
Message macros.