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 }