Ignore:
Timestamp:
10/08/20 10:53:18 (4 years ago)
Author:
oabramkina
Message:

Adding tile attributes.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/dev/dev_oa/src/interface/fortran_attr/domaingroup_interface_attr.F90

    r1626 r1952  
    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_ibegin(domaingroup_hdl, tile_ibegin, extent) BIND(C) 
     907      USE ISO_C_BINDING 
     908      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     909      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ibegin 
     910      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     911    END SUBROUTINE cxios_set_domaingroup_tile_ibegin 
     912 
     913    SUBROUTINE cxios_get_domaingroup_tile_ibegin(domaingroup_hdl, tile_ibegin, extent) BIND(C) 
     914      USE ISO_C_BINDING 
     915      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     916      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ibegin 
     917      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     918    END SUBROUTINE cxios_get_domaingroup_tile_ibegin 
     919 
     920    FUNCTION cxios_is_defined_domaingroup_tile_ibegin(domaingroup_hdl) BIND(C) 
     921      USE ISO_C_BINDING 
     922      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_ibegin 
     923      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     924    END FUNCTION cxios_is_defined_domaingroup_tile_ibegin 
     925 
     926 
     927    SUBROUTINE cxios_set_domaingroup_tile_jbegin(domaingroup_hdl, tile_jbegin, extent) BIND(C) 
     928      USE ISO_C_BINDING 
     929      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     930      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_jbegin 
     931      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     932    END SUBROUTINE cxios_set_domaingroup_tile_jbegin 
     933 
     934    SUBROUTINE cxios_get_domaingroup_tile_jbegin(domaingroup_hdl, tile_jbegin, extent) BIND(C) 
     935      USE ISO_C_BINDING 
     936      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     937      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_jbegin 
     938      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     939    END SUBROUTINE cxios_get_domaingroup_tile_jbegin 
     940 
     941    FUNCTION cxios_is_defined_domaingroup_tile_jbegin(domaingroup_hdl) BIND(C) 
     942      USE ISO_C_BINDING 
     943      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_jbegin 
     944      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     945    END FUNCTION cxios_is_defined_domaingroup_tile_jbegin 
     946 
     947 
     948    SUBROUTINE cxios_set_domaingroup_tile_ni(domaingroup_hdl, tile_ni, extent) BIND(C) 
     949      USE ISO_C_BINDING 
     950      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     951      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ni 
     952      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     953    END SUBROUTINE cxios_set_domaingroup_tile_ni 
     954 
     955    SUBROUTINE cxios_get_domaingroup_tile_ni(domaingroup_hdl, tile_ni, extent) BIND(C) 
     956      USE ISO_C_BINDING 
     957      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     958      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ni 
     959      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     960    END SUBROUTINE cxios_get_domaingroup_tile_ni 
     961 
     962    FUNCTION cxios_is_defined_domaingroup_tile_ni(domaingroup_hdl) BIND(C) 
     963      USE ISO_C_BINDING 
     964      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_ni 
     965      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     966    END FUNCTION cxios_is_defined_domaingroup_tile_ni 
     967 
     968 
     969    SUBROUTINE cxios_set_domaingroup_tile_nj(domaingroup_hdl, tile_nj, extent) BIND(C) 
     970      USE ISO_C_BINDING 
     971      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     972      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_nj 
     973      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     974    END SUBROUTINE cxios_set_domaingroup_tile_nj 
     975 
     976    SUBROUTINE cxios_get_domaingroup_tile_nj(domaingroup_hdl, tile_nj, extent) BIND(C) 
     977      USE ISO_C_BINDING 
     978      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     979      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_nj 
     980      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     981    END SUBROUTINE cxios_get_domaingroup_tile_nj 
     982 
     983    FUNCTION cxios_is_defined_domaingroup_tile_nj(domaingroup_hdl) BIND(C) 
     984      USE ISO_C_BINDING 
     985      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_nj 
     986      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     987    END FUNCTION cxios_is_defined_domaingroup_tile_nj 
     988 
     989 
    845990    SUBROUTINE cxios_set_domaingroup_type(domaingroup_hdl, type, type_size) BIND(C) 
    846991      USE ISO_C_BINDING 
Note: See TracChangeset for help on using the changeset viewer.