summaryrefslogtreecommitdiff
path: root/src/auxiliaryFunctions
diff options
context:
space:
mode:
Diffstat (limited to 'src/auxiliaryFunctions')
-rw-r--r--src/auxiliaryFunctions/isempty/cisemptya.c14
-rw-r--r--src/auxiliaryFunctions/isempty/disemptya.c14
-rw-r--r--src/auxiliaryFunctions/isempty/sisemptya.c16
-rw-r--r--src/auxiliaryFunctions/isempty/zisemptya.c14
4 files changed, 9 insertions, 49 deletions
diff --git a/src/auxiliaryFunctions/isempty/cisemptya.c b/src/auxiliaryFunctions/isempty/cisemptya.c
index 7736f370..8702953a 100644
--- a/src/auxiliaryFunctions/isempty/cisemptya.c
+++ b/src/auxiliaryFunctions/isempty/cisemptya.c
@@ -11,20 +11,10 @@
*/
#include "isempty.h"
+#include "length.h"
float cisemptya(floatComplex* x, int size) {
- float* out;
- int indiceOut[2] = {0};
- out = malloc((uint)size*sizeof(float));
-
- cfinda(x, size, out, indiceOut);
-
- if ( out[0] == -1 /*ie tab=NULL*/) {
- free(out);
- return 1;
- }
+ return (size==0) ? 1.0f : 0.0f;
- free(out);
- return 0;
}
diff --git a/src/auxiliaryFunctions/isempty/disemptya.c b/src/auxiliaryFunctions/isempty/disemptya.c
index 52f533cb..0ca40135 100644
--- a/src/auxiliaryFunctions/isempty/disemptya.c
+++ b/src/auxiliaryFunctions/isempty/disemptya.c
@@ -11,20 +11,10 @@
*/
#include "isempty.h"
+#include "length.h"
double disemptya(double* x, int size) {
- double* out;
- int indiceOut[2]={0};
- out = malloc((uint)size*sizeof(double));
-
- dfinda(x, size, out, indiceOut);
-
- if ( out[0] == -1 /*ie tab=NULL*/) {
- free(out);
- return 1;
- }
+ return (size==0) ? 1.0 : 0.0;
- free(out);
- return 0;
}
diff --git a/src/auxiliaryFunctions/isempty/sisemptya.c b/src/auxiliaryFunctions/isempty/sisemptya.c
index 3aa24517..fd02ceb3 100644
--- a/src/auxiliaryFunctions/isempty/sisemptya.c
+++ b/src/auxiliaryFunctions/isempty/sisemptya.c
@@ -11,20 +11,10 @@
*/
#include "isempty.h"
-#include "stdio.h"
-float sisemptya(float* x, int size) {
- float* out;
- int indiceOut[2] = {0};
+#include "length.h"
- out = malloc((uint)size*sizeof(float));
+float sisemptya(float* x, int size) {
- sfinda(x, size, out, indiceOut);
+ return (size==0) ? 1.0f : 0.0f;
- if ( out[0] == -1 /*ie tab=NULL*/) {
- free(out);
- return 1;
- }
-
- free(out);
- return 0;
}
diff --git a/src/auxiliaryFunctions/isempty/zisemptya.c b/src/auxiliaryFunctions/isempty/zisemptya.c
index d6c64b29..218e6da3 100644
--- a/src/auxiliaryFunctions/isempty/zisemptya.c
+++ b/src/auxiliaryFunctions/isempty/zisemptya.c
@@ -11,20 +11,10 @@
*/
#include "isempty.h"
+#include "length.h"
double zisemptya(doubleComplex* x, int size) {
- double* out;
- int indiceOut[2]={0};
- out = malloc((uint)size*sizeof(double));
-
- zfinda(x, size, out, indiceOut);
-
- if ( out[0] == -1 /*ie tab=NULL*/) {
- free(out);
- return 1;
- }
+ return (size==0) ? 1.0 : 0.0;
- free(out);
- return 0;
}