source: trunk/src/gcc/libf2c/libF77/r_cos.c@ 645

Last change on this file since 645 was 2, checked in by bird, 23 years ago

Initial revision
  • Property cvs2svn:cvs-rev set to 1.1
  • Property svn:eol-style set to native
  • Property svn:executable set to *
File size: 162 bytes
Line 
1#include "f2c.h"
2
3#ifdef KR_headers
4double cos();
5double r_cos(x) real *x;
6#else
7#undef abs
8#include <math.h>
9double r_cos(real *x)
10#endif
11{
12return( cos(*x) );
13}
Note: See TracBrowser for help on using the repository browser.