- Timestamp:
- 12/17/14 15:35:12 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/gridgroup_interface_attr.F90
r532 r546 10 10 11 11 12 SUBROUTINE cxios_set_gridgroup_axis _ref(gridgroup_hdl, axis_ref, axis_ref_size) BIND(C)12 SUBROUTINE cxios_set_gridgroup_axisDomOrder(gridgroup_hdl, axisDomOrder, extent1) BIND(C) 13 13 USE ISO_C_BINDING 14 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 15 INTEGER (KIND=C_INT) , DIMENSION(*) :: axisDomOrder 16 INTEGER (kind = C_INT), VALUE :: extent1 17 END SUBROUTINE cxios_set_gridgroup_axisDomOrder 18 19 SUBROUTINE cxios_get_gridgroup_axisDomOrder(gridgroup_hdl, axisDomOrder, extent1) BIND(C) 20 USE ISO_C_BINDING 21 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 22 INTEGER (KIND=C_INT) , DIMENSION(*) :: axisDomOrder 23 INTEGER (kind = C_INT), VALUE :: extent1 24 END SUBROUTINE cxios_get_gridgroup_axisDomOrder 25 26 FUNCTION cxios_is_defined_gridgroup_axisDomOrder(gridgroup_hdl ) BIND(C) 27 USE ISO_C_BINDING 28 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_axisDomOrder 14 29 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 15 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: axis_ref 16 INTEGER (kind = C_INT) , VALUE :: axis_ref_size 17 END SUBROUTINE cxios_set_gridgroup_axis_ref 18 19 SUBROUTINE cxios_get_gridgroup_axis_ref(gridgroup_hdl, axis_ref, axis_ref_size) BIND(C) 20 USE ISO_C_BINDING 21 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 22 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: axis_ref 23 INTEGER (kind = C_INT) , VALUE :: axis_ref_size 24 END SUBROUTINE cxios_get_gridgroup_axis_ref 25 26 FUNCTION cxios_is_defined_gridgroup_axis_ref(gridgroup_hdl ) BIND(C) 27 USE ISO_C_BINDING 28 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_axis_ref 29 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 30 END FUNCTION cxios_is_defined_gridgroup_axis_ref 30 END FUNCTION cxios_is_defined_gridgroup_axisDomOrder 31 31 32 32 … … 50 50 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 51 51 END FUNCTION cxios_is_defined_gridgroup_description 52 53 54 SUBROUTINE cxios_set_gridgroup_domain_ref(gridgroup_hdl, domain_ref, domain_ref_size) BIND(C)55 USE ISO_C_BINDING56 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl57 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_ref58 INTEGER (kind = C_INT) , VALUE :: domain_ref_size59 END SUBROUTINE cxios_set_gridgroup_domain_ref60 61 SUBROUTINE cxios_get_gridgroup_domain_ref(gridgroup_hdl, domain_ref, domain_ref_size) BIND(C)62 USE ISO_C_BINDING63 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl64 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_ref65 INTEGER (kind = C_INT) , VALUE :: domain_ref_size66 END SUBROUTINE cxios_get_gridgroup_domain_ref67 68 FUNCTION cxios_is_defined_gridgroup_domain_ref(gridgroup_hdl ) BIND(C)69 USE ISO_C_BINDING70 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_domain_ref71 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl72 END FUNCTION cxios_is_defined_gridgroup_domain_ref73 52 74 53
Note: See TracChangeset
for help on using the changeset viewer.