C
C
	REAL FUNCTION ARCTAND(Y,X)
	IF (Y.EQ.0.0.AND.X.EQ.0.0) THEN
		ARCTAND=0.0
	ELSE
		ARCTAND=ATAN2D(Y,X)
	ENDIF
	RETURN
	END
