HIJING/hipyset1_35/ulangl_hijing.F

   1 * $Id$
   2
   3 C*********************************************************************
   4
   5       FUNCTION ULANGL_HIJING(X,Y)
   6
   7 C...Purpose: to reconstruct an angle from given x and y coordinates.
   8 #include "ludat1_hijing.inc"
   9
  10       ULANGL_HIJING=0.
  11       R=SQRT(X**2+Y**2)
  12       IF(R.LT.1E-20) RETURN
  13       IF(ABS(X)/R.LT.0.8) THEN
  14         ULANGL_HIJING=SIGN(ACOS(X/R),Y)
  15       ELSE
  16         ULANGL_HIJING=ASIN(Y/R)
  17         IF(X.LT.0..AND.ULANGL_HIJING.GE.0.) THEN
  18           ULANGL_HIJING=PARU(1)-ULANGL_HIJING
  19         ELSEIF(X.LT.0.) THEN
  20           ULANGL_HIJING=-PARU(1)-ULANGL_HIJING
  21         ENDIF
  22       ENDIF
  23
  24       RETURN
  25       END