2 C ------------------------------------------------------------------------
3 C Purpose: Calculate the total hadronic cross section grid with
4 C eikonalisation. This routine uses the functions QCDRES (to
5 C calculate the uneikonalised gp cross section) and EIKON (to
7 C ------------------------------------------------------------------------
9 #include "herwig65.inc"
13 DOUBLE PRECISION XSECN, EPFUN, H, Y, SUM, TMP, DELTA
20 H = (ONE - JMZMIN)/FLOAT(NPSIMP)
22 c Lower limit of integration
32 TMP = EPFUN(Y, 2*I-1 )*FOUR
36 TMP = EPFUN(Y, 2*I )*TWO
41 C Get the weight for the end point correct
47 SUM = EPFUN( 1.D0, 1 )