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

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