pyrvg4.f

Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file pyrvg4.f

 
C*********************************************************************
 
C...PYRVG4
C...Integrand for true intereference contributions
 
      FUNCTION pyrvg4(Y)
 
      IMPLICIT NONE
      common/pyrvpm/rm(0:3),a(2),b(2),resm(2),resw(2),mflag
      common/pyg2dx/x
      DOUBLE PRECISION x, y, pyrvg4, rm, a, b, resm, resw, rvs, pyrvs
      LOGICAL mflag
      SAVE /pyrvpm/,/pyg2dx/
      pyrvg4=0d0
      rvs=pyrvs(x,y,resm(1),resw(1),resm(2),resw(2))
      IF (.NOT.mflag) THEN
        pyrvg4 = rvs*b(1)*b(2)*x*y
      ELSE
        pyrvg4 = rvs*(rm(1)*rm(3)*a(1)*a(2)*(x+y-rm(1)**2-rm(3)**2)
     &       + rm(1)*rm(0)*b(1)*a(2)*(y-rm(2)**2-rm(3)**2)
     &       + rm(3)*rm(0)*a(1)*b(2)*(x-rm(1)**2-rm(2)**2)
     &       + b(1)*b(2)*(x*y-(rm(1)*rm(3))**2-(rm(0)*rm(2))**2))
      ENDIF
      RETURN
      END