Changeset 2620 for XIOS3/trunk/src/interface/fortran/icalendar_wrapper.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/icalendar_wrapper.F90 (modified) (2 diffs)

XIOS3/trunk/src/interface/fortran/icalendar_wrapper.F90

@@ -6 +6 @@
    USE IDATE
    USE IDURATION
+   USE LOGICAL_BOOL_CONVERSION
 
    TYPE txios(calendar_wrapper)
@@ -34 +35 @@
 
       CALL cxios_calendar_wrapper_valid_id(val, idt, len(idt));
+      CALL xios_bool_to_logical_0d(val)
       xios(is_valid_calendar_wrapper) = val
    END FUNCTION  xios(is_valid_calendar_wrapper)