Changeset 2620 for XIOS3/trunk/src/interface/fortran_attr/ifilegroup_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/ifilegroup_attr.F90 (modified) (11 diffs)

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

@@ -8 +8 @@
   USE ifile
   USE filegroup_interface_attr
+  USE LOGICAL_BOOL_CONVERSION
 
 CONTAINS
@@ -211 +212 @@
       IF (PRESENT(append_)) THEN
         append__tmp = append_
+        CALL xios_logical_to_bool_0d(append__tmp)
         CALL cxios_set_filegroup_append &
       (filegroup_hdl%daddr, append__tmp)
@@ -237 +239 @@
       IF (PRESENT(cyclic_)) THEN
         cyclic__tmp = cyclic_
+        CALL xios_logical_to_bool_0d(cyclic__tmp)
         CALL cxios_set_filegroup_cyclic &
       (filegroup_hdl%daddr, cyclic__tmp)
@@ -248 +251 @@
       IF (PRESENT(enabled_)) THEN
         enabled__tmp = enabled_
+        CALL xios_logical_to_bool_0d(enabled__tmp)
         CALL cxios_set_filegroup_enabled &
       (filegroup_hdl%daddr, enabled__tmp)
@@ -319 +323 @@
       IF (PRESENT(read_metadata_par_)) THEN
         read_metadata_par__tmp = read_metadata_par_
+        CALL xios_logical_to_bool_0d(read_metadata_par__tmp)
         CALL cxios_set_filegroup_read_metadata_par &
       (filegroup_hdl%daddr, read_metadata_par__tmp)
@@ -405 +410 @@
       IF (PRESENT(using_server2_)) THEN
         using_server2__tmp = using_server2_
+        CALL xios_logical_to_bool_0d(using_server2__tmp)
         CALL cxios_set_filegroup_using_server2 &
       (filegroup_hdl%daddr, using_server2__tmp)
@@ -627 +633 @@
         CALL cxios_get_filegroup_append &
       (filegroup_hdl%daddr, append__tmp)
+        CALL xios_bool_to_logical_0d(append__tmp)
         append_ = append__tmp
       ENDIF
@@ -653 +660 @@
         CALL cxios_get_filegroup_cyclic &
       (filegroup_hdl%daddr, cyclic__tmp)
+        CALL xios_bool_to_logical_0d(cyclic__tmp)
         cyclic_ = cyclic__tmp
       ENDIF
@@ -664 +672 @@
         CALL cxios_get_filegroup_enabled &
       (filegroup_hdl%daddr, enabled__tmp)
+        CALL xios_bool_to_logical_0d(enabled__tmp)
         enabled_ = enabled__tmp
       ENDIF
@@ -735 +744 @@
         CALL cxios_get_filegroup_read_metadata_par &
       (filegroup_hdl%daddr, read_metadata_par__tmp)
+        CALL xios_bool_to_logical_0d(read_metadata_par__tmp)
         read_metadata_par_ = read_metadata_par__tmp
       ENDIF
@@ -821 +831 @@
         CALL cxios_get_filegroup_using_server2 &
       (filegroup_hdl%daddr, using_server2__tmp)
+        CALL xios_bool_to_logical_0d(using_server2__tmp)
         using_server2_ = using_server2__tmp
       ENDIF