1 files changed, 1 insertions, 0 deletions
diff --git a/lib/leanconvert.c b/lib/leanconvert.c
new file mode 100644
index 0000000..617c665
--- /dev/null
+++ b/lib/leanconvert.c
@@ -0,0 +1 @@
+#include "fftease.h"
+void leanconvert( float *S, float *C, int N2 )
+{
+ int		real, imag,
+		amp, phase;
+ float		a, b;
+  int		i;
+	double hypot(), atan2();
+	
+ for ( i = 0; i <= N2; i++ ) {
+   imag = phase = ( real = amp = i<<1 ) + 1;
+   a = ( i == N2 ? S[1] : S[real] );
+   b = ( i == 0 || i == N2 ? 0. : S[imag] );
+   C[amp] = hypot( a, b );
+   C[phase] = -atan2( b, a );
+ }
+}
+\ No newline at end of file