Changeset 2338 for XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/reduce_axis_to_scalar_interface_attr.F90

Timestamp:

06/28/22 11:44:19 (2 years ago)

Author:

jderouillat

Message:

Added extract_domain interface. Updated all interfaces, normalize some private attributes names of domain

File:

• XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/reduce_axis_to_scalar_interface_attr.F90 (modified) (1 diff)

XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/reduce_axis_to_scalar_interface_attr.F90

@@ -9 +9 @@
   INTERFACE
     ! Do not call directly / interface FORTRAN 2003 <-> C99
+
+    SUBROUTINE cxios_set_reduce_axis_to_scalar_local(reduce_axis_to_scalar_hdl, local) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: reduce_axis_to_scalar_hdl
+      LOGICAL (KIND=C_BOOL)      , VALUE :: local
+    END SUBROUTINE cxios_set_reduce_axis_to_scalar_local
+
+    SUBROUTINE cxios_get_reduce_axis_to_scalar_local(reduce_axis_to_scalar_hdl, local) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: reduce_axis_to_scalar_hdl
+      LOGICAL (KIND=C_BOOL)             :: local
+    END SUBROUTINE cxios_get_reduce_axis_to_scalar_local
+
+    FUNCTION cxios_is_defined_reduce_axis_to_scalar_local(reduce_axis_to_scalar_hdl) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_reduce_axis_to_scalar_local
+      INTEGER (kind = C_INTPTR_T), VALUE :: reduce_axis_to_scalar_hdl
+    END FUNCTION cxios_is_defined_reduce_axis_to_scalar_local
+
 
     SUBROUTINE cxios_set_reduce_axis_to_scalar_operation(reduce_axis_to_scalar_hdl, operation, operation_size) BIND(C)