Ignore:
Timestamp:
04/23/21 15:00:35 (3 years ago)
Author:
oabramkina
Message:

Merging branch dev_oa with tiling into trunk

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/interface/fortran_attr/domaingroup_interface_attr.F90

    r1626 r2131  
    765765 
    766766 
     767    SUBROUTINE cxios_set_domaingroup_ntiles(domaingroup_hdl, ntiles) BIND(C) 
     768      USE ISO_C_BINDING 
     769      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     770      INTEGER (KIND=C_INT)      , VALUE :: ntiles 
     771    END SUBROUTINE cxios_set_domaingroup_ntiles 
     772 
     773    SUBROUTINE cxios_get_domaingroup_ntiles(domaingroup_hdl, ntiles) BIND(C) 
     774      USE ISO_C_BINDING 
     775      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     776      INTEGER (KIND=C_INT)             :: ntiles 
     777    END SUBROUTINE cxios_get_domaingroup_ntiles 
     778 
     779    FUNCTION cxios_is_defined_domaingroup_ntiles(domaingroup_hdl) BIND(C) 
     780      USE ISO_C_BINDING 
     781      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ntiles 
     782      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     783    END FUNCTION cxios_is_defined_domaingroup_ntiles 
     784 
     785 
    767786    SUBROUTINE cxios_set_domaingroup_nvertex(domaingroup_hdl, nvertex) BIND(C) 
    768787      USE ISO_C_BINDING 
    … …  
    843862 
    844863 
     864    SUBROUTINE cxios_set_domaingroup_tile_data_ibegin(domaingroup_hdl, tile_data_ibegin, extent) BIND(C) 
     865      USE ISO_C_BINDING 
     866      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     867      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_ibegin 
     868      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     869    END SUBROUTINE cxios_set_domaingroup_tile_data_ibegin 
     870 
     871    SUBROUTINE cxios_get_domaingroup_tile_data_ibegin(domaingroup_hdl, tile_data_ibegin, extent) BIND(C) 
     872      USE ISO_C_BINDING 
     873      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     874      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_ibegin 
     875      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     876    END SUBROUTINE cxios_get_domaingroup_tile_data_ibegin 
     877 
     878    FUNCTION cxios_is_defined_domaingroup_tile_data_ibegin(domaingroup_hdl) BIND(C) 
     879      USE ISO_C_BINDING 
     880      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_data_ibegin 
     881      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     882    END FUNCTION cxios_is_defined_domaingroup_tile_data_ibegin 
     883 
     884 
     885    SUBROUTINE cxios_set_domaingroup_tile_data_jbegin(domaingroup_hdl, tile_data_jbegin, extent) BIND(C) 
     886      USE ISO_C_BINDING 
     887      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     888      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_jbegin 
     889      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     890    END SUBROUTINE cxios_set_domaingroup_tile_data_jbegin 
     891 
     892    SUBROUTINE cxios_get_domaingroup_tile_data_jbegin(domaingroup_hdl, tile_data_jbegin, extent) BIND(C) 
     893      USE ISO_C_BINDING 
     894      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     895      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_jbegin 
     896      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     897    END SUBROUTINE cxios_get_domaingroup_tile_data_jbegin 
     898 
     899    FUNCTION cxios_is_defined_domaingroup_tile_data_jbegin(domaingroup_hdl) BIND(C) 
     900      USE ISO_C_BINDING 
     901      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_data_jbegin 
     902      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     903    END FUNCTION cxios_is_defined_domaingroup_tile_data_jbegin 
     904 
     905 
     906    SUBROUTINE cxios_set_domaingroup_tile_data_ni(domaingroup_hdl, tile_data_ni, extent) BIND(C) 
     907      USE ISO_C_BINDING 
     908      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     909      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_ni 
     910      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     911    END SUBROUTINE cxios_set_domaingroup_tile_data_ni 
     912 
     913    SUBROUTINE cxios_get_domaingroup_tile_data_ni(domaingroup_hdl, tile_data_ni, extent) BIND(C) 
     914      USE ISO_C_BINDING 
     915      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     916      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_ni 
     917      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     918    END SUBROUTINE cxios_get_domaingroup_tile_data_ni 
     919 
     920    FUNCTION cxios_is_defined_domaingroup_tile_data_ni(domaingroup_hdl) BIND(C) 
     921      USE ISO_C_BINDING 
     922      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_data_ni 
     923      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     924    END FUNCTION cxios_is_defined_domaingroup_tile_data_ni 
     925 
     926 
     927    SUBROUTINE cxios_set_domaingroup_tile_data_nj(domaingroup_hdl, tile_data_nj, extent) BIND(C) 
     928      USE ISO_C_BINDING 
     929      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     930      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_nj 
     931      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     932    END SUBROUTINE cxios_set_domaingroup_tile_data_nj 
     933 
     934    SUBROUTINE cxios_get_domaingroup_tile_data_nj(domaingroup_hdl, tile_data_nj, extent) BIND(C) 
     935      USE ISO_C_BINDING 
     936      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     937      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_nj 
     938      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     939    END SUBROUTINE cxios_get_domaingroup_tile_data_nj 
     940 
     941    FUNCTION cxios_is_defined_domaingroup_tile_data_nj(domaingroup_hdl) BIND(C) 
     942      USE ISO_C_BINDING 
     943      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_data_nj 
     944      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     945    END FUNCTION cxios_is_defined_domaingroup_tile_data_nj 
     946 
     947 
     948    SUBROUTINE cxios_set_domaingroup_tile_ibegin(domaingroup_hdl, tile_ibegin, extent) BIND(C) 
     949      USE ISO_C_BINDING 
     950      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     951      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ibegin 
     952      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     953    END SUBROUTINE cxios_set_domaingroup_tile_ibegin 
     954 
     955    SUBROUTINE cxios_get_domaingroup_tile_ibegin(domaingroup_hdl, tile_ibegin, extent) BIND(C) 
     956      USE ISO_C_BINDING 
     957      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     958      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ibegin 
     959      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     960    END SUBROUTINE cxios_get_domaingroup_tile_ibegin 
     961 
     962    FUNCTION cxios_is_defined_domaingroup_tile_ibegin(domaingroup_hdl) BIND(C) 
     963      USE ISO_C_BINDING 
     964      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_ibegin 
     965      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     966    END FUNCTION cxios_is_defined_domaingroup_tile_ibegin 
     967 
     968 
     969    SUBROUTINE cxios_set_domaingroup_tile_jbegin(domaingroup_hdl, tile_jbegin, extent) BIND(C) 
     970      USE ISO_C_BINDING 
     971      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     972      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_jbegin 
     973      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     974    END SUBROUTINE cxios_set_domaingroup_tile_jbegin 
     975 
     976    SUBROUTINE cxios_get_domaingroup_tile_jbegin(domaingroup_hdl, tile_jbegin, extent) BIND(C) 
     977      USE ISO_C_BINDING 
     978      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     979      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_jbegin 
     980      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     981    END SUBROUTINE cxios_get_domaingroup_tile_jbegin 
     982 
     983    FUNCTION cxios_is_defined_domaingroup_tile_jbegin(domaingroup_hdl) BIND(C) 
     984      USE ISO_C_BINDING 
     985      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_jbegin 
     986      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     987    END FUNCTION cxios_is_defined_domaingroup_tile_jbegin 
     988 
     989 
     990    SUBROUTINE cxios_set_domaingroup_tile_ni(domaingroup_hdl, tile_ni, extent) BIND(C) 
     991      USE ISO_C_BINDING 
     992      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     993      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ni 
     994      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     995    END SUBROUTINE cxios_set_domaingroup_tile_ni 
     996 
     997    SUBROUTINE cxios_get_domaingroup_tile_ni(domaingroup_hdl, tile_ni, extent) BIND(C) 
     998      USE ISO_C_BINDING 
     999      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     1000      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ni 
     1001      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     1002    END SUBROUTINE cxios_get_domaingroup_tile_ni 
     1003 
     1004    FUNCTION cxios_is_defined_domaingroup_tile_ni(domaingroup_hdl) BIND(C) 
     1005      USE ISO_C_BINDING 
     1006      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_ni 
     1007      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     1008    END FUNCTION cxios_is_defined_domaingroup_tile_ni 
     1009 
     1010 
     1011    SUBROUTINE cxios_set_domaingroup_tile_nj(domaingroup_hdl, tile_nj, extent) BIND(C) 
     1012      USE ISO_C_BINDING 
     1013      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     1014      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_nj 
     1015      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     1016    END SUBROUTINE cxios_set_domaingroup_tile_nj 
     1017 
     1018    SUBROUTINE cxios_get_domaingroup_tile_nj(domaingroup_hdl, tile_nj, extent) BIND(C) 
     1019      USE ISO_C_BINDING 
     1020      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     1021      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_nj 
     1022      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     1023    END SUBROUTINE cxios_get_domaingroup_tile_nj 
     1024 
     1025    FUNCTION cxios_is_defined_domaingroup_tile_nj(domaingroup_hdl) BIND(C) 
     1026      USE ISO_C_BINDING 
     1027      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_nj 
     1028      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     1029    END FUNCTION cxios_is_defined_domaingroup_tile_nj 
     1030 
     1031 
    8451032    SUBROUTINE cxios_set_domaingroup_type(domaingroup_hdl, type, type_size) BIND(C) 
    8461033      USE ISO_C_BINDING 
Note: See TracChangeset for help on using the changeset viewer.