HIJING/hijing1_36/fgp1.F

   1 * $Id$
   2 C
   3         FUNCTION FGP1(X)
   4 #include "pact_hijing.inc"
   5 #include "hiparnt.inc"
   6         EXTERNAL FGP2
   7         PHI=X
   8         FGP1=2.0*GAUSS3(FGP2,0.0,HIPR1(34),0.01)
   9         RETURN
  10         END