HIJING/hijing1_36/flap.F

   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