Changeset 2616 for XIOS3/trunk/src/interface/fortran_attr/ifile_attr.F90
- Timestamp:
- 03/19/24 14:23:16 (4 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS3/trunk/src/interface/fortran_attr/ifile_attr.F90
r1492 r2616 13 13 SUBROUTINE xios(set_file_attr) & 14 14 ( file_id, append, comment, compression_level, convention, convention_str, cyclic, description & 15 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 16 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 17 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 18 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 15 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 16 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 17 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 18 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 19 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 19 20 20 21 IMPLICIT NONE … … 33 34 LOGICAL (KIND=C_BOOL) :: enabled_tmp 34 35 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format 36 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer 35 37 INTEGER , OPTIONAL, INTENT(IN) :: min_digits 36 38 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode … … 40 42 INTEGER , OPTIONAL, INTENT(IN) :: output_level 41 43 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 44 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer 45 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader 46 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer 42 47 LOGICAL , OPTIONAL, INTENT(IN) :: read_metadata_par 43 48 LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 49 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader 44 50 INTEGER , OPTIONAL, INTENT(IN) :: record_offset 45 51 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_end_offset … … 57 63 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix 58 64 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 65 LOGICAL , OPTIONAL, INTENT(IN) :: using_server2 66 LOGICAL (KIND=C_BOOL) :: using_server2_tmp 59 67 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format 60 68 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name 69 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer 61 70 62 71 CALL xios(get_file_handle) & … … 64 73 CALL xios(set_file_attr_hdl_) & 65 74 ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 66 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 67 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 68 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 69 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 75 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 76 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 77 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 78 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 79 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 70 80 71 81 END SUBROUTINE xios(set_file_attr) … … 73 83 SUBROUTINE xios(set_file_attr_hdl) & 74 84 ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 75 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 76 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 77 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 78 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 85 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 86 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 87 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 88 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 89 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 79 90 80 91 IMPLICIT NONE … … 92 103 LOGICAL (KIND=C_BOOL) :: enabled_tmp 93 104 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format 105 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer 94 106 INTEGER , OPTIONAL, INTENT(IN) :: min_digits 95 107 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode … … 99 111 INTEGER , OPTIONAL, INTENT(IN) :: output_level 100 112 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 113 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer 114 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader 115 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer 101 116 LOGICAL , OPTIONAL, INTENT(IN) :: read_metadata_par 102 117 LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 118 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader 103 119 INTEGER , OPTIONAL, INTENT(IN) :: record_offset 104 120 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_end_offset … … 116 132 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix 117 133 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 134 LOGICAL , OPTIONAL, INTENT(IN) :: using_server2 135 LOGICAL (KIND=C_BOOL) :: using_server2_tmp 118 136 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format 119 137 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name 138 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer 120 139 121 140 CALL xios(set_file_attr_hdl_) & 122 141 ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 123 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 124 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 125 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 126 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 142 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 143 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 144 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 145 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 146 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 127 147 128 148 END SUBROUTINE xios(set_file_attr_hdl) … … 130 150 SUBROUTINE xios(set_file_attr_hdl_) & 131 151 ( file_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_, description_ & 132 , enabled_, format_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_ & 133 , read_metadata_par_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_ & 134 , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_ & 135 , time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ ) 152 , enabled_, format_, gatherer_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_ & 153 , par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_, reader_, record_offset_ & 154 , split_end_offset_, split_freq_, split_freq_format_, split_last_date_, split_start_offset_ & 155 , sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_, time_units_ & 156 , timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_ ) 136 157 137 158 IMPLICIT NONE … … 149 170 LOGICAL (KIND=C_BOOL) :: enabled__tmp 150 171 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_ 172 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer_ 151 173 INTEGER , OPTIONAL, INTENT(IN) :: min_digits_ 152 174 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_ … … 156 178 INTEGER , OPTIONAL, INTENT(IN) :: output_level_ 157 179 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_ 180 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer_ 181 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader_ 182 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer_ 158 183 LOGICAL , OPTIONAL, INTENT(IN) :: read_metadata_par_ 159 184 LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp 185 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader_ 160 186 INTEGER , OPTIONAL, INTENT(IN) :: record_offset_ 161 187 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_end_offset_ … … 173 199 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_ 174 200 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 201 LOGICAL , OPTIONAL, INTENT(IN) :: using_server2_ 202 LOGICAL (KIND=C_BOOL) :: using_server2__tmp 175 203 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format_ 176 204 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name_ 205 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer_ 177 206 178 207 IF (PRESENT(append_)) THEN … … 224 253 ENDIF 225 254 255 IF (PRESENT(gatherer_)) THEN 256 CALL cxios_set_file_gatherer & 257 (file_hdl%daddr, gatherer_, len(gatherer_)) 258 ENDIF 259 226 260 IF (PRESENT(min_digits_)) THEN 227 261 CALL cxios_set_file_min_digits & … … 257 291 CALL cxios_set_file_par_access & 258 292 (file_hdl%daddr, par_access_, len(par_access_)) 293 ENDIF 294 295 IF (PRESENT(pool_gatherer_)) THEN 296 CALL cxios_set_file_pool_gatherer & 297 (file_hdl%daddr, pool_gatherer_, len(pool_gatherer_)) 298 ENDIF 299 300 IF (PRESENT(pool_reader_)) THEN 301 CALL cxios_set_file_pool_reader & 302 (file_hdl%daddr, pool_reader_, len(pool_reader_)) 303 ENDIF 304 305 IF (PRESENT(pool_writer_)) THEN 306 CALL cxios_set_file_pool_writer & 307 (file_hdl%daddr, pool_writer_, len(pool_writer_)) 259 308 ENDIF 260 309 … … 265 314 ENDIF 266 315 316 IF (PRESENT(reader_)) THEN 317 CALL cxios_set_file_reader & 318 (file_hdl%daddr, reader_, len(reader_)) 319 ENDIF 320 267 321 IF (PRESENT(record_offset_)) THEN 268 322 CALL cxios_set_file_record_offset & … … 340 394 ENDIF 341 395 396 IF (PRESENT(using_server2_)) THEN 397 using_server2__tmp = using_server2_ 398 CALL cxios_set_file_using_server2 & 399 (file_hdl%daddr, using_server2__tmp) 400 ENDIF 401 342 402 IF (PRESENT(uuid_format_)) THEN 343 403 CALL cxios_set_file_uuid_format & … … 350 410 ENDIF 351 411 412 IF (PRESENT(writer_)) THEN 413 CALL cxios_set_file_writer & 414 (file_hdl%daddr, writer_, len(writer_)) 415 ENDIF 416 352 417 END SUBROUTINE xios(set_file_attr_hdl_) 353 418 354 419 SUBROUTINE xios(get_file_attr) & 355 420 ( file_id, append, comment, compression_level, convention, convention_str, cyclic, description & 356 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 357 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 358 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 359 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 421 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 422 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 423 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 424 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 425 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 360 426 361 427 IMPLICIT NONE … … 374 440 LOGICAL (KIND=C_BOOL) :: enabled_tmp 375 441 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format 442 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer 376 443 INTEGER , OPTIONAL, INTENT(OUT) :: min_digits 377 444 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode … … 381 448 INTEGER , OPTIONAL, INTENT(OUT) :: output_level 382 449 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 450 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer 451 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader 452 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer 383 453 LOGICAL , OPTIONAL, INTENT(OUT) :: read_metadata_par 384 454 LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 455 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader 385 456 INTEGER , OPTIONAL, INTENT(OUT) :: record_offset 386 457 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_end_offset … … 398 469 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix 399 470 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 471 LOGICAL , OPTIONAL, INTENT(OUT) :: using_server2 472 LOGICAL (KIND=C_BOOL) :: using_server2_tmp 400 473 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format 401 474 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name 475 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer 402 476 403 477 CALL xios(get_file_handle) & … … 405 479 CALL xios(get_file_attr_hdl_) & 406 480 ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 407 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 408 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 409 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 410 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 481 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 482 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 483 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 484 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 485 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 411 486 412 487 END SUBROUTINE xios(get_file_attr) … … 414 489 SUBROUTINE xios(get_file_attr_hdl) & 415 490 ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 416 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 417 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 418 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 419 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 491 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 492 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 493 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 494 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 495 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 420 496 421 497 IMPLICIT NONE … … 433 509 LOGICAL (KIND=C_BOOL) :: enabled_tmp 434 510 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format 511 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer 435 512 INTEGER , OPTIONAL, INTENT(OUT) :: min_digits 436 513 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode … … 440 517 INTEGER , OPTIONAL, INTENT(OUT) :: output_level 441 518 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 519 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer 520 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader 521 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer 442 522 LOGICAL , OPTIONAL, INTENT(OUT) :: read_metadata_par 443 523 LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 524 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader 444 525 INTEGER , OPTIONAL, INTENT(OUT) :: record_offset 445 526 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_end_offset … … 457 538 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix 458 539 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 540 LOGICAL , OPTIONAL, INTENT(OUT) :: using_server2 541 LOGICAL (KIND=C_BOOL) :: using_server2_tmp 459 542 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format 460 543 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name 544 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer 461 545 462 546 CALL xios(get_file_attr_hdl_) & 463 547 ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 464 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 465 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 466 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 467 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 548 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 549 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 550 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 551 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 552 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 468 553 469 554 END SUBROUTINE xios(get_file_attr_hdl) … … 471 556 SUBROUTINE xios(get_file_attr_hdl_) & 472 557 ( file_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_, description_ & 473 , enabled_, format_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_ & 474 , read_metadata_par_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_ & 475 , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_ & 476 , time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ ) 558 , enabled_, format_, gatherer_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_ & 559 , par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_, reader_, record_offset_ & 560 , split_end_offset_, split_freq_, split_freq_format_, split_last_date_, split_start_offset_ & 561 , sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_, time_units_ & 562 , timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_ ) 477 563 478 564 IMPLICIT NONE … … 490 576 LOGICAL (KIND=C_BOOL) :: enabled__tmp 491 577 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_ 578 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer_ 492 579 INTEGER , OPTIONAL, INTENT(OUT) :: min_digits_ 493 580 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_ … … 497 584 INTEGER , OPTIONAL, INTENT(OUT) :: output_level_ 498 585 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_ 586 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer_ 587 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader_ 588 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer_ 499 589 LOGICAL , OPTIONAL, INTENT(OUT) :: read_metadata_par_ 500 590 LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp 591 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader_ 501 592 INTEGER , OPTIONAL, INTENT(OUT) :: record_offset_ 502 593 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_end_offset_ … … 514 605 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_ 515 606 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 607 LOGICAL , OPTIONAL, INTENT(OUT) :: using_server2_ 608 LOGICAL (KIND=C_BOOL) :: using_server2__tmp 516 609 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format_ 517 610 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name_ 611 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer_ 518 612 519 613 IF (PRESENT(append_)) THEN … … 565 659 ENDIF 566 660 661 IF (PRESENT(gatherer_)) THEN 662 CALL cxios_get_file_gatherer & 663 (file_hdl%daddr, gatherer_, len(gatherer_)) 664 ENDIF 665 567 666 IF (PRESENT(min_digits_)) THEN 568 667 CALL cxios_get_file_min_digits & … … 598 697 CALL cxios_get_file_par_access & 599 698 (file_hdl%daddr, par_access_, len(par_access_)) 699 ENDIF 700 701 IF (PRESENT(pool_gatherer_)) THEN 702 CALL cxios_get_file_pool_gatherer & 703 (file_hdl%daddr, pool_gatherer_, len(pool_gatherer_)) 704 ENDIF 705 706 IF (PRESENT(pool_reader_)) THEN 707 CALL cxios_get_file_pool_reader & 708 (file_hdl%daddr, pool_reader_, len(pool_reader_)) 709 ENDIF 710 711 IF (PRESENT(pool_writer_)) THEN 712 CALL cxios_get_file_pool_writer & 713 (file_hdl%daddr, pool_writer_, len(pool_writer_)) 600 714 ENDIF 601 715 … … 606 720 ENDIF 607 721 722 IF (PRESENT(reader_)) THEN 723 CALL cxios_get_file_reader & 724 (file_hdl%daddr, reader_, len(reader_)) 725 ENDIF 726 608 727 IF (PRESENT(record_offset_)) THEN 609 728 CALL cxios_get_file_record_offset & … … 681 800 ENDIF 682 801 802 IF (PRESENT(using_server2_)) THEN 803 CALL cxios_get_file_using_server2 & 804 (file_hdl%daddr, using_server2__tmp) 805 using_server2_ = using_server2__tmp 806 ENDIF 807 683 808 IF (PRESENT(uuid_format_)) THEN 684 809 CALL cxios_get_file_uuid_format & … … 691 816 ENDIF 692 817 818 IF (PRESENT(writer_)) THEN 819 CALL cxios_get_file_writer & 820 (file_hdl%daddr, writer_, len(writer_)) 821 ENDIF 822 693 823 END SUBROUTINE xios(get_file_attr_hdl_) 694 824 695 825 SUBROUTINE xios(is_defined_file_attr) & 696 826 ( file_id, append, comment, compression_level, convention, convention_str, cyclic, description & 697 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 698 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 699 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 700 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 827 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 828 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 829 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 830 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 831 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 701 832 702 833 IMPLICIT NONE … … 721 852 LOGICAL, OPTIONAL, INTENT(OUT) :: format 722 853 LOGICAL(KIND=C_BOOL) :: format_tmp 854 LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer 855 LOGICAL(KIND=C_BOOL) :: gatherer_tmp 723 856 LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits 724 857 LOGICAL(KIND=C_BOOL) :: min_digits_tmp … … 735 868 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 736 869 LOGICAL(KIND=C_BOOL) :: par_access_tmp 870 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer 871 LOGICAL(KIND=C_BOOL) :: pool_gatherer_tmp 872 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader 873 LOGICAL(KIND=C_BOOL) :: pool_reader_tmp 874 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer 875 LOGICAL(KIND=C_BOOL) :: pool_writer_tmp 737 876 LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par 738 877 LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp 878 LOGICAL, OPTIONAL, INTENT(OUT) :: reader 879 LOGICAL(KIND=C_BOOL) :: reader_tmp 739 880 LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 740 881 LOGICAL(KIND=C_BOOL) :: record_offset_tmp … … 767 908 LOGICAL, OPTIONAL, INTENT(OUT) :: type 768 909 LOGICAL(KIND=C_BOOL) :: type_tmp 910 LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2 911 LOGICAL(KIND=C_BOOL) :: using_server2_tmp 769 912 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format 770 913 LOGICAL(KIND=C_BOOL) :: uuid_format_tmp 771 914 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name 772 915 LOGICAL(KIND=C_BOOL) :: uuid_name_tmp 916 LOGICAL, OPTIONAL, INTENT(OUT) :: writer 917 LOGICAL(KIND=C_BOOL) :: writer_tmp 773 918 774 919 CALL xios(get_file_handle) & … … 776 921 CALL xios(is_defined_file_attr_hdl_) & 777 922 ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 778 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 779 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 780 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 781 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 923 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 924 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 925 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 926 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 927 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 782 928 783 929 END SUBROUTINE xios(is_defined_file_attr) … … 785 931 SUBROUTINE xios(is_defined_file_attr_hdl) & 786 932 ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 787 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 788 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 789 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 790 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 933 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 934 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 935 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 936 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 937 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 791 938 792 939 IMPLICIT NONE … … 810 957 LOGICAL, OPTIONAL, INTENT(OUT) :: format 811 958 LOGICAL(KIND=C_BOOL) :: format_tmp 959 LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer 960 LOGICAL(KIND=C_BOOL) :: gatherer_tmp 812 961 LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits 813 962 LOGICAL(KIND=C_BOOL) :: min_digits_tmp … … 824 973 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 825 974 LOGICAL(KIND=C_BOOL) :: par_access_tmp 975 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer 976 LOGICAL(KIND=C_BOOL) :: pool_gatherer_tmp 977 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader 978 LOGICAL(KIND=C_BOOL) :: pool_reader_tmp 979 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer 980 LOGICAL(KIND=C_BOOL) :: pool_writer_tmp 826 981 LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par 827 982 LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp 983 LOGICAL, OPTIONAL, INTENT(OUT) :: reader 984 LOGICAL(KIND=C_BOOL) :: reader_tmp 828 985 LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 829 986 LOGICAL(KIND=C_BOOL) :: record_offset_tmp … … 856 1013 LOGICAL, OPTIONAL, INTENT(OUT) :: type 857 1014 LOGICAL(KIND=C_BOOL) :: type_tmp 1015 LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2 1016 LOGICAL(KIND=C_BOOL) :: using_server2_tmp 858 1017 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format 859 1018 LOGICAL(KIND=C_BOOL) :: uuid_format_tmp 860 1019 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name 861 1020 LOGICAL(KIND=C_BOOL) :: uuid_name_tmp 1021 LOGICAL, OPTIONAL, INTENT(OUT) :: writer 1022 LOGICAL(KIND=C_BOOL) :: writer_tmp 862 1023 863 1024 CALL xios(is_defined_file_attr_hdl_) & 864 1025 ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 865 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 866 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 867 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 868 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 1026 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 1027 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 1028 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 1029 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 1030 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 869 1031 870 1032 END SUBROUTINE xios(is_defined_file_attr_hdl) … … 872 1034 SUBROUTINE xios(is_defined_file_attr_hdl_) & 873 1035 ( file_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_, description_ & 874 , enabled_, format_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_ & 875 , read_metadata_par_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_ & 876 , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_ & 877 , time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ ) 1036 , enabled_, format_, gatherer_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_ & 1037 , par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_, reader_, record_offset_ & 1038 , split_end_offset_, split_freq_, split_freq_format_, split_last_date_, split_start_offset_ & 1039 , sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_, time_units_ & 1040 , timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_ ) 878 1041 879 1042 IMPLICIT NONE … … 897 1060 LOGICAL, OPTIONAL, INTENT(OUT) :: format_ 898 1061 LOGICAL(KIND=C_BOOL) :: format__tmp 1062 LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer_ 1063 LOGICAL(KIND=C_BOOL) :: gatherer__tmp 899 1064 LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_ 900 1065 LOGICAL(KIND=C_BOOL) :: min_digits__tmp … … 911 1076 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_ 912 1077 LOGICAL(KIND=C_BOOL) :: par_access__tmp 1078 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer_ 1079 LOGICAL(KIND=C_BOOL) :: pool_gatherer__tmp 1080 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader_ 1081 LOGICAL(KIND=C_BOOL) :: pool_reader__tmp 1082 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer_ 1083 LOGICAL(KIND=C_BOOL) :: pool_writer__tmp 913 1084 LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par_ 914 1085 LOGICAL(KIND=C_BOOL) :: read_metadata_par__tmp 1086 LOGICAL, OPTIONAL, INTENT(OUT) :: reader_ 1087 LOGICAL(KIND=C_BOOL) :: reader__tmp 915 1088 LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_ 916 1089 LOGICAL(KIND=C_BOOL) :: record_offset__tmp … … 943 1116 LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 944 1117 LOGICAL(KIND=C_BOOL) :: type__tmp 1118 LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2_ 1119 LOGICAL(KIND=C_BOOL) :: using_server2__tmp 945 1120 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format_ 946 1121 LOGICAL(KIND=C_BOOL) :: uuid_format__tmp 947 1122 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name_ 948 1123 LOGICAL(KIND=C_BOOL) :: uuid_name__tmp 1124 LOGICAL, OPTIONAL, INTENT(OUT) :: writer_ 1125 LOGICAL(KIND=C_BOOL) :: writer__tmp 949 1126 950 1127 IF (PRESENT(append_)) THEN … … 1002 1179 ENDIF 1003 1180 1181 IF (PRESENT(gatherer_)) THEN 1182 gatherer__tmp = cxios_is_defined_file_gatherer & 1183 (file_hdl%daddr) 1184 gatherer_ = gatherer__tmp 1185 ENDIF 1186 1004 1187 IF (PRESENT(min_digits_)) THEN 1005 1188 min_digits__tmp = cxios_is_defined_file_min_digits & … … 1044 1227 ENDIF 1045 1228 1229 IF (PRESENT(pool_gatherer_)) THEN 1230 pool_gatherer__tmp = cxios_is_defined_file_pool_gatherer & 1231 (file_hdl%daddr) 1232 pool_gatherer_ = pool_gatherer__tmp 1233 ENDIF 1234 1235 IF (PRESENT(pool_reader_)) THEN 1236 pool_reader__tmp = cxios_is_defined_file_pool_reader & 1237 (file_hdl%daddr) 1238 pool_reader_ = pool_reader__tmp 1239 ENDIF 1240 1241 IF (PRESENT(pool_writer_)) THEN 1242 pool_writer__tmp = cxios_is_defined_file_pool_writer & 1243 (file_hdl%daddr) 1244 pool_writer_ = pool_writer__tmp 1245 ENDIF 1246 1046 1247 IF (PRESENT(read_metadata_par_)) THEN 1047 1248 read_metadata_par__tmp = cxios_is_defined_file_read_metadata_par & … … 1050 1251 ENDIF 1051 1252 1253 IF (PRESENT(reader_)) THEN 1254 reader__tmp = cxios_is_defined_file_reader & 1255 (file_hdl%daddr) 1256 reader_ = reader__tmp 1257 ENDIF 1258 1052 1259 IF (PRESENT(record_offset_)) THEN 1053 1260 record_offset__tmp = cxios_is_defined_file_record_offset & … … 1140 1347 ENDIF 1141 1348 1349 IF (PRESENT(using_server2_)) THEN 1350 using_server2__tmp = cxios_is_defined_file_using_server2 & 1351 (file_hdl%daddr) 1352 using_server2_ = using_server2__tmp 1353 ENDIF 1354 1142 1355 IF (PRESENT(uuid_format_)) THEN 1143 1356 uuid_format__tmp = cxios_is_defined_file_uuid_format & … … 1152 1365 ENDIF 1153 1366 1367 IF (PRESENT(writer_)) THEN 1368 writer__tmp = cxios_is_defined_file_writer & 1369 (file_hdl%daddr) 1370 writer_ = writer__tmp 1371 ENDIF 1372 1154 1373 END SUBROUTINE xios(is_defined_file_attr_hdl_) 1155 1374
Note: See TracChangeset
for help on using the changeset viewer.