diff options
Diffstat (limited to 'src/c/elementaryFunctions')
-rw-r--r-- | src/c/elementaryFunctions/includes/isrow.h | 14 | ||||
-rw-r--r-- | src/c/elementaryFunctions/interfaces/int_isrow.h | 12 | ||||
-rw-r--r-- | src/c/elementaryFunctions/isrow/disrowa.c | 6 | ||||
-rw-r--r-- | src/c/elementaryFunctions/isrow/disrows.c | 4 | ||||
-rw-r--r-- | src/c/elementaryFunctions/isrow/gisrowa.c | 6 | ||||
-rw-r--r-- | src/c/elementaryFunctions/isrow/gisrows.c | 24 | ||||
-rw-r--r-- | src/c/elementaryFunctions/isrow/sisrowa.c | 6 | ||||
-rw-r--r-- | src/c/elementaryFunctions/isrow/sisrows.c | 4 | ||||
-rw-r--r-- | src/c/elementaryFunctions/isrow/zisrowa.c | 28 |
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; +} |