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

@ -310,7 +310,7 @@ f"> */
z_dim1, z_offset, i__1, i__2;
/* Builtin functions */
integer pow_ii(integer *, integer *);
integer pow_lmp_ii(integer *, integer *);
/* Local variables */
integer i__, j, m, i1, ic, lf, nd, ll, nl, vf, nr, vl, im1, ncc, nlf, nrf,
@ -553,7 +553,7 @@ f"> */
/* Now conquer each subproblem bottom-up. */
j = pow_ii(&c__2, &nlvl);
j = pow_lmp_ii(&c__2, &nlvl);
for (lvl = nlvl; lvl >= 1; --lvl) {
lvl2 = (lvl << 1) - 1;
@ -565,7 +565,7 @@ f"> */
ll = 1;
} else {
i__1 = lvl - 1;
lf = pow_ii(&c__2, &i__1);
lf = pow_lmp_ii(&c__2, &i__1);
ll = (lf << 1) - 1;
}
i__1 = ll;