- Timestamp:
- 11/30/15 16:21:33 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.F90
r779 r802 376 376 377 377 378 SUBROUTINE cxios_set_filegroup_time_counter_name(filegroup_hdl, time_counter_name, time_counter_name_size) BIND(C) 379 USE ISO_C_BINDING 380 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 381 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_counter_name 382 INTEGER (kind = C_INT) , VALUE :: time_counter_name_size 383 END SUBROUTINE cxios_set_filegroup_time_counter_name 384 385 SUBROUTINE cxios_get_filegroup_time_counter_name(filegroup_hdl, time_counter_name, time_counter_name_size) BIND(C) 386 USE ISO_C_BINDING 387 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 388 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_counter_name 389 INTEGER (kind = C_INT) , VALUE :: time_counter_name_size 390 END SUBROUTINE cxios_get_filegroup_time_counter_name 391 392 FUNCTION cxios_is_defined_filegroup_time_counter_name(filegroup_hdl) BIND(C) 393 USE ISO_C_BINDING 394 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_time_counter_name 395 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 396 END FUNCTION cxios_is_defined_filegroup_time_counter_name 397 398 378 399 SUBROUTINE cxios_set_filegroup_timeseries(filegroup_hdl, timeseries, timeseries_size) BIND(C) 379 400 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.