diff options
author | jofret | 2007-09-11 15:56:00 +0000 |
---|---|---|
committer | jofret | 2007-09-11 15:56:00 +0000 |
commit | 110650613fca7f68c4e683c7fb1b4cc0eb9279ee (patch) | |
tree | a290bf52192de61fc2985476bfeac2c96d4b2186 /src/elementaryFunctions/sqrt/zsqrta.c | |
parent | a42d5b3af83a3f943eaeba29a93b3c8900e3ac74 (diff) | |
download | scilab2c-110650613fca7f68c4e683c7fb1b4cc0eb9279ee.tar.gz scilab2c-110650613fca7f68c4e683c7fb1b4cc0eb9279ee.tar.bz2 scilab2c-110650613fca7f68c4e683c7fb1b4cc0eb9279ee.zip |
Adding sqrt functions.
Need more precision and think about type returned.
Diffstat (limited to 'src/elementaryFunctions/sqrt/zsqrta.c')
-rw-r--r-- | src/elementaryFunctions/sqrt/zsqrta.c | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/src/elementaryFunctions/sqrt/zsqrta.c b/src/elementaryFunctions/sqrt/zsqrta.c index e69de29b..d1553237 100644 --- a/src/elementaryFunctions/sqrt/zsqrta.c +++ b/src/elementaryFunctions/sqrt/zsqrta.c @@ -0,0 +1,20 @@ +/* +** -*- C -*- +** +** zsqrta.c +** Made by Bruno JOFRET <bruno.jofret@inria.fr> +** +** Started on Fri Sep 7 11:41:40 2007 bruno +** Last update Fri Sep 7 11:42:01 2007 bruno +** +** Copyright INRIA 2007 +*/ + +#include "sqrt.h" + +void zsqrta(doubleComplex* in, doubleComplex* out, int size) { + int i = 0; + for (i = 0 ; i < size ; ++i) { + out[i] = zsqrts(in[i]); + } +} |