add some f2c runtime functions, remove exception, avoid name conflict with libgfortran
This commit is contained in:
12
lib/linalg/i_lmp_dnnt.cpp
Normal file
12
lib/linalg/i_lmp_dnnt.cpp
Normal file
@ -0,0 +1,12 @@
|
||||
|
||||
#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));
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user