5 FUNCTION FJETRIG(X,WGT)
6 IMPLICIT REAL*8(A-H,O-Z)
11 PTMIN=ABS(HIPR1(10))-0.25
12 PTMIN=MAX(PTMIN,DBLE(HIPR1(8)))
14 IF(IHPR2(3).EQ.3) THEN
16 PTMIN=MAX(0.0,HIPR1(10))
18 PTMAX=ABS(HIPR1(10))+0.25
19 IF(HIPR1(10).LE.0.0) PTMAX=HINT1(1)/2.0-AM2
20 IF(PTMAX.LE.PTMIN) PTMAX=PTMIN+0.25
21 PT2=(PTMAX**2-PTMIN**2)*X(1)+PTMIN**2
23 XT=2.0*DSQRT(AMT2)/HINT1(1)
24 YMX1=DLOG(1.0/XT+DSQRT(1.0/XT**2-1.0))
26 YMX2=DLOG(2.0/XT-DEXP(Y1))
27 YMN2=DLOG(2.0/XT-DEXP(-Y1))
28 Y2=(YMX2+YMN2)*X(3)-YMN2
29 IF(IHPR2(3).EQ.3) THEN
30 GTRIG=2.0*GHVQ(Y1,Y2,AMT2)
31 ELSE IF(IHPR2(3).EQ.2) THEN
32 GTRIG=2.0*GPHOTON(Y1,Y2,PT2)
36 FJETRIG=2.0*YMX1*(YMX2+YMN2)*(PTMAX**2-PTMIN**2)