]> git.uio.no Git - u/mrichter/AliRoot.git/blame - HIJING/hijing1_36/omg0.F
Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / omg0.F
CommitLineData
e74335a4 1* $Id$
2C
3C
4C
5 FUNCTION OMG0(X)
6#include "hiparnt.inc"
7#include "besel_hijing.inc"
8 EXTERNAL BK
9 X4=HIPR1(32)*SQRT(X)
10 OMG0=HIPR1(32)**2*GAUSS2(BK,X4,X4+20.0,0.01)/96.0
11 RETURN
12 END