- Timestamp:
- 07/07/17 18:17:49 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_olga/src/interface/fortran_attr/ifilegroup_attr.F90
r1158 r1201 12 12 13 13 SUBROUTINE xios(set_filegroup_attr) & 14 ( filegroup_id, append, compression_level, convention, c yclic, description, enabled, format&15 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset&16 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format &14 ( filegroup_id, append, compression_level, convention, convention_str, cyclic, description, enabled & 15 , format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 16 , record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 17 17 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 18 18 … … 24 24 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 25 25 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention 26 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str 26 27 LOGICAL , OPTIONAL, INTENT(IN) :: cyclic 27 28 LOGICAL (KIND=C_BOOL) :: cyclic_tmp … … 56 57 (filegroup_id,filegroup_hdl) 57 58 CALL xios(set_filegroup_attr_hdl_) & 58 ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format & 59 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 60 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 61 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 59 ( filegroup_hdl, append, compression_level, convention, convention_str, cyclic, description & 60 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 61 , par_access, record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name & 62 , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name & 63 ) 62 64 63 65 END SUBROUTINE xios(set_filegroup_attr) 64 66 65 67 SUBROUTINE xios(set_filegroup_attr_hdl) & 66 ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format & 67 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 68 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 69 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 68 ( filegroup_hdl, append, compression_level, convention, convention_str, cyclic, description & 69 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 70 , par_access, record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name & 71 , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name & 72 ) 70 73 71 74 IMPLICIT NONE … … 75 78 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 76 79 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention 80 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str 77 81 LOGICAL , OPTIONAL, INTENT(IN) :: cyclic 78 82 LOGICAL (KIND=C_BOOL) :: cyclic_tmp … … 105 109 106 110 CALL xios(set_filegroup_attr_hdl_) & 107 ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format & 108 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 109 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 110 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 111 ( filegroup_hdl, append, compression_level, convention, convention_str, cyclic, description & 112 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 113 , par_access, record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name & 114 , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name & 115 ) 111 116 112 117 END SUBROUTINE xios(set_filegroup_attr_hdl) 113 118 114 119 SUBROUTINE xios(set_filegroup_attr_hdl_) & 115 ( filegroup_hdl, append_, compression_level_, convention_, c yclic_, description_, enabled_, format_ &116 , group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_ &117 , record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_ &120 ( filegroup_hdl, append_, compression_level_, convention_, convention_str_, cyclic_, description_ & 121 , enabled_, format_, group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_ & 122 , par_access_, record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_ & 118 123 , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_ & 119 124 , uuid_name_ ) … … 125 130 INTEGER , OPTIONAL, INTENT(IN) :: compression_level_ 126 131 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_ 132 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str_ 127 133 LOGICAL , OPTIONAL, INTENT(IN) :: cyclic_ 128 134 LOGICAL (KIND=C_BOOL) :: cyclic__tmp … … 170 176 ENDIF 171 177 178 IF (PRESENT(convention_str_)) THEN 179 CALL cxios_set_filegroup_convention_str & 180 (filegroup_hdl%daddr, convention_str_, len(convention_str_)) 181 ENDIF 182 172 183 IF (PRESENT(cyclic_)) THEN 173 184 cyclic__tmp = cyclic_ … … 305 316 306 317 SUBROUTINE xios(get_filegroup_attr) & 307 ( filegroup_id, append, compression_level, convention, c yclic, description, enabled, format&308 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset&309 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format &318 ( filegroup_id, append, compression_level, convention, convention_str, cyclic, description, enabled & 319 , format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 320 , record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 310 321 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 311 322 … … 317 328 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 318 329 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention 330 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_str 319 331 LOGICAL , OPTIONAL, INTENT(OUT) :: cyclic 320 332 LOGICAL (KIND=C_BOOL) :: cyclic_tmp … … 349 361 (filegroup_id,filegroup_hdl) 350 362 CALL xios(get_filegroup_attr_hdl_) & 351 ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format & 352 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 353 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 354 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 363 ( filegroup_hdl, append, compression_level, convention, convention_str, cyclic, description & 364 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 365 , par_access, record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name & 366 , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name & 367 ) 355 368 356 369 END SUBROUTINE xios(get_filegroup_attr) 357 370 358 371 SUBROUTINE xios(get_filegroup_attr_hdl) & 359 ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format & 360 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 361 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 362 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 372 ( filegroup_hdl, append, compression_level, convention, convention_str, cyclic, description & 373 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 374 , par_access, record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name & 375 , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name & 376 ) 363 377 364 378 IMPLICIT NONE … … 368 382 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 369 383 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention 384 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_str 370 385 LOGICAL , OPTIONAL, INTENT(OUT) :: cyclic 371 386 LOGICAL (KIND=C_BOOL) :: cyclic_tmp … … 398 413 399 414 CALL xios(get_filegroup_attr_hdl_) & 400 ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format & 401 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 402 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 403 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 415 ( filegroup_hdl, append, compression_level, convention, convention_str, cyclic, description & 416 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 417 , par_access, record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name & 418 , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name & 419 ) 404 420 405 421 END SUBROUTINE xios(get_filegroup_attr_hdl) 406 422 407 423 SUBROUTINE xios(get_filegroup_attr_hdl_) & 408 ( filegroup_hdl, append_, compression_level_, convention_, c yclic_, description_, enabled_, format_ &409 , group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_ &410 , record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_ &424 ( filegroup_hdl, append_, compression_level_, convention_, convention_str_, cyclic_, description_ & 425 , enabled_, format_, group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_ & 426 , par_access_, record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_ & 411 427 , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_ & 412 428 , uuid_name_ ) … … 418 434 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_ 419 435 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_ 436 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_str_ 420 437 LOGICAL , OPTIONAL, INTENT(OUT) :: cyclic_ 421 438 LOGICAL (KIND=C_BOOL) :: cyclic__tmp … … 463 480 ENDIF 464 481 482 IF (PRESENT(convention_str_)) THEN 483 CALL cxios_get_filegroup_convention_str & 484 (filegroup_hdl%daddr, convention_str_, len(convention_str_)) 485 ENDIF 486 465 487 IF (PRESENT(cyclic_)) THEN 466 488 CALL cxios_get_filegroup_cyclic & … … 598 620 599 621 SUBROUTINE xios(is_defined_filegroup_attr) & 600 ( filegroup_id, append, compression_level, convention, c yclic, description, enabled, format&601 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset&602 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format &622 ( filegroup_id, append, compression_level, convention, convention_str, cyclic, description, enabled & 623 , format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 624 , record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 603 625 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 604 626 … … 612 634 LOGICAL, OPTIONAL, INTENT(OUT) :: convention 613 635 LOGICAL(KIND=C_BOOL) :: convention_tmp 636 LOGICAL, OPTIONAL, INTENT(OUT) :: convention_str 637 LOGICAL(KIND=C_BOOL) :: convention_str_tmp 614 638 LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic 615 639 LOGICAL(KIND=C_BOOL) :: cyclic_tmp … … 668 692 (filegroup_id,filegroup_hdl) 669 693 CALL xios(is_defined_filegroup_attr_hdl_) & 670 ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format & 671 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 672 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 673 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 694 ( filegroup_hdl, append, compression_level, convention, convention_str, cyclic, description & 695 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 696 , par_access, record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name & 697 , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name & 698 ) 674 699 675 700 END SUBROUTINE xios(is_defined_filegroup_attr) 676 701 677 702 SUBROUTINE xios(is_defined_filegroup_attr_hdl) & 678 ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format & 679 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 680 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 681 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 703 ( filegroup_hdl, append, compression_level, convention, convention_str, cyclic, description & 704 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 705 , par_access, record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name & 706 , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name & 707 ) 682 708 683 709 IMPLICIT NONE … … 689 715 LOGICAL, OPTIONAL, INTENT(OUT) :: convention 690 716 LOGICAL(KIND=C_BOOL) :: convention_tmp 717 LOGICAL, OPTIONAL, INTENT(OUT) :: convention_str 718 LOGICAL(KIND=C_BOOL) :: convention_str_tmp 691 719 LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic 692 720 LOGICAL(KIND=C_BOOL) :: cyclic_tmp … … 743 771 744 772 CALL xios(is_defined_filegroup_attr_hdl_) & 745 ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format & 746 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 747 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 748 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 773 ( filegroup_hdl, append, compression_level, convention, convention_str, cyclic, description & 774 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 775 , par_access, record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name & 776 , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name & 777 ) 749 778 750 779 END SUBROUTINE xios(is_defined_filegroup_attr_hdl) 751 780 752 781 SUBROUTINE xios(is_defined_filegroup_attr_hdl_) & 753 ( filegroup_hdl, append_, compression_level_, convention_, c yclic_, description_, enabled_, format_ &754 , group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_ &755 , record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_ &782 ( filegroup_hdl, append_, compression_level_, convention_, convention_str_, cyclic_, description_ & 783 , enabled_, format_, group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_ & 784 , par_access_, record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_ & 756 785 , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_ & 757 786 , uuid_name_ ) … … 765 794 LOGICAL, OPTIONAL, INTENT(OUT) :: convention_ 766 795 LOGICAL(KIND=C_BOOL) :: convention__tmp 796 LOGICAL, OPTIONAL, INTENT(OUT) :: convention_str_ 797 LOGICAL(KIND=C_BOOL) :: convention_str__tmp 767 798 LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic_ 768 799 LOGICAL(KIND=C_BOOL) :: cyclic__tmp … … 836 867 ENDIF 837 868 869 IF (PRESENT(convention_str_)) THEN 870 convention_str__tmp = cxios_is_defined_filegroup_convention_str & 871 (filegroup_hdl%daddr) 872 convention_str_ = convention_str__tmp 873 ENDIF 874 838 875 IF (PRESENT(cyclic_)) THEN 839 876 cyclic__tmp = cxios_is_defined_filegroup_cyclic &
Note: See TracChangeset
for help on using the changeset viewer.