
	REAL*16 FUNCTION QSIND (X)
	IMPLICIT NONE
	REAL*16 X
	REAL*16 PI
	DATA PI /3.14159265358979323846264338327950280Q0/
	QSIND = SIN ( X*PI/180.0Q0 )
	RETURN
	END

	REAL*16 FUNCTION QCOSD (X)
	IMPLICIT NONE
	REAL*16 X
	REAL*16 PI
	DATA PI /3.14159265358979323846264338327950280Q0/
	QCOSD = COS ( X*PI/180.0Q0 )
	RETURN
	END

	REAL*16 FUNCTION QTAND (X)
	IMPLICIT NONE
	REAL*16 X
	REAL*16 PI
	DATA PI /3.14159265358979323846264338327950280Q0/
	QTAND = TAN ( X*PI/180.0Q0 )
	RETURN
	END

        REAL*16 FUNCTION QASIND(X)
        IMPLICIT NONE
        REAL*16 X
        REAL*16 PI
        DATA PI/3.14159265358979323846264338327950280Q0/
        QASIND = ASIN(X) * 180/PI
        RETURN
        END

        REAL*16 FUNCTION QATAN2D(Y,X)
        IMPLICIT NONE
        REAL*16 Y,X
        REAL*16 PI
        DATA PI/3.14159265358979323846264338327950280Q0/
        QATAN2D = ATAN2(Y,X) * 180/PI
        RETURN
        END
