source: trunk/src/gcc/libf2c/libF77/d_acos.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: 178 bytes
Line 
1#include "f2c.h"
2
3#ifdef KR_headers
4double acos();
5double d_acos(x) doublereal *x;
6#else
7#undef abs
8#include <math.h>
9double d_acos(doublereal *x)
10#endif
11{
12return( acos(*x) );
13}
Note: See TracBrowser for help on using the repository browser.