
	REAL*16 FUNCTION QATAN2DQ (Y,X)
	IMPLICIT NONE
	REAL*16 X,Y
	REAL*16 QATAN2D
	IF ( X.NE.0.0Q0 .OR. Y.NE.0.0Q0 ) THEN
	  QATAN2DQ = QATAN2D (Y,X)
	ELSE
	  QATAN2DQ = 9999.9Q0
	END IF
	RETURN
	END

