Moving array functions prototype and add some C99 Compliance

5 files changed, 25 insertions, 23 deletions

diff --git a/src/elementaryFunctions/asin/casina.c b/src/elementaryFunctions/asin/casina.c
index ed14f1f2..d10c5d9d 100644
--- a/src/elementaryFunctions/asin/casina.c
+++ b/src/elementaryFunctions/asin/casina.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:30:55 2007 jofret
+** Last update Mon Oct 22 09:58:38 2007 bruno
 **
 ** Copyright INRIA 2007
 */
 
 #include "asin.h"
 
-void casina(floatComplex* x, floatComplex* y, int size) {
+void casina(floatComplex* x, int size, floatComplex* y) {
   int i = 0;
   for (i = 0; i < size; ++i) {
     y[i] = casins(x[i]);
diff --git a/src/elementaryFunctions/asin/dasina.c b/src/elementaryFunctions/asin/dasina.c
index f6f3b1c1..46e231ae 100644
--- a/src/elementaryFunctions/asin/dasina.c
+++ b/src/elementaryFunctions/asin/dasina.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:31:13 2007 jofret
+** Last update Mon Oct 22 09:58:27 2007 bruno
 **
 ** Copyright INRIA 2007
 */
 
 #include "asin.h"
 
-void dasina(double* x, double* y, int size) {
+void dasina(double* x, int size, double* y) {
   int i = 0;
   for (i = 0; i < size; ++i) {
     y[i] = dasins(x[i]);
diff --git a/src/elementaryFunctions/asin/sasina.c b/src/elementaryFunctions/asin/sasina.c
index 2264ef34..98e4355f 100644
--- a/src/elementaryFunctions/asin/sasina.c
+++ b/src/elementaryFunctions/asin/sasina.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:31:04 2007 jofret
+** Last update Mon Oct 22 09:57:35 2007 bruno
 **
 ** Copyright INRIA 2007
 */
 
 #include "asin.h"
 
-void sasina(float* x, float* y, int size) {
+void sasina(float* x, int size, float* y) {
   int i = 0;
   for (i = 0; i < size; ++i) {
     y[i] = sasins(x[i]);
diff --git a/src/elementaryFunctions/asin/testAsin.c b/src/elementaryFunctions/asin/testAsin.c
index 5ac58411..452077c9 100644
--- a/src/elementaryFunctions/asin/testAsin.c
+++ b/src/elementaryFunctions/asin/testAsin.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:32:47 2007 jofret
+** Last update Mon Oct 22 14:09:57 2007 bruno
 **
 ** Copyright INRIA 2006
 */
@@ -84,7 +84,7 @@ void sasinaTest(void) {
   int i = 0;
 
   printf(">> Float array\n");
-  sasina(in, out, 5);
+  sasina(in, 5, out);
   for (i = 0 ; i < 5 ; ++i)
     printf("sasina(array) = %f\n", out[i]);
 }
@@ -95,37 +95,39 @@ void dasinaTest(void) {
   int i = 0;
 
   printf(">> Double Array\n");
-  dasina(in, out, 5);
+  dasina(in, 5, out);
   for (i = 0 ; i < 5 ; ++i)
     printf("sasina(array) = %f\n", out[i]);
 
 }
 
 void casinaTest(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;
 
-  casina(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);
+
+  casina(in, 4, out);
   printf(">> Float Complex Array\n");
   for (i = 0 ; i < 4 ; ++i)
     printf("casina(array) = %e + I * %e\n", creals(out[i]), cimags(out[i]));
 }
 
 void zasinaTest(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;
 
-  zasina(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);
+
+  zasina(in, 4, out);
   printf(">> Double Complex Array\n");
   for (i = 0 ; i < 4 ; ++i)
     printf("zasina(array) = %e + I * %e\n", zreals(out[i]), zimags(out[i]));
diff --git a/src/elementaryFunctions/asin/zasina.c b/src/elementaryFunctions/asin/zasina.c
index c11d9b07..cae0a271 100644
--- a/src/elementaryFunctions/asin/zasina.c
+++ b/src/elementaryFunctions/asin/zasina.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:31:24 2007 jofret
+** Last update Mon Oct 22 09:57:21 2007 bruno
 **
 ** Copyright INRIA 2007
 */
 
 #include "asin.h"
 
-void zasina(doubleComplex* x, doubleComplex* y, int size) {
+void zasina(doubleComplex* x, int size, doubleComplex* y) {
   int i = 0;
   for (i = 0; i < size; ++i) {
     y[i] = zasins(x[i]);