//*****************************************************************************
//  Filename:	 rifft_t.c
//  Version:	 0.01
//  Description: test for inverse rfft routine
//*****************************************************************************

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

short i;
short eflag= PASS;

void main(void)
{
    /* compute */
    unpacki(x,NX);
    cbrev(x,x,NX/2);
    rifft(x,NX,1);


    /* test */
    eflag  = test(x, rtest, NX, MAXERROR);	// for r

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

    return;
}