C+
C NAME:
C	cosd
C PURPOSE:
C	Goniometric function accepting arguments in degrees
C CATEGORY:
C	Math
C CALLING SEQUENCE:
	function cosd(a)
C INPUTS:
C	a,b	real			angle in degrees
C	c,d	double precision	angle in degrees
C OUTPUTS:
C	S	real			angle in degrees
C	D	double precision	angle in degrees
C INCLUDE:
	include     'math.h'
C SEE ALSO:
C	sind, tand, asind, acosd, atand, atan2d
C	dcosd, dsind, dtand, dasind, dacosd, datand, datan2d
C RESTRICTIONS:
C	Note that it probably will be necessary to declare the function
C	type explicitly in the calling program, e.g.
C
C	real			acosd, cos
C	double precision	dacosd, dcos
C PROCEDURE:
C	Can be used with Fortran compilers that do not provide goniometric
C	function accepting input and providing output in degrees (e.g. g77).
C MODIFICATION HISTORY:
C	JAN-2001, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	real	cosd, sind, tand, a
	cosd = cos( a*sngl(MATH__RPD) )
	return
C+
C NAME:
C	sind
C CALLING SEQUENCE:
	entry sind(a)
C INPUTS:
C	a	real		angle in degrees
C SEE ALSO:
C	cosd
C MODIFICATION HISTORY:
C	JAN-2001, Paul Hick (UCSD; pphick@ucsd.edu)
C-
	sind = sin( a*sngl(MATH__RPD) )
	return
C+
C NAME:
C	tand
C CALLING SEQUENCE:
	entry tand(a)
C INPUTS:
C	a	real		angle in degrees
C SEE ALSO:
C	cosd
C MODIFICATION HISTORY:
C	JAN-2001, Paul Hick (UCSD; pphick@ucsd.edu)
C-
	tand = tan( a*sngl(MATH__RPD) )
	return
	end
C+
C NAME:
C	asind
C CALLING SEQUENCE:
	function asind(a)
C INPUTS:
C	a	real		sin(angle)
C INCLUDE:
	include     'math.h'
C SEE ALSO:
C	cosd
C MODIFICATION HISTORY:
C	JAN-2001, Paul Hick (UCSD; pphick@ucsd.edu)
C-
	real	asind, acosd, atand, atan2d, a, b
	asind = sngl(MATH__DPR)*asin(a)
	return
C+
C NAME:
C	acosd
C CALLING SEQUENCE:
	entry acosd(a)
C INPUTS:
C	a	real		cos(angle)
C SEE ALSO:
C	cosd
C MODIFICATION HISTORY:
C	JAN-2001, Paul Hick (UCSD; pphick@ucsd.edu)
C-
	acosd = sngl(MATH__DPR)*acos(a)
	return
C+
C NAME:
C	atand
C CALLING SEQUENCE:
	entry atand(a)
C INPUTS:
C	a	real		tan(angle)
C SEE ALSO:
C	cosd
C MODIFICATION HISTORY:
C	JAN-2001, Paul Hick (UCSD; pphick@ucsd.edu)
C-
	atand = sngl(MATH__DPR)*atan(a)
	return
C+
C NAME:
C	atan2d
C CALLING SEQUENCE:
	entry atan2d(a,b)
C INPUTS:
C	a	real		sin(angle)
C	b	real		cos(angle)
C SEE ALSO:
C	cosd
C MODIFICATION HISTORY:
C	JAN-2001, Paul Hick (UCSD; pphick@ucsd.edu)
C-
	atan2d = sngl(MATH__DPR)*atan2(a,b)
	return
	end
C+
C NAME:
C	dcosd
C CALLING SEQUENCE:
	function dcosd(a)
C INPUTS:
C	a	double precision	angle in degrees
C INCLUDE:
	include     'math.h'
C SEE ALSO:
C	cosd
C MODIFICATION HISTORY:
C	JAN-2001, Paul Hick (UCSD; pphick@ucsd.edu)
C-
	double precision  dcosd, dsind, dtand, a

	dcosd = dcos(a*MATH__RPD)

	return
C+
C NAME:
C	dsind
C CALLING SEQUENCE:
	entry dsind(a)
C INPUTS:
C	a	double precision	angle in degrees
C SEE ALSO:
C	cosd
C MODIFICATION HISTORY:
C	JAN-2001, Paul Hick (UCSD; pphick@ucsd.edu)
C-
	dsind = dsin(a*MATH__RPD)
	return
C+
C NAME:
C	dtand
C CALLING SEQUENCE:
	entry dtand(a)
C INPUTS:
C	a	double precision	angle in degrees
C SEE ALSO:
C	cosd
C MODIFICATION HISTORY:
C	JAN-2001, Paul Hick (UCSD; pphick@ucsd.edu)
C-
	dtand = dtan(a*MATH__RPD)
	return
	end
C+
C NAME:
C	dasind
C CALLING SEQUENCE:
	function dasind(a)
C INPUTS:
C	a	double precision	sin(angle)
C INCLUDE:
	include     'math.h'
C SEE ALSO:
C	cosd
C MODIFICATION HISTORY:
C	JAN-2001, Paul Hick (UCSD; pphick@ucsd.edu)
C-
	double precision  dasind, dacosd, datand, datan2d, a, b

	dasind = MATH__DPR*dasin(a)

	return
C+
C NAME:
C	dacosd
C CALLING SEQUENCE:
	entry dacosd(a)
C INPUTS:
C	a	double precision	cos(angle)
C SEE ALSO:
C	cosd
C MODIFICATION HISTORY:
C	JAN-2001, Paul Hick (UCSD; pphick@ucsd.edu)
C-
	dacosd = MATH__DPR*dacos(a)
	return
C+
C NAME:
C	datand
C CALLING SEQUENCE:
	entry datand(a)
C INPUTS:
C	a	double precision	tan(angle)
C SEE ALSO:
C	cosd
C MODIFICATION HISTORY:
C	JAN-2001, Paul Hick (UCSD; pphick@ucsd.edu)
C-
	datand = MATH__DPR*datan(a)
	return
C+
C NAME:
C	datan2d
C CALLING SEQUENCE:
	entry datan2d(a,b)
C INPUTS:
C	a	double precision	sin(angle)
C	b	double precision	cos(angle)
C SEE ALSO:
C	cosd
C MODIFICATION HISTORY:
C	JAN-2001, Paul Hick (UCSD; pphick@ucsd.edu)
C-
	datan2d = MATH__DPR*datan2(a,b)
	return
	end