15 lines
307 B
C++
15 lines
307 B
C++
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
#include "lmp_f2c.h"
|
|
doublereal dcabs1_(doublecomplex *z__)
|
|
{
|
|
doublereal ret_val, d__1, d__2;
|
|
double d_lmp_imag(doublecomplex *);
|
|
ret_val = (d__1 = z__->r, abs(d__1)) + (d__2 = d_lmp_imag(z__), abs(d__2));
|
|
return ret_val;
|
|
}
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|