FUNCTION COSDG(X)
C***BEGIN PROLOGUE  COSDG
C***DATE WRITTEN   770601   (YYMMDD)
C***REVISION DATE  820801   (YYMMDD)
C***CATEGORY NO.  C4A
C***KEYWORDS  COSINE,DEGREE,FNLIB,TRIGONOMETRIC
C***AUTHOR  FULLERTON, W., (LANL)
C***PURPOSE  Computes the Cosine of an argument in degrees.
C***DESCRIPTION
C
C COSDG(X) evaluates the cosine for real X in degrees.
C***REFERENCES  (NONE)
C***ROUTINES CALLED  (NONE)
C***END PROLOGUE  COSDG