luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Linking failed on openSUSE Linux gcc: 

make the inline functions static to allow linking
This commit is contained in:
Holger Vogt 2022-03-29 17:50:00 +02:00
parent 32a707fd22
commit 768e4870c6
1 changed files with 50 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

103
src/maths/dense/denseinlines.h
View File

@ -1,39 +1,39 @@
#include <math.h>
inline void setcplx(cplx* d, double r, double i);
inline void cmultc(cplx* res, cplx a, cplx b);
inline cplx cmultco(cplx a, cplx b);
inline cplx cmultdo(cplx a, double d);
inline void cmultd(cplx* res, cplx a, double d);
inline void caddc(cplx* res, cplx a, cplx b);
inline cplx caddco(cplx a, cplx b);
inline void caddd(cplx* res, cplx a, double d);
inline void csubc(cplx* res, cplx a, cplx b);
inline cplx csubco(cplx a, cplx b);
inline void csubd(cplx* res, cplx a, double d);
inline double cmodinv(cplx a);
inline double cmodsqr(cplx a);
static inline void setcplx(cplx* d, double r, double i);
static inline void cmultc(cplx* res, cplx a, cplx b);
static inline cplx cmultco(cplx a, cplx b);
static inline cplx cmultdo(cplx a, double d);
static inline void cmultd(cplx* res, cplx a, double d);
static inline void caddc(cplx* res, cplx a, cplx b);
static inline cplx caddco(cplx a, cplx b);
static inline void caddd(cplx* res, cplx a, double d);
static inline void csubc(cplx* res, cplx a, cplx b);
static inline cplx csubco(cplx a, cplx b);
static inline void csubd(cplx* res, cplx a, double d);
static inline double cmodinv(cplx a);
static inline double cmodsqr(cplx a);
inline int ciszero(cplx a);
inline cplx cinv(cplx a);
inline cplx conju(cplx a);
static inline int ciszero(cplx a);
static inline cplx cinv(cplx a);
static inline cplx conju(cplx a);
inline double cmodu(cplx a);
inline cplx cdivco(cplx a, cplx b);
static inline double cmodu(cplx a);
static inline cplx cdivco(cplx a, cplx b);
inline void setcplx(cplx* d, double r, double i)
static inline void setcplx(cplx* d, double r, double i)
{
d->re = r; d->im = i;
}
inline void cmultc(cplx* res, cplx a, cplx b)
static inline void cmultc(cplx* res, cplx a, cplx b)
{
res->re = a.re * b.re - a.im * b.im;
res->im = a.im * b.re + a.re * b.im;
}
inline cplx cmultco(cplx a, cplx b)
static inline cplx cmultco(cplx a, cplx b)
{
cplx res;
res.re = a.re * b.re - a.im * b.im;
@ -41,39 +41,27 @@
return res;
}
inline cplx cdivco(cplx a, cplx b)
{
cplx res;
double dmod = cmodinv(b);
res.re = (a.re * b.re + a.im * b.im) * dmod;
res.im = (a.im * b.re - a.re * b.im) * dmod;
return res;
}
inline cplx cmultdo(cplx a, double d)
static inline cplx cmultdo(cplx a, double d)
{
cplx res;
res.re = a.re * d;
res.im = a.im * d;
return res;
}
inline void cmultd(cplx* res, cplx a, double d)
static inline void cmultd(cplx* res, cplx a, double d)
{
res->re = a.re * d;
res->im = a.im * d;
}
inline void caddc(cplx* res, cplx a, cplx b)
static inline void caddc(cplx* res, cplx a, cplx b)
{
res->re = a.re + b.re;
res->im = a.im + b.im;
}
inline cplx caddco(cplx a, cplx b)
static inline cplx caddco(cplx a, cplx b)
{
cplx res;
res.re = a.re + b.re;
@ -81,19 +69,18 @@
return res;
}
inline void caddd(cplx* res, cplx a, double d)
static inline void caddd(cplx* res, cplx a, double d)
{
res->re = a.re + d;
}
inline void csubc(cplx* res, cplx a, cplx b)
static inline void csubc(cplx* res, cplx a, cplx b)
{
res->re = a.re - b.re;
res->im = a.im - b.im;
}
inline cplx csubco(cplx a, cplx b)
static inline cplx csubco(cplx a, cplx b)
{
cplx res;
res.re = a.re - b.re;
@ -101,30 +88,32 @@
return res;
}
inline void csubd(cplx* res, cplx a, double d)
static inline void csubd(cplx* res, cplx a, double d)
{
res->re = a.re - d;
}
inline double cmodinv(cplx a)
{
return 1.0 / cmodsqr(a);
}
inline double cmodsqr(cplx a)
static inline double cmodsqr(cplx a)
{
return (a.re * a.re + a.im * a.im);
}
inline double cmodu(cplx a)
static inline double cmodinv(cplx a)
{
return 1.0 / cmodsqr(a);
}
static inline double cmodu(cplx a)
{
return sqrt(cmodsqr(a));
}
inline int ciszero(cplx a)
static inline int ciszero(cplx a)
{
return (a.re == 0) && (a.im == 0);
}
inline cplx cinv(cplx a)
static inline cplx cinv(cplx a)
{
cplx res;
double cpmod = cmodinv(a);
@ -133,7 +122,7 @@
return res;
}
inline cplx conju(cplx a)
static inline cplx conju(cplx a)
{
cplx res;
res.re = a.re;
@ -141,4 +130,12 @@
return res;
}
static inline cplx cdivco(cplx a, cplx b)
{
cplx res;
double dmod = cmodinv(b);
res.re = (a.re * b.re + a.im * b.im) * dmod;
res.im = (a.im * b.re - a.re * b.im) * dmod;
return res;
}