From 79385449cd0082e95981f116b8d0e927ad5c94b1 Mon Sep 17 00:00:00 2001
From: Hans Pabst <hans.pabst@intel.com>
Date: Tue, 28 Jan 2025 08:26:11 +0100
Subject: [PATCH] ocl: lazy initialization

- c_dbcsr_acc_set_active_device triggers c_dbcsr_acc_init.
- DBCSR's ACC/OpenCL may also act as CP2K/offload library.
---
 src/acc/opencl/acc_opencl.c | 22 ++++++++++++++++------
 1 file changed, 16 insertions(+), 6 deletions(-)

diff --git a/src/acc/opencl/acc_opencl.c b/src/acc/opencl/acc_opencl.c
index 27e98070b51..d35732ccc71 100644
--- a/src/acc/opencl/acc_opencl.c
+++ b/src/acc/opencl/acc_opencl.c
@@ -1211,18 +1211,28 @@ int c_dbcsr_acc_opencl_set_active_device(ACC_OPENCL_LOCKTYPE* lock, int device_i
 int c_dbcsr_acc_set_active_device(int device_id) {
   /* avoid ACC_OPENCL_PROFILE in this routine */
   int result = EXIT_SUCCESS;
-  if (0 <= device_id && device_id < c_dbcsr_acc_opencl_config.ndevices) {
+  if (0 <= device_id) {
+#  if defined(__DBCSR_ACC) && defined(__OFFLOAD_OPENCL)
+    if (0 == c_dbcsr_acc_opencl_config.ndevices) { /* not initialized */
+      result = c_dbcsr_acc_init();
+    }
+#  endif
+  }
+  else result = EXIT_FAILURE;
+  if (EXIT_SUCCESS == result) {
+    if (device_id < c_dbcsr_acc_opencl_config.ndevices) {
 #  if defined(ACC_OPENCL_CACHE_DID)
-    if (c_dbcsr_acc_opencl_active_id != (device_id + 1))
+      if (c_dbcsr_acc_opencl_active_id != (device_id + 1))
 #  endif
-    {
-      result = c_dbcsr_acc_opencl_set_active_device(c_dbcsr_acc_opencl_config.lock_main, device_id);
+      {
+        result = c_dbcsr_acc_opencl_set_active_device(c_dbcsr_acc_opencl_config.lock_main, device_id);
 #  if defined(ACC_OPENCL_CACHE_DID)
-      if (EXIT_SUCCESS == result) c_dbcsr_acc_opencl_active_id = device_id + 1;
+        if (EXIT_SUCCESS == result) c_dbcsr_acc_opencl_active_id = device_id + 1;
 #  endif
+      }
     }
+    else result = EXIT_FAILURE;
   }
-  else result = EXIT_FAILURE;
   ACC_OPENCL_RETURN(result);
 }