diff options
author | jofret | 2007-01-29 17:02:35 +0000 |
---|---|---|
committer | jofret | 2007-01-29 17:02:35 +0000 |
commit | 170334ed9128da4a2f916d88ba52db0988e1d119 (patch) | |
tree | b73d501433e15e52e04a6e6237b2e552e8da5da9 /src/elementaryFunctions/tan/dtana.c | |
parent | c24d5795ea30345dee4cb5f308de7021ba0ef00b (diff) | |
download | scilab2c-170334ed9128da4a2f916d88ba52db0988e1d119.tar.gz scilab2c-170334ed9128da4a2f916d88ba52db0988e1d119.tar.bz2 scilab2c-170334ed9128da4a2f916d88ba52db0988e1d119.zip |
Need to have a clear answer about STDC99 for complex implementation !
Add som tests.
Diffstat (limited to 'src/elementaryFunctions/tan/dtana.c')
-rw-r--r-- | src/elementaryFunctions/tan/dtana.c | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/src/elementaryFunctions/tan/dtana.c b/src/elementaryFunctions/tan/dtana.c new file mode 100644 index 00000000..42e85490 --- /dev/null +++ b/src/elementaryFunctions/tan/dtana.c @@ -0,0 +1,20 @@ +/* +** -*- C -*- +** +** dtana.c +** Made by Bruno JOFRET <bruno.jofret@inria.fr> +** +** Started on Thu Dec 7 14:54:56 2006 jofret +** Last update Mon Jan 29 16:12:12 2007 jofret +** +** Copyright INRIA 2006 +*/ + +double dtans(double); + +void dtana(double* x, int strideX, double* y, int strideY, int size) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = dtans(x[i]); + } +} |