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

4
lib/linalg/dcabs1.cpp
View File

@ -66,7 +66,7 @@ doublereal dcabs1_(doublecomplex *z__)
doublereal ret_val, d__1, d__2;
/* Builtin functions */
double d_imag(doublecomplex *);
double d_lmp_imag(doublecomplex *);
/* -- Reference BLAS level1 routine -- */
@ -80,7 +80,7 @@ doublereal dcabs1_(doublecomplex *z__)
/* .. Intrinsic Functions .. */
ret_val = (d__1 = z__->r, abs(d__1)) + (d__2 = d_imag(z__), abs(d__2));
ret_val = (d__1 = z__->r, abs(d__1)) + (d__2 = d_lmp_imag(z__), abs(d__2));
return ret_val;
/* End of DCABS1 */