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

Timestamp:

02/11/15 16:47:47 (9 years ago)

Author:

mhnguyen

Message:

Updating some Fortran interface files

+) Update some Fortran interface files generated by generate_fortran_interface.exe

Test
+) No test

File:

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

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

@@ -10 +10 @@
     
     
-    SUBROUTINE cxios_set_grid_axisDomOrder(grid_hdl, axisDomOrder, extent1) BIND(C)
+    SUBROUTINE cxios_set_grid_axisDomainOrder(grid_hdl, axisDomainOrder, extent1) BIND(C)
       USE ISO_C_BINDING
       INTEGER (kind = C_INTPTR_T), VALUE       :: grid_hdl
-      INTEGER (KIND=C_INT)     , DIMENSION(*) :: axisDomOrder
+      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: axisDomainOrder
       INTEGER (kind = C_INT), VALUE  :: extent1
-    END SUBROUTINE cxios_set_grid_axisDomOrder
+    END SUBROUTINE cxios_set_grid_axisDomainOrder
     
-    SUBROUTINE cxios_get_grid_axisDomOrder(grid_hdl, axisDomOrder, extent1) BIND(C)
+    SUBROUTINE cxios_get_grid_axisDomainOrder(grid_hdl, axisDomainOrder, extent1) BIND(C)
       USE ISO_C_BINDING
       INTEGER (kind = C_INTPTR_T), VALUE       :: grid_hdl
-      INTEGER (KIND=C_INT)     , DIMENSION(*) :: axisDomOrder
+      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: axisDomainOrder
       INTEGER (kind = C_INT), VALUE  :: extent1
-    END SUBROUTINE cxios_get_grid_axisDomOrder
+    END SUBROUTINE cxios_get_grid_axisDomainOrder
     
-    FUNCTION cxios_is_defined_grid_axisDomOrder(grid_hdl ) BIND(C)
+    FUNCTION cxios_is_defined_grid_axisDomainOrder(grid_hdl ) BIND(C)
       USE ISO_C_BINDING
-      LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_axisDomOrder
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_axisDomainOrder
       INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
-    END FUNCTION cxios_is_defined_grid_axisDomOrder
+    END FUNCTION cxios_is_defined_grid_axisDomainOrder