fw.F

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

*
       FUNCTION fw (X, S, AL, BE, AK, BK, A, B, C, D, E, ES)
       IMPLICIT DOUBLE PRECISION (a - z)
       lx = dlog(1./x)
       fw = (x**ak * (a + x * (b + x*c)) * lx**bk + s**al
     1      * dexp(-e + dsqrt(es * s**be * lx))) * (1.- x)**d
       RETURN
       END