10 #include "geant321/gcbank.inc"
11 #include "geant321/gcflag.inc"
12 #include "geant321/gckine.inc"
16 dimension
vertex(3),plab(3)
22 IF ((ikine.LT.0).or.(abs(pkine(2)).GT.0.5*worldx))
THEN
24 pkine(2) = -0.5*worldx
33 if ((pkine(8).lt.0.).or.(pkine(8).gt.1.)) pkine(8) = 0.
34 rbeam = pkine(8)*0.5*caloryz
38 vertex(2) = pkine(3) + (2*rndm(1)-1.)*rbeam
39 vertex(3) = pkine(4) + (2*rndm(2)-1.)*rbeam
41 CALL gsvert(
vertex,0,0,0,0,nvert)
46 pmom =
sqrt(pkine(1)*(pkine(1)+2*xmass))
47 plab(1) = pmom*pkine(5)
48 plab(2) = pmom*pkine(6)
49 plab(3) = pmom*pkine(7)
51 CALL gskine(plab,ikine,nvert,0,0,
nt)
54 IF (ievent.EQ.1.OR.idebug.NE.0) CALL gprint(
'KINE',0)