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

@ -146,7 +146,7 @@ f"> */
doublecomplex z__1;
/* Builtin functions */
void z_div(doublecomplex *, doublecomplex *, doublecomplex *);
void z_lmp_div(doublecomplex *, doublecomplex *, doublecomplex *);
/* Local variables */
integer j, jc, jj;
@ -243,7 +243,7 @@ f"> */
for (j = 1; j <= i__1; ++j) {
if (nounit) {
i__2 = jc + j - 1;
z_div(&z__1, &c_b1, &ap[jc + j - 1]);
z_lmp_div(&z__1, &c_b1, &ap[jc + j - 1]);
ap[i__2].r = z__1.r, ap[i__2].i = z__1.i;
i__2 = jc + j - 1;
z__1.r = -ap[i__2].r, z__1.i = -ap[i__2].i;
@ -272,7 +272,7 @@ f"> */
for (j = *n; j >= 1; --j) {
if (nounit) {
i__1 = jc;
z_div(&z__1, &c_b1, &ap[jc]);
z_lmp_div(&z__1, &c_b1, &ap[jc]);
ap[i__1].r = z__1.r, ap[i__1].i = z__1.i;
i__1 = jc;
z__1.r = -ap[i__1].r, z__1.i = -ap[i__1].i;