HIJING/hijing1_36/fnstrum.F

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