Changeset 779 for XIOS/trunk/src/interface/fortran_attr/axisgroup_interface_attr.F90

Timestamp:

11/04/15 15:50:20 (8 years ago)

Author:

rlacroix

Message:

Update the Fortran API.

It had been forgotten in recent changes.

File:

• XIOS/trunk/src/interface/fortran_attr/axisgroup_interface_attr.F90 (modified) (1 diff)

XIOS/trunk/src/interface/fortran_attr/axisgroup_interface_attr.F90

@@ -212 +212 @@
 
 
+    SUBROUTINE cxios_set_axisgroup_n_distributed_partition(axisgroup_hdl, n_distributed_partition) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
+      INTEGER (KIND=C_INT)      , VALUE :: n_distributed_partition
+    END SUBROUTINE cxios_set_axisgroup_n_distributed_partition
+
+    SUBROUTINE cxios_get_axisgroup_n_distributed_partition(axisgroup_hdl, n_distributed_partition) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
+      INTEGER (KIND=C_INT)             :: n_distributed_partition
+    END SUBROUTINE cxios_get_axisgroup_n_distributed_partition
+
+    FUNCTION cxios_is_defined_axisgroup_n_distributed_partition(axisgroup_hdl) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_n_distributed_partition
+      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
+    END FUNCTION cxios_is_defined_axisgroup_n_distributed_partition
+
+
     SUBROUTINE cxios_set_axisgroup_n_glo(axisgroup_hdl, n_glo) BIND(C)
       USE ISO_C_BINDING