Rename mkl_op_type to mkl_ftype (aka MKL floating type)

Author: antonwolfy

mkl_umath/src/mkl_umath_loops.c.src

@@ -73,7 +73,7 @@
 
 #define MKL_INT_MAX ((npy_intp) ((~((MKL_UINT) 0)) >> 1))
 
-#define CHUNKED_VML_CALL2(vml_func, n, type, mkl_type, mkl_op_type, in1, op1)   \
+#define CHUNKED_VML_CALL2(vml_func, n, type, mkl_type, mkl_ftype, in1, op1)     \
     do {                                                                        \
         npy_intp _n_ = (n);                                                     \
         const npy_intp _chunk_size = MKL_INT_MAX;                               \
@@ -82,7 +82,7 @@
         while (_n_ > 0) {                                                       \
             npy_intp _current_chunk = (_n_ > _chunk_size) ? _chunk_size : _n_;  \
             vml_func((MKL_INT) _current_chunk, (mkl_type *)(void *) in1p,       \
-                     (mkl_op_type *)(void *) op1p);                             \
+                     (mkl_ftype *)(void *) op1p);                               \
             _n_ -= _current_chunk;                                              \
             in1p += _current_chunk;                                             \
             op1p += _current_chunk;                                             \
@@ -1191,7 +1191,7 @@ mkl_umath_@TYPE@_ldexp_long(char **args, const npy_intp *dimensions, const npy_i
  * #ftype = npy_float, npy_double#
  * #type = npy_cfloat, npy_cdouble#
  * #mkl_type = MKL_Complex8, MKL_Complex16#
- * #mkl_op_type = float, double#
+ * #mkl_ftype = float, double#
  * #c = f, #
  * #C = F, # 
  * #s = c, z#
@@ -1515,18 +1515,27 @@ mkl_umath_@TYPE@_conjugate(char **args, const npy_intp *dimensions, const npy_in
     }
 }
 
+/**begin repeat
+ * complex types
+ * #TYPE = CFLOAT, CDOUBLE#
+ * #ftype = npy_float, npy_double#
+ * #type = npy_cfloat, npy_cdouble#
+ * #mkl_ftype = float, double#
+ * #mkl_type = MKL_Complex8, MKL_Complex16#
+
+ */
 void
 mkl_umath_@TYPE@_absolute(char **args, const npy_intp *dimensions, const npy_intp *steps, void *NPY_UNUSED(func))
 {
-    const int contig = IS_UNARY_CONT(@mkl_type@, @mkl_op_type@);
+    const int contig = IS_UNARY_CONT(@mkl_type@, @mkl_ftype@);
     const int disjoint_or_same = DISJOINT_OR_SAME_TWO_DTYPES(args[0], args[1], dimensions[0], sizeof(@type@), sizeof(@ftype@));
     const int can_vectorize = contig && disjoint_or_same;
     int ignore_fpstatus = 0;
 
     if (can_vectorize && dimensions[0] > VML_TRANSCEDENTAL_THRESHOLD) {
         ignore_fpstatus = 1;
-        CHUNKED_VML_CALL2(v@s@Abs, dimensions[0], @type@, @mkl_type@, @mkl_op_type@, args[0], args[1]);
-        /* v@s@Abs(dimensions[0], (@mkl_type@*) args[0], (@mkl_op_type@*) args[1]); */
+        CHUNKED_VML_CALL2(v@s@Abs, dimensions[0], @type@, @mkl_type@, @mkl_ftype@, args[0], args[1]);
+        /* v@s@Abs(dimensions[0], (@mkl_type@*) args[0], (@mkl_ftype@*) args[1]); */
     } 
     else {
         UNARY_LOOP {