Remove useless files

13 files changed, 0 insertions, 2267 deletions

diff --git a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpApex.c b/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpApex.c
deleted file mode 100644
index fa0630e9..00000000
--- a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpApex.c
+++ /dev/null
@@ -1,82 +0,0 @@
-/* #include <math.h>*/
-#include "OpApex.h"
-
-float		sOpApexs(float x) {
-  return (x);
-}
-

-double dOpApexs(double x) {
-  return (x);
-}
-
-
-void sOpApexa(float* x, int xrows,int xcols, float* y) 
-{
-   int i = 0;
-   int j = 0;
-   for (i = 0; i < xrows; i++)
-   {
-      for (j = 0; j < xcols; j++)
-      {
-         y[j*xrows+i] = x[i*xcols+j];
-      }
-   }
-}
-

-void dOpApexa(double* x, int xrows,int xcols, double* y) 
-{
-   int i = 0;
-   int j = 0;
-   for (i = 0; i < xrows; i++)
-   {
-      for (j = 0; j < xcols; j++)
-      {
-         y[j*xrows+i] = x[i*xcols+j];
-      }
-   }
-}
-
-
-floatComplex c0OpApexc0(floatComplex x) 
-{
-  return (c0conjc0(x));
-}
-
-void c2OpApexc2(floatComplex* x, int* xSize, floatComplex* y) 
-{
-   int i = 0;
-   int j = 0;
-   int xrows = xSize[0];
-   int xcols = xSize[1];
-   
-   for (i = 0; i < xrows; i++)
-   {
-      for (j = 0; j < xcols; j++)
-      {
-         y[j*xrows+i] = c0conjc0(x[i*xcols+j]);
-      }
-   }
-}
-
-doubleComplex z0OpApexz0(doubleComplex x) 
-{
-  return (z0conjz0(x));
-}
-
-
-void z2OpApexz2(doubleComplex* x, int* xSize, doubleComplex* y) 
-{
-   int i = 0;
-   int j = 0;
-   int xrows = xSize[0];
-   int xcols = xSize[1];
-   
-   for (i = 0; i < xrows; i++)
-   {
-      for (j = 0; j < xcols; j++)
-      {
-         y[j*xrows+i] = z0conjz0(x[i*xcols+j]);
-         /*~ y[j*xrows+i] = x[i*xcols+j];*/
-      }
-   }
-}
diff --git a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpCc.c b/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpCc.c
deleted file mode 100644
index 40ffed28..00000000
--- a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpCc.c
+++ /dev/null
@@ -1,211 +0,0 @@
-/*
-**  -*- C -*-
-**
-** OpCc.c
-** Made by  Raffaele Nutricato <raffaele.nutricato@tiscali.it>
-**
-**
-** Copyright Raffaele Nutricato 2007
-*/
-
-#include "OpCc.h"
-
-void d0d0OpCcd2(double in1, double in2, double* out)
-{
-   out[0] = in1;
-   out[1] = in2;
-}
-
-void d2d0OpCcd2(double* in1, int* in1Size, double in2, double* out)
-{
-   int i;
-   for (i = 0; i < in1Size[0]; i++)
-   {
-      out[i] = in1[i];
-   }
-   out[in1Size[0]] = in2;  
-}
-
-void d0d2OpCcd2(double in2, double* in1, int* in1Size, double* out)
-{
-   int i;
-   for (i = 0; i < in1Size[0]; i++)
-   {
-      out[i] = in1[i];
-   }
-   out[in1Size[0]] = in2;  
-}
-
-
-void d2d2OpCcd2(double* in1, int* in1Size, double* in2, int* in2Size, double* out)
-{
-   /* I assume that number of columns of in1 and in2 are the same. */
-   int cntrow;
-   int cntcol;
-   
-   for (cntrow = 0; cntrow < in1Size[0]; cntrow++)
-   {
-      for (cntcol = 0; cntcol < in1Size[1]; cntcol++)
-      {
-         out[cntrow*in1Size[1]+cntcol] = in1[cntrow*in1Size[1]+cntcol];
-      }
-   }
-
-   for (cntrow = 0; cntrow < in2Size[0]; cntrow++)
-   {
-      for (cntcol = 0; cntcol < in1Size[1]; cntcol++)
-      {
-         out[(in1Size[0]+cntrow)*in1Size[1]+cntcol] = in2[cntrow*in1Size[1]+cntcol];
-      }
-   }   
-}
-
-void s0s0OpCcs2(float in1, float in2, float* out)
-{
-   out[0] = in1;
-   out[1] = in2;
-}
-
-void s2s0OpCcs2(float* in1, int* in1Size, float in2, float* out)
-{
-   int i;
-   for (i = 0; i < in1Size[0]; i++)
-   {
-      out[i] = in1[i];
-   }
-   out[in1Size[0]] = in2;  
-}
-
-void s0s2OpCcs2(float in2, float* in1, int* in1Size, float* out)
-{
-   int i;
-   for (i = 0; i < in1Size[0]; i++)
-   {
-      out[i] = in1[i];
-   }
-   out[in1Size[0]] = in2;  
-}
-
-
-void s2s2OpCcs2(float* in1, int* in1Size, float* in2, int* in2Size, float* out)
-{
-   /* I assume that number of columns of in1 and in2 are the same. */
-   int cntrow;
-   int cntcol;
-   
-   for (cntrow = 0; cntrow < in1Size[0]; cntrow++)
-   {
-      for (cntcol = 0; cntcol < in1Size[1]; cntcol++)
-      {
-         out[cntrow*in1Size[1]+cntcol] = in1[cntrow*in1Size[1]+cntcol];
-      }
-   }
-
-   for (cntrow = 0; cntrow < in2Size[0]; cntrow++)
-   {
-      for (cntcol = 0; cntcol < in1Size[1]; cntcol++)
-      {
-         out[(in1Size[0]+cntrow)*in1Size[1]+cntcol] = in2[cntrow*in1Size[1]+cntcol];
-      }
-   }   
-}
-
-void z0z0OpCcz2(doubleComplex in1, doubleComplex in2, doubleComplex* out)
-{
-   out[0] = in1;
-   out[1] = in2;
-}
-
-void z2z0OpCcz2(doubleComplex* in1, int* in1Size, doubleComplex in2, doubleComplex* out)
-{
-   int i;
-   for (i = 0; i < in1Size[0]; i++)
-   {
-      out[i] = in1[i];
-   }
-   out[in1Size[0]] = in2;  
-}
-
-void z0z2OpCcz2(doubleComplex in2, doubleComplex* in1, int* in1Size, doubleComplex* out)
-{
-   int i;
-   for (i = 0; i < in1Size[0]; i++)
-   {
-      out[i] = in1[i];
-   }
-   out[in1Size[0]] = in2;  
-}
-
-
-void z2z2OpCcz2(doubleComplex* in1, int* in1Size, doubleComplex* in2, int* in2Size, doubleComplex* out)
-{
-   /* I assume that number of columns of in1 and in2 are the same. */
-   int cntrow;
-   int cntcol;
-   
-   for (cntrow = 0; cntrow < in1Size[0]; cntrow++)
-   {
-      for (cntcol = 0; cntcol < in1Size[1]; cntcol++)
-      {
-         out[cntrow*in1Size[1]+cntcol] = in1[cntrow*in1Size[1]+cntcol];
-      }
-   }
-
-   for (cntrow = 0; cntrow < in2Size[0]; cntrow++)
-   {
-      for (cntcol = 0; cntcol < in1Size[1]; cntcol++)
-      {
-         out[(in1Size[0]+cntrow)*in1Size[1]+cntcol] = in2[cntrow*in1Size[1]+cntcol];
-      }
-   }   
-}
-
-void c0c0OpCcc2(floatComplex in1, floatComplex in2, floatComplex* out)
-{
-   out[0] = in1;
-   out[1] = in2;
-}
-
-void c2c0OpCcc2(floatComplex* in1, int* in1Size, floatComplex in2, floatComplex* out)
-{
-   int i;
-   for (i = 0; i < in1Size[0]; i++)
-   {
-      out[i] = in1[i];
-   }
-   out[in1Size[0]] = in2;  
-}
-
-void c0c2OpCcc2(floatComplex in2, floatComplex* in1, int* in1Size, floatComplex* out)
-{
-   int i;
-   for (i = 0; i < in1Size[0]; i++)
-   {
-      out[i] = in1[i];
-   }
-   out[in1Size[0]] = in2;  
-}
-
-
-void c2c2OpCcc2(floatComplex* in1, int* in1Size, floatComplex* in2, int* in2Size, floatComplex* out)
-{
-   /* I assume that number of columns of in1 and in2 are the same. */
-   int cntrow;
-   int cntcol;
-   
-   for (cntrow = 0; cntrow < in1Size[0]; cntrow++)
-   {
-      for (cntcol = 0; cntcol < in1Size[1]; cntcol++)
-      {
-         out[cntrow*in1Size[1]+cntcol] = in1[cntrow*in1Size[1]+cntcol];
-      }
-   }
-
-   for (cntrow = 0; cntrow < in2Size[0]; cntrow++)
-   {
-      for (cntcol = 0; cntcol < in1Size[1]; cntcol++)
-      {
-         out[(in1Size[0]+cntrow)*in1Size[1]+cntcol] = in2[cntrow*in1Size[1]+cntcol];
-      }
-   }   
-}
diff --git a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpColon.c b/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpColon.c
deleted file mode 100644
index 76948ec0..00000000
--- a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpColon.c
+++ /dev/null
@@ -1,303 +0,0 @@
-/*
-**  -*- C -*-
-**
-** 
-** Made by  Raffaele.Nutricato@tiscali.it
-**
-** Copyright Raffaele Nutricato
-*/
-
-#include "OpColon.h"
-
-
-double d0d0OpColond0(double in1, double in2) 
-{
-  double i;
-  double out = 0;
-  int j=0;
-  for (i = in1 ; i <= in2 ; i+=1) 
-  {
-    out = i;
-    j++;
-  }
-  return out;
-}
-
-float c0c0OpColons0(floatComplex in1, floatComplex in2) 
-{
-  float i = 0;
-  float out = 0;
-  int j=0;
-  for (i = creals(in1) ; i <= creals(in2) ; i+=1) 
-  {
-    out = i;
-    j++;
-  }
-  return out;
-}
-
-double z0z0OpColond0(doubleComplex in1, doubleComplex in2) 
-{
-  int i = 0;
-  int j = 0;
-  double out = 0;
-  for (i = ((int) zreals(in1)) ; i <= ((int) zreals(in2)) ; i++) 
-  {
-    out = i;
-    j++;
-  }
-  return out;
-}
-
-void s0s0OpColons2(float in1, float in2, float* out) 
-{
-  float i;
-  int j=0;
-  for (i = in1 ; i <= in2 ; i+=1) 
-  {
-    out[j] = i;
-    j++;
-  }
-}
-
-void d0d0OpColond2(double in1, double in2, double* out) 
-{
-  double i;
-  int j=0;
-  for (i = in1 ; i <= in2 ; i+=1) 
-  {
-    out[j] = i;
-    j++;
-  }
-}
-
-void c0c0OpColons2(floatComplex in1, floatComplex in2, float* out) 
-{
-  float i = 0;
-  int j=0;
-  for (i = creals(in1) ; i <= creals(in2) ; i+=1) 
-  {
-    out[j] = i;
-    j++;
-  }
-}
-
-void z0z0OpColond2(doubleComplex in1, doubleComplex in2, double* out) 
-{
-  int i = 0;
-  int j = 0;
-  for (i = ((int) zreals(in1)) ; i <= ((int) zreals(in2)) ; i++) 
-  {
-    out[j] = i;
-    j++;
-  }
-}
-
-float s0s0s0OpColons0(float in1, float in2, float in3) 
-{
-   float i;
-   float out=0;
-   int j=0;
-   if (in2 >= 0)
-   {
-      for (i = in1 ; i <= in3 ; i+=in2) 
-      {
-         out = i;
-         j++;
-      }
-   }
-   else
-   {
-      for (i = in1 ; i >= in3 ; i+=in2) 
-      {
-         out = i;
-         j++;
-      }
-   }
-   return (out);
-}
-
-double d0d0d0OpColond0(double in1, double in2, double in3) 
-{
-  double i;
-  double out=0;
-  int j=0;
-   if (in2 >= 0)
-   {
-      for (i = in1 ; i <= in3 ; i+=in2) 
-      {
-         out = i;
-         j++;
-      }
-   }
-   else
-   {
-      for (i = in1 ; i >= in3 ; i+=in2) 
-      {
-         out = i;
-         j++;
-      }
-   }
-  return out;
-}
-
-float c0c0c0OpColons0(floatComplex in1, floatComplex in3, floatComplex in2) 
-{
-  float i = 0;
-  float out = 0;
-  int j=0;
-  
-   if (creals(in2) >= 0)
-   {
-      for (i = creals(in1) ; i <= creals(in2) ; i+=creals(in3)) 
-      {
-         out = i;
-         j++;
-      }
-   }
-   else
-   {
-      for (i = creals(in1) ; i >= creals(in2) ; i+=creals(in3)) 
-      {
-         out = i;
-         j++;
-      }
-   }
-   
-   return out;
-}
-
-double z0z0z0OpColond0(doubleComplex in1, doubleComplex in3, doubleComplex in2) 
-{
-  int i = 0;
-  int j = 0;
-  double out = 0;
-   if (zreals(in2) >= 0)
-   {
-      for (i = zreals(in1) ; i <= zreals(in2) ; i+=zreals(in3)) 
-      {
-         out = i;
-         j++;
-      }
-   }
-   else
-   {
-      for (i = zreals(in1) ; i >= zreals(in2) ; i+=zreals(in3)) 
-      {
-         out = i;
-         j++;
-      }
-   }
-  return out;
-}
-
-void s0s0s0OpColons2(float in1, float in2, float in3, float* out) 
-{
-   float i;
-   int j=0;
-   if (in2 >= 0)
-   {
-      for (i = in1 ; i <= in3 ; i+=in2) 
-      {
-         out[j] = i;
-         j++;
-      }
-   }
-   else
-   {
-      for (i = in1 ; i >= in3 ; i+=in2)
-      {
-         out[j] = i;
-         j++;
-      }
-   }
-}
-
-void d0d0d0OpColond2(double in1, double in2, double in3, double* out) 
-{
-  double i;
-  int j=0;
-  if (in2 >= 0)
-   {
-      for (i = in1 ; i <= in3; i += in2) 
-      {
-         out[j] = i;
-         //~ out[j] = i;
-         //~ out[j] = i;
-         //~ out[j] = i;
-         //~ out[j] = i;
-         //~ out[j] = i;
-         //~ out[j] = i;
-         //~ out[j] = i;
-         //~ printf("%f\n",out[j]);
-         //~ printf("%f\n",out[j]);
-         //~ printf("%f\n",out[j]);
-         //~ printf("%f\n",out[j]);
-         //~ printf("%f\n",out[j]);
-         //~ printf("%f\n",out[j]);
-         //~ printf("%f\n",out[j]);
-         //~ printf("%f\n",out[j]);
-         //~ printf("%f\n",out[j]);
-         //~ printf("%f\n",out[j]);
-         //~ printf("%f\n",out[j]);
-         //~ printf("%f\n",out[j]);
-         //~ out[j] = i;
-         //~ out[j] = i;
-         j++;
-      }
-   }
-   else
-   {
-      for (i = in1 ; i >= in3 ; i+=in2) 
-      {
-         out[j] = i;
-         j++;
-      }
-   }
-}
-
-void c0c0c0OpColons2(floatComplex in1, floatComplex in3, floatComplex in2, float* out) 
-{
-  float i = 0;
-  int j=0;
-  
-   if (creals(in2) >= 0)
-   {
-      for (i = creals(in1) ; i <= creals(in2) ; i+=creals(in3)) 
-      {
-         out[j] = i;
-         j++;
-      }
-   }
-   else
-   {
-      for (i = creals(in1) ; i >= creals(in2) ; i+=creals(in3)) 
-      {
-         out[j] = i;
-         j++;
-      }
-   }
-}
-
-void z0z0z0OpColond2(doubleComplex in1, doubleComplex in3, doubleComplex in2, double* out) 
-{
-   int i = 0;
-   int j = 0;
-  
-   if (zreals(in2) >= 0)
-   {
-      for (i = zreals(in1) ; i <= zreals(in2) ; i+=zreals(in3)) 
-      {
-         out[j] = i;
-         j++;
-      }
-   }
-   else
-   {
-      for (i = zreals(in1) ; i >= zreals(in2) ; i+=zreals(in3)) 
-      {
-         out[j] = i;
-         j++;
-      }
-   }
-}
diff --git a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpDotHat.c b/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpDotHat.c
deleted file mode 100644
index 02489934..00000000
--- a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpDotHat.c
+++ /dev/null
@@ -1,76 +0,0 @@
-/*
-**  -*- C -*-
-**
-** OpDotSlash.c
-** Made by  Raffaele Nutricato <raffaele.nutricato@tiscali.it>
-**
-**
-** Copyright Raffaele Nutricato 2007
-*/
-
-#include "OpDotHat.h"
-
-
-float	s0s0OpDotHats0(float in1,float in2)
-{
-   return(pow(in1,in2));
-}
-
-void s0s2OpDotHats2(float in1,float* in2, int* in2Size, float* out)
-{
-   int i = 0;
-   for (i = 0; i < in2Size[0]*in2Size[1]; ++i) 
-   {
-      out[i] = pow(in1,in2[i]);
-   }
-}
-
-void s2s0OpDotHats2(float* in1,int* in1Size, float in2, float* out)
-{
-   int i = 0;
-   for (i = 0; i < in1Size[0]*in1Size[1]; ++i) 
-   {
-      out[i] = pow(in1[i],in2);
-   }
-}
-
-void s2s2OpDotHats2(float* in1,int* in1Size,float* in2, int* in2Size, float* out)
-{
-   int i = 0;
-   for (i = 0; i < in1Size[0]*in1Size[1]; ++i) 
-   {
-      out[i] = pow(in1[i],in2[i]);
-   }
-}
-
-double	d0d0OpDotHatd0(double in1,double in2)
-{
-   return(pow(in1,in2));
-}
-
-void d0d2OpDotHatd2(double in1,double* in2, int* in2Size, double* out)
-{
-   int i = 0;
-   for (i = 0; i < in2Size[0]*in2Size[1]; ++i) 
-   {
-      out[i] = pow(in1,in2[i]);
-   }
-}
-
-void d2d0OpDotHatd2(double* in1,int* in1Size, double in2, double* out)
-{
-   int i = 0;
-   for (i = 0; i < in1Size[0]*in1Size[1]; ++i) 
-   {
-      out[i] = pow(in1[i],in2);
-   }
-}
-
-void d2d2OpDotHatd2(double* in1,int* in1Size,double* in2, int* in2Size, double* out)
-{
-   int i = 0;
-   for (i = 0; i < in1Size[0]*in1Size[1]; ++i) 
-   {
-      out[i] = pow(in1[i],in2[i]);
-   }
-}
diff --git a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpDotSlash.c b/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpDotSlash.c
deleted file mode 100644
index 7bb79465..00000000
--- a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpDotSlash.c
+++ /dev/null
@@ -1,115 +0,0 @@
-/*
-**  -*- C -*-
-**
-** OpDotSlash.c
-** Made by  Raffaele Nutricato <raffaele.nutricato@tiscali.it>
-**
-**
-** Copyright Raffaele Nutricato 2007
-*/
-
-#include "OpDotSlash.h"
-
-float s0s0OpDotSlashs0(float x1, float x2){
-   return(x1/x2);
-}
-
-void s0s2OpDotSlashs2(float x1,float* x2, int* x2Size, float* y){
-  int i = 0;
-  for (i = 0; i < x2Size[0]*x2Size[1]; ++i) {
-    y[i] = x1/(float)x2[i];
-  }
-}
-
-void s2s0OpDotSlashs2(float* x2, int* x2Size,float x1, float* y){
-  int i = 0;
-  for (i = 0; i < x2Size[0]*x2Size[1]; ++i) {
-    y[i] = (float)x2[i]/x1;
-  }
-}
-
-void s2s2OpDotSlashs2(float* x1, int* x1Size, float* x2, int* x2Size, float* y){
-  int i = 0;
-  for (i = 0; i < x2Size[0]*x2Size[1]; ++i) {
-    y[i] = (float)x1[i]/(float)x2[i];
-  }
-}
-
-
-double d0d0OpDotSlashd0(double x1, double x2){
-   return(x1/x2);
-}
-
-void d0d2OpDotSlashd2(double x1,double* x2, int* x2Size, double* y){
-  int i = 0;
-  for (i = 0; i < x2Size[0]*x2Size[1]; ++i) {
-    y[i] = x1/(double)x2[i];
-  }
-}
-
-void d2d0OpDotSlashd2(double* x2, int* x2Size,double x1, double* y){
-  int i = 0;
-  for (i = 0; i < x2Size[0]*x2Size[1]; ++i) {
-    y[i] = (double)x2[i]/x1;
-  }
-}
-
-void d2d2OpDotSlashd2(double* x1, int* x1Size, double* x2, int* x2Size, double* y){
-  int i = 0;
-  for (i = 0; i < x2Size[0]*x2Size[1]; ++i) {
-    y[i] = (double)x1[i]/(double)x2[i];
-  }
-}
-
-/*
-floatComplex c0c0OpDotSlashc0(floatComplex x1, floatComplex x2)
-{
-   return(x1/x2);
-}
-
-void c0c2OpDotSlashc2(floatComplex x1,floatComplex* x2, int* x2Size, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = x1/(floatComplex)x2[i];
-  }
-}
-
-void c2c2OpDotSlashc2(floatComplex* x1,int* x1Size,floatComplex* x2, int* x2Size, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-  for (i = 0; i < size; ++i) {
-    y[i] = x1[i]/x2[i];
-  }
-}
-
-doubleComplex z0z0OpDotSlashz0(doubleComplex x1, doubleComplex x2)
-{
-   return(x1/x2);
-}
-
-void z0z2OpDotSlashz2(doubleComplex x1,doubleComplex* x2, int* x2Size, doubleComplex* y){
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = x1/(doubleComplex)x2[i];
-  }
-}
-
-void z2z2OpDotSlashz2(doubleComplex* x1,int* x1Size,doubleComplex* x2, int* x2Size, doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-  for (i = 0; i < size; ++i) {
-    y[i] = x1[i]/x2[i];
-  }
-}
-*/
diff --git a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpDotStar.c b/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpDotStar.c
deleted file mode 100644
index 853b4f22..00000000
--- a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpDotStar.c
+++ /dev/null
@@ -1,228 +0,0 @@
-/*
-**  -*- C -*-
-**
-** OpDotStar.c
-** Made by  Raffaele Nutricato <raffaele.nutricato@tiscali.it>
-**
-**
-** Copyright Raffaele Nutricato 2007
-*/
-
-#include "OpDotStar.h"
-#include "multiplication.h"
-float ssOpDotStarss1(float x1, float x2){
-   return(x1*x2);
-}
-
-void ssOpDotStarsa1(float x1,float* x2, int size, float* y){
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    y[i] = x1*(float)x2[i];
-  }
-}
-
-void ssOpDotStaraa1(float* x1,float* x2, int size, float* y){
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    y[i] = x1[i]*x2[i];
-  }
-}
-
-
-double ddOpDotStarss1(double x1,double x2){
-   return(x1*x2);
-}
-
-void ddOpDotStarsa1(double x1,double* x2, int size, double* y){
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    y[i] = x1*x2[i];
-  }
-}
-
-void ddOpDotStaraa1(double* x1,double* x2, int size, double* y){
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    y[i] = x1[i]*x2[i];
-  }
-}
-
-floatComplex s0c0OpDotStarc0(float x2,floatComplex x1)
-{
-   return(cmuls(x1,FloatComplex(x2,0)));
-}
-
-floatComplex c0s0OpDotStarc0(floatComplex x1,float x2)
-{
-   return(cmuls(x1,FloatComplex(x2,0)));
-}
-
-floatComplex c0c0OpDotStarc0(floatComplex x1, floatComplex x2)
-{
-   return(cmuls(x1,x2));
-}
-
-void c0s2OpDotStarc2(floatComplex x1,float* x2, int* x2Size, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = cmuls(x1,FloatComplex(x2[i],0));
-  }
-}
-
-void c2c0OpDotStarc2(floatComplex* x2, int* x2Size, floatComplex x1,floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = cmuls(x1,x2[i]);
-  }
-}
-
-void s2c0OpDotStarc2(float* x2, int* x2Size, floatComplex x1,floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = cmuls(x1,FloatComplex(x2[i],0));
-  }
-}
-
-void s0c2OpDotStarc2(float x1,floatComplex* x2, int* x2Size, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = cmuls(FloatComplex(x1,0),x2[i]);
-  }
-}
-
-void c0c2OpDotStarc2(floatComplex x1,floatComplex* x2, int* x2Size, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = cmuls(x1,x2[i]);
-  }
-}
-
-void c2s2OpDotStarc2(floatComplex* x1,int* x1Size,float* x2, int* x2Size, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-  for (i = 0; i < size; ++i) {
-    y[i] = cmuls(x1[i],FloatComplex(x2[i],0));
-  }
-}
-
-
-void c2c2OpDotStarc2(floatComplex* x1,int* x1Size,floatComplex* x2, int* x2Size, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-  for (i = 0; i < size; ++i) {
-    y[i] = cmuls(x1[i],x2[i]);
-  }
-}
-
-
-doubleComplex z0d0OpDotStarz0(doubleComplex x1, double x2)
-{
-   return(zmuls(x1,DoubleComplex(x2,0)));
-}
-
-doubleComplex d0z0OpDotStarz0(double x2,doubleComplex x1)
-{
-   return(zmuls(x1,DoubleComplex(x2,0)));
-}
-
-doubleComplex z0z0OpDotStarz0(doubleComplex x1, doubleComplex x2)
-{
-   return(zmuls(x1,x2));
-}
-
-void z0d2OpDotStarz2(doubleComplex x1,double* x2, int* x2Size, doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = zmuls(x1,DoubleComplex(x2[i],0));
-  }
-}
-
-void d2z0OpDotStarz2(double* x2, int* x2Size, doubleComplex x1, doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = zmuls(x1,DoubleComplex(x2[i],0));
-  }
-}
-
-void z2z0OpDotStarz2(doubleComplex* x2, int* x2Size, doubleComplex x1, doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = zmuls(x1,x2[i]);
-  }
-}
-
-void d0z2OpDotStarz2(double x1,doubleComplex* x2, int* x2Size, doubleComplex* y){
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = zmuls(DoubleComplex(x1,0),x2[i]);
-  }
-}
-
-void z0z2OpDotStarz2(doubleComplex x1,doubleComplex* x2, int* x2Size, doubleComplex* y){
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = zmuls(x1,x2[i]);
-  }
-}
-
-void z2d2OpDotStarz2(doubleComplex* x1,int* x1Size,double* x2, int* x2Size, doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-  for (i = 0; i < size; ++i) {
-    y[i] = zmuls(x1[i],DoubleComplex(x2[i],0));
-  }
-}
-
-void z2z2OpDotStarz2(doubleComplex* x1,int* x1Size,doubleComplex* x2, int* x2Size, doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-  for (i = 0; i < size; ++i) {
-    y[i] = zmuls(x1[i],x2[i]);
-  }
-}
diff --git a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpMinus.c b/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpMinus.c
deleted file mode 100644
index 03c85689..00000000
--- a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpMinus.c
+++ /dev/null
@@ -1,281 +0,0 @@
-/*
-**  -*- C -*-
-**
-** OpMinus.c
-** Made by  Raffaele Nutricato <raffaele.nutricato@tiscali.it>
-**
-**
-** Copyright Raffaele Nutricato 2007
-*/
-
-#include "OpMinus.h"
-
-float s0OpMinuss0(float x1)
-{
-   return(-x1);
-}
-
-void s2OpMinuss2(float* in1,int* in1Size, float* out)
-{
-  int i = 0;
-  for (i = 0; i < in1Size[0]*in1Size[1]; ++i) 
-  {
-    out[i] = -in1[i];
-  }
-}
-
-double d0OpMinusd0(double x1)
-{
-   return(-x1);
-}
-
-void d2OpMinusd2(double* in1,int* in1Size, double* out)
-{
-  int i = 0;
-  for (i = 0; i < in1Size[0]*in1Size[1]; ++i) 
-  {
-    out[i] = -in1[i];
-  }
-}
-
-
-
-float s0s0OpMinuss0(float x1, float x2)
-{
-   return(x1-x2);
-}
-
-void s0s2OpMinuss2(float x2, float* x1,int* x1Size, float* y)
-{
-  int i = 0;
-  for (i = 0; i < x1Size[0]*x1Size[1]; ++i) {
-    y[i] = x2-x1[i];
-  }
-}
-
-void s2s0OpMinuss2(float* x1,int* x1Size, float x2, float* y)
-{
-  int i = 0;
-  for (i = 0; i < x1Size[0]*x1Size[1]; ++i) {
-    y[i] = x1[i]-x2;
-  }
-}
-
-void s2s2OpMinuss2(float* x1,int* x1Size, float* x2,int* x2Size, float* y)
-{
-  int i = 0;
-  for (i = 0; i < x1Size[0]*x1Size[1]; ++i) 
-  {
-    y[i] = x1[i]-x2[i];
-  }
-}
-
-
-double d0d0OpMinusd0(double x1, double x2)
-{
-   return(x1-x2);
-}
-
-void d0d2OpMinusd2(double x2, double* x1,int* x1Size, double* y)
-{
-  int i = 0;
-  for (i = 0; i < x1Size[0]*x1Size[1]; ++i) {
-    y[i] = x2-x1[i];
-  }
-}
-
-void d2d0OpMinusd2(double* x1,int* x1Size, double x2, double* y)
-{
-  int i = 0;
-  for (i = 0; i < x1Size[0]*x1Size[1]; ++i) {
-    y[i] = x1[i]-x2;
-  }
-}
-
-void d2d2OpMinusd2(double* x1,int* x1Size, double* x2,int* x2Size, double* y)
-{
-  int i = 0;
-  for (i = 0; i < x1Size[0]*x1Size[1]; ++i) {
-    y[i] = x1[i]-x2[i];
-  }
-}
-
-
-floatComplex c0OpMinusc0(floatComplex x1)
-{
-   floatComplex x2;
-   x2 = FloatComplex(-creals(x1),-cimags(x1));
-   return(x2);
-}
-
-void c2OpMinusc2(floatComplex* in1,int* in1Size, floatComplex* out)
-{
-  int i = 0;
-  for (i = 0; i < in1Size[0]*in1Size[1]; ++i) 
-  {
-    out[i] = FloatComplex(-creals(in1[i]),-cimags(in1[i]));
-  }
-}
-
-floatComplex s0c0OpMinusc0(float x1,floatComplex x2)
-{
-   return(cdiffs(FloatComplex(x1,0),x2));
-}
-
-doubleComplex d0z0OpMinusz0(double x1,doubleComplex x2)
-{
-   return(zdiffs(DoubleComplex(x1,0),x2));
-}
-
-floatComplex c0c0OpMinusc0(floatComplex x1,floatComplex x2)
-{
-   return(cdiffs(x1,x2));
-}
-
-doubleComplex z0z0OpMinusz0(doubleComplex x1,doubleComplex x2)
-{
-   return(zdiffs(x1,x2));
-}
-
-void c0c2OpMinusc2(floatComplex x1,floatComplex* x2, int* x2Size, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = cdiffs(x1,x2[i]);
-  }
-}
-
-void c2c0OpMinusc2(floatComplex* x2, int* x2Size, floatComplex x1,floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = cdiffs(x1,x2[i]);
-  }
-}
-
-void c2c2OpMinusc2(floatComplex* x1,int* x1Size,floatComplex* x2, int* x2Size, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-  for (i = 0; i < size; ++i) {
-    y[i] = cdiffs(x1[i],x2[i]);
-  }
-}
-
-doubleComplex z0OpMinusz0(doubleComplex x1)
-{
-   return(ztimess(DoubleComplex(-1,0),x1));
-}
-
-void z2OpMinusz2(doubleComplex* in1,int* in1Size, doubleComplex* out)
-{
-  int i = 0;
-  for (i = 0; i < in1Size[0]*in1Size[1]; ++i) 
-  {
-    out[i] = ztimess(DoubleComplex(-1,0),in1[i]);
-  }
-}
-
-void z0z2OpMinusz2(doubleComplex x1,doubleComplex* x2, int* x2Size, doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = zdiffs(x1,x2[i]);
-  }
-}
-
-void z2z0OpMinusz2(doubleComplex* x2, int* x2Size, doubleComplex x1,doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = zdiffs(x1,x2[i]);
-  }
-}
-
-void z2z2OpMinusz2(doubleComplex* x1,int* x1Size,doubleComplex* x2, int* x2Size, doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-  for (i = 0; i < size; ++i) {
-    y[i] = zdiffs(x1[i],x2[i]);
-  }
-}
-
-void z2d2OpMinusz2(doubleComplex* x2,int* x2Size,double* x1, int* x1Size, doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-  for (i = 0; i < size; ++i) {
-    y[i] = zdiffs(DoubleComplex(x1[i],0),x2[i]);
-  }
-}
-
-void d2z2OpMinusz2(double* x1,int* x1Size,doubleComplex* x2, int* x2Size, doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-  for (i = 0; i < size; ++i) {
-    y[i] = zdiffs(DoubleComplex(x1[i],0),x2[i]);
-  }
-}
-
-
-void c2s2OpMinusc2(floatComplex* x2,int* x2Size,float* x1, int* x1Size, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-  for (i = 0; i < size; ++i) {
-    y[i] = cdiffs(FloatComplex(x1[i],0),x2[i]);
-  }
-}
-
-void s2c2OpMinusc2(float* x1,int* x1Size,floatComplex* x2, int* x2Size, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-  for (i = 0; i < size; ++i) {
-    y[i] = cdiffs(FloatComplex(x1[i],0),x2[i]);
-  }
-}
-
-void s0c2OpMinusc2(float x1,floatComplex* x2, int* x2Size, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = cdiffs(FloatComplex(x1,0),x2[i]);
-  }
-}
-
-
-void d0z2OpMinusz2(double x1,doubleComplex* x2, int* x2Size, doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = zdiffs(DoubleComplex(x1,0),x2[i]);
-  }
-}
-
diff --git a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpPlus.c b/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpPlus.c
deleted file mode 100644
index 6a3d35e1..00000000
--- a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpPlus.c
+++ /dev/null
@@ -1,267 +0,0 @@
-/*
-**  -*- C -*-
-**
-** OpPlus.c
-** Made by  Raffaele Nutricato <raffaele.nutricato@tiscali.it>
-**
-**
-** Copyright Raffaele Nutricato 2007
-*/
-
-#include "OpPlus.h"
-
-float ssOpPlusss1(float x1, float x2){
-   return(x1+x2);
-}
-
-void ssOpPlussa1(float x1,float* x2, int size, float* y){
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    y[i] = x1+(float)x2[i];
-  }
-}
-
-void ssOpPlusaa1(float* x1,float* x2, int size, float* y){
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    y[i] = x1[i]+x2[i];
-  }
-}
-
-
-double ddOpPlusss1(double x1,double x2){
-   return(x1+x2);
-}
-
-void ddOpPlussa1(double x1,double* x2, int size, double* y){
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    y[i] = x1+x2[i];
-  }
-}
-
-void ddOpPlusaa1(double* x1,double* x2, int size, double* y){
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    y[i] = x1[i]+x2[i];
-  }
-}
-
-double d0OpPlusd0(double x1)
-{
-   return(x1);
-}
-
-void d2OpPlusd2(double* in1,int* in1Size, double* out)
-{
-  int i = 0;
-  for (i = 0; i < in1Size[0]*in1Size[1]; ++i) 
-  {
-    out[i] = in1[i];
-  }
-}
-floatComplex c0OpPlusc0(floatComplex x1)
-{
-   return(x1);
-}
-
-void c2OpPlusc2(floatComplex* in1,int* in1Size, floatComplex* out)
-{
-  int i = 0;
-  for (i = 0; i < in1Size[0]*in1Size[1]; ++i) 
-  {
-    out[i] = in1[i];
-  }
-}
-
-floatComplex c0c0OpPlusc0(floatComplex x1,floatComplex x2)
-{
-   return(cadds(x1,x2));
-}
-
-floatComplex c0s0OpPlusc0(floatComplex x1,float x2)
-{
-   return(cadds(x1,FloatComplex(x2,0)));
-}
-
-floatComplex s0c0OpPlusc0(float x2,floatComplex x1)
-{
-   return(cadds(x1,FloatComplex(x2,0)));
-}
-
-void s0c2OpPlusc2(float x1,floatComplex* x2, int* x2Size, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = cadds(FloatComplex(x1,0),x2[i]);
-  }
-}
-
-void c0c2OpPlusc2(floatComplex x1,floatComplex* x2, int* x2Size, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = cadds(x1,x2[i]);
-  }
-}
-
-void c2c0OpPlusc2(floatComplex* x2, int* x2Size, floatComplex x1,floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = cadds(x1,x2[i]);
-  }
-}
-
-void c2c2OpPlusc2(floatComplex* x1,int* x1Size,floatComplex* x2, int* x2Size, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-  for (i = 0; i < size; ++i) {
-    y[i] = cadds(x1[i],x2[i]);
-  }
-}
-
-doubleComplex z0OpPlusz0(doubleComplex x1)
-{
-   return(x1);
-}
-
-void z2OpPlusz2(doubleComplex* in1,int* in1Size, doubleComplex* out)
-{
-  int i = 0;
-  for (i = 0; i < in1Size[0]*in1Size[1]; ++i) 
-  {
-    out[i] = in1[i];
-  }
-}
-
-doubleComplex d0z0OpPlusz0(double x1,doubleComplex x2)
-{
-   return(zadds(x2,DoubleComplex(x1,0)));
-}
-
-doubleComplex z0d0OpPlusz0(doubleComplex x1,double x2)
-{
-   return(zadds(x1,DoubleComplex(x2,0)));
-}
-
-doubleComplex z0z0OpPlusz0(doubleComplex x1,doubleComplex x2)
-{
-   return(zadds(x1,x2));
-}
-
-void d0z2OpPlusz2(double x1,doubleComplex* x2, int* x2Size, doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = zadds(DoubleComplex(x1,0),x2[i]);
-  }
-}
-
-void z0z2OpPlusz2(doubleComplex x1,doubleComplex* x2, int* x2Size, doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = zadds(x1,x2[i]);
-  }
-}
-
-void z2z0OpPlusz2(doubleComplex* x2, int* x2Size, doubleComplex x1,doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) {
-    y[i] = zadds(x1,x2[i]);
-  }
-}
-
-void z2d2OpPlusz2(doubleComplex* x2,int* x2Size,double* x1, int* x1Size, doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-  for (i = 0; i < size; ++i) {
-    y[i] = zadds(DoubleComplex(x1[i],0),x2[i]);
-  }
-}
-
-void d2z2OpPlusz2(double* x1,int* x1Size,doubleComplex* x2, int* x2Size, doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-  for (i = 0; i < size; ++i) {
-    y[i] = zadds(DoubleComplex(x1[i],0),x2[i]);
-  }
-}
-
-
-void c2s2OpPlusc2(floatComplex* x2,int* x2Size,float* x1, int* x1Size, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-  for (i = 0; i < size; ++i) {
-    y[i] = cadds(FloatComplex(x1[i],0),x2[i]);
-  }
-}
-
-void s2c2OpPlusc2(float* x1,int* x1Size,floatComplex* x2, int* x2Size, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-  for (i = 0; i < size; ++i) {
-    y[i] = cadds(FloatComplex(x1[i],0),x2[i]);
-  }
-}
-
-
-void z2z2OpPlusz2(doubleComplex* x1,int* x1Size,doubleComplex* x2, int* x2Size, doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-  for (i = 0; i < size; ++i) {
-    y[i] = zadds(x1[i],x2[i]);
-  }
-}
-
-void g0g0OpPlusg2(char x1, char x2, char* y)
-{
-   y[0] = x1;
-   y[1] = x2;
-}
-
-void g2g2OpPlusg2(char* x1,int* x1Size,char* x2, int* x2Size, char* y)
-{
-  int i = 0;
-  int j = 0;
-  for (i = 0; i < x1Size[1]-1; ++i,++j) 
-  {
-    y[j] = x1[i];
-  }
-  for (i = 0; i < x2Size[1]; ++i,++j) 
-  {
-    y[j] = x2[i];
-  }
-}
diff --git a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpRc.c b/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpRc.c
deleted file mode 100644
index d13c2fcb..00000000
--- a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpRc.c
+++ /dev/null
@@ -1,195 +0,0 @@
-/*
-**  -*- C -*-
-**
-** OpRc.c
-** Made by  Raffaele Nutricato <raffaele.nutricato@tiscali.it>
-**
-**
-** Copyright Raffaele Nutricato 2007
-*/
-
-#include "OpRc.h"
-
-void d0d0OpRcd2(double in1, double in2, double* out)
-{
-   out[0] = in1;
-   out[1] = in2;
-}
-
-void d2d0OpRcd2(double* in1, int* in1Size, double in2, double* out)
-{
-   int i;
-   for (i = 0; i < in1Size[1]; i++)
-   {
-      out[i] = in1[i];
-   }
-   out[in1Size[1]] = in2;  
-}
-
-void d0d2OpRcd2(double in2, double* in1, int* in1Size, double* out)
-{
-   int i;
-   for (i = 0; i < in1Size[1]; i++)
-   {
-      out[i] = in1[i];
-   }
-   out[in1Size[1]] = in2;  
-}
-
-void d2d2OpRcd2(double* in1, int* in1Size, double* in2, int* in2Size, double* out)
-{
-   int cntrow;
-   int offsetrow;
-   int cntcol1;
-   int cntcol2;
-   for (cntrow = 0; cntrow < in1Size[0]; cntrow++)
-   {
-      offsetrow = cntrow * (in1Size[1]+in2Size[1]);
-      for (cntcol1 = 0; cntcol1 < in1Size[1]; cntcol1++)
-      {
-         out[offsetrow+cntcol1] = in1[cntrow*in1Size[1]+cntcol1];
-      }
-      for (cntcol2 = 0; cntcol2 < in2Size[1]; cntcol2++)
-      {
-         out[offsetrow+in1Size[1]+cntcol2] = in2[cntrow*in2Size[1]+cntcol2];
-      }
-   }
-}
-
-void s0s0OpRcs2(float in1, float in2, float* out)
-{
-   out[0] = in1;
-   out[1] = in2;
-}
-
-void s2s0OpRcs2(float* in1, int* in1Size, float in2, float* out)
-{
-   int i;
-   for (i = 0; i < in1Size[1]; i++)
-   {
-      out[i] = in1[i];
-   }
-   out[in1Size[1]] = in2;  
-}
-
-void s0s2OpRcs2(float in2, float* in1, int* in1Size, float* out)
-{
-   int i;
-   for (i = 0; i < in1Size[1]; i++)
-   {
-      out[i] = in1[i];
-   }
-   out[in1Size[1]] = in2;  
-}
-
-void s2s2OpRcs2(float* in1, int* in1Size, float* in2, int* in2Size, float* out)
-{
-   int cntrow;
-   int offsetrow;
-   int cntcol1;
-   int cntcol2;
-   for (cntrow = 0; cntrow < in1Size[0]; cntrow++)
-   {
-      offsetrow = cntrow * (in1Size[1]+in2Size[1]);
-      for (cntcol1 = 0; cntcol1 < in1Size[1]; cntcol1++)
-      {
-         out[offsetrow+cntcol1] = in1[cntrow*in1Size[1]+cntcol1];
-      }
-      for (cntcol2 = 0; cntcol2 < in2Size[1]; cntcol2++)
-      {
-         out[offsetrow+in1Size[1]+cntcol2] = in2[cntrow*in2Size[1]+cntcol2];
-      }
-   }
-}
-
-void z0z0OpRcz2(doubleComplex in1, doubleComplex in2, doubleComplex* out)
-{
-   out[0] = in1;
-   out[1] = in2;
-}
-
-void z2z0OpRcz2(doubleComplex* in1, int* in1Size, doubleComplex in2, doubleComplex* out)
-{
-   int i;
-   for (i = 0; i < in1Size[1]; i++)
-   {
-      out[i] = in1[i];
-   }
-   out[in1Size[1]] = in2;  
-}
-
-void z0z2OpRcz2(doubleComplex in2, doubleComplex* in1, int* in1Size, doubleComplex* out)
-{
-   int i;
-   for (i = 0; i < in1Size[1]; i++)
-   {
-      out[i] = in1[i];
-   }
-   out[in1Size[1]] = in2;  
-}
-
-void z2z2OpRcz2(doubleComplex* in1, int* in1Size, doubleComplex* in2, int* in2Size, doubleComplex* out)
-{
-   int cntrow;
-   int offsetrow;
-   int cntcol1;
-   int cntcol2;
-   for (cntrow = 0; cntrow < in1Size[0]; cntrow++)
-   {
-      offsetrow = cntrow * (in1Size[1]+in2Size[1]);
-      for (cntcol1 = 0; cntcol1 < in1Size[1]; cntcol1++)
-      {
-         out[offsetrow+cntcol1] = in1[cntrow*in1Size[1]+cntcol1];
-      }
-      for (cntcol2 = 0; cntcol2 < in2Size[1]; cntcol2++)
-      {
-         out[offsetrow+in1Size[1]+cntcol2] = in2[cntrow*in2Size[1]+cntcol2];
-      }
-   }
-}
-
-void c0c0OpRcc2(floatComplex in1, floatComplex in2, floatComplex* out)
-{
-   out[0] = in1;
-   out[1] = in2;
-}
-
-void c2c0OpRcc2(floatComplex* in1, int* in1Size, floatComplex in2, floatComplex* out)
-{
-   int i;
-   for (i = 0; i < in1Size[1]; i++)
-   {
-      out[i] = in1[i];
-   }
-   out[in1Size[1]] = in2;  
-}
-
-void c0c2OpRcc2(floatComplex in2, floatComplex* in1, int* in1Size, floatComplex* out)
-{
-   int i;
-   for (i = 0; i < in1Size[1]; i++)
-   {
-      out[i] = in1[i];
-   }
-   out[in1Size[1]] = in2;  
-}
-
-void c2c2OpRcc2(floatComplex* in1, int* in1Size, floatComplex* in2, int* in2Size, floatComplex* out)
-{
-   int cntrow;
-   int offsetrow;
-   int cntcol1;
-   int cntcol2;
-   for (cntrow = 0; cntrow < in1Size[0]; cntrow++)
-   {
-      offsetrow = cntrow * (in1Size[1]+in2Size[1]);
-      for (cntcol1 = 0; cntcol1 < in1Size[1]; cntcol1++)
-      {
-         out[offsetrow+cntcol1] = in1[cntrow*in1Size[1]+cntcol1];
-      }
-      for (cntcol2 = 0; cntcol2 < in2Size[1]; cntcol2++)
-      {
-         out[offsetrow+in1Size[1]+cntcol2] = in2[cntrow*in2Size[1]+cntcol2];
-      }
-   }
-}
diff --git a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpStar.c b/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpStar.c
deleted file mode 100644
index 31879b47..00000000
--- a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpStar.c
+++ /dev/null
@@ -1,398 +0,0 @@
-/*
-**  -*- C -*-
-**
-** OpStar.c
-** Made by  Raffaele Nutricato <raffaele.nutricato@tiscali.it>
-**
-**
-** Copyright Raffaele Nutricato 2007
-*/
-
-#include "OpStar.h"
-
-float ssOpStarss1(float x1, float x2){
-   return(x1*x2);
-}
-
-void ssOpStarsa1(float x1,float* x2, int size, float* y){
-  int i = 0;
-  for (i = 0; i < size; ++i) 
-  {
-    y[i] = x1*(float)x2[i];
-  }
-}
-
-void ssOpStaraa1(float* x1,int x1rows, int x1cols, float* x2, int x2cols, float* y)
-{
-   int i = 0;
-   int j = 0;
-   int z = 0;
-   for (i = 0; i < x1rows; ++i) 
-   {
-      for (j = 0; j < x2cols; j++)
-      {
-         y[i*x2cols+j] = 0;
-         for (z = 0; z < x1cols; z++)
-         {
-            y[i*x2cols+j] = y[i*x2cols+j] + x1[i*x1cols+z]*x2[z*x2cols+j];
-         }
-      }
-   }
-}
-
-double ddOpStarss1(double x1,double x2){
-   return(x1*x2);
-}
-
-void ddOpStarsa1(double x1,double* x2, int size, double* y){
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    y[i] = x1*x2[i];
-  }
-}
-
-void ddOpStaraa1(double* x1,int x1rows, int x1cols, double* x2, int x2cols, double* y)
-{
-   int i = 0;
-   int j = 0;
-   int z = 0;
-   for (i = 0; i < x1rows; i++) 
-   {
-      for (j = 0; j < x2cols; j++)
-      {
-         y[i*x2cols+j] = 0;
-         for (z = 0; z < x1cols; z++)
-         {
-            y[i*x2cols+j] = y[i*x2cols+j] + x1[i*x1cols+z]*x2[z*x2cols+j];
-         }
-      }
-   }
-}
-
-floatComplex s0c0OpStarc0(float x2, floatComplex x1)
-{
-   return(ctimess(x1,FloatComplex(x2,0)));
-}
-
-floatComplex c0s0OpStarc0(floatComplex x1, float x2)
-{
-   return(ctimess(x1,FloatComplex(x2,0)));
-}
-
-floatComplex c0c0OpStarc0(floatComplex x1, floatComplex x2)
-{
-   return(ctimess(x1,x2));
-}
-
-void c0s2OpStarc2(floatComplex x1,float* x2, int* x2Size, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) 
-  {
-    y[i] = ctimess(x1,FloatComplex(x2[i],0));
-  }
-}
-
-void s2c0OpStarc2(float* x2, int* x2Size, floatComplex x1, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) 
-  {
-    y[i] = ctimess(x1,FloatComplex(x2[i],0));
-  }
-}
-
-void s0c2OpStarc2(float x1,floatComplex* x2, int* x2Size, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) 
-  {
-    y[i] = ctimess(FloatComplex(x1,0),x2[i]);
-  }
-}
-
-void c0c2OpStarc2(floatComplex x1,floatComplex* x2, int* x2Size, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) 
-  {
-    y[i] = ctimess(x1,x2[i]);
-  }
-}
-
-void c2c0OpStarc2(floatComplex* x2, int* x2Size,floatComplex x1, floatComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) 
-  {
-    y[i] = ctimess(x1,x2[i]);
-  }
-}
-
-void c2s2OpStarc2(floatComplex* x1,int* x1Size, float* x2, int* x2Size, floatComplex* y)
-{
-   int i = 0;
-   int j = 0;
-   int z = 0;
-   int x1rows = x1Size[0];
-   int x1cols = x1Size[1];
-   int x2cols = x2Size[1];
-   for (i = 0; i < x1rows; ++i) 
-   {
-      for (j = 0; j < x2cols; j++)
-      {
-         y[i*x2cols+j] = FloatComplex(0,0);
-         for (z = 0; z < x1cols; z++)
-         {
-            y[i*x2cols+j] = cadds(y[i*x2cols+j],ctimess(x1[i*x1cols+z],FloatComplex(x2[z*x2cols+j],0)));
-         }
-      }
-   }
-}
-
-void c2c2OpStarc2(floatComplex* x1,int* x1Size, floatComplex* x2, int* x2Size, floatComplex* y)
-{
-   int i = 0;
-   int j = 0;
-   int z = 0;
-   int x1rows = x1Size[0];
-   int x1cols = x1Size[1];
-   int x2cols = x2Size[1];
-   for (i = 0; i < x1rows; ++i) 
-   {
-      for (j = 0; j < x2cols; j++)
-      {
-         y[i*x2cols+j] = FloatComplex(0,0);
-         for (z = 0; z < x1cols; z++)
-         {
-            y[i*x2cols+j] = cadds(y[i*x2cols+j],ctimess(x1[i*x1cols+z],x2[z*x2cols+j]));
-         }
-      }
-   }
-}
-
-doubleComplex d0z0OpStarz0(double x2, doubleComplex x1)
-{
-   return(ztimess(x1,DoubleComplex(x2,0)));
-}
-
-doubleComplex z0d0OpStarz0(doubleComplex x1, double x2)
-{
-   return(ztimess(x1,DoubleComplex(x2,0)));
-}
-
-doubleComplex z0z0OpStarz0(doubleComplex x1, doubleComplex x2)
-{
-   return(ztimess(x1,x2));
-}
-
-void z0d2OpStarz2(doubleComplex x1,double* x2, int* x2Size, doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) 
-  {
-    y[i] = ztimess(x1,DoubleComplex(x2[i],0));
-  }
-}
-
-void d2z0OpStarz2(double* x2, int* x2Size, doubleComplex x1, doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) 
-  {
-    y[i] = ztimess(x1,DoubleComplex(x2[i],0));
-  }
-}
-
-void d0z2OpStarz2(double x1,doubleComplex* x2, int* x2Size, doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) 
-  {
-    y[i] = ztimess(DoubleComplex(x1,0),x2[i]);
-  }
-}
-
-void z0z2OpStarz2(doubleComplex x1,doubleComplex* x2, int* x2Size, doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) 
-  {
-    y[i] = ztimess(x1,x2[i]);
-  }
-}
-
-void z2z0OpStarz2(doubleComplex* x2, int* x2Size,doubleComplex x1, doubleComplex* y)
-{
-  int i = 0;
-  int size;
-  size = x2Size[0]*x2Size[1];
-   
-  for (i = 0; i < size; ++i) 
-  {
-    y[i] = ztimess(x1,x2[i]);
-  }
-}
-
-void z2d2OpStarz2(doubleComplex* x1,int* x1Size, double* x2, int* x2Size, doubleComplex* y)
-{
-   int i = 0;
-   int j = 0;
-   int z = 0;
-   int x1rows = x1Size[0];
-   int x1cols = x1Size[1];
-   int x2cols = x2Size[1];
-   for (i = 0; i < x1rows; ++i) 
-   {
-      for (j = 0; j < x2cols; j++)
-      {
-         y[i*x2cols+j] = DoubleComplex(0,0);
-         for (z = 0; z < x1cols; z++)
-         {
-            y[i*x2cols+j] = zadds(y[i*x2cols+j],ztimess(x1[i*x1cols+z],DoubleComplex(x2[z*x2cols+j],0)));
-         }
-      }
-   }
-}
-
-void z2z2OpStarz2(doubleComplex* x1,int* x1Size, doubleComplex* x2, int* x2Size, doubleComplex* y)
-{
-   int i = 0;
-   int j = 0;
-   int z = 0;
-   int x1rows = x1Size[0];
-   int x1cols = x1Size[1];
-   int x2cols = x2Size[1];
-   for (i = 0; i < x1rows; ++i) 
-   {
-      for (j = 0; j < x2cols; j++)
-      {
-         y[i*x2cols+j] = DoubleComplex(0,0);
-         for (z = 0; z < x1cols; z++)
-         {
-            y[i*x2cols+j] = zadds(y[i*x2cols+j],ztimess(x1[i*x1cols+z],x2[z*x2cols+j]));
-         }
-      }
-   }
-}
-
-
-
-float s2s2OpStars0(float* x1,int* x1Size, float* x2,int* x2Size)
-{
-   int i = 0;
-   int j = 0;
-   int z = 0;
-   float y = 0;
-   int x1rows = x1Size[0];
-   int x1cols = x1Size[1];
-   int x2cols = x2Size[1];
-   for (i = 0; i < x1rows; ++i) 
-   {
-      for (j = 0; j < x2cols; j++)
-      {
-         y = 0;
-         for (z = 0; z < x1cols; z++)
-         {
-            y += x1[i*x1cols+z]*x2[z*x2cols+j];
-         }
-      }
-   }
-   return(y);
-}
-
-double d2d2OpStard0(double* x1,int* x1Size, double* x2,int* x2Size)
-{
-   int i = 0;
-   int j = 0;
-   int z = 0;
-   int x1rows = x1Size[0];
-   int x1cols = x1Size[1];
-   int x2cols = x2Size[1];
-   double y = 0;
-   for (i = 0; i < x1rows; ++i) 
-   {
-      for (j = 0; j < x2cols; j++)
-      {
-         y = 0;
-         for (z = 0; z < x1cols; z++)
-         {
-            y += x1[i*x1cols+z]*x2[z*x2cols+j];
-         }
-      }
-   }
-   return(y);
-}
-
-floatComplex c2c2OpStarc0(floatComplex* x1,int* x1Size, floatComplex* x2,int* x2Size)
-{
-   int i = 0;
-   int j = 0;
-   int z = 0;
-   int x1rows = x1Size[0];
-   int x1cols = x1Size[1];
-   int x2cols = x2Size[1];
-   floatComplex y = FloatComplex(0,0);
-   for (i = 0; i < x1rows; ++i) 
-   {
-      for (j = 0; j < x2cols; j++)
-      {
-         y = FloatComplex(0,0);
-         for (z = 0; z < x1cols; z++)
-         {
-            y = cadds(y,ctimess(x1[i*x1cols+z],x2[z*x2cols+j]));
-         }
-      }
-   }
-   return(y);
-}
-
-doubleComplex z2z2OpStarz0(doubleComplex* x1,int* x1Size, doubleComplex* x2,int* x2Size)
-{
-   int i = 0;
-   int j = 0;
-   int z = 0;
-   int x1rows = x1Size[0];
-   int x1cols = x1Size[1];
-   int x2cols = x2Size[1];
-   doubleComplex y = DoubleComplex(0,0);
-   for (i = 0; i < x1rows; ++i) 
-   {
-      for (j = 0; j < x2cols; j++)
-      {
-         y = DoubleComplex(0,0);
-         for (z = 0; z < x1cols; z++)
-         {
-            y = zadds(y,ztimess(x1[i*x1cols+z],x2[z*x2cols+j]));
-         }
-      }
-   }
-   return(y);
-}
diff --git a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/ones.c b/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/ones.c
deleted file mode 100644
index 97cafbbd..00000000
--- a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/ones.c
+++ /dev/null
@@ -1,40 +0,0 @@
-/*
-**  -*- C -*-
-**
-** OpEqual.c
-** Made by  Raffaele Nutricato <raffaele.nutricato@tiscali.it>
-**
-**
-** Copyright Raffaele Nutricato 2007
-*/
-
-#include "ones.h"
-void ddonesss1(double in1, double in2, double* out) 
-{
-  int i = 0;
-  for (i = 0 ; i < (((int) in1) * ((int) in2)) ; i++) 
-  {
-    out[i] = 1;
-  }
-}
-
-double d0d0onesd0(double in1, double in2)
-{
-   /*RN anche qui c'e' da capire se questi casi banali possono essere eliminati.*/
-   return 1;
-}
-
-void ssonesss1(float in1, float in2, float* out) 
-{
-  int i = 0;
-  for (i = 0 ; i < (((int) in1) * ((int) in2)) ; i++) 
-  {
-    out[i] = 1;
-  }
-}
-
-float s0s0oness0(float in1, float in2)
-{
-   /*RN anche qui c'e' da capire se questi casi banali possono essere eliminati.*/
-   return 1;
-}
diff --git a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zeros.c b/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zeros.c
deleted file mode 100644
index a80a45df..00000000
--- a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zeros.c
+++ /dev/null
@@ -1,41 +0,0 @@
-/*
-**  -*- C -*-
-**
-** zeros.c
-** Made by  Raffaele Nutricato <raffaele.nutricato@tiscali.it>
-**
-**
-** Copyright Raffaele Nutricato 2007
-*/
-
-#include "zeros.h"
-void d0d0zerosd2(double in1, double in2, double* out) 
-{
-  int i = 0;
-  for (i = 0 ; i < (((int) in1) * ((int) in2)) ; i++) 
-  {
-    out[i] = 0;
-  }
-}
-
-double d0d0zerosd0(double in1, double in2)
-{
-   /*RN anche qui c'e' da capire se questi casi banali possono essere eliminati.*/
-   return 0;
-}
-
-void s0s0zeross2(float in1, float in2, float* out) 
-{
-  int i = 0;
-  for (i = 0 ; i < (((int) in1) * ((int) in2)) ; i++) 
-  {
-    out[i] = 0;
-  }
-}
-
-double s0s0zeross0(float in1, float in2)
-{
-   /*RN anche qui c'e' da capire se questi casi banali possono essere eliminati.*/
-   return 0;
-}
-
diff --git a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpDotHat.h b/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpDotHat.h
deleted file mode 100644
index 857362c9..00000000
--- a/scilab2c/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpDotHat.h
+++ /dev/null
@@ -1,30 +0,0 @@
-/*
-**  -*- C -*-
-**
-** DotHat.h
-** Made by  Raffaele Nutricato
-**
-**
-*/
-
-#ifndef __OPDOTHAT_H__
-#define __OPDOTHAT_H__
-
-#include "floatComplex.h"
-#include "doubleComplex.h"
-#include "math.h"
-
-/*
-** Compute DotHat for different types .
-*/
-
-float	s0s0OpDotHats0(float in1,float in2);
-void s0s2OpDotHats2(float in1,float* in2, int* in2Size, float* out);
-void s2s0OpDotHats2(float* in1,int* in1Size, float in2, float* out);
-void s2s2OpDotHats2(float* in1,int* in1Size,float* in2, int* in2Size, float* out);
-double d0d0OpDotHatd0(double in1,double in2);
-void d0d2OpDotHatd2(double in1,double* in2, int* in2Size, double* out);
-void d2d0OpDotHatd2(double* in1,int* in1Size, double in2, double* out);
-void d2d2OpDotHatd2(double* in1,int* in1Size,double* in2, int* in2Size, double* out);
-
-#endif /* !__OPDOTHAT_H__ */