]>
Commit | Line | Data |
---|---|---|
e74335a4 | 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 |