- Timestamp:
- 11/04/15 15:50:20 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.F90
r711 r779 273 273 274 274 275 SUBROUTINE cxios_set_filegroup_record_offset(filegroup_hdl, record_offset) BIND(C) 276 USE ISO_C_BINDING 277 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 278 INTEGER (KIND=C_INT) , VALUE :: record_offset 279 END SUBROUTINE cxios_set_filegroup_record_offset 280 281 SUBROUTINE cxios_get_filegroup_record_offset(filegroup_hdl, record_offset) BIND(C) 282 USE ISO_C_BINDING 283 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 284 INTEGER (KIND=C_INT) :: record_offset 285 END SUBROUTINE cxios_get_filegroup_record_offset 286 287 FUNCTION cxios_is_defined_filegroup_record_offset(filegroup_hdl) BIND(C) 288 USE ISO_C_BINDING 289 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_record_offset 290 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 291 END FUNCTION cxios_is_defined_filegroup_record_offset 292 293 275 294 SUBROUTINE cxios_set_filegroup_split_freq(filegroup_hdl, split_freq) BIND(C) 276 295 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.