lars/geant4
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Import Geant4 4.1.0 source tree

Browse Source
This commit is contained in:
Gabriele Cosmo
2016-06-08 16:39:52 +02:00
parent 921d3b1cda
commit 330b82b769
4524 changed files with 178689 additions and 43575 deletions
Download Patch File Download Diff File Expand all files Collapse all files
examples/extended/electromagnetic/TestEm1/geant3/src/gukine.F
+13 -3
View File
@@ -3,20 +3,30 @@
*
* Generates Kinematics for primary track
*
* Data card Kine : Itype Ekine
* Data card Kine : Itype Ekine xbeam rbeam
*
#include "geant321/gcbank.inc"
#include "geant321/gcflag.inc"
#include "geant321/gckine.inc"
#include "geant321/gckine.inc"
#include "calor.inc"
*
DIMENSION VERTEX(3),PLAB(3)
dimension rndm(3)
*
DATA VERTEX/3*0./
DATA PLAB /3*0./
*
IF (PKINE(2).NE.0.) vertex(1) = -0.5*BoxSize
*
* random in YZ ?
if ((pkine(3).lt.0.).or.(pkine(3).gt.1.)) pkine(3) = 0.
rbeam = pkine(3)*0.5*BoxSize
call GRNDM (rndm,2)
*
VERTEX(2) = (2*rndm(1)-1.)*rbeam
VERTEX(3) = (2*rndm(2)-1.)*rbeam
*
CALL GSVERT(VERTEX,0,0,0,0,NVERT)
*
*
JPA = LQ(JPART-IKINE)
XMASS = Q(JPA+7)
examples/extended/electromagnetic/TestEm1/geant3/src/ugeom.F
+1 -1
View File
@@ -31,7 +31,7 @@
CALL GSMATE( 7,'Tungsten' ,183.85, 74., 19.30 , 0.35, 18.5, 0,0)
CALL GSMATE( 8,'Lead' ,207.19, 82., 11.35 , 0.56, 18.5, 0,0)
CALL GSMATE( 9,'Uranium' ,238.03, 92., 18.95 , 0.32, 12. , 0,0)
*
CALL GSMATE(10,'Germanium', 72.61, 32., 5.323 , 2.30, 16.6, 0,0)
*
* *** Defines USER tracking media parameters
IFIELD = 0
examples/extended/electromagnetic/TestEm1/geant3/src/uglast.F
+1 -1
View File
@@ -40,6 +40,6 @@
760 FORMAT(//,1X,'nb of process calls per event: ',
+ /,3X,12A9)
761 FORMAT( 3X,12F9.2,//)
761 FORMAT( 3X,12F9.4,//)
*
END