diff options
author | Siddhesh Wani | 2015-05-25 14:46:31 +0530 |
---|---|---|
committer | Siddhesh Wani | 2015-05-25 14:46:31 +0530 |
commit | 6a320264c2de3d6dd8cc1d1327b3c30df4c8cb26 (patch) | |
tree | 1b7bd89fdcfd01715713d8a15db471dc75a96bbf /2.3-1/macros/CFiles/sci2cincludes/OpLogGe.h | |
download | Scilab2C-6a320264c2de3d6dd8cc1d1327b3c30df4c8cb26.tar.gz Scilab2C-6a320264c2de3d6dd8cc1d1327b3c30df4c8cb26.tar.bz2 Scilab2C-6a320264c2de3d6dd8cc1d1327b3c30df4c8cb26.zip |
Original Version
Diffstat (limited to '2.3-1/macros/CFiles/sci2cincludes/OpLogGe.h')
-rw-r--r-- | 2.3-1/macros/CFiles/sci2cincludes/OpLogGe.h | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/2.3-1/macros/CFiles/sci2cincludes/OpLogGe.h b/2.3-1/macros/CFiles/sci2cincludes/OpLogGe.h new file mode 100644 index 00000000..ddc9631f --- /dev/null +++ b/2.3-1/macros/CFiles/sci2cincludes/OpLogGe.h @@ -0,0 +1,36 @@ +/* +** -*- C -*- +** +** +** Made by Raffaele.Nutricato@tiscali.it +** +** Started on Tue Dec 5 15:49:18 2006 jofret +** Last update Mon Oct 22 10:01:54 2007 bruno +** +** Copyright INRIA 2006 +*/ + +/* + Update 23/02/09 by Arnaud Torset : Add matrix comparaison, remove include(floatComplex and doubleComplex) +*/ +#ifndef __OPLOGGE_H__ +#define __OPLOGGE_H__ + + +#define s0s0OpLogGes0(in1,in2) \
+ (float) (in1 >= in2) +void s2s0OpLogGes2(float* in1, int* in1Size, float in2, float* out); + +#define d0d0OpLogGed0(in1,in2) \
+ (double) (in1 >= in2) +void d2d0OpLogGed2(double* in1, int* in1Size, double in2, double* out); + +/* we must have size1=size2 */ + +#define s2s2OpLogGes2(in1,size1,in2,size2,out) {int i;\ + for (i=0;i<size1[0]*size2[1]) out[i] = s0s0OpLogGes0(in1[i],in2[i]);\ + } +#define d2d2OpLogGed2(in1,size1,in2,size2,out) {int i;\ + for (i=0;i<size1[0]*size2[1]) out[i] = d0d0OpLogGed0(in1[i],in2[i]);\ + } +#endif /* !__OPLOGLE_H__ */ |