From 883693213d04ea4b95c618ae6a258c1566c3ffc6 Mon Sep 17 00:00:00 2001
From: jofret
Date: Thu, 22 May 2008 09:40:40 +0000
Subject: * Update to Scilab Algorithm * License update * Need some tests

---
 src/elementaryFunctions/log10/zlog10s.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/elementaryFunctions/log10/zlog10s.c')

diff --git a/src/elementaryFunctions/log10/zlog10s.c b/src/elementaryFunctions/log10/zlog10s.c
index 7988b00d..5403162f 100644
--- a/src/elementaryFunctions/log10/zlog10s.c
+++ b/src/elementaryFunctions/log10/zlog10s.c
@@ -11,8 +11,9 @@
  */
 
 #include "log10.h"
+#include "log.h"
 
 doubleComplex	zlog10s(doubleComplex in) {
-  /* FIXME : Implementation */
-  return in;
+  doubleComplex log_z = zlogs(in);
+  return DoubleComplex(zreals(log_z) / dlogs(10.0), zimags(log_z) / dlogs(10.0));
 }
-- 
cgit