source: XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/interpolate_domain_interface_attr.F90 @ 1492

Last change on this file since 1492 was 1492, checked in by oabramkina, 6 years ago

Updating fortran interface for attributes that have been recently introduced and the following filters:

duplicate_scalar_to_axis
reduce_axis_to_axis
reduce_scalar_to_scalar
reorder_domain
temporal_splitting.

File size: 8.5 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "../fortran/xios_fortran_prefix.hpp"
5
6MODULE interpolate_domain_interface_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8
9  INTERFACE
10    ! Do not call directly / interface FORTRAN 2003 <-> C99
11
12    SUBROUTINE cxios_set_interpolate_domain_detect_missing_value(interpolate_domain_hdl, detect_missing_value) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
15      LOGICAL (KIND=C_BOOL)      , VALUE :: detect_missing_value
16    END SUBROUTINE cxios_set_interpolate_domain_detect_missing_value
17
18    SUBROUTINE cxios_get_interpolate_domain_detect_missing_value(interpolate_domain_hdl, detect_missing_value) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
21      LOGICAL (KIND=C_BOOL)             :: detect_missing_value
22    END SUBROUTINE cxios_get_interpolate_domain_detect_missing_value
23
24    FUNCTION cxios_is_defined_interpolate_domain_detect_missing_value(interpolate_domain_hdl) BIND(C)
25      USE ISO_C_BINDING
26      LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_detect_missing_value
27      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
28    END FUNCTION cxios_is_defined_interpolate_domain_detect_missing_value
29
30
31    SUBROUTINE cxios_set_interpolate_domain_mode(interpolate_domain_hdl, mode, mode_size) BIND(C)
32      USE ISO_C_BINDING
33      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
34      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode
35      INTEGER  (kind = C_INT)     , VALUE        :: mode_size
36    END SUBROUTINE cxios_set_interpolate_domain_mode
37
38    SUBROUTINE cxios_get_interpolate_domain_mode(interpolate_domain_hdl, mode, mode_size) BIND(C)
39      USE ISO_C_BINDING
40      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
41      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode
42      INTEGER  (kind = C_INT)     , VALUE        :: mode_size
43    END SUBROUTINE cxios_get_interpolate_domain_mode
44
45    FUNCTION cxios_is_defined_interpolate_domain_mode(interpolate_domain_hdl) BIND(C)
46      USE ISO_C_BINDING
47      LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_mode
48      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
49    END FUNCTION cxios_is_defined_interpolate_domain_mode
50
51
52    SUBROUTINE cxios_set_interpolate_domain_order(interpolate_domain_hdl, order) BIND(C)
53      USE ISO_C_BINDING
54      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
55      INTEGER (KIND=C_INT)      , VALUE :: order
56    END SUBROUTINE cxios_set_interpolate_domain_order
57
58    SUBROUTINE cxios_get_interpolate_domain_order(interpolate_domain_hdl, order) BIND(C)
59      USE ISO_C_BINDING
60      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
61      INTEGER (KIND=C_INT)             :: order
62    END SUBROUTINE cxios_get_interpolate_domain_order
63
64    FUNCTION cxios_is_defined_interpolate_domain_order(interpolate_domain_hdl) BIND(C)
65      USE ISO_C_BINDING
66      LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_order
67      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
68    END FUNCTION cxios_is_defined_interpolate_domain_order
69
70
71    SUBROUTINE cxios_set_interpolate_domain_quantity(interpolate_domain_hdl, quantity) BIND(C)
72      USE ISO_C_BINDING
73      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
74      LOGICAL (KIND=C_BOOL)      , VALUE :: quantity
75    END SUBROUTINE cxios_set_interpolate_domain_quantity
76
77    SUBROUTINE cxios_get_interpolate_domain_quantity(interpolate_domain_hdl, quantity) BIND(C)
78      USE ISO_C_BINDING
79      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
80      LOGICAL (KIND=C_BOOL)             :: quantity
81    END SUBROUTINE cxios_get_interpolate_domain_quantity
82
83    FUNCTION cxios_is_defined_interpolate_domain_quantity(interpolate_domain_hdl) BIND(C)
84      USE ISO_C_BINDING
85      LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_quantity
86      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
87    END FUNCTION cxios_is_defined_interpolate_domain_quantity
88
89
90    SUBROUTINE cxios_set_interpolate_domain_read_write_convention(interpolate_domain_hdl, read_write_convention, read_write_convention_size) BIND(C)
91      USE ISO_C_BINDING
92      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
93      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: read_write_convention
94      INTEGER  (kind = C_INT)     , VALUE        :: read_write_convention_size
95    END SUBROUTINE cxios_set_interpolate_domain_read_write_convention
96
97    SUBROUTINE cxios_get_interpolate_domain_read_write_convention(interpolate_domain_hdl, read_write_convention, read_write_convention_size) BIND(C)
98      USE ISO_C_BINDING
99      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
100      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: read_write_convention
101      INTEGER  (kind = C_INT)     , VALUE        :: read_write_convention_size
102    END SUBROUTINE cxios_get_interpolate_domain_read_write_convention
103
104    FUNCTION cxios_is_defined_interpolate_domain_read_write_convention(interpolate_domain_hdl) BIND(C)
105      USE ISO_C_BINDING
106      LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_read_write_convention
107      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
108    END FUNCTION cxios_is_defined_interpolate_domain_read_write_convention
109
110
111    SUBROUTINE cxios_set_interpolate_domain_renormalize(interpolate_domain_hdl, renormalize) BIND(C)
112      USE ISO_C_BINDING
113      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
114      LOGICAL (KIND=C_BOOL)      , VALUE :: renormalize
115    END SUBROUTINE cxios_set_interpolate_domain_renormalize
116
117    SUBROUTINE cxios_get_interpolate_domain_renormalize(interpolate_domain_hdl, renormalize) BIND(C)
118      USE ISO_C_BINDING
119      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
120      LOGICAL (KIND=C_BOOL)             :: renormalize
121    END SUBROUTINE cxios_get_interpolate_domain_renormalize
122
123    FUNCTION cxios_is_defined_interpolate_domain_renormalize(interpolate_domain_hdl) BIND(C)
124      USE ISO_C_BINDING
125      LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_renormalize
126      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
127    END FUNCTION cxios_is_defined_interpolate_domain_renormalize
128
129
130    SUBROUTINE cxios_set_interpolate_domain_weight_filename(interpolate_domain_hdl, weight_filename, weight_filename_size) BIND(C)
131      USE ISO_C_BINDING
132      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
133      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: weight_filename
134      INTEGER  (kind = C_INT)     , VALUE        :: weight_filename_size
135    END SUBROUTINE cxios_set_interpolate_domain_weight_filename
136
137    SUBROUTINE cxios_get_interpolate_domain_weight_filename(interpolate_domain_hdl, weight_filename, weight_filename_size) BIND(C)
138      USE ISO_C_BINDING
139      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
140      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: weight_filename
141      INTEGER  (kind = C_INT)     , VALUE        :: weight_filename_size
142    END SUBROUTINE cxios_get_interpolate_domain_weight_filename
143
144    FUNCTION cxios_is_defined_interpolate_domain_weight_filename(interpolate_domain_hdl) BIND(C)
145      USE ISO_C_BINDING
146      LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_weight_filename
147      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
148    END FUNCTION cxios_is_defined_interpolate_domain_weight_filename
149
150
151    SUBROUTINE cxios_set_interpolate_domain_write_weight(interpolate_domain_hdl, write_weight) BIND(C)
152      USE ISO_C_BINDING
153      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
154      LOGICAL (KIND=C_BOOL)      , VALUE :: write_weight
155    END SUBROUTINE cxios_set_interpolate_domain_write_weight
156
157    SUBROUTINE cxios_get_interpolate_domain_write_weight(interpolate_domain_hdl, write_weight) BIND(C)
158      USE ISO_C_BINDING
159      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
160      LOGICAL (KIND=C_BOOL)             :: write_weight
161    END SUBROUTINE cxios_get_interpolate_domain_write_weight
162
163    FUNCTION cxios_is_defined_interpolate_domain_write_weight(interpolate_domain_hdl) BIND(C)
164      USE ISO_C_BINDING
165      LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_write_weight
166      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
167    END FUNCTION cxios_is_defined_interpolate_domain_write_weight
168
169  END INTERFACE
170
171END MODULE interpolate_domain_interface_attr
Note: See TracBrowser for help on using the repository browser.