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/TestEm4/geant3/src/gukine.F
+6 -5
View File
@@ -18,12 +18,13 @@
CALL GSVERT(VERTEX,0,0,0,0,NVERT)
*
CALL GRNDM(RNDM,2)
THETA = PI*RNDM(1)
PHI = TWOPI*RNDM(2)
cosTheta = 2*RNDM(1) - 1.
sinTheta = sqrt(1. - cosTheta**2)
Phi = TWOPI*RNDM(2)
*
PLAB(1) = PKINE(1)*SIN(THETA)*COS(PHI)
PLAB(2) = PKINE(1)*SIN(THETA)*SIN(PHI)
PLAB(3) = PKINE(1)*COS(THETA)
PLAB(1) = PKINE(1)*sinTheta*COS(Phi)
PLAB(2) = PKINE(1)*sinTheta*SIN(Phi)
PLAB(3) = PKINE(1)*cosTheta
*
CALL GSKINE(PLAB,IKINE,NVERT,0,0,NT)
*