From b418fb91e7bb45d7b5f1eb8b19703441ae94eb13 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Thu, 9 Feb 2006 16:18:39 +0000
Subject: got everything building and working, including building
 single-object/single-file objects with a shared dylib.  Now got to get it
 integrated into the build system

svn path=/trunk/externals/fftease/; revision=4574
---
 lib/bloscbank.c | 1 +
 1 file changed, 1 insertion(+)
 create mode 100644 lib/bloscbank.c

(limited to 'lib/bloscbank.c')

diff --git a/lib/bloscbank.c b/lib/bloscbank.c
new file mode 100644
index 0000000..c35ab0d
--- /dev/null
+++ b/lib/bloscbank.c
@@ -0,0 +1 @@
+
#include "fftease.h"

void bloscbank( float *S, float *O, int D, float iD, float *lf, float *la, float *index, float *tab, 
	int len, float synt, int lo, int hi )
{
  int    amp,freq,chan, i;

  float    a,ainc,f,finc,address;
  
  for ( chan = lo; chan < hi; chan++ ) {

    freq = ( amp = ( chan << 1 ) ) + 1;
    if ( S[amp] > synt ){ 
      finc = ( S[freq] - ( f = lf[chan] ) )* iD;
      ainc = ( S[amp] - ( a = la[chan] ) )* iD;
      address = index[chan];
      for ( i = 0; i < D ; i++ ) {
	O[i] += a*tab[ (int) address ];
	    
	address += f;
	while ( address >= len )
	  address -= len;
	while ( address < 0 )
	  address += len;
	a += ainc;
	f += finc;
      }
      lf[chan] = S[freq];
      la[chan] = S[amp];
      index[chan] = address;
    }    
  }
}
\ No newline at end of file
-- 
cgit v1.2.1