Import Geant4 6.2.0 source tree

2016-06-09 10:56:29 +02:00
parent 1d812b78b1
commit e083ffb441
1415 changed files with 111223 additions and 21207 deletions
@@ -16,13 +16,15 @@
 	if (histo(k)) call hfill (k,EdepAbs(k)/histUnit(k),0.,1.)
      enddo
 *
-*     cumul energy deposited and charged track length
+*     cumul energy deposited, charged track length and energy leakage
      do k=1,NbAbsor
        sumEdep(k) = sumEdep(k) + EdepAbs(k)
        sumTrck(k) = sumTrck(k) + TrckAbs(k)
+	sumElea(k) = sumElea(k) + EleaAbs(k)/NbLayer 
 *
        su2Edep(k) = su2Edep(k) + EdepAbs(k)**2
        su2Trck(k) = su2Trck(k) + TrckAbs(k)**2
+	su2Elea(k) = su2Elea(k) + (EleaAbs(k)/NbLayer)**2 
      enddo      
 *
 * *** print