HIJING/hijing1_36/ftotjet.F

   1 * $Id$
   2 C
   3 C
   4 C
   5         FUNCTION FTOTJET(X)
   6 #include "hiparnt.inc"
   7         OMG=OMG0(X)*HINT1(11)/HIPR1(31)/2.0
   8         FTOTJET=1.0-EXP(-2.0*OMG)
   9         RETURN
  10         END