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

* $Id$
C
C
        FUNCTION FLAP1(X)
#include "pact_hijing.inc"
        R=SQRT(BB**2+X**2)
        FLAP1=WDSAX1(R)
        RETURN
        END
Commit	Line	Data
e74335a4	1	* $Id$
	2	C
	3	C
	4	FUNCTION FLAP1(X)
	5	#include "pact_hijing.inc"
	6	R=SQRT(BB2+X2)
	7	FLAP1=WDSAX1(R)
	8	RETURN
	9	END