e74335a4 |
1 | * $Id$ |
2 | C |
3 | C |
4 | C |
5 | C |
6 | FUNCTION FNJET(X) |
7 | #include "hiparnt.inc" |
8 | #include "njet_hijing.inc" |
9 | OMG1=OMG0(X)*HINT1(11)/HIPR1(31) |
10 | C0=EXP(N*ALOG(OMG1)-SGMIN(N+1)) |
11 | IF(N.EQ.0) C0=1.0-EXP(-2.0*OMG0(X)*HIPR1(30)/HIPR1(31)/2.0) |
12 | FNJET=C0*EXP(-OMG1) |
13 | RETURN |
14 | END |