- Timestamp:
- 02/11/15 16:47:47 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/gridgroup_interface_attr.F90
r546 r555 10 10 11 11 12 SUBROUTINE cxios_set_gridgroup_axisDom Order(gridgroup_hdl, axisDomOrder, extent1) BIND(C)12 SUBROUTINE cxios_set_gridgroup_axisDomainOrder(gridgroup_hdl, axisDomainOrder, extent1) BIND(C) 13 13 USE ISO_C_BINDING 14 14 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 15 INTEGER (KIND=C_INT) , DIMENSION(*) :: axisDomOrder15 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: axisDomainOrder 16 16 INTEGER (kind = C_INT), VALUE :: extent1 17 END SUBROUTINE cxios_set_gridgroup_axisDom Order17 END SUBROUTINE cxios_set_gridgroup_axisDomainOrder 18 18 19 SUBROUTINE cxios_get_gridgroup_axisDom Order(gridgroup_hdl, axisDomOrder, extent1) BIND(C)19 SUBROUTINE cxios_get_gridgroup_axisDomainOrder(gridgroup_hdl, axisDomainOrder, extent1) BIND(C) 20 20 USE ISO_C_BINDING 21 21 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 22 INTEGER (KIND=C_INT) , DIMENSION(*) :: axisDomOrder22 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: axisDomainOrder 23 23 INTEGER (kind = C_INT), VALUE :: extent1 24 END SUBROUTINE cxios_get_gridgroup_axisDom Order24 END SUBROUTINE cxios_get_gridgroup_axisDomainOrder 25 25 26 FUNCTION cxios_is_defined_gridgroup_axisDom Order(gridgroup_hdl ) BIND(C)26 FUNCTION cxios_is_defined_gridgroup_axisDomainOrder(gridgroup_hdl ) BIND(C) 27 27 USE ISO_C_BINDING 28 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_axisDom Order28 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_axisDomainOrder 29 29 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 30 END FUNCTION cxios_is_defined_gridgroup_axisDom Order30 END FUNCTION cxios_is_defined_gridgroup_axisDomainOrder 31 31 32 32
Note: See TracChangeset
for help on using the changeset viewer.