Import Geant4 9.1.0 source tree

examples/extended/electromagnetic/TestEm5/geant3/src/gutrak.F

@@ -41,20 +41,20 @@
 *
 *     energy spectrum at exit
 *
-      if (transmit.and.charged) id =  4
-      if (transmit.and.neutral) id =  8
-      if (reflect .and.charged) id = 11
-      if (reflect .and.neutral) id = 14
+      if (transmit.and.charged) id = 10
+      if (transmit.and.neutral) id = 20
+      if (reflect .and.charged) id = 30
+      if (reflect .and.neutral) id = 40
       if (id.ne.0.and.histo(id)) then
         call hfill (id,gekin/histUnit(id),0.,1.)
       endif
 *
 *     space angle distribution at exit
 *
-      if (transmit.and.charged) id =  5
-      if (transmit.and.neutral) id =  9
-      if (reflect .and.charged) id = 12
-      if (reflect .and.neutral) id = 15
+      if (transmit.and.charged) id = 12
+      if (transmit.and.neutral) id = 22
+      if (reflect .and.charged) id = 32
+      if (reflect .and.neutral) id = 42
       if (id.ne.0.and.histo(id)) then
         unit   = histUnit(id)
         theta  = acos(abs(vect(4)))
@@ -67,10 +67,10 @@
 *
 *     projected angle distribution at exit
 *
-      if (transmit.and.charged) id =  6
-      if (transmit.and.neutral) id = 10
-      if (reflect .and.charged) id = 13
-      if (reflect .and.neutral) id = 16
+      if (transmit.and.charged) id = 13
+      if (transmit.and.neutral) id = 23
+      if (reflect .and.charged) id = 33
+      if (reflect .and.neutral) id = 43
       if (id.ne.0.and.histo(id)) then
         thety  = atan(vect(5)/abs(vect(4)))
         thetz  = atan(vect(6)/abs(vect(4)))
@@ -80,7 +80,7 @@
 *
 *     projected position at exit
 *
-      if (transmit.and.charged) id = 7
+      if (transmit.and.charged) id = 14
       if (id.ne.0.and.histo(id)) then
         call hfill (id,vect(2)/histUnit(id),0.,1.)
         call hfill (id,vect(3)/histUnit(id),0.,1.)	

examples/extended/electromagnetic/TestEm5/geant3/src/ugeom.F

@@ -26,7 +26,8 @@ C
       CALL GSMATE(26,'COPPER',63.54,29.,8.96,1.430,0.,0,0)
       CALL GSMATE(27,'GOLD',196.967,79.,19.32,0.33,0.,0,0)
       CALL GSMATE(28,'LEAD',207.190,82.,11.35,0.560,0.,0,0)
-      CALL GSMATE(31,'XenonGas',131.29,54.,5.858e-3,1447.8,0.,0,0)      
+      CALL GSMATE(31,'XenonGas',131.29,54.,5.858e-3,1447.8,0.,0,0)
+      CALL GSMATE(32,'Tungsten',183.85,74.,19.30,0.35,0.,0,0)            
 C
       CALL GSMIXT(29,'WATER',AWAT,ZWAT,1.00,-2,WWAT)
       CALL GSMIXT(30,'AIR',AAIR,ZAIR,1.205E-3,+2,WAIR)

examples/extended/electromagnetic/TestEm5/geant3/src/uhinit.F

@@ -4,26 +4,36 @@
 *
 #include "histo.inc"
 *
-      CHARACTER*50 title(16)
+      CHARACTER*50 title(50)
 *
       data title /
      1    'energy deposit in absorber',					 
-     2    'energy of charged secondaries at creation',			 
-     3    'energy of gammas at creation (log10(ekin/MeV))',		 
-     4	  '(transmit, charged) : kinetic energy at exit',		 
-     5	  '(transmit, charged) : space angle at exit',			 
-     6	  '(transmit, charged) : projected angle at exit',		 
-     7	  '(transmit, charged) : projected position at exit',		 
-     8	  '(transmit, neutral) : kinetic energy at exit',		 
-     9	  '(transmit, neutral) : space angle at exit',
-     +	  '(transmit, neutral) : projected angle at exit',		 
-     1	  '(reflect , charged) : kinetic energy at exit',		 
-     2	  '(reflect , charged) : space angle at exit',			 
-     3	  '(reflect , charged) : projected angle at exit',		 
-     4	  '(reflect , neutral) : kinetic energy at exit',		 
-     5	  '(reflect , neutral) : space angle at exit',			 
-     6	  '(reflect , neutral) : projected angle at exit'   /		 
-*
+     2    'energy of charged secondaries at creation',
+     3    'energy of gammas at creation (log10(ekin/MeV))',
+     C    'dummy','dummy','dummy','dummy','dummy','dummy',
+     +	  '(transmit, charged) : kinetic energy at exit',
+     1	  '(transmit, charged) : energy fluence dE(MeV)/dOmega',
+     2	  '(transmit, charged) : space angle dN/dOmega',	 
+     3	  '(transmit, charged) : projected angle at exit',		 
+     4	  '(transmit, charged) : projected position at exit',
+     5	  '(transmit, charged) : radius at exit',
+     C    'dummy','dummy','dummy','dummy',          		 
+     +	  '(transmit, neutral) : kinetic energy at exit',
+     1	  '(transmit, neutral) : energy fluence dE(MeV)/dOmega',	 
+     2	  '(transmit, neutral) : space angle dN/dOmega',
+     3	  '(transmit, neutral) : projected angle at exit',
+     C    'dummy','dummy','dummy','dummy','dummy','dummy', 
+     +	  '(reflect , charged) : kinetic energy at exit',
+     1	  '(reflect , charged) : energy fluence dE(MeV)/dOmega',
+     2	  '(reflect , charged) : space angle dN/dOmega',
+     3	  '(reflect , charged) : projected angle at exit',
+     C    'dummy','dummy','dummy','dummy','dummy','dummy', 
+     +	  '(reflect , neutral) : kinetic energy at exit',
+     1	  '(reflect , neutral) : energy fluence dE(MeV)/dOmega',	 
+     2	  '(reflect , neutral) : space angle dN/dOmega', 
+     3	  '(reflect , neutral) : projected angle at exit',
+     C    'dummy','dummy','dummy','dummy','dummy','dummy','dummy' /
+* 
       if (histo(idhist)) call hdelet(idhist)
 *      
       vmin = valmin