HIJING/hijing1_36/fnstrus.F

   1 * $Id$
   2 C
   3 C
   4         FUNCTION FNSTRUS(X)
   5 #include "hiparnt.inc"
   6         FNSTRUS=(1.0-X)**HIPR1(47)/
   7      &          (X**2+HIPR1(45)**2/HINT1(1)**2)**HIPR1(48)
   8         RETURN
   9         END