- Timestamp:
- 04/24/18 18:03:18 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/filegroup_interface_attr.F90
r1201 r1492 29 29 30 30 31 SUBROUTINE cxios_set_filegroup_comment(filegroup_hdl, comment, comment_size) BIND(C) 32 USE ISO_C_BINDING 33 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 34 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 35 INTEGER (kind = C_INT) , VALUE :: comment_size 36 END SUBROUTINE cxios_set_filegroup_comment 37 38 SUBROUTINE cxios_get_filegroup_comment(filegroup_hdl, comment, comment_size) BIND(C) 39 USE ISO_C_BINDING 40 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 41 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 42 INTEGER (kind = C_INT) , VALUE :: comment_size 43 END SUBROUTINE cxios_get_filegroup_comment 44 45 FUNCTION cxios_is_defined_filegroup_comment(filegroup_hdl) BIND(C) 46 USE ISO_C_BINDING 47 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_comment 48 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 49 END FUNCTION cxios_is_defined_filegroup_comment 50 51 31 52 SUBROUTINE cxios_set_filegroup_compression_level(filegroup_hdl, compression_level) BIND(C) 32 53 USE ISO_C_BINDING … … 334 355 335 356 357 SUBROUTINE cxios_set_filegroup_read_metadata_par(filegroup_hdl, read_metadata_par) BIND(C) 358 USE ISO_C_BINDING 359 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 360 LOGICAL (KIND=C_BOOL) , VALUE :: read_metadata_par 361 END SUBROUTINE cxios_set_filegroup_read_metadata_par 362 363 SUBROUTINE cxios_get_filegroup_read_metadata_par(filegroup_hdl, read_metadata_par) BIND(C) 364 USE ISO_C_BINDING 365 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 366 LOGICAL (KIND=C_BOOL) :: read_metadata_par 367 END SUBROUTINE cxios_get_filegroup_read_metadata_par 368 369 FUNCTION cxios_is_defined_filegroup_read_metadata_par(filegroup_hdl) BIND(C) 370 USE ISO_C_BINDING 371 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_read_metadata_par 372 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 373 END FUNCTION cxios_is_defined_filegroup_read_metadata_par 374 375 336 376 SUBROUTINE cxios_set_filegroup_record_offset(filegroup_hdl, record_offset) BIND(C) 337 377 USE ISO_C_BINDING … … 351 391 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 352 392 END FUNCTION cxios_is_defined_filegroup_record_offset 393 394 395 SUBROUTINE cxios_set_filegroup_split_end_offset(filegroup_hdl, split_end_offset) BIND(C) 396 USE ISO_C_BINDING 397 USE IDURATION 398 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 399 TYPE(txios(duration)), VALUE :: split_end_offset 400 END SUBROUTINE cxios_set_filegroup_split_end_offset 401 402 SUBROUTINE cxios_get_filegroup_split_end_offset(filegroup_hdl, split_end_offset) BIND(C) 403 USE ISO_C_BINDING 404 USE IDURATION 405 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 406 TYPE(txios(duration)) :: split_end_offset 407 END SUBROUTINE cxios_get_filegroup_split_end_offset 408 409 FUNCTION cxios_is_defined_filegroup_split_end_offset(filegroup_hdl) BIND(C) 410 USE ISO_C_BINDING 411 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_end_offset 412 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 413 END FUNCTION cxios_is_defined_filegroup_split_end_offset 353 414 354 415 … … 395 456 396 457 458 SUBROUTINE cxios_set_filegroup_split_last_date(filegroup_hdl, split_last_date, split_last_date_size) BIND(C) 459 USE ISO_C_BINDING 460 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 461 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: split_last_date 462 INTEGER (kind = C_INT) , VALUE :: split_last_date_size 463 END SUBROUTINE cxios_set_filegroup_split_last_date 464 465 SUBROUTINE cxios_get_filegroup_split_last_date(filegroup_hdl, split_last_date, split_last_date_size) BIND(C) 466 USE ISO_C_BINDING 467 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 468 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: split_last_date 469 INTEGER (kind = C_INT) , VALUE :: split_last_date_size 470 END SUBROUTINE cxios_get_filegroup_split_last_date 471 472 FUNCTION cxios_is_defined_filegroup_split_last_date(filegroup_hdl) BIND(C) 473 USE ISO_C_BINDING 474 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_last_date 475 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 476 END FUNCTION cxios_is_defined_filegroup_split_last_date 477 478 479 SUBROUTINE cxios_set_filegroup_split_start_offset(filegroup_hdl, split_start_offset) BIND(C) 480 USE ISO_C_BINDING 481 USE IDURATION 482 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 483 TYPE(txios(duration)), VALUE :: split_start_offset 484 END SUBROUTINE cxios_set_filegroup_split_start_offset 485 486 SUBROUTINE cxios_get_filegroup_split_start_offset(filegroup_hdl, split_start_offset) BIND(C) 487 USE ISO_C_BINDING 488 USE IDURATION 489 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 490 TYPE(txios(duration)) :: split_start_offset 491 END SUBROUTINE cxios_get_filegroup_split_start_offset 492 493 FUNCTION cxios_is_defined_filegroup_split_start_offset(filegroup_hdl) BIND(C) 494 USE ISO_C_BINDING 495 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_start_offset 496 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 497 END FUNCTION cxios_is_defined_filegroup_split_start_offset 498 499 397 500 SUBROUTINE cxios_set_filegroup_sync_freq(filegroup_hdl, sync_freq) BIND(C) 398 501 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.