Physics Research: Summer 1998: E895 - Heavy Ion Physics: Pi naughts

---

This is the fortran program that Juan helped me to construct for invariant mass:
real function rminv(p11,p12,p13,p1,p2,p3)

emass=.511e-3
px = p1+p11
ptot2 = sqrt(p1**2+p2**2+p3**2)
ptot1 = sqrt(p11**2+p12**2+p13**2)
ptot = sqrt(px**2+py**2+pz**2)
Etot1 = sqrt(emass**2+ptot1**2)
Etot2 = sqrt(emass**2+ptot2**2)
etot = Etot1+Etot2
rminv = sqrt(etot**2-ptot**2)

return
end

Previous Page