//| Copyright: (C) 2009-2020 Kevin Larke <contact AT larke DOT org> 
//| License: GNU GPL version 3.0 or above. See the accompanying LICENSE file.
#include "cmPrefix.h"
#include "cmGlobal.h"
#include "cmFloatTypes.h"
#include "cmComplexTypes.h"

void cmVOCR_MultVVV( cmComplexR_t* y, const cmComplexS_t* x0, const cmComplexR_t* x1, unsigned n )
{
  unsigned i;
  for(i=0; i<n; ++i)
  {
    y[i] = x0[i] * x1[i];
    /*
    cmReal_t ab = x0[i].r * x1[i].r;
    cmReal_t bd = x0[i].i * x1[i].i;
    cmReal_t bc = x0[i].i * x1[i].r;
    cmReal_t ad = x0[i].r * x1[i].i;
    y[i].r = ab - bd;
    y[i].i = bc + ad;    
    */
  }

}

void cmVOCR_MultVFV(  cmComplexR_t* y, const float* x, unsigned n )
{
  unsigned i;
  for(i=0; i<n; ++i)
  {
    y[i] *= x[i];
  }
}

void cmVOCR_DivVFV(   cmComplexR_t* y, const float* x, unsigned n )
{
  unsigned i;
  for(i=0; i<n; ++i)
  {
    y[i] /= x[i];
  }  
}


void cmVOCR_Abs(     cmSample_t* y, const cmComplexR_t* x, unsigned n )
{
  unsigned i;
  for(i=0; i<n; ++i)
    y[i] = (cmSample_t)cmCabsR(x[i]);
}


void cmVOCR_DivR_VV(   cmComplexR_t* y, const cmReal_t* x, unsigned n )
{
  unsigned i;
  for(i=0; i<n; ++i)
  {
    y[i] /= x[i];
    //y[i].r /= x[i];
    //y[i].i /= x[i];
  }  
}