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