
	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
