Import Geant4 3.1.0 source tree

2016-06-08 16:03:00 +02:00
parent cfcb558cfe
commit 137e303ecc
2843 changed files with 37082 additions and 38426 deletions
@@ -5,6 +5,7 @@
 *
 #include "calor.inc"
 #include "celoss.inc"
+#include "histo.inc"
 #include "geant321/gckine.inc"
 *
      CHARACTER*20 filnam
@@ -23,6 +24,10 @@
      CALL FFKEY('CALOR',NbAbsor,4,'MIXED')
      CALL FFKEY('MATE' ,materAbs(1),MaxAbs,'INTEGER')
      CALL FFKEY('THICK',thickAbs(1),MaxAbs,'REAL')
+* *** production cuts (bcute, dcute and ppcutm) for each absorber       
+      CALL FFKEY('CUTPR',prodcut(1) ,4*MaxAbs,'REAL')
+* *** histograms
+      CALL FFKEY('HISTO',idhist,4,'MIXED')            
 *
 * *** read data cards
      CALL GFFGO