Import Geant4 7.0.0 source tree

2016-06-09 11:11:55 +02:00
parent e083ffb441
commit 516dbf1a58
5914 changed files with 202605 additions and 71141 deletions
@@ -4,12 +4,23 @@
 *     To book the user's histograms
 *
 #include "histo.inc"
+#include "calor.inc"
 *
-      character*25 title
+      character*50 title
 *
+      if (idhist.gt.MaxHist) return
+*      
      if (histo(idhist)) call hdelet(idhist)      
 *
-      title = 'Edep in absorber '//char(ichar('0')+(idhist-1))
+      if (idhist.lt.MaxAbs)
+     +  title = 'Edep in absorber '//char(ichar('0')+(idhist))
+      if ((idhist.gt.MaxAbs).and.(idhist.lt.2*MaxAbs))
+     +  title = 'Edep long. profile in absorber '
+     +          //char(ichar('0')+(idhist-MaxAbs))//' (MeV)'
+      if (idhist.eq.(2*MaxAbs+1))
+     +  title = 'Forward energy flow of primary particle (MeV)'
+      if (idhist.eq.(2*MaxAbs+2))
+     +  title = 'Forward energy flow of secondary particles (MeV)'               
 *      
      call hbook1(idhist,title,nbBins,valmin,valmax,0.)
 *