Adding macros to create Calibration objects
[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / ftotjet.F
CommitLineData
e74335a4 1* $Id$
2C
3C
4C
5 FUNCTION FTOTJET(X)
6#include "hiparnt.inc"
7 OMG=OMG0(X)*HINT1(11)/HIPR1(31)/2.0
8 FTOTJET=1.0-EXP(-2.0*OMG)
9 RETURN
10 END