source: Deliverables/D2.2/8051/tests/clight/fir_complexe.c

int t1[16];
int t2[16];
int t3[16];
int t4[16];
int t5[16];
int t6[16];

void init(){
        int i;
        for(i=0;i<16;i++){
                t1[i] = 2;
                t2[i] = 2;
                t3[i] = 2;
                t4[i] = 2;
                t5[i] = 2;
                t6[i] = 2;
        }
}

int comp_fir_complexe(int in_re[], int in_im[], int c_re[], int c_im[], int out_re[], int out_im[], int size) {
    int i,j,res_re,res_im,tmp_im,tmp_re,tmp_x_re,tmp_x_im;
        int x_re[16];
        int x_im[16];
        int ii;
        for(ii=0;ii<16;ii++){x_re[ii]=0;x_im[ii]=0;}
        int adx = 0;
        res_re = 0; res_im = 0;
        for (j=0;j<size;j=j+1) {
                x_re[adx]=in_re[j];
                x_im[adx]=in_im[j];

            for(i=0;i<16;i=i+1){
                tmp_x_re = x_re[adx];
                tmp_x_im = x_im[adx];
                tmp_re = (tmp_x_re*c_re[i]-tmp_x_im*c_im[i])>>4;
                tmp_im = (tmp_x_re*c_im[i]+tmp_x_im*c_re[i])>>4;
                res_re = res_re + tmp_re;
                res_im = res_im + tmp_im;
                adx=(adx+1)%16;
            }

            adx=(adx+1)%16;

            out_re[j]=res_re;
            out_im[j]=res_im;
    }
        return 0;
}
int main(){
        init();
        return comp_fir_complexe(t1,t2,t3,t4,t5,t6,16);
}