
      FUNCTION COSD(X)                                                  0841
      Y=X*1.745E-2                                                      0842
      COSD=COS(Y)                                                       0843
      RETURN                                                            0844
      END                                                               0845
