]> git.uio.no Git - u/mrichter/AliRoot.git/blob - HIJING/hijing1_36/bk.F
git://git.uio.no / u / mrichter / AliRoot.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Containers definition
[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / bk.F
1 * $Id$
2 C
3 C
4 C
5         FUNCTION BK(X)
6 #include "besel_hijing.inc"
7         BK=EXP(-X)*(X**2-X4**2)**2.50/15.0
8         RETURN
9         END