From 8e1f51d26a86b2f92e9fd17197834172bd4fa929 Mon Sep 17 00:00:00 2001
From: Abhinav Dronamraju
Date: Thu, 6 Jul 2017 15:45:03 +0530
Subject: Added isrow entirely

---
 2.3-1/src/c/elementaryFunctions/isrow/disrowa.c |  6 +++---
 2.3-1/src/c/elementaryFunctions/isrow/disrows.c |  4 ++--
 2.3-1/src/c/elementaryFunctions/isrow/gisrowa.c |  6 +++---
 2.3-1/src/c/elementaryFunctions/isrow/gisrows.c | 24 +++++++++++++++++++++
 2.3-1/src/c/elementaryFunctions/isrow/sisrowa.c |  6 +++---
 2.3-1/src/c/elementaryFunctions/isrow/sisrows.c |  4 ++--
 2.3-1/src/c/elementaryFunctions/isrow/zisrowa.c | 28 +++++++++++++++++++++++++
 7 files changed, 65 insertions(+), 13 deletions(-)
 create mode 100644 2.3-1/src/c/elementaryFunctions/isrow/gisrows.c
 create mode 100644 2.3-1/src/c/elementaryFunctions/isrow/zisrowa.c

(limited to '2.3-1/src/c/elementaryFunctions/isrow')

diff --git a/2.3-1/src/c/elementaryFunctions/isrow/disrowa.c b/2.3-1/src/c/elementaryFunctions/isrow/disrowa.c
index 8bb7e5ff..826afca7 100644
--- a/2.3-1/src/c/elementaryFunctions/isrow/disrowa.c
+++ b/2.3-1/src/c/elementaryFunctions/isrow/disrowa.c
@@ -15,12 +15,12 @@
 #include <math.h>
 #include "isrow.h"
 #include "types.h"
-double disrowa(double* inp, int size1)
+char disrowa(double* inp, int size1)
 {
-   double out=0;
+   char out= 'F' ;
     if(size1==1)
     {
-     out  = 1;
+     out  = 'T';
     }
     return out;
 }
diff --git a/2.3-1/src/c/elementaryFunctions/isrow/disrows.c b/2.3-1/src/c/elementaryFunctions/isrow/disrows.c
index 35756c19..e3bdadb5 100644
--- a/2.3-1/src/c/elementaryFunctions/isrow/disrows.c
+++ b/2.3-1/src/c/elementaryFunctions/isrow/disrows.c
@@ -16,9 +16,9 @@
 #include "isrow.h"
 #include "types.h"
 
-double disrows(double inp)
+char disrows(double inp)
 {
-   double out=1;
+   double out='T';
    
     return out;
 }
diff --git a/2.3-1/src/c/elementaryFunctions/isrow/gisrowa.c b/2.3-1/src/c/elementaryFunctions/isrow/gisrowa.c
index dd16a9f9..c62350fc 100644
--- a/2.3-1/src/c/elementaryFunctions/isrow/gisrowa.c
+++ b/2.3-1/src/c/elementaryFunctions/isrow/gisrowa.c
@@ -16,12 +16,12 @@
 #include "isrow.h"
 #include "types.h"
 #include "string.h"
-double gisrowa(char *inp, int size1)
+char gisrowa(char *inp, int size1)
 {
-   double out=0;
+   char out='F';
     if(size1==1)
     {
-     out  = 1;
+     out  = 'T';
     }
     return out;
 }
diff --git a/2.3-1/src/c/elementaryFunctions/isrow/gisrows.c b/2.3-1/src/c/elementaryFunctions/isrow/gisrows.c
new file mode 100644
index 00000000..a4393bdb
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isrow/gisrows.c
@@ -0,0 +1,24 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ 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
+ Author: Abhinav Dronamraju
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+#include "isrow.h"
+#include "types.h"
+
+char gisrows(char inp)
+{
+   char out='T';
+   
+    return out;
+}
diff --git a/2.3-1/src/c/elementaryFunctions/isrow/sisrowa.c b/2.3-1/src/c/elementaryFunctions/isrow/sisrowa.c
index cfbc218c..bf9d4c36 100644
--- a/2.3-1/src/c/elementaryFunctions/isrow/sisrowa.c
+++ b/2.3-1/src/c/elementaryFunctions/isrow/sisrowa.c
@@ -15,12 +15,12 @@
 #include <math.h>
 #include "isrow.h"
 #include "types.h"
-double sisrowa(float* inp, int size1)
+char sisrowa(float* inp, int size1)
 {
-   double out=0;
+   char out='F';
     if(size1==1)
     {
-     out  = 1;
+     out  = 'T';
     }
     return out;
 }
diff --git a/2.3-1/src/c/elementaryFunctions/isrow/sisrows.c b/2.3-1/src/c/elementaryFunctions/isrow/sisrows.c
index 34694c9b..331e0a9d 100644
--- a/2.3-1/src/c/elementaryFunctions/isrow/sisrows.c
+++ b/2.3-1/src/c/elementaryFunctions/isrow/sisrows.c
@@ -16,9 +16,9 @@
 #include "isrow.h"
 #include "types.h"
 
-double disrows(float inp)
+char sisrows(float inp)
 {
-   double out=1;
+   char out='T';
    
     return out;
 }
diff --git a/2.3-1/src/c/elementaryFunctions/isrow/zisrowa.c b/2.3-1/src/c/elementaryFunctions/isrow/zisrowa.c
new file mode 100644
index 00000000..312ddf5b
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isrow/zisrowa.c
@@ -0,0 +1,28 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ 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
+ Author: Abhinav Dronamraju
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+#include "doubleComplex.h"
+#include "isrow.h"
+#include "types.h"
+
+char zisrowa(doubleComplex *inp, int size1)
+{
+    char out='F';
+    if(size1==1)
+    {
+     out  = 'T';
+    }
+    return out;
+}
-- 
cgit