HIJING/hijing1_36/ftot.F

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