HIJING/hijing1_36/fnstru.F

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