
float bR[size], bI[size];

(void) vsSet( bR, size, 0.0 );
(void) vsSet( bI, size, 0.0 );

for( k = 0; k < size; k++ )
   {
    for( n = 0; n < size; n++ )
       {
        f  = -2.0*PI*k*n/size;
        vL = exp( f );

        bR[k] += rdata[n]*vL;
        bI[k] += idata[n]*vL;
       } 
   }

(void) vvCopy( rdata, bR, size );
(void) vvCopy( idata, bI, size );
