Import Geant4 8.1.0 source tree

2016-06-09 14:44:26 +02:00
parent 8a51e0bc40
commit 216a75eeb1
8717 changed files with 360418 additions and 141343 deletions
@@ -0,0 +1,28 @@
+
+      SUBROUTINE UHINIT
+*
+*
+#include "histo.inc"
+*
+      CHARACTER*50 title(6)
+*
+      data title /
+     1    'scattered primary particle: energy spectrum',					 
+     2    'scattered primary particle: costheta distribution',
+     3    'charged secondaries: energy spectrum',					 
+     4    'charged secondaries: costheta distribution',
+     5    'neutral secondaries: energy spectrum',					 
+     6    'neutral secondaries: costheta distribution'     /          			 	 
+*
+      if (histo(idhist)) call hdelet(idhist)
+*      
+      vmin = valmin
+      vmax = valmax      	
+      call hbook1(idhist,title(idhist),nbBins,vmin,vmax,0.)
+*      
+      histo   (idhist) = .true.
+      binWidth(idhist) = (valmax-valmin)/nbBins
+      if (valunit.le.0.) valunit = 1.                
+      histUnit(idhist) = valunit        
+*
+      END