- Timestamp:
- 12/17/14 15:35:12 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/idomaingroup_attr.F90
r501 r546 13 13 SUBROUTINE xios(set_domaingroup_attr) & 14 14 ( domaingroup_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index & 15 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin&16 , i end, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &17 , n vertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni&18 , zoom_ni _loc, zoom_nj, zoom_nj_loc )15 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index & 16 , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo & 17 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 18 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 19 19 20 20 IMPLICIT NONE … … 32 32 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 33 33 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref 34 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 34 35 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 35 36 INTEGER , OPTIONAL, INTENT(IN) :: i_index(:,:) … … 64 65 CALL xios(set_domaingroup_attr_hdl_) & 65 66 ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index & 66 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin&67 , i end, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &68 , n vertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni&69 , zoom_ni _loc, zoom_nj, zoom_nj_loc )67 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index & 68 , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo & 69 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 70 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 70 71 71 72 END SUBROUTINE xios(set_domaingroup_attr) … … 73 74 SUBROUTINE xios(set_domaingroup_attr_hdl) & 74 75 ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index & 75 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin&76 , i end, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &77 , n vertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni&78 , zoom_ni _loc, zoom_nj, zoom_nj_loc )76 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index & 77 , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo & 78 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 79 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 79 80 80 81 IMPLICIT NONE … … 91 92 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 92 93 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref 94 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 93 95 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 94 96 INTEGER , OPTIONAL, INTENT(IN) :: i_index(:,:) … … 122 124 CALL xios(set_domaingroup_attr_hdl_) & 123 125 ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index & 124 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin&125 , i end, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &126 , n vertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni&127 , zoom_ni _loc, zoom_nj, zoom_nj_loc )126 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index & 127 , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo & 128 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 129 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 128 130 129 131 END SUBROUTINE xios(set_domaingroup_attr_hdl) … … 131 133 SUBROUTINE xios(set_domaingroup_attr_hdl_) & 132 134 ( domaingroup_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ & 133 , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, group_ref_, i_index_, ibegin_ &134 , i end_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_ &135 , n j_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_ &136 , zoom_jbegin_ loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )135 , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, group_ref_ & 136 , i_index_, ibegin_, iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_ & 137 , name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_ & 138 , zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 137 139 138 140 IMPLICIT NONE … … 149 151 INTEGER , OPTIONAL, INTENT(IN) :: data_nj_ 150 152 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_ 153 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_ 151 154 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_ 152 155 INTEGER , OPTIONAL, INTENT(IN) :: i_index_(:,:) … … 222 225 ENDIF 223 226 227 IF (PRESENT(domain_ref_)) THEN 228 CALL cxios_set_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_)) 229 ENDIF 230 224 231 IF (PRESENT(group_ref_)) THEN 225 232 CALL cxios_set_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_)) … … 338 345 SUBROUTINE xios(get_domaingroup_attr) & 339 346 ( domaingroup_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index & 340 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin&341 , i end, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &342 , n vertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni&343 , zoom_ni _loc, zoom_nj, zoom_nj_loc )347 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index & 348 , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo & 349 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 350 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 344 351 345 352 IMPLICIT NONE … … 357 364 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 358 365 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref 366 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 359 367 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 360 368 INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:,:) … … 389 397 CALL xios(get_domaingroup_attr_hdl_) & 390 398 ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index & 391 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin&392 , i end, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &393 , n vertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni&394 , zoom_ni _loc, zoom_nj, zoom_nj_loc )399 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index & 400 , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo & 401 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 402 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 395 403 396 404 END SUBROUTINE xios(get_domaingroup_attr) … … 398 406 SUBROUTINE xios(get_domaingroup_attr_hdl) & 399 407 ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index & 400 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin&401 , i end, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &402 , n vertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni&403 , zoom_ni _loc, zoom_nj, zoom_nj_loc )408 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index & 409 , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo & 410 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 411 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 404 412 405 413 IMPLICIT NONE … … 416 424 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 417 425 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref 426 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 418 427 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 419 428 INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:,:) … … 447 456 CALL xios(get_domaingroup_attr_hdl_) & 448 457 ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index & 449 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin&450 , i end, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &451 , n vertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni&452 , zoom_ni _loc, zoom_nj, zoom_nj_loc )458 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index & 459 , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo & 460 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 461 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 453 462 454 463 END SUBROUTINE xios(get_domaingroup_attr_hdl) … … 456 465 SUBROUTINE xios(get_domaingroup_attr_hdl_) & 457 466 ( domaingroup_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ & 458 , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, group_ref_, i_index_, ibegin_ &459 , i end_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_ &460 , n j_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_ &461 , zoom_jbegin_ loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )467 , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, group_ref_ & 468 , i_index_, ibegin_, iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_ & 469 , name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_ & 470 , zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 462 471 463 472 IMPLICIT NONE … … 474 483 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_ 475 484 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_ 485 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_ 476 486 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_ 477 487 INTEGER , OPTIONAL, INTENT(OUT) :: i_index_(:,:) … … 547 557 ENDIF 548 558 559 IF (PRESENT(domain_ref_)) THEN 560 CALL cxios_get_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_)) 561 ENDIF 562 549 563 IF (PRESENT(group_ref_)) THEN 550 564 CALL cxios_get_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_)) … … 663 677 SUBROUTINE xios(is_defined_domaingroup_attr) & 664 678 ( domaingroup_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index & 665 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin&666 , i end, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &667 , n vertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni&668 , zoom_ni _loc, zoom_nj, zoom_nj_loc )679 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index & 680 , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo & 681 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 682 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 669 683 670 684 IMPLICIT NONE … … 693 707 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 694 708 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 709 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 710 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 695 711 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 696 712 LOGICAL(KIND=C_BOOL) :: group_ref_tmp … … 751 767 CALL xios(is_defined_domaingroup_attr_hdl_) & 752 768 ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index & 753 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin&754 , i end, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &755 , n vertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni&756 , zoom_ni _loc, zoom_nj, zoom_nj_loc )769 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index & 770 , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo & 771 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 772 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 757 773 758 774 END SUBROUTINE xios(is_defined_domaingroup_attr) … … 760 776 SUBROUTINE xios(is_defined_domaingroup_attr_hdl) & 761 777 ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index & 762 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin&763 , i end, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &764 , n vertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni&765 , zoom_ni _loc, zoom_nj, zoom_nj_loc )778 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index & 779 , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo & 780 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 781 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 766 782 767 783 IMPLICIT NONE … … 789 805 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 790 806 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 807 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 808 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 791 809 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 792 810 LOGICAL(KIND=C_BOOL) :: group_ref_tmp … … 846 864 CALL xios(is_defined_domaingroup_attr_hdl_) & 847 865 ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index & 848 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin&849 , i end, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &850 , n vertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni&851 , zoom_ni _loc, zoom_nj, zoom_nj_loc )866 , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index & 867 , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo & 868 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 869 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 852 870 853 871 END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) … … 855 873 SUBROUTINE xios(is_defined_domaingroup_attr_hdl_) & 856 874 ( domaingroup_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ & 857 , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, group_ref_, i_index_, ibegin_ &858 , i end_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_ &859 , n j_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_ &860 , zoom_jbegin_ loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )875 , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, group_ref_ & 876 , i_index_, ibegin_, iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_ & 877 , name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_ & 878 , zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 861 879 862 880 IMPLICIT NONE … … 884 902 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_ 885 903 LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp 904 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 905 LOGICAL(KIND=C_BOOL) :: domain_ref__tmp 886 906 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 887 907 LOGICAL(KIND=C_BOOL) :: group_ref__tmp … … 994 1014 ENDIF 995 1015 1016 IF (PRESENT(domain_ref_)) THEN 1017 domain_ref__tmp=cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl%daddr) 1018 domain_ref_=domain_ref__tmp 1019 ENDIF 1020 996 1021 IF (PRESENT(group_ref_)) THEN 997 1022 group_ref__tmp=cxios_is_defined_domaingroup_group_ref(domaingroup_hdl%daddr)
Note: See TracChangeset
for help on using the changeset viewer.
