- Timestamp:
- 11/16/15 16:21:45 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/field_interface_attr.F90
r711 r790 210 210 211 211 212 SUBROUTINE cxios_set_field_grid_path(field_hdl, grid_path, grid_path_size) BIND(C) 213 USE ISO_C_BINDING 214 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 215 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: grid_path 216 INTEGER (kind = C_INT) , VALUE :: grid_path_size 217 END SUBROUTINE cxios_set_field_grid_path 218 219 SUBROUTINE cxios_get_field_grid_path(field_hdl, grid_path, grid_path_size) BIND(C) 220 USE ISO_C_BINDING 221 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 222 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: grid_path 223 INTEGER (kind = C_INT) , VALUE :: grid_path_size 224 END SUBROUTINE cxios_get_field_grid_path 225 226 FUNCTION cxios_is_defined_field_grid_path(field_hdl) BIND(C) 227 USE ISO_C_BINDING 228 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_grid_path 229 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 230 END FUNCTION cxios_is_defined_field_grid_path 231 232 212 233 SUBROUTINE cxios_set_field_grid_ref(field_hdl, grid_ref, grid_ref_size) BIND(C) 213 234 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.