add some f2c runtime functions, remove exception, avoid name conflict with libgfortran

This commit is contained in:
Axel Kohlmeyer
2022-12-28 15:31:49 -05:00
parent 1e8b2ad5a0
commit f157ba2389
100 changed files with 1233 additions and 437 deletions

12
lib/linalg/i_lmp_dnnt.cpp Normal file
View 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));
}
}