- Timestamp:
- 06/06/17 17:58:16 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_olga/src/interface/fortran_attr/filegroup_interface_attr.F90
r932 r1158 437 437 438 438 439 SUBROUTINE cxios_set_filegroup_time_stamp_format(filegroup_hdl, time_stamp_format, time_stamp_format_size) BIND(C) 440 USE ISO_C_BINDING 441 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 442 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_stamp_format 443 INTEGER (kind = C_INT) , VALUE :: time_stamp_format_size 444 END SUBROUTINE cxios_set_filegroup_time_stamp_format 445 446 SUBROUTINE cxios_get_filegroup_time_stamp_format(filegroup_hdl, time_stamp_format, time_stamp_format_size) BIND(C) 447 USE ISO_C_BINDING 448 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 449 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_stamp_format 450 INTEGER (kind = C_INT) , VALUE :: time_stamp_format_size 451 END SUBROUTINE cxios_get_filegroup_time_stamp_format 452 453 FUNCTION cxios_is_defined_filegroup_time_stamp_format(filegroup_hdl) BIND(C) 454 USE ISO_C_BINDING 455 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_time_stamp_format 456 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 457 END FUNCTION cxios_is_defined_filegroup_time_stamp_format 458 459 460 SUBROUTINE cxios_set_filegroup_time_stamp_name(filegroup_hdl, time_stamp_name, time_stamp_name_size) BIND(C) 461 USE ISO_C_BINDING 462 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 463 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_stamp_name 464 INTEGER (kind = C_INT) , VALUE :: time_stamp_name_size 465 END SUBROUTINE cxios_set_filegroup_time_stamp_name 466 467 SUBROUTINE cxios_get_filegroup_time_stamp_name(filegroup_hdl, time_stamp_name, time_stamp_name_size) BIND(C) 468 USE ISO_C_BINDING 469 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 470 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_stamp_name 471 INTEGER (kind = C_INT) , VALUE :: time_stamp_name_size 472 END SUBROUTINE cxios_get_filegroup_time_stamp_name 473 474 FUNCTION cxios_is_defined_filegroup_time_stamp_name(filegroup_hdl) BIND(C) 475 USE ISO_C_BINDING 476 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_time_stamp_name 477 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 478 END FUNCTION cxios_is_defined_filegroup_time_stamp_name 479 480 481 SUBROUTINE cxios_set_filegroup_time_units(filegroup_hdl, time_units, time_units_size) BIND(C) 482 USE ISO_C_BINDING 483 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 484 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_units 485 INTEGER (kind = C_INT) , VALUE :: time_units_size 486 END SUBROUTINE cxios_set_filegroup_time_units 487 488 SUBROUTINE cxios_get_filegroup_time_units(filegroup_hdl, time_units, time_units_size) BIND(C) 489 USE ISO_C_BINDING 490 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 491 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_units 492 INTEGER (kind = C_INT) , VALUE :: time_units_size 493 END SUBROUTINE cxios_get_filegroup_time_units 494 495 FUNCTION cxios_is_defined_filegroup_time_units(filegroup_hdl) BIND(C) 496 USE ISO_C_BINDING 497 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_time_units 498 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 499 END FUNCTION cxios_is_defined_filegroup_time_units 500 501 439 502 SUBROUTINE cxios_set_filegroup_timeseries(filegroup_hdl, timeseries, timeseries_size) BIND(C) 440 503 USE ISO_C_BINDING … … 499 562 END FUNCTION cxios_is_defined_filegroup_type 500 563 564 565 SUBROUTINE cxios_set_filegroup_uuid_format(filegroup_hdl, uuid_format, uuid_format_size) BIND(C) 566 USE ISO_C_BINDING 567 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 568 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: uuid_format 569 INTEGER (kind = C_INT) , VALUE :: uuid_format_size 570 END SUBROUTINE cxios_set_filegroup_uuid_format 571 572 SUBROUTINE cxios_get_filegroup_uuid_format(filegroup_hdl, uuid_format, uuid_format_size) BIND(C) 573 USE ISO_C_BINDING 574 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 575 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: uuid_format 576 INTEGER (kind = C_INT) , VALUE :: uuid_format_size 577 END SUBROUTINE cxios_get_filegroup_uuid_format 578 579 FUNCTION cxios_is_defined_filegroup_uuid_format(filegroup_hdl) BIND(C) 580 USE ISO_C_BINDING 581 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_uuid_format 582 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 583 END FUNCTION cxios_is_defined_filegroup_uuid_format 584 585 586 SUBROUTINE cxios_set_filegroup_uuid_name(filegroup_hdl, uuid_name, uuid_name_size) BIND(C) 587 USE ISO_C_BINDING 588 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 589 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: uuid_name 590 INTEGER (kind = C_INT) , VALUE :: uuid_name_size 591 END SUBROUTINE cxios_set_filegroup_uuid_name 592 593 SUBROUTINE cxios_get_filegroup_uuid_name(filegroup_hdl, uuid_name, uuid_name_size) BIND(C) 594 USE ISO_C_BINDING 595 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 596 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: uuid_name 597 INTEGER (kind = C_INT) , VALUE :: uuid_name_size 598 END SUBROUTINE cxios_get_filegroup_uuid_name 599 600 FUNCTION cxios_is_defined_filegroup_uuid_name(filegroup_hdl) BIND(C) 601 USE ISO_C_BINDING 602 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_uuid_name 603 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 604 END FUNCTION cxios_is_defined_filegroup_uuid_name 605 501 606 END INTERFACE 502 607
Note: See TracChangeset
for help on using the changeset viewer.