Import Geant4 4.1.0 source tree

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

@@ -1,17 +1,30 @@
 
       SUBROUTINE GUKINE
-C
+*  
+*    Generates Kinematics for primary track
+*
+*    Data card Kine : Itype  Ekine theta phi rbeam
+*
+*    rbeam : size of the random beam extension in fraction of 0.5*calorYZ      
+*
 #include "geant321/gcbank.inc"
 #include "geant321/gcflag.inc"
 #include "geant321/gconst.inc"
 #include "geant321/gckine.inc"
 #include "edepo.inc"
-C
+*
       DIMENSION VERTEX(3),PLAB(3)
-C
+      dimension rndm(2)
+*
+*     random in YZ ?
+      if ((pkine(4).lt.0.).or.(pkine(4).gt.1.)) pkine(4) = 0.
+      rbeam = pkine(4)*0.5*YZABSO
+      call GRNDM (rndm,2)            
+*
       VERTEX(1)=XVERT     
-      VERTEX(2)=YVERT     
-      VERTEX(3)=ZVERT
+      VERTEX(2)=YVERT + (2*rndm(1)-1.)*rbeam     
+      VERTEX(3)=ZVERT + (2*rndm(2)-1.)*rbeam
+*      
       CALL GSVERT(VERTEX,0,0,0,0,NVERT)           
 *
       JPA     = LQ(JPART-IKINE)

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

@@ -30,11 +30,11 @@ C
      +  ,NHI6,HIS6(1),HIS6(2),0.)
       ENDIF
       IF(NHI7.GT.0) THEN
-        CALL HBOOK1(7,'kinetic energy of backscattered primaries(deg)'
+        CALL HBOOK1(7,'kinetic energy of backscattered primaries(MeV)'
      +  ,NHI7,HIS7(1),HIS7(2),0.)
       ENDIF
       IF(NHI8.GT.0) THEN
-        CALL HBOOK1(8,'kinetic energy of the charged secondaries(deg)'
+        CALL HBOOK1(8,'kinetic energy of the charged secondaries(MeV)'
      +  ,NHI8,HIS8(1),HIS8(2),0.)
       ENDIF
       IF(NHI9.GT.0) THEN