Use log(E) dependence for energy loss if IHPR2(50) == 1.

[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / fgp3.F

* $Id$
C
        FUNCTION FGP3(X)
#include "pact_hijing.inc"
        R1=SQRT(B1**2+Z1**2)
        R2=SQRT(BB**2+B1**2-2.0*B1*BB*COS(PHI)+X**2)
        FGP3=B1*WDSAX1(R1)*WDSAX2(R2)
        RETURN
        END