Changeset 2338 for XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/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/scalar_interface_attr.F90 (modified) (1 diff)

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

@@ -155 +155 @@
 
 
+    SUBROUTINE cxios_set_scalar_n(scalar_hdl, n) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl
+      INTEGER (KIND=C_INT)      , VALUE :: n
+    END SUBROUTINE cxios_set_scalar_n
+
+    SUBROUTINE cxios_get_scalar_n(scalar_hdl, n) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl
+      INTEGER (KIND=C_INT)             :: n
+    END SUBROUTINE cxios_get_scalar_n
+
+    FUNCTION cxios_is_defined_scalar_n(scalar_hdl) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalar_n
+      INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl
+    END FUNCTION cxios_is_defined_scalar_n
+
+
     SUBROUTINE cxios_set_scalar_name(scalar_hdl, name, name_size) BIND(C)
       USE ISO_C_BINDING