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/dstedc.cpp
View File

@ -223,7 +223,7 @@ f"> */
/* Builtin functions */
double log(doublereal);
integer pow_ii(integer *, integer *);
integer pow_lmp_ii(integer *, integer *);
double sqrt(doublereal);
/* Local variables */
@ -336,10 +336,10 @@ f"> */
lwmin = *n - 1 << 1;
} else {
lgn = (integer) (log((doublereal) (*n)) / log(2.));
if (pow_ii(&c__2, &lgn) < *n) {
if (pow_lmp_ii(&c__2, &lgn) < *n) {
++lgn;
}
if (pow_ii(&c__2, &lgn) < *n) {
if (pow_lmp_ii(&c__2, &lgn) < *n) {
++lgn;
}
if (icompz == 1) {