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

18
lib/linalg/zher2.cpp
View File

@ -173,7 +173,7 @@ extern "C" {
doublecomplex z__1, z__2, z__3, z__4;
/* Builtin functions */
void d_cnjg(doublecomplex *, doublecomplex *);
void d_lmp_cnjg(doublecomplex *, doublecomplex *);
/* Local variables */
integer i__, j, ix, iy, jx, jy, kx, ky, info;
@ -271,7 +271,7 @@ extern "C" {
i__3 = j;
if (x[i__2].r != 0. || x[i__2].i != 0. || (y[i__3].r != 0. ||
y[i__3].i != 0.)) {
d_cnjg(&z__2, &y[j]);
d_lmp_cnjg(&z__2, &y[j]);
z__1.r = alpha->r * z__2.r - alpha->i * z__2.i, z__1.i =
alpha->r * z__2.i + alpha->i * z__2.r;
temp1.r = z__1.r, temp1.i = z__1.i;
@ -279,7 +279,7 @@ extern "C" {
z__2.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i,
z__2.i = alpha->r * x[i__2].i + alpha->i * x[i__2]
.r;
d_cnjg(&z__1, &z__2);
d_lmp_cnjg(&z__1, &z__2);
temp2.r = z__1.r, temp2.i = z__1.i;
i__2 = j - 1;
for (i__ = 1; i__ <= i__2; ++i__) {
@ -327,7 +327,7 @@ extern "C" {
i__3 = jy;
if (x[i__2].r != 0. || x[i__2].i != 0. || (y[i__3].r != 0. ||
y[i__3].i != 0.)) {
d_cnjg(&z__2, &y[jy]);
d_lmp_cnjg(&z__2, &y[jy]);
z__1.r = alpha->r * z__2.r - alpha->i * z__2.i, z__1.i =
alpha->r * z__2.i + alpha->i * z__2.r;
temp1.r = z__1.r, temp1.i = z__1.i;
@ -335,7 +335,7 @@ extern "C" {
z__2.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i,
z__2.i = alpha->r * x[i__2].i + alpha->i * x[i__2]
.r;
d_cnjg(&z__1, &z__2);
d_lmp_cnjg(&z__1, &z__2);
temp2.r = z__1.r, temp2.i = z__1.i;
ix = kx;
iy = ky;
@ -394,7 +394,7 @@ extern "C" {
i__3 = j;
if (x[i__2].r != 0. || x[i__2].i != 0. || (y[i__3].r != 0. ||
y[i__3].i != 0.)) {
d_cnjg(&z__2, &y[j]);
d_lmp_cnjg(&z__2, &y[j]);
z__1.r = alpha->r * z__2.r - alpha->i * z__2.i, z__1.i =
alpha->r * z__2.i + alpha->i * z__2.r;
temp1.r = z__1.r, temp1.i = z__1.i;
@ -402,7 +402,7 @@ extern "C" {
z__2.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i,
z__2.i = alpha->r * x[i__2].i + alpha->i * x[i__2]
.r;
d_cnjg(&z__1, &z__2);
d_lmp_cnjg(&z__1, &z__2);
temp2.r = z__1.r, temp2.i = z__1.i;
i__2 = j + j * a_dim1;
i__3 = j + j * a_dim1;
@ -450,7 +450,7 @@ extern "C" {
i__3 = jy;
if (x[i__2].r != 0. || x[i__2].i != 0. || (y[i__3].r != 0. ||
y[i__3].i != 0.)) {
d_cnjg(&z__2, &y[jy]);
d_lmp_cnjg(&z__2, &y[jy]);
z__1.r = alpha->r * z__2.r - alpha->i * z__2.i, z__1.i =
alpha->r * z__2.i + alpha->i * z__2.r;
temp1.r = z__1.r, temp1.i = z__1.i;
@ -458,7 +458,7 @@ extern "C" {
z__2.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i,
z__2.i = alpha->r * x[i__2].i + alpha->i * x[i__2]
.r;
d_cnjg(&z__1, &z__2);
d_lmp_cnjg(&z__1, &z__2);
temp2.r = z__1.r, temp2.i = z__1.i;
i__2 = j + j * a_dim1;
i__3 = j + j * a_dim1;