From 2e13a6a37a8b166556bb2b72da3b9bf420a0f987 Mon Sep 17 00:00:00 2001
From: Hans Pabst <hans.pabst@intel.com>
Date: Tue, 21 Oct 2025 09:51:01 +0200
Subject: [PATCH] Fixed warnings about unset intent-out

---
 src/ace_nlist.F                 |  6 +++---
 src/ace_wrapper.F               |  2 +-
 src/fm/cp_fm_elpa.F             |  2 +-
 src/rpa_im_time_force_methods.F |  2 +-
 src/spglib_f08.F                |  4 ++--
 src/tblite_interface.F          |  2 +-
 src/torch_api.F                 | 11 ++++++-----
 7 files changed, 15 insertions(+), 14 deletions(-)

diff --git a/src/ace_nlist.F b/src/ace_nlist.F
index 27cc81741c..69a49379ce 100644
--- a/src/ace_nlist.F
+++ b/src/ace_nlist.F
@@ -239,11 +239,11 @@ CONTAINS
       DEALLOCATE (forceunroll)
 
 #else
+      pot_ace = 0.0
+      ace_force = 0
+      ace_virial = 0.0
       MARK_USED(ace_natom)
       MARK_USED(ace_atype)
-      MARK_USED(pot_ace)
-      MARK_USED(ace_force)
-      MARK_USED(ace_virial)
       MARK_USED(fist_nonbond_env)
       MARK_USED(cell)
       MARK_USED(ace_data)
diff --git a/src/ace_wrapper.F b/src/ace_wrapper.F
index b95902b04e..f37723ca7e 100644
--- a/src/ace_wrapper.F
+++ b/src/ace_wrapper.F
@@ -181,10 +181,10 @@ CONTAINS
          model%symbolc(i) = symbolc(i)
       END DO
 #else
+      rcutc = 0
       MARK_USED(ntypec)
       MARK_USED(symbolc)
       MARK_USED(fname)
-      MARK_USED(rcutc)
       MARK_USED(model)
       CPABORT("CP2K was compiled without ACE library.")
 #endif
diff --git a/src/fm/cp_fm_elpa.F b/src/fm/cp_fm_elpa.F
index c16adb2aaa..0e7c6ef6a8 100644
--- a/src/fm/cp_fm_elpa.F
+++ b/src/fm/cp_fm_elpa.F
@@ -304,9 +304,9 @@ CONTAINS
 
       CALL timestop(handle)
 #else
+      eigenvalues = 0
       MARK_USED(matrix)
       MARK_USED(eigenvectors)
-      MARK_USED(eigenvalues)
 
       CPABORT("CP2K compiled without the ELPA library.")
 #endif
diff --git a/src/rpa_im_time_force_methods.F b/src/rpa_im_time_force_methods.F
index 08b9ca1766..b317d62149 100644
--- a/src/rpa_im_time_force_methods.F
+++ b/src/rpa_im_time_force_methods.F
@@ -2030,7 +2030,7 @@ CONTAINS
 
             CALL alloc_containers(store_3c(k_mem, i_mem), 1)
 
-            !contract witht KBK^T over the RI index and store
+            !contract with KBK^T over the RI index and store
             CALL dbt_batched_contract_init(t_KBKT)
             CALL dbt_contract(1.0_dp, t_KBKT, t_3c_ints, 0.0_dp, t_3c_work, &
                               contract_1=[2], notcontract_1=[1], &
diff --git a/src/spglib_f08.F b/src/spglib_f08.F
index 9b233327d9..7fccf8fd2e 100644
--- a/src/spglib_f08.F
+++ b/src/spglib_f08.F
@@ -292,8 +292,8 @@ CONTAINS
 ! size is product(mesh)
 
 ! the number of points in the reduced mesh
-      MARK_USED(grid_point)
-      MARK_USED(map)
+      grid_point = 0
+      map = 0
       MARK_USED(mesh)
       MARK_USED(is_shift)
       MARK_USED(is_time_reversal)
diff --git a/src/tblite_interface.F b/src/tblite_interface.F
index 7d7022c6a2..802a8b08f7 100644
--- a/src/tblite_interface.F
+++ b/src/tblite_interface.F
@@ -537,11 +537,11 @@ CONTAINS
       gto_basis_set%norm_type = 3
 
 #else
+      occ = 0
       MARK_USED(tb)
       MARK_USED(gto_basis_set)
       MARK_USED(element_symbol)
       MARK_USED(param)
-      MARK_USED(occ)
       CPABORT("Built without TBLITE")
 #endif
 
diff --git a/src/torch_api.F b/src/torch_api.F
index b69dcb8c9f..ecb495b763 100644
--- a/src/torch_api.F
+++ b/src/torch_api.F
@@ -526,10 +526,10 @@ CONTAINS
       DEALLOCATE (content_f) ! Was allocated on the C side.
       CALL timestop(handle)
 #else
-      CPABORT("CP2K was compiled without Torch library.")
+      res = ""
       MARK_USED(filename)
       MARK_USED(key)
-      MARK_USED(res)
+      CPABORT("CP2K was compiled without Torch library.")
 #endif
    END FUNCTION torch_model_read_metadata
 
@@ -611,8 +611,9 @@ CONTAINS
    #:set typenames = ['int64', 'double', 'string']
    #:set types_f = ['INTEGER(kind=int_8)', 'REAL(dp)', 'CHARACTER(LEN=default_string_length)']
    #:set types_c = ['INTEGER(kind=C_INT64_T)', 'REAL(kind=C_DOUBLE)', 'CHARACTER(kind=C_CHAR), DIMENSION(*)']
+   #:set zeros_f = ['0', '0.0_dp', '""']
 
-   #:for typename, type_f, type_c in zip(typenames, types_f, types_c)
+   #:for typename, type_f, type_c, zero_f in zip(typenames, types_f, types_c, zeros_f)
 ! **************************************************************************************************
 !> \brief Retrieves an attribute from a Torch model. Must be called before torch_model_freeze.
 !> \author Ole Schuett
@@ -638,10 +639,10 @@ CONTAINS
                                                    key=TRIM(key)//C_NULL_CHAR, &
                                                    dest=dest)
 #else
-         CPABORT("CP2K compiled without the Torch library.")
+         dest = ${zero_f}$
          MARK_USED(model)
          MARK_USED(key)
-         MARK_USED(dest)
+         CPABORT("CP2K compiled without the Torch library.")
 #endif
       END SUBROUTINE torch_model_get_attr_${typename}$
    #:endfor