
	REAL*8 FUNCTION DATAN2DQ (Y,X)
	IMPLICIT NONE
	REAL*8 X,Y
	REAL*8 DATAN2D
	IF ( X.NE.0.0D0 .OR. Y.NE.0.0D0 ) THEN
	  DATAN2DQ = DATAN2D (Y,X)
	ELSE
	  DATAN2DQ = 9999.9D0
	END IF
	RETURN
	END

