From 1e6772992eb9b227a0b6b46500e123a3496c0dd4 Mon Sep 17 00:00:00 2001 From: torset Date: Mon, 23 Feb 2009 15:17:22 +0000 Subject: remove OpLogEq because was useless --- src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogEq.c | 71 ------------------------ 1 file changed, 71 deletions(-) delete mode 100644 src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogEq.c diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogEq.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogEq.c deleted file mode 100644 index 82b2072f..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogEq.c +++ /dev/null @@ -1,71 +0,0 @@ -/* -** -*- C -*- -** -** OpDotSlash.c -** Made by Raffaele Nutricato -** -** -** Copyright Raffaele Nutricato 2007 -*/ - -/* Modified by Arnaud Torset */ - -#include "OpLogEq.h" - - -/* -void s2s0OpLogEqs2(float* in1, int* in1Size, float in2, float* out) -{ - int rows = 0; - int cols = 0; - for (rows = 0; rows < in1Size[0];rows++) - { - for (cols = 0; cols < in1Size[1];cols++) - { - out[rows*in1Size[1]+cols] = (float) (in1[rows*in1Size[1]+cols] == in2); - } - } -} - -void d2d0OpLogEqd2(double* in1, int* in1Size, double in2, double* out) -{ - int rows = 0; - int cols = 0; - for (rows = 0; rows < in1Size[0];rows++) - { - for (cols = 0; cols < in1Size[1];cols++) - { - out[rows*in1Size[1]+cols] = (double) (in1[rows*in1Size[1]+cols] == in2); - } - } -} - - -void c2c0OpLogEqs2(floatComplex* in1, int* in1Size, floatComplex in2, float* out) -{ - int rows = 0; - int cols = 0; - for (rows = 0; rows < in1Size[0];rows++) - { - for (cols = 0; cols < in1Size[1];cols++) - { - out[rows*in1Size[1]+cols] = (float) ((creals(in1[rows*in1Size[1]+cols]) == creals(in2)) && (cimags(in1[rows*in1Size[1]+cols]) == cimags(in2)) ); - } - } -} - - -void z2z0OpLogEqd2(doubleComplex* in1, int* in1Size, doubleComplex in2, double* out) -{ - int rows = 0; - int cols = 0; - for (rows = 0; rows < in1Size[0];rows++) - { - for (cols = 0; cols < in1Size[1];cols++) - { - out[rows*in1Size[1]+cols] = (float) ((zreals(in1[rows*in1Size[1]+cols]) == zreals(in2)) && (zimags(in1[rows*in1Size[1]+cols]) == zimags(in2)) ); - } - } -} -*/ - -- cgit