- Timestamp:
- 11/04/15 15:50:20 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/file_interface_attr.F90
r711 r779 252 252 253 253 254 SUBROUTINE cxios_set_file_record_offset(file_hdl, record_offset) BIND(C) 255 USE ISO_C_BINDING 256 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 257 INTEGER (KIND=C_INT) , VALUE :: record_offset 258 END SUBROUTINE cxios_set_file_record_offset 259 260 SUBROUTINE cxios_get_file_record_offset(file_hdl, record_offset) BIND(C) 261 USE ISO_C_BINDING 262 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 263 INTEGER (KIND=C_INT) :: record_offset 264 END SUBROUTINE cxios_get_file_record_offset 265 266 FUNCTION cxios_is_defined_file_record_offset(file_hdl) BIND(C) 267 USE ISO_C_BINDING 268 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_record_offset 269 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 270 END FUNCTION cxios_is_defined_file_record_offset 271 272 254 273 SUBROUTINE cxios_set_file_split_freq(file_hdl, split_freq) BIND(C) 255 274 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.