ICODE-ADC/lammps
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/linalg/dsterf.cpp
View File

@ -116,7 +116,7 @@ f"> */
doublereal d__1, d__2, d__3;
/* Builtin functions */
double sqrt(doublereal), d_sign(doublereal *, doublereal *);
double sqrt(doublereal), d_lmp_sign(doublereal *, doublereal *);
/* Local variables */
doublereal c__;
@ -342,7 +342,7 @@ L70:
rte = sqrt(e[l]);
sigma = (d__[l + 1] - p) / (rte * 2.);
r__ = dlapy2_(&sigma, &c_b33);
sigma = p - rte / (sigma + d_sign(&r__, &sigma));
sigma = p - rte / (sigma + d_lmp_sign(&r__, &sigma));
c__ = 1.;
s = 0.;
@ -440,7 +440,7 @@ L120:
rte = sqrt(e[l - 1]);
sigma = (d__[l - 1] - p) / (rte * 2.);
r__ = dlapy2_(&sigma, &c_b33);
sigma = p - rte / (sigma + d_sign(&r__, &sigma));
sigma = p - rte / (sigma + d_lmp_sign(&r__, &sigma));
c__ = 1.;
s = 0.;