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

@ -100,7 +100,7 @@ extern "C" {
doublecomplex z__1;
/* Builtin functions */
double d_imag(doublecomplex *);
double d_lmp_imag(doublecomplex *);
/* Local variables */
integer i__, nincx;
@ -138,7 +138,7 @@ extern "C" {
i__2 = i__;
i__3 = i__;
d__1 = *da * zx[i__3].r;
d__2 = *da * d_imag(&zx[i__]);
d__2 = *da * d_lmp_imag(&zx[i__]);
z__1.r = d__1, z__1.i = d__2;
zx[i__2].r = z__1.r, zx[i__2].i = z__1.i;
}
@ -153,7 +153,7 @@ extern "C" {
i__3 = i__;
i__4 = i__;
d__1 = *da * zx[i__4].r;
d__2 = *da * d_imag(&zx[i__]);
d__2 = *da * d_lmp_imag(&zx[i__]);
z__1.r = d__1, z__1.i = d__2;
zx[i__3].r = z__1.r, zx[i__3].i = z__1.i;
}