Fix for FMD DA

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

* $Id$
C
C
        FUNCTION FLAP2(X)
#include "pact_hijing.inc"
        R=SQRT(BB**2+X**2)
        FLAP2=WDSAX2(R)
        RETURN
        END