Import Geant4 3.2.0 source tree

examples/extended/electromagnetic/TestEm3/geant3/src/gukine.F

@@ -3,7 +3,9 @@
 *  
 *    Generates Kinematics for primary track
 *
-*    Data card Kine : Itype  Ekine x0  y0  z0  ux  uy  uz
+*    Data card Kine : Itype  Ekine x0  y0  z0  ux  uy  uz rbeam
+*
+*    rbeam : size of the random beam extension in fraction of 0.5*calorYZ
 *
 #include "geant321/gcbank.inc"
 #include "geant321/gcflag.inc"
@@ -11,6 +13,7 @@
 #include "calor.inc"                                                          
 *                                                                               
       DIMENSION VERTEX(3),PLAB(3)
+      dimension rndm(2)
 *
 * *** set/reset default kinematic
       IF ((IKINE.LT.0).or.(abs(PKINE(2)).GT.0.5*worldX)) THEN
@@ -23,9 +26,14 @@
           PKINE(7) = 0.
       ENDIF
 *
+*     random in YZ ?
+      if ((pkine(8).lt.0.).or.(pkine(8).gt.1.)) pkine(8) = 0.
+      rbeam = pkine(8)*0.5*calorYZ
+      call GRNDM (rndm,2)
+*        
       VERTEX(1) = PKINE(2)
-      VERTEX(2) = PKINE(3)
-      VERTEX(3) = PKINE(4)
+      VERTEX(2) = PKINE(3) + (2*rndm(1)-1.)*rbeam
+      VERTEX(3) = PKINE(4) + (2*rndm(2)-1.)*rbeam
 *
       CALL GSVERT(VERTEX,0,0,0,0,NVERT)
 *

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

@@ -4,6 +4,7 @@
 * *** Define user geometry set up
 *
 #include "calor.inc"
+#include "geant321/gcbank.inc"
 *
       DIMENSION PAR(3)
 
@@ -56,7 +57,12 @@
       CALL GSMATE(11,'Tungsten ',183.85, 74., 19.30  , 0.35,  9.6, 0,0)
       CALL GSMIXT(12,'NemaG10'  , AG10 ,ZG10, 1.7    ,-4   , WG10)
       CALL GSMATE(13,'Copper   ', 63.55, 29., 8.96   , 1.43, 15.0, 0,0)
-      CALL GSMIXT(14,'Scintilla', Asci ,Zsci, 1.032  ,-2   , Wsci)      
+      CALL GSMIXT(14,'Scintilla', Asci ,Zsci, 1.032  ,-2   , Wsci)
+      CALL GSMATE(15,'Gold     ',196.97, 79., 19.32  , 0.33,  9.6, 0,0)      
+* 
+* *** overwrite the computed radlength of some mixture
+      JMA = LQ(JMATE-14)
+      Q(JMA+9) = 42.549            
 *                                               
 *                                                                               
 * *** Defines USER tracking media parameters
@@ -64,7 +70,8 @@
       IF (Field.GT.0.) IFIELD = 3
       FIELDM = 10*Field
       TMAXFD = 10.0                                                             
-      STEMAX = 1000.                                                            
+      STEMAX = 1000.
+      IF (stepmax.gt.0.) STEMAX = stepmax                                                            
       DEEMAX = 0.20                                                            
       EPSIL  = 0.001                                                           
       STMIN  = 0.010                                                           

examples/extended/electromagnetic/TestEm3/geant3/src/uginit.F

@@ -25,9 +25,11 @@
       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')
+      CALL FFKEY('CUTPR',prodcut(1) ,4*MaxAbs,'REAL')      
 * *** histograms
-      CALL FFKEY('HISTO',idhist,4,'MIXED')            
+      CALL FFKEY('HISTO',idhist,4,'MIXED')
+* *** max allowed step size       
+      CALL FFKEY('STEPMX',stepmax,1,'REAL')                  
 *
 * *** read data cards
       CALL GFFGO 
@@ -41,7 +43,7 @@
       CALL UGEOM                                                                
 *                                                                               
 * *** Energy loss and cross-sections initialisations                            
-      CALL GPHYSI                                                               
+      CALL GPHYSI                               
 * 
       CALL GPRINT('MATE',0)                                                     
       CALL GPRINT('TMED',0)