- Timestamp:
- 12/17/14 15:35:12 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/domain_interface_attr.F90
r532 r546 233 233 234 234 235 SUBROUTINE cxios_set_domain_domain_ref(domain_hdl, domain_ref, domain_ref_size) BIND(C) 236 USE ISO_C_BINDING 237 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 238 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_ref 239 INTEGER (kind = C_INT) , VALUE :: domain_ref_size 240 END SUBROUTINE cxios_set_domain_domain_ref 241 242 SUBROUTINE cxios_get_domain_domain_ref(domain_hdl, domain_ref, domain_ref_size) BIND(C) 243 USE ISO_C_BINDING 244 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 245 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_ref 246 INTEGER (kind = C_INT) , VALUE :: domain_ref_size 247 END SUBROUTINE cxios_get_domain_domain_ref 248 249 FUNCTION cxios_is_defined_domain_domain_ref(domain_hdl ) BIND(C) 250 USE ISO_C_BINDING 251 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_ref 252 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 253 END FUNCTION cxios_is_defined_domain_domain_ref 254 255 235 256 SUBROUTINE cxios_set_domain_i_index(domain_hdl, i_index, extent1, extent2) BIND(C) 236 257 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.