summaryrefslogtreecommitdiff
path: root/src/c/elementaryFunctions
diff options
context:
space:
mode:
Diffstat (limited to 'src/c/elementaryFunctions')
-rw-r--r--src/c/elementaryFunctions/includes/isrow.h14
-rw-r--r--src/c/elementaryFunctions/interfaces/int_isrow.h12
-rw-r--r--src/c/elementaryFunctions/isrow/disrowa.c6
-rw-r--r--src/c/elementaryFunctions/isrow/disrows.c4
-rw-r--r--src/c/elementaryFunctions/isrow/gisrowa.c6
-rw-r--r--src/c/elementaryFunctions/isrow/gisrows.c24
-rw-r--r--src/c/elementaryFunctions/isrow/sisrowa.c6
-rw-r--r--src/c/elementaryFunctions/isrow/sisrows.c4
-rw-r--r--src/c/elementaryFunctions/isrow/zisrowa.c28
9 files changed, 81 insertions, 23 deletions
diff --git a/src/c/elementaryFunctions/includes/isrow.h b/src/c/elementaryFunctions/includes/isrow.h
index 0b867b0..5c01063 100644
--- a/src/c/elementaryFunctions/includes/isrow.h
+++ b/src/c/elementaryFunctions/includes/isrow.h
@@ -15,16 +15,20 @@
#include "types.h"
+#include "doubleComplex.h"
+#include "floatComplex.h"
#ifdef __cplusplus
extern "C" {
#endif
-double disrowa(double* , int);
-double disrows(double);
-double sisrowa( float* , int);
-double sisrows( float);
-double gisrowa(char* , int);
+char disrowa(double* , int);
+char disrows(double);
+char sisrowa( float* , int);
+char sisrows( float);
+char gisrowa(char* , int);
+char gisrows(char);
+char zisrowa(doubleComplex *inp, int);
#ifdef __cplusplus
} /* extern "C" */
diff --git a/src/c/elementaryFunctions/interfaces/int_isrow.h b/src/c/elementaryFunctions/interfaces/int_isrow.h
index 22cd89a..af718b4 100644
--- a/src/c/elementaryFunctions/interfaces/int_isrow.h
+++ b/src/c/elementaryFunctions/interfaces/int_isrow.h
@@ -13,11 +13,13 @@
#ifndef __INT_ISROW_H__
#define __INT_ISROW_H__
-#define d2isrowd0(in, size ) disrowa(in, size[0])
-#define d0isrowd0(in) disrows(in)
-#define s2isrowd0(in , size) siswora(in, size[0])
-#define s0isrowd0(in) sisrows(in)
-#define g2isrowd0(in, size) gisrowa(in, size[0])
+#define d2isrowg0(in, size ) disrowa(in, size[0])
+#define d0isrowg0(in) disrows(in)
+#define s2isrowg0(in , size) siswora(in, size[0])
+#define s0isrowg0(in) sisrows(in)
+#define g2isrowg0(in, size) gisrowa(in, size[0])
+#define g0isrowg0(in) gisrows(in)
+#define z2isrowg0(in, size) zisrowa(in , size[0])
#endif
diff --git a/src/c/elementaryFunctions/isrow/disrowa.c b/src/c/elementaryFunctions/isrow/disrowa.c
index 8bb7e5f..826afca 100644
--- a/src/c/elementaryFunctions/isrow/disrowa.c
+++ b/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/src/c/elementaryFunctions/isrow/disrows.c b/src/c/elementaryFunctions/isrow/disrows.c
index 35756c1..e3bdadb 100644
--- a/src/c/elementaryFunctions/isrow/disrows.c
+++ b/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/src/c/elementaryFunctions/isrow/gisrowa.c b/src/c/elementaryFunctions/isrow/gisrowa.c
index dd16a9f..c62350f 100644
--- a/src/c/elementaryFunctions/isrow/gisrowa.c
+++ b/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/src/c/elementaryFunctions/isrow/gisrows.c b/src/c/elementaryFunctions/isrow/gisrows.c
new file mode 100644
index 0000000..a4393bd
--- /dev/null
+++ b/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/src/c/elementaryFunctions/isrow/sisrowa.c b/src/c/elementaryFunctions/isrow/sisrowa.c
index cfbc218..bf9d4c3 100644
--- a/src/c/elementaryFunctions/isrow/sisrowa.c
+++ b/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/src/c/elementaryFunctions/isrow/sisrows.c b/src/c/elementaryFunctions/isrow/sisrows.c
index 34694c9..331e0a9 100644
--- a/src/c/elementaryFunctions/isrow/sisrows.c
+++ b/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/src/c/elementaryFunctions/isrow/zisrowa.c b/src/c/elementaryFunctions/isrow/zisrowa.c
new file mode 100644
index 0000000..312ddf5
--- /dev/null
+++ b/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;
+}