Improved matching a device with a parameter set

hfp · hfp · commit eb39246ebf48 · 2025-09-16T14:23:03.000+02:00
- Implemented device-parameter match based on relative score.
- Avoid potential warnings about unused variables.
- Updated tuned parameters.
diff --git a/src/acc/acc_bench.c b/src/acc/acc_bench.c
@@ -200,8 +200,7 @@ static size_t parse_nbytes(const char* nbytes, size_t* nelems) {
 
 
 int main(int argc, char* argv[]) {
-  const char *const env_check = getenv("CHECK"), *const env_check_h2d = getenv("CHECK_H2D");
-  const char *const env_check_dev = getenv("CHECK_DEV"), *const env_check_hst = getenv("CHECK_HST");
+  const char* const env_check = getenv("CHECK");
   const double check = (NULL == env_check ? -1 : fabs(atof(env_check) * ACC_BENCH_SMM_EPSILON(ELEM_TYPE)));
 #if defined(WARMUP) && (0 < WARMUP) && !defined(_DEBUG)
   const int warmup = MAX(WARMUP, 2) / 2 * 2;
@@ -217,6 +216,9 @@ int main(int argc, char* argv[]) {
   const int nrepeat_h2d = (NULL == env_nrepeat_h2d ? 1 : MAX(atoi(env_nrepeat_h2d), 1));
 #if defined(USE_LIBXSMM)
   double perf_h2d = 0, perf_dev = 0, perf_hst = 0;
+  const char* const env_check_h2d = getenv("CHECK_H2D");
+  const char* const env_check_dev = getenv("CHECK_DEV");
+  const char* const env_check_hst = getenv("CHECK_HST");
 #  if defined(__OPENCL)
   const char* const env_nrepeat_smm = getenv("NREPEAT_SMM");
   const int nrepeat_smm = (NULL == env_nrepeat_smm ? 1 : MAX(atoi(env_nrepeat_smm), 1));
diff --git a/src/acc/opencl/acc_opencl.c b/src/acc/opencl/acc_opencl.c
@@ -1962,6 +1962,69 @@ void c_dbcsr_acc_opencl_hist_free(void* hist) {
   }
 }
 
+
+const char* c_dbcsr_acc_opencl_stristrn(const char a[], const char b[], size_t maxlen) {
+  const char* result = NULL;
+  if (NULL != a && NULL != b && '\0' != *a && '\0' != *b && 0 != maxlen) {
+    do {
+      if (tolower(*a) != tolower(*b)) ++a;
+      else {
+        const char* c = b;
+        size_t i = 0;
+        result = a;
+        while ('\0' != c[++i] && i != maxlen && '\0' != *++a) {
+          if (tolower(*a) != tolower(c[i])) {
+            result = NULL;
+            break;
+          }
+        }
+        if ('\0' != c[i] && '\0' != c[i + 1] && c[i] != c[i + 1] && i != maxlen) {
+          result = NULL;
+        }
+        else break;
+      }
+    } while ('\0' != *a);
+  }
+  return result;
+}
+
+
+int c_dbcsr_acc_opencl_strimatch(const char a[], const char b[], const char delims[], int* count) {
+  int result = 0, na = 0, nb = 0;
+  if (NULL != a && NULL != b && '\0' != *a && '\0' != *b) {
+    const char* const sep = ((NULL == delims || '\0' == *delims) ? " \t;,:-" : delims);
+    const char *c, *tmp;
+    char s[2] = {'\0'};
+    size_t m, n;
+    for (;;) {
+      while (*s = *b, NULL != strpbrk(s, sep)) ++b; /* left-trim */
+      if ('\0' != *b && '[' != *b) ++nb; /* count words */
+      else break;
+      tmp = b;
+      while ('\0' != *tmp && (*s = *tmp, NULL == strpbrk(s, sep))) ++tmp;
+      m = tmp - b;
+      c = c_dbcsr_acc_opencl_stristrn(a, b, LIBXSMM_MIN(1, m));
+      if (NULL != c) {
+        const char* d = c;
+        while ('\0' != *d && (*s = *d, NULL == strpbrk(s, sep))) ++d;
+        n = d - c;
+        if (1 >= n || NULL != c_dbcsr_acc_opencl_stristrn(c, b, LIBXSMM_MIN(m, n))) ++result;
+      }
+      b = tmp;
+    }
+    for (;;) { /* count number of words */
+      while (*s = *a, NULL != strpbrk(s, sep)) ++a; /* left-trim */
+      if ('\0' != *a && '[' != *a) ++na; /* count words */
+      else break;
+      while ('\0' != *a && (*s = *a, NULL == strpbrk(s, sep))) ++a;
+    }
+    if (na < result) result = na;
+  }
+  else result = -1;
+  if (NULL != count) *count = LIBXSMM_MAX(na, nb);
+  return result;
+}
+
 #  if defined(__cplusplus)
 }
 #  endif
diff --git a/src/acc/opencl/acc_opencl.h b/src/acc/opencl/acc_opencl.h
@@ -430,6 +430,18 @@ void c_dbcsr_acc_opencl_hist_print(
   FILE* stream, void* hist, const char title[], const int prec[], const c_dbcsr_acc_opencl_hist_adjust_fn adjust[]);
 void c_dbcsr_acc_opencl_hist_free(void* hist);
 
+/** Return the pointer to the 1st match of "b" in "a", or NULL (no match). */
+const char* c_dbcsr_acc_opencl_stristrn(const char a[], const char b[], size_t maxlen);
+
+/**
+ * Count the number of words in A (or B) with match in B (or A) respectively (case-insensitive).
+ * Can be used to score the equality of A and B on a word-basis. The result is independent of
+ * A-B or B-A order (symmetry). The score cannot exceed the number of words in A or B.
+ * Optional delimiters determine characters splitting words (can be NULL).
+ * Optional count yields total number of words.
+ */
+int c_dbcsr_acc_opencl_strimatch(const char a[], const char b[], const char delims[], int* count);
+
 #if defined(__cplusplus)
 }
 #endif
diff --git a/src/acc/opencl/smm/opencl_libsmm.c b/src/acc/opencl/smm/opencl_libsmm.c
@@ -443,29 +443,31 @@ int libsmm_acc_init(void) {
         }
 #  if defined(OPENCL_KERNELS_PARAMS_SMM) && defined(OPENCL_KERNELS_DEVICES)
         if (EXIT_SUCCESS == result && (0 == ntuned || 0 != key_direct_skip)) {
-          const cl_device_id device_id = c_dbcsr_acc_opencl_config.devices[c_dbcsr_acc_opencl_config.device_id];
-          const c_dbcsr_acc_opencl_device_t* const devinfo = &c_dbcsr_acc_opencl_config.device;
-          unsigned int default_uid = devinfo->uid;
           const char *line = OPENCL_KERNELS_PARAMS_SMM, *next;
 #    if LIBXSMM_VERSION4(1, 17, 0, 0) < LIBXSMM_VERSION_NUMBER
+          const cl_device_id device_id = c_dbcsr_acc_opencl_config.devices[c_dbcsr_acc_opencl_config.device_id];
+          unsigned int default_uid = c_dbcsr_acc_opencl_config.device.uid;
           int active_match = -1;
           if (EXIT_SUCCESS == c_dbcsr_acc_opencl_device_name(
                                 device_id, bufname, ACC_OPENCL_BUFFERSIZE, NULL /*platform*/, 0 /*platform_maxlen*/, /*cleanup*/ 1))
           { /* determine best-matching parameters based on name of device */
-            int i = 0, best = 0;
+            int i = 0, count = 0;
+            double best = 0;
             if (1 >= c_dbcsr_acc_opencl_config.devmatch) {
               c_dbcsr_acc_opencl_device_uid(device_id, bufname, &default_uid);
             }
             for (; i < ndevices_params; ++i) {
-              const int score = libxsmm_strimatch(bufname, OPENCL_KERNELS_DEVICES[i], NULL);
-              unsigned int uid;
-              if (best < score ||
-                  ((best == score) &&
-                    EXIT_SUCCESS == c_dbcsr_acc_opencl_device_uid(NULL /*device*/, OPENCL_KERNELS_DEVICES[i], &uid) &&
-                    uid == default_uid))
-              {
-                active_match = i;
-                best = score;
+              const int n = c_dbcsr_acc_opencl_strimatch(bufname, OPENCL_KERNELS_DEVICES[i], NULL, &count);
+              if (0 != n && 0 != count) {
+                const double score = (double)n / count;
+                unsigned int uid;
+                if (best < score ||
+                    (EXIT_SUCCESS == c_dbcsr_acc_opencl_device_uid(NULL /*device*/, OPENCL_KERNELS_DEVICES[i], &uid) &&
+                      uid == default_uid))
+                {
+                  active_match = i;
+                  best = score;
+                }
               }
             }
           }
diff --git a/src/acc/opencl/smm/params/tune_multiply_GH200.csv b/src/acc/opencl/smm/params/tune_multiply_GH200.csv
@@ -17,7 +17,7 @@ NVIDIA GH200 480GB [0x3528];3;4;4;32;30000;0;3;4;1;2;4;-2;-2;0;0;0;1;0;1;0;0;0
 NVIDIA GH200 480GB [0x3528];3;4;5;4;30000;0;10;4;1;1;5;-2;-2;0;1;0;1;0;0;2;0;0
 NVIDIA GH200 480GB [0x3528];3;4;5;5;30000;0;11;4;1;3;5;1;-2;0;0;0;1;0;2;2;0;0
 NVIDIA GH200 480GB [0x3528];3;4;5;7;30000;0;13;4;1;4;5;1;-1;0;0;0;1;0;0;2;0;0
-NVIDIA GH200 480GB [0x3528];3;4;5;9;30000;0;10;4;1;2;5;-2;-2;0;0;0;1;0;1;0;0;0
+NVIDIA GH200 480GB [0x3528];3;4;5;9;30000;0;13;4;1;2;5;1;-1;0;0;0;1;0;0;0;0;0
 NVIDIA GH200 480GB [0x3528];3;4;5;13;30000;0;5;4;1;2;5;1;-2;0;0;0;1;0;1;2;0;0
 NVIDIA GH200 480GB [0x3528];3;4;5;17;30000;0;4;4;1;4;5;-1;-1;0;0;0;1;0;1;0;0;0
 NVIDIA GH200 480GB [0x3528];3;4;5;25;30000;0;12;4;1;2;5;-1;-1;0;0;0;1;0;1;2;0;0
@@ -27,7 +27,7 @@ NVIDIA GH200 480GB [0x3528];3;4;7;5;30000;0;11;4;1;3;7;0;0;0;0;0;1;0;2;2;0;0
 NVIDIA GH200 480GB [0x3528];3;4;7;7;30000;0;13;4;1;2;7;0;0;0;0;0;1;0;2;2;0;0
 NVIDIA GH200 480GB [0x3528];3;4;7;9;30000;0;5;4;1;4;7;1;-1;0;0;0;1;0;1;2;0;0
 NVIDIA GH200 480GB [0x3528];3;4;7;13;30000;0;4;4;1;4;7;-2;-2;0;0;0;1;0;1;2;0;0
-NVIDIA GH200 480GB [0x3528];3;4;9;4;30000;0;13;4;1;3;9;1;-2;0;0;0;1;0;0;0;0;0
+NVIDIA GH200 480GB [0x3528];3;4;9;4;30000;0;11;4;1;2;9;-2;-1;0;0;0;1;0;2;0;0;0
 NVIDIA GH200 480GB [0x3528];3;4;9;5;30000;0;11;4;1;2;9;-2;1;0;1;0;1;0;2;2;0;0
 NVIDIA GH200 480GB [0x3528];3;4;9;7;30000;0;13;4;1;4;9;0;0;0;0;0;1;0;2;2;0;0
 NVIDIA GH200 480GB [0x3528];3;4;9;9;30000;0;10;4;1;2;9;-2;-2;0;0;0;1;0;1;0;0;0
@@ -52,7 +52,7 @@ NVIDIA GH200 480GB [0x3528];3;4;25;5;30000;0;14;4;1;2;25;-2;1;0;1;0;1;0;2;2;0;0
 NVIDIA GH200 480GB [0x3528];3;4;26;4;30000;0;13;4;1;2;1;-1;1;0;1;0;1;0;0;2;0;0
 NVIDIA GH200 480GB [0x3528];3;4;28;4;30000;0;14;4;1;3;1;-1;-2;0;0;0;1;0;2;0;0;0
 NVIDIA GH200 480GB [0x3528];3;4;32;4;30000;0;18;4;1;1;1;0;-2;0;0;0;1;0;0;2;0;0
-NVIDIA GH200 480GB [0x3528];3;4;32;5;30000;0;14;4;1;1;1;-1;0;0;1;0;1;0;0;0;0;0
+NVIDIA GH200 480GB [0x3528];3;4;32;5;30000;0;14;4;1;1;1;-1;0;0;0;0;1;0;0;0;0;0
 NVIDIA GH200 480GB [0x3528];3;4;32;13;30000;0;11;4;1;2;1;1;1;0;0;0;1;0;1;0;0;0
 NVIDIA GH200 480GB [0x3528];3;4;32;17;30000;0;8;4;1;2;1;0;-1;0;0;0;1;0;1;0;0;0
 NVIDIA GH200 480GB [0x3528];3;4;32;32;30000;0;13;4;1;4;1;1;-2;0;0;0;1;0;1;2;0;0
@@ -64,7 +64,7 @@ NVIDIA GH200 480GB [0x3528];3;5;4;13;30000;0;12;5;1;4;5;-1;-1;0;0;0;1;0;0;0;0;0
 NVIDIA GH200 480GB [0x3528];3;5;4;17;30000;0;12;5;1;2;5;1;0;0;0;0;1;0;0;2;0;0
 NVIDIA GH200 480GB [0x3528];3;5;4;25;30000;0;12;5;1;4;5;0;-1;0;0;0;1;0;0;0;0;0
 NVIDIA GH200 480GB [0x3528];3;5;4;32;30000;0;12;5;1;2;5;-1;1;0;0;0;1;0;2;0;0;0
-NVIDIA GH200 480GB [0x3528];3;5;5;4;30000;0;15;5;1;2;1;-2;-1;0;0;0;1;0;2;0;0;0
+NVIDIA GH200 480GB [0x3528];3;5;5;4;30000;0;11;5;1;1;1;1;-1;0;0;0;1;0;2;0;0;0
 NVIDIA GH200 480GB [0x3528];3;5;5;5;30000;0;12;5;1;4;1;1;-2;0;1;0;1;0;1;0;0;0
 NVIDIA GH200 480GB [0x3528];3;5;5;7;30000;0;12;5;1;3;1;-1;-2;0;0;0;1;0;1;2;0;0
 NVIDIA GH200 480GB [0x3528];3;5;5;9;30000;0;12;5;1;2;1;-2;1;0;0;0;1;0;1;2;0;0
@@ -324,7 +324,7 @@ NVIDIA GH200 480GB [0x3528];3;22;22;32;30000;0;30;22;1;7;1;0;-1;0;0;0;1;0;1;2;0;
 NVIDIA GH200 480GB [0x3528];3;22;32;9;30000;0;17;22;1;20;32;-1;0;0;0;0;1;0;1;2;0;0
 NVIDIA GH200 480GB [0x3528];3;22;32;22;30000;0;20;22;1;9;32;0;-1;0;0;0;1;0;1;2;0;0
 NVIDIA GH200 480GB [0x3528];3;22;32;32;30000;0;40;8;1;3;32;-1;3;0;1;0;1;0;1;2;0;0
-NVIDIA GH200 480GB [0x3528];3;23;23;23;30000;0;20;23;1;19;23;1;0;0;0;0;1;0;1;2;0;0
+NVIDIA GH200 480GB [0x3528];3;23;23;23;30000;0;20;23;1;17;23;1;0;0;0;0;1;0;1;2;0;0
 NVIDIA GH200 480GB [0x3528];3;24;24;24;30000;0;20;24;1;16;1;-2;-2;0;0;0;1;0;1;0;0;0
 NVIDIA GH200 480GB [0x3528];3;24;24;26;30000;0;30;8;1;18;24;1;2;0;1;0;1;0;1;2;0;0
 NVIDIA GH200 480GB [0x3528];3;24;26;24;30000;0;19;8;1;24;26;0;0;0;0;0;1;0;1;2;0;0
@@ -345,7 +345,7 @@ NVIDIA GH200 480GB [0x3528];3;29;29;29;30000;0;46;8;1;2;29;-2;-2;0;1;0;1;0;1;2;0
 NVIDIA GH200 480GB [0x3528];3;29;29;55;30000;0;19;16;1;24;29;-2;0;0;0;0;1;0;1;2;0;0
 NVIDIA GH200 480GB [0x3528];3;29;55;16;30000;0;58;8;1;26;55;1;-2;0;0;0;1;0;1;2;0;0
 NVIDIA GH200 480GB [0x3528];3;29;55;29;30000;0;19;8;1;25;55;-2;4;0;1;0;1;0;1;2;0;0
-NVIDIA GH200 480GB [0x3528];3;29;55;55;30000;0;39;29;1;2;55;-1;1;0;1;0;1;0;0;1;0;0
+NVIDIA GH200 480GB [0x3528];3;29;55;55;30000;0;13;29;1;8;55;0;0;0;0;0;1;0;1;0;0;0
 NVIDIA GH200 480GB [0x3528];3;30;30;30;30000;0;30;30;1;11;1;0;-2;0;0;0;1;0;1;0;0;0
 NVIDIA GH200 480GB [0x3528];3;32;4;4;30000;0;11;8;1;15;32;-1;-2;0;0;0;1;0;0;0;0;0
 NVIDIA GH200 480GB [0x3528];3;32;4;5;30000;0;11;8;1;16;32;1;0;0;0;0;1;0;0;2;0;0
