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

@ -97,7 +97,7 @@ doublereal dznrm2_(integer *n, doublecomplex *x, integer *incx)
doublereal ret_val, d__1;
/* Builtin functions */
double d_imag(doublecomplex *), sqrt(doublereal);
double d_lmp_imag(doublecomplex *), sqrt(doublereal);
/* Local variables */
integer ix;
@ -153,8 +153,8 @@ doublereal dznrm2_(integer *n, doublecomplex *x, integer *incx)
ssq += d__1 * d__1;
}
}
if (d_imag(&x[ix]) != 0.) {
temp = (d__1 = d_imag(&x[ix]), abs(d__1));
if (d_lmp_imag(&x[ix]) != 0.) {
temp = (d__1 = d_lmp_imag(&x[ix]), abs(d__1));
if (scale < temp) {
/* Computing 2nd power */
d__1 = scale / temp;