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

* $Id$
C
	FUNCTION FGP1(X)
#include "pact_hijing.inc"
#include "hiparnt.inc"
        EXTERNAL FGP2
        PHI=X
        FGP1=2.0*GAUSS3(FGP2,0.0,HIPR1(34),0.01)
	RETURN
	END
Commit	Line	Data
e74335a4	1	* $Id$
	2	C
	3	FUNCTION FGP1(X)
	4	#include "pact_hijing.inc"
	5	#include "hiparnt.inc"
	6	EXTERNAL FGP2
	7	PHI=X
	8	FGP1=2.0*GAUSS3(FGP2,0.0,HIPR1(34),0.01)
	9	RETURN
	10	END