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

@ -104,7 +104,7 @@ extern "C" {
doublecomplex z__1, z__2, z__3;
/* Builtin functions */
void d_cnjg(doublecomplex *, doublecomplex *);
void d_lmp_cnjg(doublecomplex *, doublecomplex *);
/* Local variables */
integer i__, ix, iy;
@ -142,7 +142,7 @@ extern "C" {
i__1 = *n;
for (i__ = 1; i__ <= i__1; ++i__) {
d_cnjg(&z__3, &zx[i__]);
d_lmp_cnjg(&z__3, &zx[i__]);
i__2 = i__;
z__2.r = z__3.r * zy[i__2].r - z__3.i * zy[i__2].i, z__2.i =
z__3.r * zy[i__2].i + z__3.i * zy[i__2].r;
@ -164,7 +164,7 @@ extern "C" {
}
i__1 = *n;
for (i__ = 1; i__ <= i__1; ++i__) {
d_cnjg(&z__3, &zx[ix]);
d_lmp_cnjg(&z__3, &zx[ix]);
i__2 = iy;
z__2.r = z__3.r * zy[i__2].r - z__3.i * zy[i__2].i, z__2.i =
z__3.r * zy[i__2].i + z__3.i * zy[i__2].r;