From 8d13822a4c7161740a201ebeefa49c4988686724 Mon Sep 17 00:00:00 2001 From: martin-frbg Date: Wed, 13 Apr 2022 22:37:27 +0200 Subject: [PATCH] provide a definition of z_sin --- lapack-netlib/TESTING/MATGEN/zlatm5.c | 1 + 1 file changed, 1 insertion(+) diff --git a/lapack-netlib/TESTING/MATGEN/zlatm5.c b/lapack-netlib/TESTING/MATGEN/zlatm5.c index dda55853b..047a633c4 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm5.c +++ b/lapack-netlib/TESTING/MATGEN/zlatm5.c @@ -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)))