7 IMPLICIT DOUBLE PRECISION(D)
9 #include "lujets_hijing.inc"
10 #include "ludat1_hijing.inc"
11 #include "hiparnt.inc"
15 IF(ABS(DBETA).GE.1.D0) THEN
17 IF(DB.GT.0.99999999D0) THEN
18 C ********Rescale boost vector if too close to unity.
19 WRITE(6,*) '(HIBOOT:) boost vector too large'
22 DGA=1D0/SQRT(1D0-DB**2)
25 P(I,3)=(DP3+DB*DP4)*DGA
26 P(I,4)=(DP4+DB*DP3)*DGA
29 Y=0.5*DLOG((1.D0+DBETA)/(1.D0-DBETA))
30 AMT=SQRT(P(I,1)**2+P(I,2)**2+P(I,5)**2)
31 P(I,3)=AMT*SINH(Y+HINT1(3))
32 P(I,4)=AMT*COSH(Y+HINT1(3))