diff --git a/cmComplexTypes.c b/cmComplexTypes.c
new file mode 100644
index 0000000..2929400
--- /dev/null
+++ b/cmComplexTypes.c
@@ -0,0 +1,42 @@
+
+
+void cmVOCR_MultVVV( cmComplexR_t* y, const cmComplex_t* x0, const cmComplexR_t* x1, unsigned n )
+{
+  unsigned i;
+  for(i=0; i<n; ++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_Abs(     cmReal_t* y, const cmComplexR_t* x, unsigned n )
+{
+  for(i=0; i<n; ++i)
+    y[i] = cmAbsR(x[i]);
+}
+
+void cmVOCR_MultR_VV(  cmComplexR_t* y, const cmReal_t* x, unsigned n )
+{
+  unsigned i;
+  for(i=0; i<n; ++i)
+  {
+    y[i].r *= x[i];
+    y[i].i *= 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].r /= x[i];
+    y[i].i /= x[i];
+  }  
+}
diff --git a/cmComplexTypes.h b/cmComplexTypes.h
index e35b0db..c6711df 100644
--- a/cmComplexTypes.h
+++ b/cmComplexTypes.h
@@ -84,4 +84,10 @@
 
 #endif
 
+void cmVOCR_MultVVV( cmComplexR_t* y, const cmComplexR_t* x0, const cmComplexR_t* x1, unsigned n );
+void cmVOCR_Abs(     cmReal_t*     y, const cmComplexR_t* x, unsigned n );
+void cmVOCR_MultVS(  cmComplexR_t* y, cmReal_t v, unsigned n );
+void cmVOCR_DivVS(   cmComplexR_t* y, cmReal_t v, unsigned n );
+
+
 #endif