- Timestamp:
- 09/22/15 10:09:53 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.F90
r608 r699 336 336 337 337 338 SUBROUTINE cxios_set_filegroup_time_counter(filegroup_hdl, time_counter, time_counter_size) BIND(C) 339 USE ISO_C_BINDING 340 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 341 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_counter 342 INTEGER (kind = C_INT) , VALUE :: time_counter_size 343 END SUBROUTINE cxios_set_filegroup_time_counter 344 345 SUBROUTINE cxios_get_filegroup_time_counter(filegroup_hdl, time_counter, time_counter_size) BIND(C) 346 USE ISO_C_BINDING 347 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 348 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_counter 349 INTEGER (kind = C_INT) , VALUE :: time_counter_size 350 END SUBROUTINE cxios_get_filegroup_time_counter 351 352 FUNCTION cxios_is_defined_filegroup_time_counter(filegroup_hdl) BIND(C) 353 USE ISO_C_BINDING 354 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_time_counter 355 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 356 END FUNCTION cxios_is_defined_filegroup_time_counter 357 358 338 359 SUBROUTINE cxios_set_filegroup_type(filegroup_hdl, type, type_size) BIND(C) 339 360 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.