source: trunk/src/gcc/libf2c/libF77/r_int.c@ 603

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