floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lapack-netlib/TESTING/MATGEN/zlatm5.c
View File

@ -199,6 +199,7 @@ typedef struct Namelist Namelist;
#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} #define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));}
#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} #define c_log(R, Z) {pCf(R) = clogf(Cf(Z));}
#define c_sin(R, Z) {pCf(R) = csinf(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) {*(R) = csqrtf(Cf(Z));}
#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} #define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));}
#define d_abs(x) (fabs(*(x))) #define d_abs(x) (fabs(*(x)))