Started a tidy up in the HMC sector. Now comfortable with the two level integrators;

to a little figure out what Guido had done & why -- but there is a neat saving of force
evaluations across the nesting time boundary making use of linearity of the leapP in dt.

I cleaned up the printing, reduced the volume of code, in the process sharing printing
between all integrators. Placed an assert that the total integration time for all integrators
must match at end of trajectory.

Have now verified e-dH = 1 for nested integrators in Wilson/Wilson runs with both
Omelyan and with Leapfrog so substantial confidence gained.

scripts/hmc.sh

@@ -1,6 +1,31 @@
 #!/bin/bash
 
 LOG=$1
-SWEEPS=$2
-grep Plaq $LOG | tail -n $SWEEPS | awk '{ S=S+$10} END { print S/NR} ' 
-grep dH $LOG | tail -n $SWEEPS | awk '{ S=S+exp(-$10)} END { print S/NR} '
+SWEEPS=`grep dH $LOG | wc -l`
+SWEEPS=`expr $SWEEPS - 80`
+echo
+echo $SWEEPS thermalised sweeps
+echo
+plaq=`grep Plaq $LOG | tail -n $SWEEPS | awk '{ S=S+$10} END { print S/NR} ' `
+echo Plaquette: $plaq
+echo
+edH=`grep dH $LOG | tail -n $SWEEPS | awk '{ S=S+exp(-$10)} END { print S/NR} '`
+echo "<e-dH>: $edH"
+
+TRAJ=`grep Acc $LOG | wc -l`
+ACC=`grep Acc $LOG | grep ACCE | wc -l`
+PACC=`expr  100 \* ${ACC} / ${TRAJ} `
+echo
+echo "Acceptance $PACC %  $ACC / $TRAJ "
+
+grep Plaq $LOG | awk '{ print $10 }' | uniq > plaq.dat
+grep dH $LOG | awk '{ print $10 }' > dH.dat
+echo set yrange [-1:1] > plot.gnu
+echo set terminal 'pdf' >> plot.gnu
+echo "set output 'plaq.${LOG}.pdf'" >> plot.gnu
+echo "plot 'plaq.dat' w l, 'dH.dat' w l " >> plot.gnu
+echo
+gnuplot plot.gnu >& gnu.errs
+open plaq.${LOG}.pdf
+
+