provide a definition of z_sin

This commit is contained in:
martin-frbg 2022-04-13 22:37:27 +02:00
parent 538a499a71
commit 8d13822a4c
1 changed files with 1 additions and 0 deletions

View File

@ -199,6 +199,7 @@ typedef struct Namelist Namelist;
#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));}
#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));}
#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));}
#define z_sin(R, Z) {pCd(R) = csin(Cd(Z));}
//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));}
#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));}
#define d_abs(x) (fabs(*(x)))