Adding macros to create Calibration objects
[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / fgp1.F
CommitLineData
e74335a4 1* $Id$
2C
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