
	REAL*8 FUNCTION DSIND (X)
	IMPLICIT NONE
	REAL*8 X
	REAL*8 PI
	DATA PI /3.141592653589793D0/
	DSIND = DSIN ( X*PI/180.0D0 )
	RETURN
	END

	REAL*8 FUNCTION DCOSD (X)
	IMPLICIT NONE
	REAL*8 X
	REAL*8 PI
	DATA PI /3.141592653589793D0/
	DCOSD = DCOS ( X*PI/180.0D0 )
	RETURN
	END

	REAL*8 FUNCTION DTAND (X)
	IMPLICIT NONE
	REAL*8 X
	REAL*8 PI
	DATA PI /3.141592653589793D0/
	DTAND = DTAN ( X*PI/180.0D0 )
	RETURN
	END

        REAL*8 FUNCTION DASIND(X)
        IMPLICIT NONE
        REAL*8 X
        REAL*8 PI
        DATA PI/3.141592653589793D0/  
        DASIND = DASIN(X) * 180/PI
        RETURN
        END

        REAL*8 FUNCTION DACOSD(X)
        IMPLICIT NONE
        REAL*8 X
        REAL*8 PI
        DATA PI/3.141592653589793D0/  
        DACOSD = DACOS(X) * 180/PI
        RETURN
        END

        REAL*8 FUNCTION DATAN2D(Y,X)
        IMPLICIT NONE
        REAL*8 Y,X
        REAL*8 PI
        DATA PI/3.141592653589793D0/  
        DATAN2D = DATAN2(Y,X) * 180/PI
        RETURN
        END
