Mercurial > hg > qm-dsp

comparison ext/clapack/src/i_nint.c @ 430:335af74a25b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from branch clapack-included
author Chris Cannam <c.cannam@qmul.ac.uk>
date Fri, 30 Sep 2016 16:24:24 +0100
parents 905e45637745
children
comparison
equal deleted inserted replaced
426:a23b9f8b4a59 430:335af74a25b6
1 #include "f2c.h"
2
3 #ifdef KR_headers
4 double floor();
5 integer i_nint(x) real *x;
6 #else
7 #undef abs
8 #include "math.h"
9 #ifdef __cplusplus
10 extern "C" {
11 #endif
12 integer i_nint(real *x)
13 #endif
14 {
15 return (integer)(*x >= 0 ? floor(*x + .5) : -floor(.5 - *x));
16 }
17 #ifdef __cplusplus
18 }
19 #endif