pygrvw.f

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

 
C*********************************************************************
 
C...PYGRVW
C...Auxiliary for the GRV 94 parton distribution functions
C...for d+u sea and gluon.
C...Authors: M. Glueck, E. Reya and A. Vogt.
 
      FUNCTION pygrvw (X, S, AL, BE, AK, BK, A, B, C, D, E, ES)
 
C...Double precision declaration.
      IMPLICIT DOUBLE PRECISION (a - z)
 
C...Evaluation.
      lx = log(1d0/x)
      pygrvw = (x**ak * (a + x * (b + x*c)) * lx**bk + s**al
     &     * exp(-e + sqrt(es * s**be * lx))) * (1d0- x)**d
 
      RETURN
      END