3 files changed, 140 insertions, 1 deletions
diff --git a/src/configure b/src/configure
index 5a246b48..3bae07c9 100755
--- a/src/configure
+++ b/src/configure
@@ -22149,7 +22149,7 @@ fi
 #operations/multiplication/Makefile
 #operations/division/Makefile
 
-ac_config_files="$ac_config_files Makefile lib/blas/Makefile lib/lapack/Makefile type/Makefile operations/Makefile operations/addition/Makefile operations/subtraction/Makefile operations/division/Makefile operations/multiplication/Makefile matrixOperations/Makefile matrixOperations/multiplication/Makefile matrixOperations/division/Makefile matrixOperations/cat/Makefile matrixOperations/transpose/Makefile matrixOperations/trace/Makefile matrixOperations/hilbert/Makefile matrixOperations/expm/Makefile matrixOperations/eye/Makefile matrixOperations/ones/Makefile matrixOperations/infiniteNorm/Makefile matrixOperations/inversion/Makefile matrixOperations/jmat/Makefile matrixOperations/chol/Makefile matrixOperations/determ/Makefile matrixOperations/dist/Makefile matrixOperations/fill/Makefile matrixOperations/magnitude/Makefile matrixOperations/squaredMagnitude/Makefile matrixOperations/logm/Makefile matrixOperations/powm/Makefile implicitList/Makefile elementaryFunctions/Makefile elementaryFunctions/cos/Makefile elementaryFunctions/cosh/Makefile elementaryFunctions/acos/Makefile elementaryFunctions/acosh/Makefile elementaryFunctions/sin/Makefile elementaryFunctions/sinh/Makefile elementaryFunctions/asin/Makefile elementaryFunctions/asinh/Makefile elementaryFunctions/tan/Makefile elementaryFunctions/tanh/Makefile elementaryFunctions/atan/Makefile elementaryFunctions/atan2/Makefile elementaryFunctions/atanh/Makefile elementaryFunctions/log/Makefile elementaryFunctions/log1p/Makefile elementaryFunctions/log10/Makefile elementaryFunctions/exp/Makefile elementaryFunctions/exp10/Makefile elementaryFunctions/sqrt/Makefile elementaryFunctions/lnp1m1/Makefile elementaryFunctions/pow/Makefile auxiliaryFunctions/Makefile auxiliaryFunctions/abs/Makefile auxiliaryFunctions/find/Makefile auxiliaryFunctions/find2d/Makefile auxiliaryFunctions/frexp/Makefile auxiliaryFunctions/isempty/Makefile auxiliaryFunctions/isnan/Makefile auxiliaryFunctions/rand/Makefile auxiliaryFunctions/sign/Makefile auxiliaryFunctions/size/Makefile auxiliaryFunctions/length/Makefile auxiliaryFunctions/type/Makefile auxiliaryFunctions/pythag/Makefile auxiliaryFunctions/conj/Makefile statisticsFunctions/Makefile statisticsFunctions/mean/Makefile statisticsFunctions/prod/Makefile statisticsFunctions/sum/Makefile statisticsFunctions/variance/Makefile string/Makefile string/disp/Makefile string/string/Makefile signalProcessing/Makefile signalProcessing/fft/Makefile signalProcessing/ifft/Makefile signalProcessing/levin/Makefile signalProcessing/conv/Makefile signalProcessing/conv2d/Makefile signalProcessing/hilbert/Makefile signalProcessing/crossCorr/Makefile signalProcessing/lpc2cep/Makefile signalProcessing/lev/Makefile"
+ac_config_files="$ac_config_files Makefile lib/blas/Makefile lib/lapack/Makefile type/Makefile operations/Makefile operations/addition/Makefile operations/subtraction/Makefile operations/division/Makefile operations/multiplication/Makefile matrixOperations/Makefile matrixOperations/multiplication/Makefile matrixOperations/division/Makefile matrixOperations/cat/Makefile matrixOperations/transpose/Makefile matrixOperations/trace/Makefile matrixOperations/hilbert/Makefile matrixOperations/expm/Makefile matrixOperations/eye/Makefile matrixOperations/ones/Makefile matrixOperations/infiniteNorm/Makefile matrixOperations/inversion/Makefile matrixOperations/jmat/Makefile matrixOperations/chol/Makefile matrixOperations/determ/Makefile matrixOperations/dist/Makefile matrixOperations/fill/Makefile matrixOperations/magnitude/Makefile matrixOperations/squaredMagnitude/Makefile matrixOperations/logm/Makefile matrixOperations/powm/Makefile matrixOperations/zeros/Makefile implicitList/Makefile elementaryFunctions/Makefile elementaryFunctions/cos/Makefile elementaryFunctions/cosh/Makefile elementaryFunctions/acos/Makefile elementaryFunctions/acosh/Makefile elementaryFunctions/sin/Makefile elementaryFunctions/sinh/Makefile elementaryFunctions/asin/Makefile elementaryFunctions/asinh/Makefile elementaryFunctions/tan/Makefile elementaryFunctions/tanh/Makefile elementaryFunctions/atan/Makefile elementaryFunctions/atan2/Makefile elementaryFunctions/atanh/Makefile elementaryFunctions/log/Makefile elementaryFunctions/log1p/Makefile elementaryFunctions/log10/Makefile elementaryFunctions/exp/Makefile elementaryFunctions/exp10/Makefile elementaryFunctions/sqrt/Makefile elementaryFunctions/lnp1m1/Makefile elementaryFunctions/pow/Makefile auxiliaryFunctions/Makefile auxiliaryFunctions/abs/Makefile auxiliaryFunctions/find/Makefile auxiliaryFunctions/find2d/Makefile auxiliaryFunctions/frexp/Makefile auxiliaryFunctions/isempty/Makefile auxiliaryFunctions/isnan/Makefile auxiliaryFunctions/rand/Makefile auxiliaryFunctions/sign/Makefile auxiliaryFunctions/size/Makefile auxiliaryFunctions/length/Makefile auxiliaryFunctions/type/Makefile auxiliaryFunctions/pythag/Makefile auxiliaryFunctions/conj/Makefile statisticsFunctions/Makefile statisticsFunctions/mean/Makefile statisticsFunctions/prod/Makefile statisticsFunctions/sum/Makefile statisticsFunctions/variance/Makefile string/Makefile string/disp/Makefile string/string/Makefile signalProcessing/Makefile signalProcessing/fft/Makefile signalProcessing/ifft/Makefile signalProcessing/levin/Makefile signalProcessing/conv/Makefile signalProcessing/conv2d/Makefile signalProcessing/hilbert/Makefile signalProcessing/crossCorr/Makefile signalProcessing/lpc2cep/Makefile signalProcessing/lev/Makefile"
 
 
 
@@ -22790,6 +22790,7 @@ do
     "matrixOperations/squaredMagnitude/Makefile") CONFIG_FILES="$CONFIG_FILES matrixOperations/squaredMagnitude/Makefile" ;;
     "matrixOperations/logm/Makefile") CONFIG_FILES="$CONFIG_FILES matrixOperations/logm/Makefile" ;;
     "matrixOperations/powm/Makefile") CONFIG_FILES="$CONFIG_FILES matrixOperations/powm/Makefile" ;;
+    "matrixOperations/zeros/Makefile") CONFIG_FILES="$CONFIG_FILES matrixOperations/zeros/Makefile" ;;
     "implicitList/Makefile") CONFIG_FILES="$CONFIG_FILES implicitList/Makefile" ;;
     "elementaryFunctions/Makefile") CONFIG_FILES="$CONFIG_FILES elementaryFunctions/Makefile" ;;
     "elementaryFunctions/cos/Makefile") CONFIG_FILES="$CONFIG_FILES elementaryFunctions/cos/Makefile" ;;
diff --git a/src/configure.ac b/src/configure.ac
index 2663404c..0a06fa20 100644
--- a/src/configure.ac
+++ b/src/configure.ac
@@ -186,6 +186,7 @@ matrixOperations/magnitude/Makefile
 matrixOperations/squaredMagnitude/Makefile
 matrixOperations/logm/Makefile
 matrixOperations/powm/Makefile
+matrixOperations/zeros/Makefile
 implicitList/Makefile
 elementaryFunctions/Makefile
 elementaryFunctions/cos/Makefile
diff --git a/src/matrixOperations/zeros/testMatrixZeros.c b/src/matrixOperations/zeros/testMatrixZeros.c
new file mode 100644
index 00000000..37f0596b
--- /dev/null
+++ b/src/matrixOperations/zeros/testMatrixZeros.c
@@ -0,0 +1,137 @@
+/*
+ *  Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ *  Copyright (C) 2008-2008 - INRIA - Allan SIMON
+ *
+ *  This file must be used under the terms of the CeCILL.
+ *  This source file is licensed as described in the file COPYING, which
+ *  you should have received as part of this distribution.  The terms
+ *  are also available at
+ *  http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
+
+#include <assert.h>
+#include <stdio.h>
+#include <math.h>
+
+#include "zeros.h"
+
+#define ROWS 20
+#define COLS 50
+
+static void dzerosaTest ( void )
+{
+    int i = 0 ;
+
+    double result = 0 ;
+
+    double in [ROWS*COLS] ;
+
+    dzerosa ( in , ROWS , COLS ) ;
+
+    for ( i = 0 ; i <  ROWS*COLS ; i++ )
+        {
+         result = 0 ;
+
+         printf ( "\t\t %d in : %e\tresult : %e\tassert : %e \n" , i, in[i] , result , fabs( in[i] - result) / fabs( in[i]) ) ;
+
+         assert ( fabs ( in[i] - result) == 0 ) ;
+        }
+}
+
+
+static void szerosaTest ( void )
+{
+    int i = 0 ;
+
+    float result = 0 ;
+
+    float in[ROWS*COLS] ;
+
+    szerosa ( in , ROWS , COLS ) ;
+
+    for ( i = 0 ; i <  ROWS*COLS ; i++)
+        {
+         result = 0.0f ;
+
+
+         assert ( fabs ( in[i] - result) == 0 ) ;
+        }
+}
+
+
+static void zzerosaTest ( void )
+{
+    int i = 0 ;
+
+    doubleComplex result = DoubleComplex ( 0 , 0) ;
+
+    doubleComplex in[ROWS*COLS] ;
+
+    zzerosa ( in , ROWS , COLS ) ;
+
+    for ( i = 0 ; i <  ROWS*COLS ; i++ )
+        {
+         result = DoubleComplex ( 0 , 0 ) ;
+
+
+         assert ( fabs ( zreals(in[i]) - zreals(result)) == 0 ) ;
+         assert ( fabs ( zimags(in[i]) - zimags(result)) == 0 ) ;
+
+        }
+}
+
+
+
+
+
+static void czerosaTest ( void )
+{
+    int i = 0 ;
+
+    floatComplex result = FloatComplex ( 0 , 0  ) ;
+
+    floatComplex in[ROWS*COLS] ;
+
+    czerosa ( in , ROWS , COLS ) ;
+
+    for ( i = 0 ; i <  ROWS*COLS ; i++)
+        {
+        result = FloatComplex ( 0.0f , 0 ) ;
+
+
+         assert ( fabs ( creals(in[i]) - creals(result)) == 0 ) ;
+         assert ( fabs ( cimags(in[i]) - cimags(result)) == 0 ) ;
+
+        }
+}
+
+
+
+static int testEye(void) {
+
+  printf("\n>>>> Matrix ONES Tests\n");
+  printf("\t>>>> Matrix Double Realt Tests\n");
+  dzerosaTest();
+
+  printf("\n\n\t>>>> Matrix Float Realt Tests\n");
+  szerosaTest();
+
+  printf("\n\n\n");
+  printf("\t>>>> Matrix Float Complex Tests\n");
+  czerosaTest();
+
+  printf("\n\n\n");
+  printf("\t>>>> Matrix Double Complex Tests\n");
+  zzerosaTest();
+
+  return 0;
+}
+
+
+
+int main(void) {
+  assert(testEye() == 0);
+  return 0;
+}
+