@@ -30,8 +30,9 @@ inline long rintl(long x) {return x;}
3030inline int fabsi (int x) {return x<0 ? -x: x;}
3131inline long fabsl (long x) {return x<0 ? -x: x;}
3232// 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);}
3536
3637#ifdef USE_VML
3738static 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)
8485 dest[j] = fmod (x1[j], x2[j]);
8586 };
8687};
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+ // };
101103
102104/* no isnan, isfinite, isinf or signbit in VML */
103105static void vsIsfinite (MKL_INT n, const float * x1, bool * dest)
0 commit comments