Added isscalar

8 files changed, 191 insertions, 0 deletions

diff --git a/2.3-1/src/c/elementaryFunctions/isscalar/disiscalars.c b/2.3-1/src/c/elementaryFunctions/isscalar/disiscalars.c
new file mode 100644
index 00000000..fe7ce3e3
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isscalar/disiscalars.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 "isscalar.h"
+#include "types.h"
+
+char disscalars(double inp)
+{
+   double out='T';
+   
+    return out;
+}
diff --git a/2.3-1/src/c/elementaryFunctions/isscalar/disscalara.c b/2.3-1/src/c/elementaryFunctions/isscalar/disscalara.c
new file mode 100644
index 00000000..7f440197
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isscalar/disscalara.c
@@ -0,0 +1,23 @@
+/* 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 "isscalar.h"
+#include "types.h"
+char discalara(double* inp, int size1)
+{
+   char out= 'F' ;
+ 
+    return out;
+}
diff --git a/2.3-1/src/c/elementaryFunctions/isscalar/gisscalara.c b/2.3-1/src/c/elementaryFunctions/isscalar/gisscalara.c
new file mode 100644
index 00000000..fdfac778
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isscalar/gisscalara.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 "isscalar.h"
+#include "types.h"
+#include "string.h"
+char gisscalara(char *inp, int size1)
+{
+   char out='F';
+  
+    return out;
+}
diff --git a/2.3-1/src/c/elementaryFunctions/isscalar/gisscalars.c b/2.3-1/src/c/elementaryFunctions/isscalar/gisscalars.c
new file mode 100644
index 00000000..5a208959
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isscalar/gisscalars.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 "isscalar.h"
+#include "types.h"
+
+char giscalars(char inp)
+{
+   char out='T';
+   
+    return out;
+}
diff --git a/2.3-1/src/c/elementaryFunctions/isscalar/sisscalara.c b/2.3-1/src/c/elementaryFunctions/isscalar/sisscalara.c
new file mode 100644
index 00000000..59a51653
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isscalar/sisscalara.c
@@ -0,0 +1,22 @@
+/* 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 "isscalar.h"
+#include "types.h"
+char sisscalara(float* inp, int size1)
+{
+   char out='F';
+    return out;
+}
diff --git a/2.3-1/src/c/elementaryFunctions/isscalar/sisscalars.c b/2.3-1/src/c/elementaryFunctions/isscalar/sisscalars.c
new file mode 100644
index 00000000..6ca7c4b4
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isscalar/sisscalars.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 "isscalar.h"
+#include "types.h"
+
+char sisscalars(float inp)
+{
+   char out='T';
+   
+    return out;
+}
diff --git a/2.3-1/src/c/elementaryFunctions/isscalar/zisscalara.c b/2.3-1/src/c/elementaryFunctions/isscalar/zisscalara.c
new file mode 100644
index 00000000..942bbb54
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isscalar/zisscalara.c
@@ -0,0 +1,25 @@
+/* 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 "isscalar.h"
+#include "types.h"
+
+char zisscalara(doubleComplex *inp, int size1)
+{
+    char out='F';
+ 
+    return out;
+}
diff --git a/2.3-1/src/c/elementaryFunctions/isscalar/zisscalars.c b/2.3-1/src/c/elementaryFunctions/isscalar/zisscalars.c
new file mode 100644
index 00000000..2bf8e949
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isscalar/zisscalars.c
@@ -0,0 +1,25 @@
+/* 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 "isscalar.h"
+#include "types.h"
+#include "doubleComplex.h"
+
+char zisscalars(doubleComplex inp)
+{
+   char out='T';
+   
+    return out;
+}