HIJING/hijing1_36/fhin.F

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