2 C*********************************************************************
6 C...Purpose: to reconstruct an angle from given x and y coordinates.
7 COMMON/LUDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
13 IF(ABS(X)/R.LT.0.8) THEN
14 ULANGL=SIGN(ACOS(X/R),Y)
17 IF(X.LT.0..AND.ULANGL.GE.0.) THEN
20 ULANGL=-PARU(1)-ULANGL