- Timestamp:
- 08/24/15 14:53:27 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/domain_interface_attr.F90
r664 r666 228 228 229 229 230 SUBROUTINE cxios_set_domain_data_n_index(domain_hdl, data_n_index) BIND(C)231 USE ISO_C_BINDING232 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl233 INTEGER (KIND=C_INT) , VALUE :: data_n_index234 END SUBROUTINE cxios_set_domain_data_n_index235 236 SUBROUTINE cxios_get_domain_data_n_index(domain_hdl, data_n_index) BIND(C)237 USE ISO_C_BINDING238 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl239 INTEGER (KIND=C_INT) :: data_n_index240 END SUBROUTINE cxios_get_domain_data_n_index241 242 FUNCTION cxios_is_defined_domain_data_n_index(domain_hdl) BIND(C)243 USE ISO_C_BINDING244 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_n_index245 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl246 END FUNCTION cxios_is_defined_domain_data_n_index247 248 249 230 SUBROUTINE cxios_set_domain_data_ni(domain_hdl, data_ni) BIND(C) 250 231 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.