- Timestamp:
- 09/29/15 14:17:42 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.F90
r699 r711 357 357 358 358 359 SUBROUTINE cxios_set_filegroup_timeseries(filegroup_hdl, timeseries, timeseries_size) BIND(C) 360 USE ISO_C_BINDING 361 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 362 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: timeseries 363 INTEGER (kind = C_INT) , VALUE :: timeseries_size 364 END SUBROUTINE cxios_set_filegroup_timeseries 365 366 SUBROUTINE cxios_get_filegroup_timeseries(filegroup_hdl, timeseries, timeseries_size) BIND(C) 367 USE ISO_C_BINDING 368 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 369 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: timeseries 370 INTEGER (kind = C_INT) , VALUE :: timeseries_size 371 END SUBROUTINE cxios_get_filegroup_timeseries 372 373 FUNCTION cxios_is_defined_filegroup_timeseries(filegroup_hdl) BIND(C) 374 USE ISO_C_BINDING 375 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_timeseries 376 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 377 END FUNCTION cxios_is_defined_filegroup_timeseries 378 379 380 SUBROUTINE cxios_set_filegroup_ts_prefix(filegroup_hdl, ts_prefix, ts_prefix_size) BIND(C) 381 USE ISO_C_BINDING 382 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 383 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: ts_prefix 384 INTEGER (kind = C_INT) , VALUE :: ts_prefix_size 385 END SUBROUTINE cxios_set_filegroup_ts_prefix 386 387 SUBROUTINE cxios_get_filegroup_ts_prefix(filegroup_hdl, ts_prefix, ts_prefix_size) BIND(C) 388 USE ISO_C_BINDING 389 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 390 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: ts_prefix 391 INTEGER (kind = C_INT) , VALUE :: ts_prefix_size 392 END SUBROUTINE cxios_get_filegroup_ts_prefix 393 394 FUNCTION cxios_is_defined_filegroup_ts_prefix(filegroup_hdl) BIND(C) 395 USE ISO_C_BINDING 396 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_ts_prefix 397 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 398 END FUNCTION cxios_is_defined_filegroup_ts_prefix 399 400 359 401 SUBROUTINE cxios_set_filegroup_type(filegroup_hdl, type, type_size) BIND(C) 360 402 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.