home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / COSD.FOR < prev    next >
Encoding:
Text File  |  1986-12-15  |  512 b   |  7 lines
  1.  
  2.       FUNCTION COSD(X)                                                  0841
  3.       Y=X*1.745E-2                                                      0842
  4.       COSD=COS(Y)                                                       0843
  5.       RETURN                                                            0844
  6.       END                                                               0845
  7.