HIJING/hijing1_36/omg0.F

   1 * $Id$
   2 C
   3 C
   4 C
   5         FUNCTION OMG0(X)
   6 #include "hiparnt.inc"
   7 #include "besel_hijing.inc"
   8         EXTERNAL BK
   9         X4=HIPR1(32)*SQRT(X)
  10         OMG0=HIPR1(32)**2*GAUSS2(BK,X4,X4+20.0,0.01)/96.0
  11         RETURN
  12         END