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

@ -88,7 +88,7 @@ f"> */
doublecomplex z__1;
/* Builtin functions */
double d_imag(doublecomplex *);
double d_lmp_imag(doublecomplex *);
/* Local variables */
doublereal zi, zr;
@ -114,9 +114,9 @@ f"> */
/* .. Executable Statements .. */
d__1 = x->r;
d__2 = d_imag(x);
d__2 = d_lmp_imag(x);
d__3 = y->r;
d__4 = d_imag(y);
d__4 = d_lmp_imag(y);
dladiv_(&d__1, &d__2, &d__3, &d__4, &zr, &zi);
z__1.r = zr, z__1.i = zi;
ret_val->r = z__1.r, ret_val->i = z__1.i;