Analysis Software
Documentation for sPHENIX simulation software
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
pyrvi1.f
Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file pyrvi1.f
1 
2 C*********************************************************************
3 
4 C...PYRVI1
5 C...Function to integrate resonance contributions
6 
7  FUNCTION pyrvi1(ID1,ID2,ID3)
8 
9  IMPLICIT NONE
10  DOUBLE PRECISION lo,hi,pyrvi1,pyrvg1,pygaus
11  DOUBLE PRECISION res, ab, rm, resm, resw, a, b, rms
12  INTEGER id1,id2,id3, idr, idr2, kfr, intres
13  LOGICAL mflag,dcmass
14  EXTERNAL pyrvg1,pygaus
15  common/pyrvnv/ab(2,16,2),rms(0:3),res(6,2),intres(6,3),idr,idr2
16  & ,dcmass,kfr(3)
17  common/pyrvpm/rm(0:3),a(2),b(2),resm(2),resw(2),mflag
18  SAVE/pyrvnv/,/pyrvpm/
19 C...Initialize mass and width information
20  pyrvi1 = 0d0
21  rm(0) = rms(0)
22  rm(1) = rms(id1)
23  rm(2) = rms(id2)
24  rm(3) = rms(id3)
25  resm(1)= res(idr,1)
26  resw(1)= res(idr,2)
27 C...A->B and B->A for antisparticles
28  a(1) = ab(1+intres(idr,3),intres(idr,1),intres(idr,2))
29  b(1) = ab(2-intres(idr,3),intres(idr,1),intres(idr,2))
30 C...Integration boundaries and mass flag
31  lo = (rm(1)+rm(2))**2
32  hi = (rm(0)-rm(3))**2
33  mflag = dcmass
34  pyrvi1 = pygaus(pyrvg1,lo,hi,1d-3)
35  RETURN
36  END