6 if [ -z $JPP_DIR ];
then
7 echo "Variable JPP_DIR undefined."
11 source $JPP_DIR/setenv.sh $JPP_DIR >& /dev/
null
16 set_variable FORMULA
"[0] * exp(-0.5 * (x-[1])*(x-[1]) / ([2]*[2]))"
19 set_variable TMAX_MS +1.0
21 if ( do_usage $* );
then
22 usage "$script <detector file> <input file>"
25 if (( $# != 2 ));
then
26 fatal
"Wrong number of arguments."
32 eval `JPrintDetector -
a $DETECTOR -O IDENTIFIER`
33 eval `JPrintDetector -
a $DETECTOR -O SUMMARY`
35 source JAcoustics.sh $DETECTOR_ID
42 get_tripods
$WORKDIR/tripod.txt TRIPODS
44 for EMITTER
in ${(@
k)TRIPODS};
do
49 -
o "$WORKDIR/canberra\[${EMITTER}\].root" \
60 -
f "${HISTOGRAMS//\.root/.root:.*toa}" \
67 let
XMIN=
"$X - 5.0*$RMS"
68 let XMAX=
"$X + 5.0*$RMS"
73 -@
"p0 = GetMaximum" \
80 let
XMIN=
"$TMIN_MS * 1.0e-3"
81 let XMAX=
"$TMAX_MS * 1.0e-3"
95 kill_child_processes_at_exit
106 echo -
n "Creating graphics for string $STRING.."
110 for EMITTER
in ${(@
k)TRIPODS};
do
117 for (( FLOOR = $FIRST_FLOOR; $FLOOR <= $LAST_FLOOR; FLOOR += 1 ));
do
124 if [[ -
n "$N" ]] && (( $N >= $NUMBER_OF_ENTRIES ));
then
129 let
XMIN=
"$X - 3.0*$RMS"
130 let XMAX=
"$X + 3.0*$RMS"
133 -
f $WORKDIR/canberra\[$EMITTER\].root:${MODULE} \
135 -@
"p0 = GetMaximum" \
145 set_array P1 `JPrintFit -
f $WORKDIR/fit.root:\.\* -@
p1`
146 set_array P2 `JPrintFit -
f $WORKDIR/fit.root:\.\* -@
p2`
148 ((P1[1] = $P1[1] * 1.0e3))
# [ms]
149 ((P2[1] = abs($P2[1]) * 1.0e3))
# [ms]
151 printf
"%2d %9.6f %9.6f\n" $FLOOR $P1[1] $P2[1] >> $STRING_TXT
167 -
f "$HISTOGRAMS[*]" \
170 -y
"$TMIN_MS $TMAX_MS" \
178 echo " -> $WORKDIR/string_${STRING}.gif"
void set_variable(const std::string &name, const std::string &value)
Set environment variable.
do JCanberra a $DETECTOR f $INPUT_FILE o $WORKDIR canberra[${EMITTER}\] root T $WORKDIR tripod txt V $WORKDIR sound_velocity txt E $EMITTER d $DEBUG!done HISTOGRAMS
clean eval JPrintDetector a $DETECTOR O IDENTIFIER eval JPrintDetector a $DETECTOR O SUMMARY set_variable STRING
then fatal No sound hydrophone file $HYDROPHONE_TXT fi JGraph f $HYDROPHONE_TXT o $HYDROPHONE_ROOT sort gr k
do set_variable STRING_TXT $WORKDIR string_
do set_array DAQHEADER JPrintDAQHeader f
do JCanberra a $DETECTOR f $INPUT_FILE o $WORKDIR canberra[${EMITTER}\] root T $WORKDIR tripod txt V $WORKDIR sound_velocity txt E $EMITTER d $DEBUG!done kill_child_processes_at_exit attach getModule a $DETECTOR typeset Z STRING typeset Z FLOOR set_variable FIRST_FLOOR for STRING in $STRINGS[*]
then fatal Invalid string $STRING
do set_variable OUTPUT_DIRECTORY $WORKDIR T
then JFileTuna f $INPUT_FILE
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
alias put_queue eval echo n
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 CHECK_EXIT_CODE typeset A TRIPODS get_tripods $WORKDIR tripod txt TRIPODS for EMITTER in
then usage $script[input file[working directory[option]]] nWhere option can be N
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
const JModule & getModule(const JDetector &detector, const JModuleLocation &location)
find module with a given string and floor number
then usage $script[input file[working directory[option]]] nWhere option can be E
#define DEBUG(A)
Message macros.