- Timestamp:
- 04/23/21 15:00:35 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/domain_interface_attr.F90
r1626 r2131 744 744 745 745 746 SUBROUTINE cxios_set_domain_ntiles(domain_hdl, ntiles) BIND(C) 747 USE ISO_C_BINDING 748 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 749 INTEGER (KIND=C_INT) , VALUE :: ntiles 750 END SUBROUTINE cxios_set_domain_ntiles 751 752 SUBROUTINE cxios_get_domain_ntiles(domain_hdl, ntiles) BIND(C) 753 USE ISO_C_BINDING 754 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 755 INTEGER (KIND=C_INT) :: ntiles 756 END SUBROUTINE cxios_get_domain_ntiles 757 758 FUNCTION cxios_is_defined_domain_ntiles(domain_hdl) BIND(C) 759 USE ISO_C_BINDING 760 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ntiles 761 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 762 END FUNCTION cxios_is_defined_domain_ntiles 763 764 746 765 SUBROUTINE cxios_set_domain_nvertex(domain_hdl, nvertex) BIND(C) 747 766 USE ISO_C_BINDING … … 822 841 823 842 843 SUBROUTINE cxios_set_domain_tile_data_ibegin(domain_hdl, tile_data_ibegin, extent) BIND(C) 844 USE ISO_C_BINDING 845 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 846 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_ibegin 847 INTEGER (kind = C_INT), DIMENSION(*) :: extent 848 END SUBROUTINE cxios_set_domain_tile_data_ibegin 849 850 SUBROUTINE cxios_get_domain_tile_data_ibegin(domain_hdl, tile_data_ibegin, extent) BIND(C) 851 USE ISO_C_BINDING 852 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 853 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_ibegin 854 INTEGER (kind = C_INT), DIMENSION(*) :: extent 855 END SUBROUTINE cxios_get_domain_tile_data_ibegin 856 857 FUNCTION cxios_is_defined_domain_tile_data_ibegin(domain_hdl) BIND(C) 858 USE ISO_C_BINDING 859 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_data_ibegin 860 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 861 END FUNCTION cxios_is_defined_domain_tile_data_ibegin 862 863 864 SUBROUTINE cxios_set_domain_tile_data_jbegin(domain_hdl, tile_data_jbegin, extent) BIND(C) 865 USE ISO_C_BINDING 866 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 867 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_jbegin 868 INTEGER (kind = C_INT), DIMENSION(*) :: extent 869 END SUBROUTINE cxios_set_domain_tile_data_jbegin 870 871 SUBROUTINE cxios_get_domain_tile_data_jbegin(domain_hdl, tile_data_jbegin, extent) BIND(C) 872 USE ISO_C_BINDING 873 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 874 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_jbegin 875 INTEGER (kind = C_INT), DIMENSION(*) :: extent 876 END SUBROUTINE cxios_get_domain_tile_data_jbegin 877 878 FUNCTION cxios_is_defined_domain_tile_data_jbegin(domain_hdl) BIND(C) 879 USE ISO_C_BINDING 880 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_data_jbegin 881 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 882 END FUNCTION cxios_is_defined_domain_tile_data_jbegin 883 884 885 SUBROUTINE cxios_set_domain_tile_data_ni(domain_hdl, tile_data_ni, extent) BIND(C) 886 USE ISO_C_BINDING 887 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 888 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_ni 889 INTEGER (kind = C_INT), DIMENSION(*) :: extent 890 END SUBROUTINE cxios_set_domain_tile_data_ni 891 892 SUBROUTINE cxios_get_domain_tile_data_ni(domain_hdl, tile_data_ni, extent) BIND(C) 893 USE ISO_C_BINDING 894 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 895 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_ni 896 INTEGER (kind = C_INT), DIMENSION(*) :: extent 897 END SUBROUTINE cxios_get_domain_tile_data_ni 898 899 FUNCTION cxios_is_defined_domain_tile_data_ni(domain_hdl) BIND(C) 900 USE ISO_C_BINDING 901 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_data_ni 902 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 903 END FUNCTION cxios_is_defined_domain_tile_data_ni 904 905 906 SUBROUTINE cxios_set_domain_tile_data_nj(domain_hdl, tile_data_nj, extent) BIND(C) 907 USE ISO_C_BINDING 908 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 909 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_nj 910 INTEGER (kind = C_INT), DIMENSION(*) :: extent 911 END SUBROUTINE cxios_set_domain_tile_data_nj 912 913 SUBROUTINE cxios_get_domain_tile_data_nj(domain_hdl, tile_data_nj, extent) BIND(C) 914 USE ISO_C_BINDING 915 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 916 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_nj 917 INTEGER (kind = C_INT), DIMENSION(*) :: extent 918 END SUBROUTINE cxios_get_domain_tile_data_nj 919 920 FUNCTION cxios_is_defined_domain_tile_data_nj(domain_hdl) BIND(C) 921 USE ISO_C_BINDING 922 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_data_nj 923 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 924 END FUNCTION cxios_is_defined_domain_tile_data_nj 925 926 927 SUBROUTINE cxios_set_domain_tile_ibegin(domain_hdl, tile_ibegin, extent) BIND(C) 928 USE ISO_C_BINDING 929 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 930 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_ibegin 931 INTEGER (kind = C_INT), DIMENSION(*) :: extent 932 END SUBROUTINE cxios_set_domain_tile_ibegin 933 934 SUBROUTINE cxios_get_domain_tile_ibegin(domain_hdl, tile_ibegin, extent) BIND(C) 935 USE ISO_C_BINDING 936 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 937 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_ibegin 938 INTEGER (kind = C_INT), DIMENSION(*) :: extent 939 END SUBROUTINE cxios_get_domain_tile_ibegin 940 941 FUNCTION cxios_is_defined_domain_tile_ibegin(domain_hdl) BIND(C) 942 USE ISO_C_BINDING 943 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_ibegin 944 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 945 END FUNCTION cxios_is_defined_domain_tile_ibegin 946 947 948 SUBROUTINE cxios_set_domain_tile_jbegin(domain_hdl, tile_jbegin, extent) BIND(C) 949 USE ISO_C_BINDING 950 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 951 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_jbegin 952 INTEGER (kind = C_INT), DIMENSION(*) :: extent 953 END SUBROUTINE cxios_set_domain_tile_jbegin 954 955 SUBROUTINE cxios_get_domain_tile_jbegin(domain_hdl, tile_jbegin, extent) BIND(C) 956 USE ISO_C_BINDING 957 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 958 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_jbegin 959 INTEGER (kind = C_INT), DIMENSION(*) :: extent 960 END SUBROUTINE cxios_get_domain_tile_jbegin 961 962 FUNCTION cxios_is_defined_domain_tile_jbegin(domain_hdl) BIND(C) 963 USE ISO_C_BINDING 964 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_jbegin 965 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 966 END FUNCTION cxios_is_defined_domain_tile_jbegin 967 968 969 SUBROUTINE cxios_set_domain_tile_ni(domain_hdl, tile_ni, extent) BIND(C) 970 USE ISO_C_BINDING 971 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 972 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_ni 973 INTEGER (kind = C_INT), DIMENSION(*) :: extent 974 END SUBROUTINE cxios_set_domain_tile_ni 975 976 SUBROUTINE cxios_get_domain_tile_ni(domain_hdl, tile_ni, extent) BIND(C) 977 USE ISO_C_BINDING 978 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 979 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_ni 980 INTEGER (kind = C_INT), DIMENSION(*) :: extent 981 END SUBROUTINE cxios_get_domain_tile_ni 982 983 FUNCTION cxios_is_defined_domain_tile_ni(domain_hdl) BIND(C) 984 USE ISO_C_BINDING 985 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_ni 986 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 987 END FUNCTION cxios_is_defined_domain_tile_ni 988 989 990 SUBROUTINE cxios_set_domain_tile_nj(domain_hdl, tile_nj, extent) BIND(C) 991 USE ISO_C_BINDING 992 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 993 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_nj 994 INTEGER (kind = C_INT), DIMENSION(*) :: extent 995 END SUBROUTINE cxios_set_domain_tile_nj 996 997 SUBROUTINE cxios_get_domain_tile_nj(domain_hdl, tile_nj, extent) BIND(C) 998 USE ISO_C_BINDING 999 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 1000 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_nj 1001 INTEGER (kind = C_INT), DIMENSION(*) :: extent 1002 END SUBROUTINE cxios_get_domain_tile_nj 1003 1004 FUNCTION cxios_is_defined_domain_tile_nj(domain_hdl) BIND(C) 1005 USE ISO_C_BINDING 1006 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_nj 1007 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 1008 END FUNCTION cxios_is_defined_domain_tile_nj 1009 1010 824 1011 SUBROUTINE cxios_set_domain_type(domain_hdl, type, type_size) BIND(C) 825 1012 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.