1 files changed, 13 insertions, 1 deletions
diff --git a/src/type/floatComplex.c b/src/type/floatComplex.c
index c2b2bdb6..af23cb98 100644
--- a/src/type/floatComplex.c
+++ b/src/type/floatComplex.c
@@ -171,12 +171,24 @@ floatComplex cdiffs(floatComplex z1, floatComplex z2) {
 floatComplex ctimess(floatComplex z1, floatComplex z2) {
 #ifndef STDC99
   return FloatComplex(z1.real*z2.real - z1.imag*z2.imag,
-		       z1.real*z2.imag + z2.real*z1.imag);
+		      z1.real*z2.imag + z2.real*z1.imag);
 #else
   return z1 * z2;
 #endif
 }
 
+/*
+** \function cdivides
+** \brief Divide 2 Complex numbers.
+*/
+floatComplex cdevides(floatComplex z1, floatComplex z2) {
+#ifndef STDC99
+  return FloatComplex((z1.real*z2.real + z1.imag*z2.imag) / (z2.real*z2.real + z2.imag* z2.imag),
+		      (z1.imag*z2.real - z1.real*z2.imag) / (z2.real*z2.real + z2.imag* z2.imag));
+#else
+  return z1 / z2;
+#endif
+}