refactor: replace sin by FFTPACK_SIN in sinti (#83)

gunjjoshi · web-flow · commit d321d006467f · 2026-01-12T13:52:16.000+01:00
diff --git a/fftpack.c b/fftpack.c
@@ -2628,7 +2628,7 @@ void sinti(integer n, real *wsave)
   np1 = n + 1;
   dt = M_PI / (real) np1;
   for (k = 1; k <= ns2; ++k) {
-    wsave[k] = sin(k * dt) * 2.f;
+    wsave[k] = FFTPACK_SIN(k * dt) * 2.f;
   }
   rffti(np1, &wsave[ns2 + 1]);
 } /* sinti */

Original file line number	Diff line number	Diff line change
`@@ -2628,7 +2628,7 @@ void sinti(integer n, real *wsave)`
`2628`	`2628`	`np1 = n + 1;`
`2629`	`2629`	`dt = M_PI / (real) np1;`
`2630`	`2630`	`for (k = 1; k <= ns2; ++k) {`
`2631`		`- wsave[k] = sin(k * dt) * 2.f;`
	`2631`	`+ wsave[k] = FFTPACK_SIN(k * dt) * 2.f;`
`2632`	`2632`	`}`
`2633`	`2633`	`rffti(np1, &wsave[ns2 + 1]);`
`2634`	`2634`	`} /* sinti */`