[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
Commit	Line	Data
e74335a4	1	* $Id$
	2	C
	3	FUNCTION FGP3(X)
	4	#include "pact_hijing.inc"
	5	R1=SQRT(B12+Z12)
	6	R2=SQRT(BB2+B12-2.0B1BBCOS(PHI)+X*2)
	7	FGP3=B1WDSAX1(R1)WDSAX2(R2)
	8	RETURN
	9	END