//*****************************************************************************
//  Filename:	 firs_prgm_t.c
//  Version:	 0.01
//  Description: test for firs routine
//*****************************************************************************

#include <math.h>
#include <tms320.h>
#include <dsplib.h>

#include "test.h"

short i;
short eflag1= PASS;
short eflag2= PASS;
DATA  *dbptr = &db[0];

void main(void)
{
    /* 1. Test for single-buffer */
    /* clear */
    for (i=0; i<NX; i++) r[i] = 0;	     // clear output buffer (optional)
    for (i=0; i<2*NH; i++) db[i] = 0; // clear delay buffer (a must)

    /* compute */
   firs(x, r, &dbptr, NH, NX);

    /* test */
    eflag1 = test (r, rtest, NX, MAXERROR);

    /* 2. Tets for dual-buffer */
    /* clear */
    for (i=0; i<NX; i++) r[i] = 0;	     // clear output buffer (optional)
    for (i=0; i<2*NH; i++) db[i] = 0; // clear delay buffer (a must)

    dbptr = &db[0];

    /* compute */
    if (NX>=4)
    {
        firs(x, r, &dbptr, NH, NX/4);
        firs(&x[NX/4], &r[NX/4], &dbptr, NH, NX/4);
        firs(&x[2*NX/4], &r[2*NX/4], &dbptr, NH, NX/4);
        firs(&x[3*NX/4], &r[3*NX/4], &dbptr, NH, NX/4);
    }

    /* test */
    eflag2 = test (r, rtest, NX, MAXERROR);

    if (eflag1 != PASS)
    {
        exit(-1);
    }

    if (eflag2 != PASS)
    {
        exit(-2);
    }

    return;
}