Changeset 2620 for XIOS3/trunk/src/interface/fortran_attr/iaxisgroup_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/iaxisgroup_attr.F90 (modified) (3 diffs)

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

@@ -8 +8 @@
   USE iaxis
   USE axisgroup_interface_attr
+  USE LOGICAL_BOOL_CONVERSION
 
 CONTAINS
@@ -245 +246 @@
         ALLOCATE(mask__tmp(SIZE(mask_,1)))
         mask__tmp = mask_
+        CALL xios_logical_to_bool_1d(mask__tmp, SHAPE(mask__tmp))
         CALL cxios_set_axisgroup_mask &
       (axisgroup_hdl%daddr, mask__tmp, SHAPE(mask_))
@@ -531 +533 @@
         CALL cxios_get_axisgroup_mask &
       (axisgroup_hdl%daddr, mask__tmp, SHAPE(mask_))
+        CALL xios_bool_to_logical_1d(mask__tmp, SHAPE(mask__tmp))
         mask_ = mask__tmp
       ENDIF