Changeset 1158 for XIOS/dev/dev_olga/src/interface/fortran_attr/axisgroup_interface_attr.F90

Timestamp:

06/06/17 17:58:16 (7 years ago)

Author:

oabramkina

Message:

Two server levels: merging with trunk r1137.
There are bugs.

File:

• XIOS/dev/dev_olga/src/interface/fortran_attr/axisgroup_interface_attr.F90 (modified) (2 diffs)

XIOS/dev/dev_olga/src/interface/fortran_attr/axisgroup_interface_attr.F90

@@ -172 +172 @@
 
 
+    SUBROUTINE cxios_set_axisgroup_label(axisgroup_hdl, label, str_len, str_size, extent) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
+      CHARACTER (KIND=C_CHAR), DIMENSION(*)    :: label
+      INTEGER (kind = C_INT), VALUE            :: str_len
+      INTEGER (kind = C_INT), DIMENSION(*)     :: str_size
+      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
+    END SUBROUTINE cxios_set_axisgroup_label
+
+    SUBROUTINE cxios_get_axisgroup_label(axisgroup_hdl, label, str_size, extent) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
+      CHARACTER (KIND=C_CHAR), DIMENSION(*)    :: label
+      INTEGER (kind = C_INT), VALUE            :: str_size
+      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
+    END SUBROUTINE cxios_get_axisgroup_label
+
+    FUNCTION cxios_is_defined_axisgroup_label(axisgroup_hdl) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_label
+      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
+    END FUNCTION cxios_is_defined_axisgroup_label
+
+
     SUBROUTINE cxios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C)
       USE ISO_C_BINDING
@@ -313 +337 @@
 
 
+    SUBROUTINE cxios_set_axisgroup_prec(axisgroup_hdl, prec) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
+      INTEGER (KIND=C_INT)      , VALUE :: prec
+    END SUBROUTINE cxios_set_axisgroup_prec
+
+    SUBROUTINE cxios_get_axisgroup_prec(axisgroup_hdl, prec) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
+      INTEGER (KIND=C_INT)             :: prec
+    END SUBROUTINE cxios_get_axisgroup_prec
+
+    FUNCTION cxios_is_defined_axisgroup_prec(axisgroup_hdl) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_prec
+      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
+    END FUNCTION cxios_is_defined_axisgroup_prec
+
+
     SUBROUTINE cxios_set_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C)
       USE ISO_C_BINDING