6 IMPLICIT REAL*8(A-H,O-Z)
10 PT2=(HINT1(1)**2/4.0-HIPR1(8)**2)*X(1)+HIPR1(8)**2
11 XT=2.0*DSQRT(PT2)/HINT1(1)
12 YMX1=DLOG(1.0/XT+DSQRT(1.0/XT**2-1.0))
14 YMX2=DLOG(2.0/XT-DEXP(Y1))
15 YMN2=DLOG(2.0/XT-DEXP(-Y1))
16 Y2=(YMX2+YMN2)*X(3)-YMN2
17 FJET=2.0*YMX1*(YMX2+YMN2)*(HINT1(1)**2/4.0-HIPR1(8)**2)