Changeset 546 for XIOS/trunk/src/interface/fortran_attr/grid_interface_attr.F90

Timestamp:

12/17/14 15:35:12 (9 years ago)

Author:

rlacroix

Message:

Update the Fortran interface after r540.

File:

• XIOS/trunk/src/interface/fortran_attr/grid_interface_attr.F90 (modified) (2 diffs)

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

@@ -10 +10 @@
     
     
-    SUBROUTINE cxios_set_grid_axis_ref(grid_hdl, axis_ref, axis_ref_size) BIND(C)
+    SUBROUTINE cxios_set_grid_axisDomOrder(grid_hdl, axisDomOrder, extent1) BIND(C)
       USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE       :: grid_hdl
+      INTEGER (KIND=C_INT)     , DIMENSION(*) :: axisDomOrder
+      INTEGER (kind = C_INT), VALUE  :: extent1
+    END SUBROUTINE cxios_set_grid_axisDomOrder
+    
+    SUBROUTINE cxios_get_grid_axisDomOrder(grid_hdl, axisDomOrder, extent1) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE       :: grid_hdl
+      INTEGER (KIND=C_INT)     , DIMENSION(*) :: axisDomOrder
+      INTEGER (kind = C_INT), VALUE  :: extent1
+    END SUBROUTINE cxios_get_grid_axisDomOrder
+    
+    FUNCTION cxios_is_defined_grid_axisDomOrder(grid_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_axisDomOrder
       INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
-      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
-      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
-    END SUBROUTINE cxios_set_grid_axis_ref
-    
-    SUBROUTINE cxios_get_grid_axis_ref(grid_hdl, axis_ref, axis_ref_size) BIND(C)
-      USE ISO_C_BINDING
-      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
-      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
-      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
-    END SUBROUTINE cxios_get_grid_axis_ref
-    
-    FUNCTION cxios_is_defined_grid_axis_ref(grid_hdl ) BIND(C)
-      USE ISO_C_BINDING
-      LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_axis_ref
-      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
-    END FUNCTION cxios_is_defined_grid_axis_ref
+    END FUNCTION cxios_is_defined_grid_axisDomOrder
     
     
@@ -50 +50 @@
       INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
     END FUNCTION cxios_is_defined_grid_description
-    
-    
-    SUBROUTINE cxios_set_grid_domain_ref(grid_hdl, domain_ref, domain_ref_size) BIND(C)
-      USE ISO_C_BINDING
-      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
-      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
-      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
-    END SUBROUTINE cxios_set_grid_domain_ref
-    
-    SUBROUTINE cxios_get_grid_domain_ref(grid_hdl, domain_ref, domain_ref_size) BIND(C)
-      USE ISO_C_BINDING
-      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
-      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
-      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
-    END SUBROUTINE cxios_get_grid_domain_ref
-    
-    FUNCTION cxios_is_defined_grid_domain_ref(grid_hdl ) BIND(C)
-      USE ISO_C_BINDING
-      LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_domain_ref
-      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
-    END FUNCTION cxios_is_defined_grid_domain_ref