Changeset 791 for XIOS/trunk/src/interface/fortran_attr/gridgroup_interface_attr.F90

Timestamp:

11/19/15 16:55:16 (8 years ago)

Author:

rlacroix

Message:

Grid: Make the axis_domain_order attribute private.

It was never meant to be used directly by our users.

File:

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

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

@@ -9 +9 @@
   INTERFACE
     ! Do not call directly / interface FORTRAN 2003 <-> C99
-
-    SUBROUTINE cxios_set_gridgroup_axis_domain_order(gridgroup_hdl, axis_domain_order, extent) BIND(C)
-      USE ISO_C_BINDING
-      INTEGER (kind = C_INTPTR_T), VALUE       :: gridgroup_hdl
-      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: axis_domain_order
-      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
-    END SUBROUTINE cxios_set_gridgroup_axis_domain_order
-
-    SUBROUTINE cxios_get_gridgroup_axis_domain_order(gridgroup_hdl, axis_domain_order, extent) BIND(C)
-      USE ISO_C_BINDING
-      INTEGER (kind = C_INTPTR_T), VALUE       :: gridgroup_hdl
-      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: axis_domain_order
-      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
-    END SUBROUTINE cxios_get_gridgroup_axis_domain_order
-
-    FUNCTION cxios_is_defined_gridgroup_axis_domain_order(gridgroup_hdl) BIND(C)
-      USE ISO_C_BINDING
-      LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_axis_domain_order
-      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
-    END FUNCTION cxios_is_defined_gridgroup_axis_domain_order
-
 
     SUBROUTINE cxios_set_gridgroup_description(gridgroup_hdl, description, description_size) BIND(C)