source: trunk/src/gcc/libf2c/libF77/r_atn2.c@ 2

Last change on this file since 2 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: 186 bytes
Line 
1#include "f2c.h"
2
3#ifdef KR_headers
4double atan2();
5double r_atn2(x,y) real *x, *y;
6#else
7#undef abs
8#include <math.h>
9double r_atn2(real *x, real *y)
10#endif
11{
12return( atan2(*x,*y) );
13}
Note: See TracBrowser for help on using the repository browser.