Geant4  10.02.p03
Functions/Subroutines
TestEm2/geant3/src/gukine.F File Reference
#include "geant321/gcbank.inc"
#include "geant321/gcflag.inc"
#include "geant321/gckine.inc"
#include "pvolum.inc"
Include dependency graph for TestEm2/geant3/src/gukine.F:

Go to the source code of this file.

Functions/Subroutines

subroutine gukine
 

Function/Subroutine Documentation

◆ gukine()

subroutine gukine ( )

Definition at line 3 of file TestEm2/geant3/src/gukine.F.

3 *
4 * Generates Kinematics for primary track
5 *
6 * Data card Kine : Itype Ekine
7 * (pkine(3) is used internaly to store Etot)
8 *
9 #include "geant321/gcbank.inc"
10 #include "geant321/gcflag.inc"
11 #include "geant321/gckine.inc"
12 #include "pvolum.inc"
13 *
14  dimension vertex(3),plab(3)
15  DATA vertex/3*0./
16  DATA plab /3*0./
17 *
18  vertex(3) = - z1 + 0.0001
19  CALL gsvert(vertex,0,0,0,0,nvert)
20 *
21  jpa = lq(jpart-ikine)
22  xmass = q(jpa+7)
23  pkine(3) = xmass + pkine(1)
24  plab(3) = sqrt(pkine(1)*(pkine(3)+xmass))
25 *
26  CALL gskine(plab,ikine,nvert,0,0,nt)
27 *
28 * *** Kinematics debug
29  IF(ievent.EQ.1.OR.idebug.NE.0) CALL gprint('KINE',0)
30 *