HIJING/hijing1_36/ftotrig.F

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