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