macros/CFiles/sci2ccode/OpLogLt.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

/*
**  -*- C -*-
**
** OpDotSlash.c
** Made by  Raffaele Nutricato <raffaele.nutricato@tiscali.it>
**
**
** Copyright Raffaele Nutricato 2007
*/

#include "OpLogLt.h"

void s2s0OpLogLts2(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 d2d0OpLogLtd2(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);
      }
   }
}