summaryrefslogtreecommitdiff
path: root/src/elementaryFunctions/acos
diff options
context:
space:
mode:
Diffstat (limited to 'src/elementaryFunctions/acos')
-rw-r--r--src/elementaryFunctions/acos/cacosa.c4
-rw-r--r--src/elementaryFunctions/acos/dacosa.c4
-rw-r--r--src/elementaryFunctions/acos/sacosa.c4
-rw-r--r--src/elementaryFunctions/acos/testAcos.c32
-rw-r--r--src/elementaryFunctions/acos/zacosa.c4
5 files changed, 25 insertions, 23 deletions
diff --git a/src/elementaryFunctions/acos/cacosa.c b/src/elementaryFunctions/acos/cacosa.c
index 8bbfaf2a..dcfa3826 100644
--- a/src/elementaryFunctions/acos/cacosa.c
+++ b/src/elementaryFunctions/acos/cacosa.c
@@ -5,14 +5,14 @@
** Made by Bruno JOFRET <bruno.jofret@inria.fr>
**
** Started on Fri Jan 5 10:23:49 2007 jofret
-** Last update Mon Mar 19 11:29:15 2007 jofret
+** Last update Mon Oct 22 10:00:02 2007 bruno
**
** Copyright INRIA 2007
*/
#include "acos.h"
-void cacosa(floatComplex* x, floatComplex* y, int size) {
+void cacosa(floatComplex* x, int size, floatComplex* y) {
int i = 0;
for (i = 0; i < size; ++i) {
y[i] = cacoss(x[i]);
diff --git a/src/elementaryFunctions/acos/dacosa.c b/src/elementaryFunctions/acos/dacosa.c
index c5e291a7..79a516c7 100644
--- a/src/elementaryFunctions/acos/dacosa.c
+++ b/src/elementaryFunctions/acos/dacosa.c
@@ -5,14 +5,14 @@
** Made by Bruno JOFRET <bruno.jofret@inria.fr>
**
** Started on Fri Jan 5 11:29:20 2007 jofret
-** Last update Mon Mar 19 11:29:03 2007 jofret
+** Last update Mon Oct 22 09:59:52 2007 bruno
**
** Copyright INRIA 2007
*/
#include "acos.h"
-void dacosa(double* x, double* y, int size) {
+void dacosa(double* x, int size, double* y) {
int i = 0;
for (i = 0; i < size; ++i) {
y[i] = dacoss(x[i]);
diff --git a/src/elementaryFunctions/acos/sacosa.c b/src/elementaryFunctions/acos/sacosa.c
index c905c76c..89209e00 100644
--- a/src/elementaryFunctions/acos/sacosa.c
+++ b/src/elementaryFunctions/acos/sacosa.c
@@ -5,14 +5,14 @@
** Made by Bruno JOFRET <bruno.jofret@inria.fr>
**
** Started on Fri Jan 5 10:25:57 2007 jofret
-** Last update Mon Mar 19 11:28:52 2007 jofret
+** Last update Mon Oct 22 09:58:58 2007 bruno
**
** Copyright INRIA 2007
*/
#include "acos.h"
-void sacosa(float* x, float* y, int size) {
+void sacosa(float* x, int size, float* y) {
int i = 0;
for (i = 0; i < size; ++i) {
y[i] = sacoss(x[i]);
diff --git a/src/elementaryFunctions/acos/testAcos.c b/src/elementaryFunctions/acos/testAcos.c
index 3dc5e3c0..2ddd799d 100644
--- a/src/elementaryFunctions/acos/testAcos.c
+++ b/src/elementaryFunctions/acos/testAcos.c
@@ -5,7 +5,7 @@
** Made by Bruno JOFRET <bruno.jofret@inria.fr>
**
** Started on Fri Dec 8 15:05:44 2006 jofret
-** Last update Fri Apr 20 10:24:42 2007 jofret
+** Last update Mon Oct 22 11:55:22 2007 bruno
**
** Copyright INRIA 2006
*/
@@ -84,7 +84,7 @@ void sacosaTest(void) {
int i = 0;
printf(">> Float array\n");
- sacosa(in, out, 5);
+ sacosa(in, 5, out);
for (i = 0 ; i < 5 ; ++i)
printf("sacosa(array) = %f\n", out[i]);
}
@@ -95,37 +95,39 @@ void dacosaTest(void) {
int i = 0;
printf(">> Double Array\n");
- dacosa(in, out, 5);
+ dacosa(in, 5, out);
for (i = 0 ; i < 5 ; ++i)
printf("sacosa(array) = %f\n", out[i]);
}
void cacosaTest(void) {
- floatComplex pi_pi = FloatComplex(PI, PI);
- floatComplex pi_2_pi_2 = FloatComplex(PI/2, PI/2);
- floatComplex pi_2_pi_3 = FloatComplex(PI/2, PI/3);
- floatComplex pi_2_pi_4 = FloatComplex(PI/2, PI/4);
- floatComplex in[4] = {pi_pi, pi_2_pi_2, pi_2_pi_3, pi_2_pi_4};
+ floatComplex in[4];
floatComplex out[4];
int i = 0;
- cacosa(in, out, 4);
+ in[0] = FloatComplex(PI, PI);
+ in[1] = FloatComplex(PI/2, PI/2);
+ in[2] = FloatComplex(PI/2, PI/3);
+ in[3] = FloatComplex(PI/2, PI/4);
+
+ cacosa(in, 4, out);
printf(">> Float Complex Array\n");
for (i = 0 ; i < 4 ; ++i)
printf("cacosa(array) = %e + I * %e\n", creals(out[i]), cimags(out[i]));
}
void zacosaTest(void) {
- doubleComplex pi_pi = DoubleComplex(PI, PI);
- doubleComplex pi_2_pi_2 = DoubleComplex(PI/2, PI/2);
- doubleComplex pi_2_pi_3 = DoubleComplex(PI/2, PI/3);
- doubleComplex pi_2_pi_4 = DoubleComplex(PI/2, PI/4);
- doubleComplex in[4] = {pi_pi, pi_2_pi_2, pi_2_pi_3, pi_2_pi_4 };
+ doubleComplex in[4];
doubleComplex out[4];
int i = 0;
- zacosa(in, out, 4);
+ in[0] = DoubleComplex(PI, PI);
+ in[1] = DoubleComplex(PI/2, PI/2);
+ in[2] = DoubleComplex(PI/2, PI/3);
+ in[3] = DoubleComplex(PI/2, PI/4);
+
+ zacosa(in, 4, out);
printf(">> Double Complex Array\n");
for (i = 0 ; i < 4 ; ++i)
printf("zacosa(array) = %e + I * %e\n", zreals(out[i]), zimags(out[i]));
diff --git a/src/elementaryFunctions/acos/zacosa.c b/src/elementaryFunctions/acos/zacosa.c
index 9a01f76b..45caa6b4 100644
--- a/src/elementaryFunctions/acos/zacosa.c
+++ b/src/elementaryFunctions/acos/zacosa.c
@@ -5,14 +5,14 @@
** Made by Bruno JOFRET <bruno.jofret@inria.fr>
**
** Started on Fri Jan 5 10:25:14 2007 jofret
-** Last update Mon Mar 19 11:28:38 2007 jofret
+** Last update Mon Oct 22 09:58:47 2007 bruno
**
** Copyright INRIA 2007
*/
#include "acos.h"
-void zacosa(doubleComplex* x, doubleComplex* y, int size) {
+void zacosa(doubleComplex* x, int size, doubleComplex* y) {
int i = 0;
for (i = 0; i < size; ++i) {
y[i] = zacoss(x[i]);