HIJING/hijing1_36/fnjet.F

   1 * $Id$
   2 C
   3 C
   4 C
   5 C
   6         FUNCTION FNJET(X)
   7 #include "hiparnt.inc"
   8 #include "njet_hijing.inc"
   9         OMG1=OMG0(X)*HINT1(11)/HIPR1(31)
  10         C0=EXP(N*ALOG(OMG1)-SGMIN(N+1))
  11         IF(N.EQ.0) C0=1.0-EXP(-2.0*OMG0(X)*HIPR1(30)/HIPR1(31)/2.0)
  12         FNJET=C0*EXP(-OMG1)
  13         RETURN
  14         END