blob: 70f3d504931c72dcee0cf2a95cae51fc34035297 (
plain)
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
/*
** -*- C -*-
**
** OpEqual.c
** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it>
**
**
** Copyright Raffaele Nutricato 2007
*/
#include "OpEqual.h"
float sOpEquals1(float x)
{
return (x);
}
double dOpEquals1(double x)
{
return x;
}
floatComplex c0OpEqualc0(floatComplex x)
{
return x;
}
doubleComplex z0OpEqualz0(doubleComplex x)
{
return x;
}
char g0OpEqualg0(char x)
{
return x;
}
void sOpEquala1(float* x, int size, float* y)
{
int i = 0;
for (i = 0; i < size; ++i)
{
y[i] = x[i];
}
}
void dOpEquala1(double* x, int size, double* y)
{
int i = 0;
for (i = 0; i < size; ++i)
{
y[i] = x[i];
}
}
void c2OpEqualc2(floatComplex* x, int* xSize, floatComplex* y)
{
int i = 0;
int size;
size = xSize[0]*xSize[1];
for (i = 0; i < size; ++i)
{
y[i] = x[i];
}
}
void z2OpEqualz2(doubleComplex* x, int* xSize, doubleComplex* y)
{
int i = 0;
int size;
size = xSize[0]*xSize[1];
for (i = 0; i < size; ++i)
{
y[i] = x[i];
}
}
void g2OpEqualg2(char* x, int* xSize, char* y)
{
int i = 0;
int size;
size = xSize[0]*xSize[1];
for (i = 0; i < size; ++i)
{
y[i] = x[i];
}
}
|
