Mercurial > hg > qm-dsp

view ext/clapack/src/i_nint.c @ 218:9c873d123b7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First cut at Travis build
author Chris Cannam
date Mon, 20 May 2019 16:30:19 +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