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

Complex number handling other than MSVC

This commit is contained in:
Holger Vogt 2023-03-15 18:32:43 +01:00
parent 71571a1432
commit 68156fa62c
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/maths/cmaths/cmath1.c
View File

@ -874,8 +874,13 @@ cx_atanh(void* data, short int type, int length, int* newlength, short int* newt
ngcomplex_t* cc = (ngcomplex_t*)data; ngcomplex_t* cc = (ngcomplex_t*)data;
int i; int i;
for (i = 0; i < length; i++) { for (i = 0; i < length; i++) {
#ifdef _MSC_VER
_Dcomplex midin = _Cbuild(cc->cx_real, cc->cx_imag); _Dcomplex midin = _Cbuild(cc->cx_real, cc->cx_imag);
_Dcomplex midout = catanh(midin); _Dcomplex midout = catanh(midin);
#else
double complex midin = cc->cx_real + _Complex_I * cc->cx_imag;
double complex midout = catanh(midin);
#endif
d[i].cx_real = creal(midout); d[i].cx_real = creal(midout);
d[i].cx_imag = cimag(midout); d[i].cx_imag = cimag(midout);
} }