@@ -30,8 +30,9 @@ inline long rintl(long x) {return x;}
30
30
inline int fabsi (int x) {return x<0 ? -x: x;}
31
31
inline long fabsl (long x) {return x<0 ? -x: x;}
32
32
// fmod function for ints
33
- inline int fmodi (int x, int y) {return (int )fmodf ((float )x, (float )y);}
34
- inline long fmodl (long x, long y) {return (long )fmodf ((long )x, (long )y);}
33
+ // TODO: Have to add FUNC_III, FUNC_LLL signatures to functions.hpp to enable these
34
+ // inline int fmodi(int x, int y) {return (int)fmodf((float)x, (float)y);}
35
+ // inline long fmodl(long x, long y) {return (long)fmodf((long)x, (long)y);}
35
36
36
37
#ifdef USE_VML
37
38
static void viRint (MKL_INT n, const int * x, int * dest)
@@ -84,20 +85,21 @@ static void vdfmod(MKL_INT n, const double* x1, const double* x2, double* dest)
84
85
dest[j] = fmod (x1[j], x2[j]);
85
86
};
86
87
};
87
- static void vifmod (MKL_INT n, const int * x1, const int * x2, int * dest)
88
- {
89
- MKL_INT j;
90
- for (j=0 ; j < n; j++) {
91
- dest[j] = fmodi (x1[j], x2[j]);
92
- };
93
- };
94
- static void vlfmod (MKL_INT n, const long * x1, const long * x2, long * dest)
95
- {
96
- MKL_INT j;
97
- for (j=0 ; j < n; j++) {
98
- dest[j] = fmodl (x1[j], x2[j]);
99
- };
100
- };
88
+ // TODO: Have to add FUNC_III, FUNC_LLL signatures to functions.hpp
89
+ // static void vifmod(MKL_INT n, const int* x1, const int* x2, int* dest)
90
+ // {
91
+ // MKL_INT j;
92
+ // for(j=0; j < n; j++) {
93
+ // dest[j] = fmodi(x1[j], x2[j]);
94
+ // };
95
+ // };
96
+ // static void vlfmod(MKL_INT n, const long* x1, const long* x2, long* dest)
97
+ // {
98
+ // MKL_INT j;
99
+ // for(j=0; j < n; j++) {
100
+ // dest[j] = fmodl(x1[j], x2[j]);
101
+ // };
102
+ // };
101
103
102
104
/* no isnan, isfinite, isinf or signbit in VML */
103
105
static void vsIsfinite (MKL_INT n, const float * x1, bool * dest)
0 commit comments