Geant4  10.03.p02
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
pythia_main.f
Go to the documentation of this file.
1 *
2  IMPLICIT DOUBLE PRECISION(a-h, o-z)
3  IMPLICIT INTEGER(i-n)
4  INTEGER pyk,pychge,pycomp
5 *
6  common/pydat2/kchg(500,4),pmas(500,4),parf(2000),vckm(4,4)
7  common/pydat3/mdcy(500,3),mdme(8000,2),brat(8000),kfdp(8000,5)
8  common/pysubs/msel,mselpd,msub(500),kfin(2,-40:40),ckin(200)
9  common/pypars/mstp(200),parp(200),msti(200),pari(200)
10 *
11  EXTERNAL pydata
12  CHARACTER frame*4,beam*10,target*10
13  REAL win
14  REAL pdt(500,5)
15 *
16  nevnt = 100
17 *
18  msel = 0
19  msub(102) = 1
20  msub(123) = 1
21  msub(124) = 1
22 *
23  pmas(6,1) = 172.9
24  pmas(25,1) = 125.
25 *
26 * turn off all Higgs decays except the ZZ
27 *
28  ih = pycomp(25)
29  DO idc=mdcy(ih,2),mdcy(ih,2)+mdcy(ih,3)-1
30  IF (kfdp(idc,1).NE.23.AND.mdme(idc,1).EQ.1) mdme(idc,1)=0
31  ENDDO
32 *
33 * turn off all Z decays except mumu or ee
34 *
35  iz = pycomp(23)
36  DO idc=mdcy(iz,2),mdcy(iz,2)+mdcy(iz,3)-1
37  IF (mdme(idc,1).EQ.1) THEN
38  IF ((iabs(kfdp(idc,1)).NE.13)
39  > .AND.(iabs(kfdp(idc,1)).NE.11)) THEN
40  mdme(idc,1)=0
41  ENDIF
42  ENDIF
43  ENDDO
44 ***********************************************************
45  CALL pyinit('CMS','p','p',14000d0)
46 *
47  DO ievt = 1, nevnt
48 *
49  CALL pyevnt
50  CALL pyedit(11)
51  CALL pyedit(12)
52  CALL pyedit(15)
53 *
54  CALL pyhepc(1)
55 *
56  CALL hep2g4
57 *
58  ENDDO
59 ***********************************************************
60  stop
61  END
62 ***********************************************************
63  SUBROUTINE hep2g4
64 *
65 * Output /HEPEVT/ event structure to G4HEPEvtInterface
66 *
67 * M.Asai (asai@kekvax.kek.jp) -- 24/09/96
68 *
69 ***********************************************************
70  parameter(nmxhep=4000)
71  common/hepevt/nevhep,nhep,isthep(nmxhep),idhep(nmxhep),
72  >jmohep(2,nmxhep),jdahep(2,nmxhep),phep(5,nmxhep),vhep(4,nmxhep)
73  DOUBLE PRECISION phep,vhep
74 *
75  WRITE(6,*) nhep
76  DO ihep=1,nhep
77  WRITE(6,10)
78  > isthep(ihep),idhep(ihep),jdahep(1,ihep),jdahep(2,ihep),
79  > phep(1,ihep),phep(2,ihep),phep(3,ihep),phep(5,ihep)
80 10 FORMAT(i4,i10,i5,i5,4(1x,d15.8))
81  ENDDO
82 *
83  RETURN
84  END
#define pycomp
Definition: Pythia6.cc:98
const XML_Char * target
Definition: expat.h:268
subroutine pyinit(FRAME, BEAM, TARGET, WIN)
std::vector< ExP01TrackerHit * > a
Definition: ExP01Classes.hh:33
#define pydat3
static int FASTCALL common(PROLOG_STATE *state, int tok)
Definition: xmlrole.cc:1309
subroutine hep2g4
Definition: pythia_main.f:66
const G4int n