add some f2c runtime functions, remove exception, avoid name conflict with libgfortran
This commit is contained in:
10
lib/linalg/d_lmp_imag.cpp
Normal file
10
lib/linalg/d_lmp_imag.cpp
Normal file
@ -0,0 +1,10 @@
|
||||
|
||||
#include "lmp_f2c.h"
|
||||
|
||||
extern "C" {
|
||||
|
||||
double d_lmp_imag(doublecomplex *z)
|
||||
{
|
||||
return (z->i);
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user