Merge branch 'master' of https://github.com/siddhu8990/Scilab2C

4 files changed, 176 insertions, 0 deletions

diff --git a/src/c/matrixOperations/multiplication/i16mulma.c b/src/c/matrixOperations/multiplication/i16mulma.c
new file mode 100644
index 0000000..ee1268a
--- /dev/null
+++ b/src/c/matrixOperations/multiplication/i16mulma.c
@@ -0,0 +1,44 @@
+/*SCilab2C FOSSEE IIT Bombay*/
+
+/*
+** \brief Compute a multiplication for int16 matrixes.
+** \param in1 : input matrix.
+** \param lines1 : lines of in1 matrix.
+** \param columns1 : columns of in1 matrix.
+** \param in2 : input arry.
+** \param lines2 : lines of in2 matrix.
+** \param columns2 : columns of in2 matrix.
+** \param out : Matrix that contains the multiplication in1 * in2.
+*/
+
+// dgemm function of lapack library does not support uint8,uint16,int8 and int16 datatype so removed
+
+#include "matrixMultiplication.h"
+
+void i16mulma(int16 *in1,int lines1,int columns1,
+             int16 *in2,int lines2,int columns2,
+             int16 *out)
+{
+
+  /* Do Not Use Any BLAS Function*/
+  int i = 0;
+  int k = 0;
+  int16 accu = 0;
+  
+  /* How to convert 2 index matrixes to  one.
+  ** #define in1(a,b) in1[a+b*lines1]
+  ** #define in2(c,d) in2[c+d*lines2]
+  */
+  for(i=0;i < lines1 * columns2; ++i)
+  {  
+    accu = 0;
+    for(k=0;k < columns1; ++k)
+    {  
+      accu += in1[i % lines1 + k * lines1] * in2[k + (i / lines1) * lines2];
+
+    }
+    out[i] = accu;
+  
+  }
+
+}
diff --git a/src/c/matrixOperations/multiplication/i8mulma.c b/src/c/matrixOperations/multiplication/i8mulma.c
new file mode 100644
index 0000000..0efe797
--- /dev/null
+++ b/src/c/matrixOperations/multiplication/i8mulma.c
@@ -0,0 +1,44 @@
+/*SCilab2C FOSSEE IIT Bombay*/
+
+/*
+** \brief Compute a multiplication for int8 matrixes.
+** \param in1 : input matrix.
+** \param lines1 : lines of in1 matrix.
+** \param columns1 : columns of in1 matrix.
+** \param in2 : input arry.
+** \param lines2 : lines of in2 matrix.
+** \param columns2 : columns of in2 matrix.
+** \param out : Matrix that contains the multiplication in1 * in2.
+*/
+
+// dgemm function of lapack library does not support uint8,uint16,int8 and int16 datatype so removed
+
+#include "matrixMultiplication.h"
+
+void i8mulma(int8 *in1,int lines1,int columns1,
+             int8 *in2,int lines2,int columns2,
+             int8 *out)
+{
+
+  /* Do Not Use Any BLAS Function*/
+  int i = 0;
+  int k = 0;
+  int8 accu = 0;
+  
+  /* How to convert 2 index matrixes to  one.
+  ** #define in1(a,b) in1[a+b*lines1]
+  ** #define in2(c,d) in2[c+d*lines2]
+  */
+  for(i=0;i < lines1 * columns2; ++i)
+  {  
+    accu = 0;
+    for(k=0;k < columns1; ++k)
+    {  
+      accu += in1[i % lines1 + k * lines1] * in2[k + (i / lines1) * lines2];
+
+    }
+    out[i] = accu;
+  
+  }
+
+}
diff --git a/src/c/matrixOperations/multiplication/u16mulma.c b/src/c/matrixOperations/multiplication/u16mulma.c
new file mode 100644
index 0000000..a36c57c
--- /dev/null
+++ b/src/c/matrixOperations/multiplication/u16mulma.c
@@ -0,0 +1,44 @@
+/*SCilab2C FOSSEE IIT Bombay*/
+
+/*
+** \brief Compute a multiplication for uint16 matrixes.
+** \param in1 : input matrix.
+** \param lines1 : lines of in1 matrix.
+** \param columns1 : columns of in1 matrix.
+** \param in2 : input arry.
+** \param lines2 : lines of in2 matrix.
+** \param columns2 : columns of in2 matrix.
+** \param out : Matrix that contains the multiplication in1 * in2.
+*/
+
+// dgemm function of lapack library does not support uint8,uint16,int8 and int16 datatype so removed
+
+#include "matrixMultiplication.h"
+
+void u16mulma(uint16 *in1,int lines1,int columns1,
+             uint16 *in2,int lines2,int columns2,
+             uint16 *out)
+{
+
+  /* Do Not Use Any BLAS Function*/
+  int i = 0;
+  int k = 0;
+  uint16 accu = 0;
+  
+  /* How to convert 2 index matrixes to  one.
+  ** #define in1(a,b) in1[a+b*lines1]
+  ** #define in2(c,d) in2[c+d*lines2]
+  */
+  for(i=0;i < lines1 * columns2; ++i)
+  {  
+    accu = 0;
+    for(k=0;k < columns1; ++k)
+    {  
+      accu += in1[i % lines1 + k * lines1] * in2[k + (i / lines1) * lines2];
+
+    }
+    out[i] = accu;
+  
+  }
+
+}
diff --git a/src/c/matrixOperations/multiplication/u8mulma.c b/src/c/matrixOperations/multiplication/u8mulma.c
new file mode 100644
index 0000000..ea630b6
--- /dev/null
+++ b/src/c/matrixOperations/multiplication/u8mulma.c
@@ -0,0 +1,44 @@
+/*SCilab2C FOSSEE IIT Bombay*/
+
+/*
+** \brief Compute a multiplication for uint8 matrixes.
+** \param in1 : input matrix.
+** \param lines1 : lines of in1 matrix.
+** \param columns1 : columns of in1 matrix.
+** \param in2 : input arry.
+** \param lines2 : lines of in2 matrix.
+** \param columns2 : columns of in2 matrix.
+** \param out : Matrix that contains the multiplication in1 * in2.
+*/
+
+
+// dgemm function of lapack library does not support uint8,uint16,int8 and int16 datatype so removed
+
+#include "matrixMultiplication.h"
+
+void u8mulma(uint8 *in1,int lines1,int columns1,
+             uint8 *in2,int lines2,int columns2,
+             uint8 *out)
+{
+
+  int i = 0;
+  int k = 0;
+  uint8 accu = 0;
+  
+  /* How to convert 2 index matrixes to  one.
+  ** #define in1(a,b) in1[a+b*lines1]
+  ** #define in2(c,d) in2[c+d*lines2]
+  */
+  for(i=0;i < lines1 * columns2; ++i)
+  {  
+    accu = 0;
+    for(k=0;k < columns1; ++k)
+    {  
+      accu += in1[i % lines1 + k * lines1] * in2[k + (i / lines1) * lines2];
+
+    }
+    out[i] = accu;
+      
+  }
+
+}