#include "histrng.inc"
C
SAVE
+C
+ BB=HINT1(19) ! Uzhi
+ PHI=HINT1(20) ! Uzhi
+ BBX=BB*COS(PHI) ! Uzhi
+ BBY=BB*SIN(PHI) ! Uzhi
+c
IF(NTP.EQ.2) GO TO 400
IF(NTP.EQ.3) GO TO 2000
C*******************************************************
DY=YP(2,I2)-YP(2,JP)
PHI=ULANGL_HIJING(DX,DY)
DPHI=ABS(PHI-PHIP)
+ IF(DPHI.GE.HIPR1(40)) DPHI=2.*HIPR1(40)-DPHI ! Uzhi
IF(DPHI.GE.HIPR1(40)/2.0) GO TO 100
RD0=SQRT(DX*DX+DY*DY)
IF(RD0*SIN(DPHI).GT.HIPR1(12)) GO TO 100
DY=YT(2,I2)-YP(2,JP)
PHI=ULANGL_HIJING(DX,DY)
DPHI=ABS(PHI-PHIP)
+ IF(DPHI.GE.HIPR1(40)) DPHI=2.*HIPR1(40)-DPHI ! Uzhi
IF(DPHI.GT.HIPR1(40)/2.0) GO TO 120
RD0=SQRT(DX*DX+DY*DY)
IF(RD0*SIN(DPHI).GT.HIPR1(12)) GO TO 120
DY=YP(2,I2)-YT(2,JT)
PHI=ULANGL_HIJING(DX,DY)
DPHI=ABS(PHI-PHIT)
+ IF(DPHI.GE.HIPR1(40)) DPHI=2.*HIPR1(40)-DPHI ! Uzhi
IF(DPHI.GT.HIPR1(40)/2.0) GO TO 500
RD0=SQRT(DX*DX+DY*DY)
IF(RD0*SIN(DPHI).GT.HIPR1(12)) GO TO 500
DY=YT(2,I2)-YT(2,JT)
PHI=ULANGL_HIJING(DX,DY)
DPHI=ABS(PHI-PHIT)
+ IF(DPHI.GE.HIPR1(40)) DPHI=2.*HIPR1(40)-DPHI ! Uzhi
IF(DPHI.GT.HIPR1(40)/2.0) GO TO 520
RD0=SQRT(DX*DX+DY*DY)
IF(RD0*SIN(DPHI).GT.HIPR1(12)) GO TO 520
DY=YP(2,I2)-YJ
PHI=ULANGL_HIJING(DX,DY)
DPHI=ABS(PHI-PHIQ)
+ IF(DPHI.GE.HIPR1(40)) DPHI=2.*HIPR1(40)-DPHI ! Uzhi
IF(DPHI.GT.HIPR1(40)/2.0) GO TO 2500
RD0=SQRT(DX*DX+DY*DY)
IF(RD0*SIN(DPHI).GT.HIPR1(12)) GO TO 2500
DY=YT(2,I2)-YJ
PHI=ULANGL_HIJING(DX,DY)
DPHI=ABS(PHI-PHIQ)
+ IF(DPHI.GE.HIPR1(40)) DPHI=2.*HIPR1(40)-DPHI ! Uzhi
IF(DPHI.GT.HIPR1(40)/2.0) GO TO 2520
RD0=SQRT(DX*DX+DY*DY)
IF(RD0*SIN(DPHI).GT.HIPR1(12)) GO TO 2520