Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
i_nint.c
Go to the documentation of this file.00001 #include "f2c.h"
00002
00003 #ifdef KR_headers
00004 double floor();
00005 integer i_nint(x) real *x;
00006 #else
00007 #undef abs
00008 #include "mathh.h"
00009 integer i_nint(real *x)
00010 #endif
00011 {
00012 return( (*x)>=0 ?
00013 floor(*x + .5) : -floor(.5 - *x) );
00014 }