Line | Count | Source (jump to first uncovered line) |
1 | #include "f2c.h" | |
2 | ||
3 | #ifdef KR_headers | |
4 | double floor(); | |
5 | integer i_dnnt(x) doublereal *x; | |
6 | #else | |
7 | #undef abs | |
8 | #include "math.h" | |
9 | #ifdef __cplusplus | |
10 | extern "C" { | |
11 | #endif | |
12 | integer i_dnnt(doublereal *x) | |
13 | #endif | |
14 | 0 | { |
15 | 0 | return (integer)(*x >= 0. ? floor(*x + .5) : -floor(.5 - *x)); |
16 | 0 | } |
17 | #ifdef __cplusplus | |
18 | } | |
19 | #endif |