pyrvs.f

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

 
C*********************************************************************
 
C...PYRVS
C...Interference function
 
      FUNCTION pyrvs(X,Y,M1,W1,M2,W2)
 
      IMPLICIT NONE
      DOUBLE PRECISION x, y, pyrvs, pyrvr, m1, m2, w1, w2
      pyrvs = pyrvr(x,m1,w1)*pyrvr(y,m2,w2)*((x-m1**2)*(y-m2**2)
     &     +w1*w2*m1*m2)
      RETURN
      END