source: XIOS/trunk/src/interface/fortran_attr/domaingroup_interface_attr.F90 @ 666

Last change on this file since 666 was 666, checked in by mhnguyen, 6 years ago

Change name of several axis attributes and remove some redundant variable of domain

+) Change name of axis attributes to make them consistent with ones of domain
+) Remove zoom_client_* of domain

Test
+) On Curie
+) All tests pass and are correct

  • Property copyright set to
    Software name : XIOS (Xml I/O Server)
    http://forge.ipsl.jussieu.fr/ioserver
    Creation date : January 2009
    Licence : CeCCIL version2
    see license file in root directory : Licence_CeCILL_V2-en.txt
    or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
    Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
    CNRS/IPSL (Institut Pierre Simon Laplace)
    Project Manager : Yann Meurdesoif
    yann.meurdesoif@cea.fr
File size: 32.4 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "../fortran/xios_fortran_prefix.hpp"
5
6MODULE domaingroup_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_domaingroup_area(domaingroup_hdl, area, extent1, extent2) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
15      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area
16      INTEGER (kind = C_INT), VALUE  :: extent1
17      INTEGER (kind = C_INT), VALUE  :: extent2
18    END SUBROUTINE cxios_set_domaingroup_area
19
20    SUBROUTINE cxios_get_domaingroup_area(domaingroup_hdl, area, extent1, extent2) BIND(C)
21      USE ISO_C_BINDING
22      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
23      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area
24      INTEGER (kind = C_INT), VALUE  :: extent1
25      INTEGER (kind = C_INT), VALUE  :: extent2
26    END SUBROUTINE cxios_get_domaingroup_area
27
28    FUNCTION cxios_is_defined_domaingroup_area(domaingroup_hdl) BIND(C)
29      USE ISO_C_BINDING
30      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_area
31      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
32    END FUNCTION cxios_is_defined_domaingroup_area
33
34
35    SUBROUTINE cxios_set_domaingroup_bounds_lat_1d(domaingroup_hdl, bounds_lat_1d, extent1, extent2) BIND(C)
36      USE ISO_C_BINDING
37      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
38      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_1d
39      INTEGER (kind = C_INT), VALUE  :: extent1
40      INTEGER (kind = C_INT), VALUE  :: extent2
41    END SUBROUTINE cxios_set_domaingroup_bounds_lat_1d
42
43    SUBROUTINE cxios_get_domaingroup_bounds_lat_1d(domaingroup_hdl, bounds_lat_1d, extent1, extent2) BIND(C)
44      USE ISO_C_BINDING
45      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
46      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_1d
47      INTEGER (kind = C_INT), VALUE  :: extent1
48      INTEGER (kind = C_INT), VALUE  :: extent2
49    END SUBROUTINE cxios_get_domaingroup_bounds_lat_1d
50
51    FUNCTION cxios_is_defined_domaingroup_bounds_lat_1d(domaingroup_hdl) BIND(C)
52      USE ISO_C_BINDING
53      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lat_1d
54      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
55    END FUNCTION cxios_is_defined_domaingroup_bounds_lat_1d
56
57
58    SUBROUTINE cxios_set_domaingroup_bounds_lat_2d(domaingroup_hdl, bounds_lat_2d, extent1, extent2, extent3) BIND(C)
59      USE ISO_C_BINDING
60      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
61      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_2d
62      INTEGER (kind = C_INT), VALUE  :: extent1
63      INTEGER (kind = C_INT), VALUE  :: extent2
64      INTEGER (kind = C_INT), VALUE  :: extent3
65    END SUBROUTINE cxios_set_domaingroup_bounds_lat_2d
66
67    SUBROUTINE cxios_get_domaingroup_bounds_lat_2d(domaingroup_hdl, bounds_lat_2d, extent1, extent2, extent3) BIND(C)
68      USE ISO_C_BINDING
69      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
70      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_2d
71      INTEGER (kind = C_INT), VALUE  :: extent1
72      INTEGER (kind = C_INT), VALUE  :: extent2
73      INTEGER (kind = C_INT), VALUE  :: extent3
74    END SUBROUTINE cxios_get_domaingroup_bounds_lat_2d
75
76    FUNCTION cxios_is_defined_domaingroup_bounds_lat_2d(domaingroup_hdl) BIND(C)
77      USE ISO_C_BINDING
78      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lat_2d
79      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
80    END FUNCTION cxios_is_defined_domaingroup_bounds_lat_2d
81
82
83    SUBROUTINE cxios_set_domaingroup_bounds_lon_1d(domaingroup_hdl, bounds_lon_1d, extent1, extent2) BIND(C)
84      USE ISO_C_BINDING
85      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
86      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_1d
87      INTEGER (kind = C_INT), VALUE  :: extent1
88      INTEGER (kind = C_INT), VALUE  :: extent2
89    END SUBROUTINE cxios_set_domaingroup_bounds_lon_1d
90
91    SUBROUTINE cxios_get_domaingroup_bounds_lon_1d(domaingroup_hdl, bounds_lon_1d, extent1, extent2) BIND(C)
92      USE ISO_C_BINDING
93      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
94      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_1d
95      INTEGER (kind = C_INT), VALUE  :: extent1
96      INTEGER (kind = C_INT), VALUE  :: extent2
97    END SUBROUTINE cxios_get_domaingroup_bounds_lon_1d
98
99    FUNCTION cxios_is_defined_domaingroup_bounds_lon_1d(domaingroup_hdl) BIND(C)
100      USE ISO_C_BINDING
101      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lon_1d
102      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
103    END FUNCTION cxios_is_defined_domaingroup_bounds_lon_1d
104
105
106    SUBROUTINE cxios_set_domaingroup_bounds_lon_2d(domaingroup_hdl, bounds_lon_2d, extent1, extent2, extent3) BIND(C)
107      USE ISO_C_BINDING
108      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
109      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_2d
110      INTEGER (kind = C_INT), VALUE  :: extent1
111      INTEGER (kind = C_INT), VALUE  :: extent2
112      INTEGER (kind = C_INT), VALUE  :: extent3
113    END SUBROUTINE cxios_set_domaingroup_bounds_lon_2d
114
115    SUBROUTINE cxios_get_domaingroup_bounds_lon_2d(domaingroup_hdl, bounds_lon_2d, extent1, extent2, extent3) BIND(C)
116      USE ISO_C_BINDING
117      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
118      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_2d
119      INTEGER (kind = C_INT), VALUE  :: extent1
120      INTEGER (kind = C_INT), VALUE  :: extent2
121      INTEGER (kind = C_INT), VALUE  :: extent3
122    END SUBROUTINE cxios_get_domaingroup_bounds_lon_2d
123
124    FUNCTION cxios_is_defined_domaingroup_bounds_lon_2d(domaingroup_hdl) BIND(C)
125      USE ISO_C_BINDING
126      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lon_2d
127      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
128    END FUNCTION cxios_is_defined_domaingroup_bounds_lon_2d
129
130
131    SUBROUTINE cxios_set_domaingroup_data_dim(domaingroup_hdl, data_dim) BIND(C)
132      USE ISO_C_BINDING
133      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
134      INTEGER (KIND=C_INT)      , VALUE :: data_dim
135    END SUBROUTINE cxios_set_domaingroup_data_dim
136
137    SUBROUTINE cxios_get_domaingroup_data_dim(domaingroup_hdl, data_dim) BIND(C)
138      USE ISO_C_BINDING
139      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
140      INTEGER (KIND=C_INT)             :: data_dim
141    END SUBROUTINE cxios_get_domaingroup_data_dim
142
143    FUNCTION cxios_is_defined_domaingroup_data_dim(domaingroup_hdl) BIND(C)
144      USE ISO_C_BINDING
145      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_dim
146      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
147    END FUNCTION cxios_is_defined_domaingroup_data_dim
148
149
150    SUBROUTINE cxios_set_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent1) BIND(C)
151      USE ISO_C_BINDING
152      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
153      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
154      INTEGER (kind = C_INT), VALUE  :: extent1
155    END SUBROUTINE cxios_set_domaingroup_data_i_index
156
157    SUBROUTINE cxios_get_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent1) BIND(C)
158      USE ISO_C_BINDING
159      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
160      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
161      INTEGER (kind = C_INT), VALUE  :: extent1
162    END SUBROUTINE cxios_get_domaingroup_data_i_index
163
164    FUNCTION cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl) BIND(C)
165      USE ISO_C_BINDING
166      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_i_index
167      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
168    END FUNCTION cxios_is_defined_domaingroup_data_i_index
169
170
171    SUBROUTINE cxios_set_domaingroup_data_ibegin(domaingroup_hdl, data_ibegin) BIND(C)
172      USE ISO_C_BINDING
173      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
174      INTEGER (KIND=C_INT)      , VALUE :: data_ibegin
175    END SUBROUTINE cxios_set_domaingroup_data_ibegin
176
177    SUBROUTINE cxios_get_domaingroup_data_ibegin(domaingroup_hdl, data_ibegin) BIND(C)
178      USE ISO_C_BINDING
179      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
180      INTEGER (KIND=C_INT)             :: data_ibegin
181    END SUBROUTINE cxios_get_domaingroup_data_ibegin
182
183    FUNCTION cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl) BIND(C)
184      USE ISO_C_BINDING
185      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_ibegin
186      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
187    END FUNCTION cxios_is_defined_domaingroup_data_ibegin
188
189
190    SUBROUTINE cxios_set_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent1) BIND(C)
191      USE ISO_C_BINDING
192      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
193      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
194      INTEGER (kind = C_INT), VALUE  :: extent1
195    END SUBROUTINE cxios_set_domaingroup_data_j_index
196
197    SUBROUTINE cxios_get_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent1) BIND(C)
198      USE ISO_C_BINDING
199      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
200      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
201      INTEGER (kind = C_INT), VALUE  :: extent1
202    END SUBROUTINE cxios_get_domaingroup_data_j_index
203
204    FUNCTION cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl) BIND(C)
205      USE ISO_C_BINDING
206      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_j_index
207      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
208    END FUNCTION cxios_is_defined_domaingroup_data_j_index
209
210
211    SUBROUTINE cxios_set_domaingroup_data_jbegin(domaingroup_hdl, data_jbegin) BIND(C)
212      USE ISO_C_BINDING
213      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
214      INTEGER (KIND=C_INT)      , VALUE :: data_jbegin
215    END SUBROUTINE cxios_set_domaingroup_data_jbegin
216
217    SUBROUTINE cxios_get_domaingroup_data_jbegin(domaingroup_hdl, data_jbegin) BIND(C)
218      USE ISO_C_BINDING
219      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
220      INTEGER (KIND=C_INT)             :: data_jbegin
221    END SUBROUTINE cxios_get_domaingroup_data_jbegin
222
223    FUNCTION cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl) BIND(C)
224      USE ISO_C_BINDING
225      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_jbegin
226      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
227    END FUNCTION cxios_is_defined_domaingroup_data_jbegin
228
229
230    SUBROUTINE cxios_set_domaingroup_data_ni(domaingroup_hdl, data_ni) BIND(C)
231      USE ISO_C_BINDING
232      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
233      INTEGER (KIND=C_INT)      , VALUE :: data_ni
234    END SUBROUTINE cxios_set_domaingroup_data_ni
235
236    SUBROUTINE cxios_get_domaingroup_data_ni(domaingroup_hdl, data_ni) BIND(C)
237      USE ISO_C_BINDING
238      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
239      INTEGER (KIND=C_INT)             :: data_ni
240    END SUBROUTINE cxios_get_domaingroup_data_ni
241
242    FUNCTION cxios_is_defined_domaingroup_data_ni(domaingroup_hdl) BIND(C)
243      USE ISO_C_BINDING
244      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_ni
245      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
246    END FUNCTION cxios_is_defined_domaingroup_data_ni
247
248
249    SUBROUTINE cxios_set_domaingroup_data_nj(domaingroup_hdl, data_nj) BIND(C)
250      USE ISO_C_BINDING
251      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
252      INTEGER (KIND=C_INT)      , VALUE :: data_nj
253    END SUBROUTINE cxios_set_domaingroup_data_nj
254
255    SUBROUTINE cxios_get_domaingroup_data_nj(domaingroup_hdl, data_nj) BIND(C)
256      USE ISO_C_BINDING
257      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
258      INTEGER (KIND=C_INT)             :: data_nj
259    END SUBROUTINE cxios_get_domaingroup_data_nj
260
261    FUNCTION cxios_is_defined_domaingroup_data_nj(domaingroup_hdl) BIND(C)
262      USE ISO_C_BINDING
263      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_nj
264      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
265    END FUNCTION cxios_is_defined_domaingroup_data_nj
266
267
268    SUBROUTINE cxios_set_domaingroup_domain_group_ref(domaingroup_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
269      USE ISO_C_BINDING
270      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
271      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref
272      INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size
273    END SUBROUTINE cxios_set_domaingroup_domain_group_ref
274
275    SUBROUTINE cxios_get_domaingroup_domain_group_ref(domaingroup_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
276      USE ISO_C_BINDING
277      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
278      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref
279      INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size
280    END SUBROUTINE cxios_get_domaingroup_domain_group_ref
281
282    FUNCTION cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl) BIND(C)
283      USE ISO_C_BINDING
284      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_domain_group_ref
285      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
286    END FUNCTION cxios_is_defined_domaingroup_domain_group_ref
287
288
289    SUBROUTINE cxios_set_domaingroup_domain_ref(domaingroup_hdl, domain_ref, domain_ref_size) BIND(C)
290      USE ISO_C_BINDING
291      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
292      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
293      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
294    END SUBROUTINE cxios_set_domaingroup_domain_ref
295
296    SUBROUTINE cxios_get_domaingroup_domain_ref(domaingroup_hdl, domain_ref, domain_ref_size) BIND(C)
297      USE ISO_C_BINDING
298      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
299      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
300      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
301    END SUBROUTINE cxios_get_domaingroup_domain_ref
302
303    FUNCTION cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl) BIND(C)
304      USE ISO_C_BINDING
305      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_domain_ref
306      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
307    END FUNCTION cxios_is_defined_domaingroup_domain_ref
308
309
310    SUBROUTINE cxios_set_domaingroup_group_ref(domaingroup_hdl, group_ref, group_ref_size) BIND(C)
311      USE ISO_C_BINDING
312      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
313      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
314      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
315    END SUBROUTINE cxios_set_domaingroup_group_ref
316
317    SUBROUTINE cxios_get_domaingroup_group_ref(domaingroup_hdl, group_ref, group_ref_size) BIND(C)
318      USE ISO_C_BINDING
319      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
320      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
321      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
322    END SUBROUTINE cxios_get_domaingroup_group_ref
323
324    FUNCTION cxios_is_defined_domaingroup_group_ref(domaingroup_hdl) BIND(C)
325      USE ISO_C_BINDING
326      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_group_ref
327      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
328    END FUNCTION cxios_is_defined_domaingroup_group_ref
329
330
331    SUBROUTINE cxios_set_domaingroup_i_index(domaingroup_hdl, i_index, extent1) BIND(C)
332      USE ISO_C_BINDING
333      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
334      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index
335      INTEGER (kind = C_INT), VALUE  :: extent1
336    END SUBROUTINE cxios_set_domaingroup_i_index
337
338    SUBROUTINE cxios_get_domaingroup_i_index(domaingroup_hdl, i_index, extent1) BIND(C)
339      USE ISO_C_BINDING
340      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
341      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index
342      INTEGER (kind = C_INT), VALUE  :: extent1
343    END SUBROUTINE cxios_get_domaingroup_i_index
344
345    FUNCTION cxios_is_defined_domaingroup_i_index(domaingroup_hdl) BIND(C)
346      USE ISO_C_BINDING
347      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_i_index
348      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
349    END FUNCTION cxios_is_defined_domaingroup_i_index
350
351
352    SUBROUTINE cxios_set_domaingroup_ibegin(domaingroup_hdl, ibegin) BIND(C)
353      USE ISO_C_BINDING
354      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
355      INTEGER (KIND=C_INT)      , VALUE :: ibegin
356    END SUBROUTINE cxios_set_domaingroup_ibegin
357
358    SUBROUTINE cxios_get_domaingroup_ibegin(domaingroup_hdl, ibegin) BIND(C)
359      USE ISO_C_BINDING
360      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
361      INTEGER (KIND=C_INT)             :: ibegin
362    END SUBROUTINE cxios_get_domaingroup_ibegin
363
364    FUNCTION cxios_is_defined_domaingroup_ibegin(domaingroup_hdl) BIND(C)
365      USE ISO_C_BINDING
366      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ibegin
367      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
368    END FUNCTION cxios_is_defined_domaingroup_ibegin
369
370
371    SUBROUTINE cxios_set_domaingroup_j_index(domaingroup_hdl, j_index, extent1) BIND(C)
372      USE ISO_C_BINDING
373      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
374      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index
375      INTEGER (kind = C_INT), VALUE  :: extent1
376    END SUBROUTINE cxios_set_domaingroup_j_index
377
378    SUBROUTINE cxios_get_domaingroup_j_index(domaingroup_hdl, j_index, extent1) BIND(C)
379      USE ISO_C_BINDING
380      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
381      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index
382      INTEGER (kind = C_INT), VALUE  :: extent1
383    END SUBROUTINE cxios_get_domaingroup_j_index
384
385    FUNCTION cxios_is_defined_domaingroup_j_index(domaingroup_hdl) BIND(C)
386      USE ISO_C_BINDING
387      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_j_index
388      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
389    END FUNCTION cxios_is_defined_domaingroup_j_index
390
391
392    SUBROUTINE cxios_set_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C)
393      USE ISO_C_BINDING
394      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
395      INTEGER (KIND=C_INT)      , VALUE :: jbegin
396    END SUBROUTINE cxios_set_domaingroup_jbegin
397
398    SUBROUTINE cxios_get_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C)
399      USE ISO_C_BINDING
400      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
401      INTEGER (KIND=C_INT)             :: jbegin
402    END SUBROUTINE cxios_get_domaingroup_jbegin
403
404    FUNCTION cxios_is_defined_domaingroup_jbegin(domaingroup_hdl) BIND(C)
405      USE ISO_C_BINDING
406      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_jbegin
407      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
408    END FUNCTION cxios_is_defined_domaingroup_jbegin
409
410
411    SUBROUTINE cxios_set_domaingroup_latvalue_1d(domaingroup_hdl, latvalue_1d, extent1) BIND(C)
412      USE ISO_C_BINDING
413      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
414      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_1d
415      INTEGER (kind = C_INT), VALUE  :: extent1
416    END SUBROUTINE cxios_set_domaingroup_latvalue_1d
417
418    SUBROUTINE cxios_get_domaingroup_latvalue_1d(domaingroup_hdl, latvalue_1d, extent1) BIND(C)
419      USE ISO_C_BINDING
420      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
421      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_1d
422      INTEGER (kind = C_INT), VALUE  :: extent1
423    END SUBROUTINE cxios_get_domaingroup_latvalue_1d
424
425    FUNCTION cxios_is_defined_domaingroup_latvalue_1d(domaingroup_hdl) BIND(C)
426      USE ISO_C_BINDING
427      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_latvalue_1d
428      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
429    END FUNCTION cxios_is_defined_domaingroup_latvalue_1d
430
431
432    SUBROUTINE cxios_set_domaingroup_latvalue_2d(domaingroup_hdl, latvalue_2d, extent1, extent2) BIND(C)
433      USE ISO_C_BINDING
434      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
435      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_2d
436      INTEGER (kind = C_INT), VALUE  :: extent1
437      INTEGER (kind = C_INT), VALUE  :: extent2
438    END SUBROUTINE cxios_set_domaingroup_latvalue_2d
439
440    SUBROUTINE cxios_get_domaingroup_latvalue_2d(domaingroup_hdl, latvalue_2d, extent1, extent2) BIND(C)
441      USE ISO_C_BINDING
442      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
443      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_2d
444      INTEGER (kind = C_INT), VALUE  :: extent1
445      INTEGER (kind = C_INT), VALUE  :: extent2
446    END SUBROUTINE cxios_get_domaingroup_latvalue_2d
447
448    FUNCTION cxios_is_defined_domaingroup_latvalue_2d(domaingroup_hdl) BIND(C)
449      USE ISO_C_BINDING
450      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_latvalue_2d
451      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
452    END FUNCTION cxios_is_defined_domaingroup_latvalue_2d
453
454
455    SUBROUTINE cxios_set_domaingroup_long_name(domaingroup_hdl, long_name, long_name_size) BIND(C)
456      USE ISO_C_BINDING
457      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
458      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
459      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
460    END SUBROUTINE cxios_set_domaingroup_long_name
461
462    SUBROUTINE cxios_get_domaingroup_long_name(domaingroup_hdl, long_name, long_name_size) BIND(C)
463      USE ISO_C_BINDING
464      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
465      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
466      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
467    END SUBROUTINE cxios_get_domaingroup_long_name
468
469    FUNCTION cxios_is_defined_domaingroup_long_name(domaingroup_hdl) BIND(C)
470      USE ISO_C_BINDING
471      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_long_name
472      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
473    END FUNCTION cxios_is_defined_domaingroup_long_name
474
475
476    SUBROUTINE cxios_set_domaingroup_lonvalue_1d(domaingroup_hdl, lonvalue_1d, extent1) BIND(C)
477      USE ISO_C_BINDING
478      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
479      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_1d
480      INTEGER (kind = C_INT), VALUE  :: extent1
481    END SUBROUTINE cxios_set_domaingroup_lonvalue_1d
482
483    SUBROUTINE cxios_get_domaingroup_lonvalue_1d(domaingroup_hdl, lonvalue_1d, extent1) BIND(C)
484      USE ISO_C_BINDING
485      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
486      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_1d
487      INTEGER (kind = C_INT), VALUE  :: extent1
488    END SUBROUTINE cxios_get_domaingroup_lonvalue_1d
489
490    FUNCTION cxios_is_defined_domaingroup_lonvalue_1d(domaingroup_hdl) BIND(C)
491      USE ISO_C_BINDING
492      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_lonvalue_1d
493      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
494    END FUNCTION cxios_is_defined_domaingroup_lonvalue_1d
495
496
497    SUBROUTINE cxios_set_domaingroup_lonvalue_2d(domaingroup_hdl, lonvalue_2d, extent1, extent2) BIND(C)
498      USE ISO_C_BINDING
499      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
500      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_2d
501      INTEGER (kind = C_INT), VALUE  :: extent1
502      INTEGER (kind = C_INT), VALUE  :: extent2
503    END SUBROUTINE cxios_set_domaingroup_lonvalue_2d
504
505    SUBROUTINE cxios_get_domaingroup_lonvalue_2d(domaingroup_hdl, lonvalue_2d, extent1, extent2) BIND(C)
506      USE ISO_C_BINDING
507      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
508      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_2d
509      INTEGER (kind = C_INT), VALUE  :: extent1
510      INTEGER (kind = C_INT), VALUE  :: extent2
511    END SUBROUTINE cxios_get_domaingroup_lonvalue_2d
512
513    FUNCTION cxios_is_defined_domaingroup_lonvalue_2d(domaingroup_hdl) BIND(C)
514      USE ISO_C_BINDING
515      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_lonvalue_2d
516      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
517    END FUNCTION cxios_is_defined_domaingroup_lonvalue_2d
518
519
520    SUBROUTINE cxios_set_domaingroup_mask_1d(domaingroup_hdl, mask_1d, extent1) BIND(C)
521      USE ISO_C_BINDING
522      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
523      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_1d
524      INTEGER (kind = C_INT), VALUE  :: extent1
525    END SUBROUTINE cxios_set_domaingroup_mask_1d
526
527    SUBROUTINE cxios_get_domaingroup_mask_1d(domaingroup_hdl, mask_1d, extent1) BIND(C)
528      USE ISO_C_BINDING
529      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
530      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_1d
531      INTEGER (kind = C_INT), VALUE  :: extent1
532    END SUBROUTINE cxios_get_domaingroup_mask_1d
533
534    FUNCTION cxios_is_defined_domaingroup_mask_1d(domaingroup_hdl) BIND(C)
535      USE ISO_C_BINDING
536      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_mask_1d
537      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
538    END FUNCTION cxios_is_defined_domaingroup_mask_1d
539
540
541    SUBROUTINE cxios_set_domaingroup_mask_2d(domaingroup_hdl, mask_2d, extent1, extent2) BIND(C)
542      USE ISO_C_BINDING
543      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
544      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_2d
545      INTEGER (kind = C_INT), VALUE  :: extent1
546      INTEGER (kind = C_INT), VALUE  :: extent2
547    END SUBROUTINE cxios_set_domaingroup_mask_2d
548
549    SUBROUTINE cxios_get_domaingroup_mask_2d(domaingroup_hdl, mask_2d, extent1, extent2) BIND(C)
550      USE ISO_C_BINDING
551      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
552      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_2d
553      INTEGER (kind = C_INT), VALUE  :: extent1
554      INTEGER (kind = C_INT), VALUE  :: extent2
555    END SUBROUTINE cxios_get_domaingroup_mask_2d
556
557    FUNCTION cxios_is_defined_domaingroup_mask_2d(domaingroup_hdl) BIND(C)
558      USE ISO_C_BINDING
559      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_mask_2d
560      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
561    END FUNCTION cxios_is_defined_domaingroup_mask_2d
562
563
564    SUBROUTINE cxios_set_domaingroup_name(domaingroup_hdl, name, name_size) BIND(C)
565      USE ISO_C_BINDING
566      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
567      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
568      INTEGER  (kind = C_INT)     , VALUE        :: name_size
569    END SUBROUTINE cxios_set_domaingroup_name
570
571    SUBROUTINE cxios_get_domaingroup_name(domaingroup_hdl, name, name_size) BIND(C)
572      USE ISO_C_BINDING
573      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
574      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
575      INTEGER  (kind = C_INT)     , VALUE        :: name_size
576    END SUBROUTINE cxios_get_domaingroup_name
577
578    FUNCTION cxios_is_defined_domaingroup_name(domaingroup_hdl) BIND(C)
579      USE ISO_C_BINDING
580      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_name
581      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
582    END FUNCTION cxios_is_defined_domaingroup_name
583
584
585    SUBROUTINE cxios_set_domaingroup_ni(domaingroup_hdl, ni) BIND(C)
586      USE ISO_C_BINDING
587      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
588      INTEGER (KIND=C_INT)      , VALUE :: ni
589    END SUBROUTINE cxios_set_domaingroup_ni
590
591    SUBROUTINE cxios_get_domaingroup_ni(domaingroup_hdl, ni) BIND(C)
592      USE ISO_C_BINDING
593      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
594      INTEGER (KIND=C_INT)             :: ni
595    END SUBROUTINE cxios_get_domaingroup_ni
596
597    FUNCTION cxios_is_defined_domaingroup_ni(domaingroup_hdl) BIND(C)
598      USE ISO_C_BINDING
599      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni
600      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
601    END FUNCTION cxios_is_defined_domaingroup_ni
602
603
604    SUBROUTINE cxios_set_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C)
605      USE ISO_C_BINDING
606      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
607      INTEGER (KIND=C_INT)      , VALUE :: ni_glo
608    END SUBROUTINE cxios_set_domaingroup_ni_glo
609
610    SUBROUTINE cxios_get_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C)
611      USE ISO_C_BINDING
612      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
613      INTEGER (KIND=C_INT)             :: ni_glo
614    END SUBROUTINE cxios_get_domaingroup_ni_glo
615
616    FUNCTION cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl) BIND(C)
617      USE ISO_C_BINDING
618      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni_glo
619      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
620    END FUNCTION cxios_is_defined_domaingroup_ni_glo
621
622
623    SUBROUTINE cxios_set_domaingroup_nj(domaingroup_hdl, nj) BIND(C)
624      USE ISO_C_BINDING
625      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
626      INTEGER (KIND=C_INT)      , VALUE :: nj
627    END SUBROUTINE cxios_set_domaingroup_nj
628
629    SUBROUTINE cxios_get_domaingroup_nj(domaingroup_hdl, nj) BIND(C)
630      USE ISO_C_BINDING
631      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
632      INTEGER (KIND=C_INT)             :: nj
633    END SUBROUTINE cxios_get_domaingroup_nj
634
635    FUNCTION cxios_is_defined_domaingroup_nj(domaingroup_hdl) BIND(C)
636      USE ISO_C_BINDING
637      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj
638      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
639    END FUNCTION cxios_is_defined_domaingroup_nj
640
641
642    SUBROUTINE cxios_set_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C)
643      USE ISO_C_BINDING
644      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
645      INTEGER (KIND=C_INT)      , VALUE :: nj_glo
646    END SUBROUTINE cxios_set_domaingroup_nj_glo
647
648    SUBROUTINE cxios_get_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C)
649      USE ISO_C_BINDING
650      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
651      INTEGER (KIND=C_INT)             :: nj_glo
652    END SUBROUTINE cxios_get_domaingroup_nj_glo
653
654    FUNCTION cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl) BIND(C)
655      USE ISO_C_BINDING
656      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj_glo
657      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
658    END FUNCTION cxios_is_defined_domaingroup_nj_glo
659
660
661    SUBROUTINE cxios_set_domaingroup_nvertex(domaingroup_hdl, nvertex) BIND(C)
662      USE ISO_C_BINDING
663      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
664      INTEGER (KIND=C_INT)      , VALUE :: nvertex
665    END SUBROUTINE cxios_set_domaingroup_nvertex
666
667    SUBROUTINE cxios_get_domaingroup_nvertex(domaingroup_hdl, nvertex) BIND(C)
668      USE ISO_C_BINDING
669      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
670      INTEGER (KIND=C_INT)             :: nvertex
671    END SUBROUTINE cxios_get_domaingroup_nvertex
672
673    FUNCTION cxios_is_defined_domaingroup_nvertex(domaingroup_hdl) BIND(C)
674      USE ISO_C_BINDING
675      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nvertex
676      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
677    END FUNCTION cxios_is_defined_domaingroup_nvertex
678
679
680    SUBROUTINE cxios_set_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C)
681      USE ISO_C_BINDING
682      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
683      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
684      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
685    END SUBROUTINE cxios_set_domaingroup_standard_name
686
687    SUBROUTINE cxios_get_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C)
688      USE ISO_C_BINDING
689      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
690      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
691      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
692    END SUBROUTINE cxios_get_domaingroup_standard_name
693
694    FUNCTION cxios_is_defined_domaingroup_standard_name(domaingroup_hdl) BIND(C)
695      USE ISO_C_BINDING
696      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_standard_name
697      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
698    END FUNCTION cxios_is_defined_domaingroup_standard_name
699
700
701    SUBROUTINE cxios_set_domaingroup_type(domaingroup_hdl, type, type_size) BIND(C)
702      USE ISO_C_BINDING
703      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
704      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
705      INTEGER  (kind = C_INT)     , VALUE        :: type_size
706    END SUBROUTINE cxios_set_domaingroup_type
707
708    SUBROUTINE cxios_get_domaingroup_type(domaingroup_hdl, type, type_size) BIND(C)
709      USE ISO_C_BINDING
710      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
711      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
712      INTEGER  (kind = C_INT)     , VALUE        :: type_size
713    END SUBROUTINE cxios_get_domaingroup_type
714
715    FUNCTION cxios_is_defined_domaingroup_type(domaingroup_hdl) BIND(C)
716      USE ISO_C_BINDING
717      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_type
718      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
719    END FUNCTION cxios_is_defined_domaingroup_type
720
721  END INTERFACE
722
723END MODULE domaingroup_interface_attr
Note: See TracBrowser for help on using the repository browser.