Changeset 2623 for XIOS2/trunk/src/interface/fortran_attr/iaxis_attr.F90

Timestamp:

03/21/24 10:13:06 (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:

• XIOS2/trunk/src/interface/fortran_attr/iaxis_attr.F90 (modified) (3 diffs)

XIOS2/trunk/src/interface/fortran_attr/iaxis_attr.F90

@@ -8 +8 @@
   USE iaxis
   USE axis_interface_attr
+  USE LOGICAL_BOOL_CONVERSION
 
 CONTAINS
@@ -237 +238 @@
         ALLOCATE(mask__tmp(SIZE(mask_,1)))
         mask__tmp = mask_
+        CALL xios_logical_to_bool_1d(mask__tmp, SHAPE(mask__tmp))
         CALL cxios_set_axis_mask &
       (axis_hdl%daddr, mask__tmp, SHAPE(mask_))
@@ -515 +517 @@
         CALL cxios_get_axis_mask &
       (axis_hdl%daddr, mask__tmp, SHAPE(mask_))
+        CALL xios_bool_to_logical_1d(mask__tmp, SHAPE(mask__tmp))
         mask_ = mask__tmp
       ENDIF