Changeset 2620 for XIOS3/trunk/src/interface/fortran_attr/ireduce_domain_to_scalar_attr.F90

Timestamp:

03/20/24 14:48:11 (4 months ago)

Author:

jderouillat

Message:

Modify fortran-C interfaces to manage logical-bool conversion, the optimizations of OneAPI could produce bugs regarding the logical-bool encodings.

File:

• XIOS3/trunk/src/interface/fortran_attr/ireduce_domain_to_scalar_attr.F90 (modified) (3 diffs)

XIOS3/trunk/src/interface/fortran_attr/ireduce_domain_to_scalar_attr.F90

@@ -8 +8 @@
   USE ireduce_domain_to_scalar
   USE reduce_domain_to_scalar_interface_attr
+  USE LOGICAL_BOOL_CONVERSION
 
 CONTAINS
@@ -53 +54 @@
       IF (PRESENT(local_)) THEN
         local__tmp = local_
+        CALL xios_logical_to_bool_0d(local__tmp)
         CALL cxios_set_reduce_domain_to_scalar_local &
       (reduce_domain_to_scalar_hdl%daddr, local__tmp)
@@ -107 +109 @@
         CALL cxios_get_reduce_domain_to_scalar_local &
       (reduce_domain_to_scalar_hdl%daddr, local__tmp)
+        CALL xios_bool_to_logical_0d(local__tmp)
         local_ = local__tmp
       ENDIF