HIJING/hijing1_36/fnkick.F

   1 * $Id$
   2 C
   3 C
   4 C
   5         FUNCTION FNKICK(X)
   6 #include "hiparnt.inc"
   7         FNKICK=1.0/(X+HIPR1(19)**2)/(X+HIPR1(20)**2)
   8      &          /(1+EXP((SQRT(X)-HIPR1(20))/0.4))
   9         RETURN
  10         END