2 C*************************************************************
5 SUBROUTINE ARORIE(S,X1,X3,JL)
8 #include "lujets_hijing.inc"
15 P1=SQRT(E1**2-P(JL,5)**2)
16 P3=SQRT(E3**2-P(JL+1,5)**2)
18 IF(P1.GT.0..AND.P3.GT.0.) CBET=(P(JL,5)**2
19 & +P(JL+1,5)**2+2.*E1*E3-S*(1.-X2))/(2.*P1*P3)
20 IF(ABS(CBET).GT.1.0) CBET=MAX(-1.,MIN(1.,CBET))
23 C.....MINIMIZE PT1-SQUARED PLUS PT3-SQUARED.....
25 PSI=.5*ULANGL_HIJING(P1**2+P3**2*COS(2.*BET),-P3**2*SIN(2.*BET))
30 ELSE IF(P3.GT.P1) THEN
31 PSI=.5*ULANGL_HIJING(P3**2+P1**2*COS(2.*BET),-P1**2*SIN(2.*BET))
38 DEL=2.0*HIPR1(40)*RLU_HIJING(0)
44 P(JL+2,1)=PT3*SIN(DEL)
45 P(JL+2,2)=-PT3*COS(DEL)
48 P(JL+1,1)=-P(JL,1)-P(JL+2,1)
49 P(JL+1,2)=-P(JL,2)-P(JL+2,2)
50 P(JL+1,3)=-P(JL,3)-P(JL+2,3)