HIJING/hijing1_36/fgp2.F

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