13 lines
172 B
C++
13 lines
172 B
C++
|
|
#include "lmp_f2c.h"
|
|
|
|
#undef abs
|
|
#include <cmath>
|
|
|
|
extern "C" {
|
|
integer i_lmp_dnnt(doublereal *x)
|
|
{
|
|
return (integer)(*x >= 0. ? floor(*x + .5) : -floor(.5 - *x));
|
|
}
|
|
}
|