dsigm2.F

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

C **********************************************************************
      
      FUNCTION dsigm2(X)
      
      IMPLICIT NONE
      
CAE...Modified version of DSIGMA with a factor 1/(1-XP) is removed
C...by a variable transformation. This makes the integration of the 
C...cross section faster.

      REAL x,xp,dsigma,dsigm2
      
      xp=1.0-exp(x)
      dsigm2=(1.0-xp)*dsigma(xp)

      RETURN
      END