Mercurial > hg > qm-dsp

view ext/clapack/src/i_nint.c @ 222:0990c1cb4049 chroma-key-tuning-review

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Incomplete) unit tests for chroma and key estimation
author Chris Cannam
date Thu, 23 May 2019 13:29:02 +0100
parents 45330e0d2819
children
line wrap: on
line source
#include "f2c.h"

#ifdef KR_headers
double floor();
integer i_nint(x) real *x;
#else
#undef abs
#include "math.h"
#ifdef __cplusplus
extern "C" {
#endif
integer i_nint(real *x)
#endif
{
return (integer)(*x >= 0 ? floor(*x + .5) : -floor(.5 - *x));
}
#ifdef __cplusplus
}
#endif