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

Last change on this file since 581 was 581, checked in by rlacroix, 9 years ago

Fix the Fortran interface generation to avoid generating dead code that caused a timer not to be stopped.
  • 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: 35.0 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_bounds_lat(domaingroup_hdl, bounds_lat, extent1, extent2) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
15      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat
16      INTEGER (kind = C_INT), VALUE  :: extent1
17      INTEGER (kind = C_INT), VALUE  :: extent2
18    END SUBROUTINE cxios_set_domaingroup_bounds_lat
19
20    SUBROUTINE cxios_get_domaingroup_bounds_lat(domaingroup_hdl, bounds_lat, extent1, extent2) BIND(C)
21      USE ISO_C_BINDING
22      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
23      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat
24      INTEGER (kind = C_INT), VALUE  :: extent1
25      INTEGER (kind = C_INT), VALUE  :: extent2
26    END SUBROUTINE cxios_get_domaingroup_bounds_lat
27
28    FUNCTION cxios_is_defined_domaingroup_bounds_lat(domaingroup_hdl) BIND(C)
29      USE ISO_C_BINDING
30      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lat
31      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
32    END FUNCTION cxios_is_defined_domaingroup_bounds_lat
33
34
35    SUBROUTINE cxios_set_domaingroup_bounds_lon(domaingroup_hdl, bounds_lon, 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_lon
39      INTEGER (kind = C_INT), VALUE  :: extent1
40      INTEGER (kind = C_INT), VALUE  :: extent2
41    END SUBROUTINE cxios_set_domaingroup_bounds_lon
42
43    SUBROUTINE cxios_get_domaingroup_bounds_lon(domaingroup_hdl, bounds_lon, 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_lon
47      INTEGER (kind = C_INT), VALUE  :: extent1
48      INTEGER (kind = C_INT), VALUE  :: extent2
49    END SUBROUTINE cxios_get_domaingroup_bounds_lon
50
51    FUNCTION cxios_is_defined_domaingroup_bounds_lon(domaingroup_hdl) BIND(C)
52      USE ISO_C_BINDING
53      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lon
54      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
55    END FUNCTION cxios_is_defined_domaingroup_bounds_lon
56
57
58    SUBROUTINE cxios_set_domaingroup_data_dim(domaingroup_hdl, data_dim) BIND(C)
59      USE ISO_C_BINDING
60      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
61      INTEGER (KIND=C_INT)      , VALUE :: data_dim
62    END SUBROUTINE cxios_set_domaingroup_data_dim
63
64    SUBROUTINE cxios_get_domaingroup_data_dim(domaingroup_hdl, data_dim) BIND(C)
65      USE ISO_C_BINDING
66      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
67      INTEGER (KIND=C_INT)             :: data_dim
68    END SUBROUTINE cxios_get_domaingroup_data_dim
69
70    FUNCTION cxios_is_defined_domaingroup_data_dim(domaingroup_hdl) BIND(C)
71      USE ISO_C_BINDING
72      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_dim
73      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
74    END FUNCTION cxios_is_defined_domaingroup_data_dim
75
76
77    SUBROUTINE cxios_set_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent1) BIND(C)
78      USE ISO_C_BINDING
79      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
80      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
81      INTEGER (kind = C_INT), VALUE  :: extent1
82    END SUBROUTINE cxios_set_domaingroup_data_i_index
83
84    SUBROUTINE cxios_get_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent1) BIND(C)
85      USE ISO_C_BINDING
86      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
87      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
88      INTEGER (kind = C_INT), VALUE  :: extent1
89    END SUBROUTINE cxios_get_domaingroup_data_i_index
90
91    FUNCTION cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl) BIND(C)
92      USE ISO_C_BINDING
93      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_i_index
94      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
95    END FUNCTION cxios_is_defined_domaingroup_data_i_index
96
97
98    SUBROUTINE cxios_set_domaingroup_data_ibegin(domaingroup_hdl, data_ibegin) BIND(C)
99      USE ISO_C_BINDING
100      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
101      INTEGER (KIND=C_INT)      , VALUE :: data_ibegin
102    END SUBROUTINE cxios_set_domaingroup_data_ibegin
103
104    SUBROUTINE cxios_get_domaingroup_data_ibegin(domaingroup_hdl, data_ibegin) BIND(C)
105      USE ISO_C_BINDING
106      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
107      INTEGER (KIND=C_INT)             :: data_ibegin
108    END SUBROUTINE cxios_get_domaingroup_data_ibegin
109
110    FUNCTION cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl) BIND(C)
111      USE ISO_C_BINDING
112      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_ibegin
113      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
114    END FUNCTION cxios_is_defined_domaingroup_data_ibegin
115
116
117    SUBROUTINE cxios_set_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent1) BIND(C)
118      USE ISO_C_BINDING
119      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
120      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
121      INTEGER (kind = C_INT), VALUE  :: extent1
122    END SUBROUTINE cxios_set_domaingroup_data_j_index
123
124    SUBROUTINE cxios_get_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent1) BIND(C)
125      USE ISO_C_BINDING
126      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
127      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
128      INTEGER (kind = C_INT), VALUE  :: extent1
129    END SUBROUTINE cxios_get_domaingroup_data_j_index
130
131    FUNCTION cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl) BIND(C)
132      USE ISO_C_BINDING
133      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_j_index
134      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
135    END FUNCTION cxios_is_defined_domaingroup_data_j_index
136
137
138    SUBROUTINE cxios_set_domaingroup_data_jbegin(domaingroup_hdl, data_jbegin) BIND(C)
139      USE ISO_C_BINDING
140      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
141      INTEGER (KIND=C_INT)      , VALUE :: data_jbegin
142    END SUBROUTINE cxios_set_domaingroup_data_jbegin
143
144    SUBROUTINE cxios_get_domaingroup_data_jbegin(domaingroup_hdl, data_jbegin) BIND(C)
145      USE ISO_C_BINDING
146      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
147      INTEGER (KIND=C_INT)             :: data_jbegin
148    END SUBROUTINE cxios_get_domaingroup_data_jbegin
149
150    FUNCTION cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl) BIND(C)
151      USE ISO_C_BINDING
152      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_jbegin
153      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
154    END FUNCTION cxios_is_defined_domaingroup_data_jbegin
155
156
157    SUBROUTINE cxios_set_domaingroup_data_n_index(domaingroup_hdl, data_n_index) BIND(C)
158      USE ISO_C_BINDING
159      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
160      INTEGER (KIND=C_INT)      , VALUE :: data_n_index
161    END SUBROUTINE cxios_set_domaingroup_data_n_index
162
163    SUBROUTINE cxios_get_domaingroup_data_n_index(domaingroup_hdl, data_n_index) BIND(C)
164      USE ISO_C_BINDING
165      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
166      INTEGER (KIND=C_INT)             :: data_n_index
167    END SUBROUTINE cxios_get_domaingroup_data_n_index
168
169    FUNCTION cxios_is_defined_domaingroup_data_n_index(domaingroup_hdl) BIND(C)
170      USE ISO_C_BINDING
171      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_n_index
172      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
173    END FUNCTION cxios_is_defined_domaingroup_data_n_index
174
175
176    SUBROUTINE cxios_set_domaingroup_data_ni(domaingroup_hdl, data_ni) BIND(C)
177      USE ISO_C_BINDING
178      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
179      INTEGER (KIND=C_INT)      , VALUE :: data_ni
180    END SUBROUTINE cxios_set_domaingroup_data_ni
181
182    SUBROUTINE cxios_get_domaingroup_data_ni(domaingroup_hdl, data_ni) BIND(C)
183      USE ISO_C_BINDING
184      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
185      INTEGER (KIND=C_INT)             :: data_ni
186    END SUBROUTINE cxios_get_domaingroup_data_ni
187
188    FUNCTION cxios_is_defined_domaingroup_data_ni(domaingroup_hdl) BIND(C)
189      USE ISO_C_BINDING
190      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_ni
191      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
192    END FUNCTION cxios_is_defined_domaingroup_data_ni
193
194
195    SUBROUTINE cxios_set_domaingroup_data_nj(domaingroup_hdl, data_nj) BIND(C)
196      USE ISO_C_BINDING
197      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
198      INTEGER (KIND=C_INT)      , VALUE :: data_nj
199    END SUBROUTINE cxios_set_domaingroup_data_nj
200
201    SUBROUTINE cxios_get_domaingroup_data_nj(domaingroup_hdl, data_nj) BIND(C)
202      USE ISO_C_BINDING
203      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
204      INTEGER (KIND=C_INT)             :: data_nj
205    END SUBROUTINE cxios_get_domaingroup_data_nj
206
207    FUNCTION cxios_is_defined_domaingroup_data_nj(domaingroup_hdl) BIND(C)
208      USE ISO_C_BINDING
209      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_nj
210      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
211    END FUNCTION cxios_is_defined_domaingroup_data_nj
212
213
214    SUBROUTINE cxios_set_domaingroup_domain_group_ref(domaingroup_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
215      USE ISO_C_BINDING
216      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
217      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref
218      INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size
219    END SUBROUTINE cxios_set_domaingroup_domain_group_ref
220
221    SUBROUTINE cxios_get_domaingroup_domain_group_ref(domaingroup_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
222      USE ISO_C_BINDING
223      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
224      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref
225      INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size
226    END SUBROUTINE cxios_get_domaingroup_domain_group_ref
227
228    FUNCTION cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl) BIND(C)
229      USE ISO_C_BINDING
230      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_domain_group_ref
231      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
232    END FUNCTION cxios_is_defined_domaingroup_domain_group_ref
233
234
235    SUBROUTINE cxios_set_domaingroup_domain_ref(domaingroup_hdl, domain_ref, domain_ref_size) BIND(C)
236      USE ISO_C_BINDING
237      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
238      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
239      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
240    END SUBROUTINE cxios_set_domaingroup_domain_ref
241
242    SUBROUTINE cxios_get_domaingroup_domain_ref(domaingroup_hdl, domain_ref, domain_ref_size) BIND(C)
243      USE ISO_C_BINDING
244      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
245      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
246      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
247    END SUBROUTINE cxios_get_domaingroup_domain_ref
248
249    FUNCTION cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl) BIND(C)
250      USE ISO_C_BINDING
251      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_domain_ref
252      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
253    END FUNCTION cxios_is_defined_domaingroup_domain_ref
254
255
256    SUBROUTINE cxios_set_domaingroup_group_ref(domaingroup_hdl, group_ref, group_ref_size) BIND(C)
257      USE ISO_C_BINDING
258      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
259      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
260      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
261    END SUBROUTINE cxios_set_domaingroup_group_ref
262
263    SUBROUTINE cxios_get_domaingroup_group_ref(domaingroup_hdl, group_ref, group_ref_size) BIND(C)
264      USE ISO_C_BINDING
265      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
266      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
267      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
268    END SUBROUTINE cxios_get_domaingroup_group_ref
269
270    FUNCTION cxios_is_defined_domaingroup_group_ref(domaingroup_hdl) BIND(C)
271      USE ISO_C_BINDING
272      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_group_ref
273      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
274    END FUNCTION cxios_is_defined_domaingroup_group_ref
275
276
277    SUBROUTINE cxios_set_domaingroup_i_index(domaingroup_hdl, i_index, extent1, extent2) BIND(C)
278      USE ISO_C_BINDING
279      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
280      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index
281      INTEGER (kind = C_INT), VALUE  :: extent1
282      INTEGER (kind = C_INT), VALUE  :: extent2
283    END SUBROUTINE cxios_set_domaingroup_i_index
284
285    SUBROUTINE cxios_get_domaingroup_i_index(domaingroup_hdl, i_index, extent1, extent2) BIND(C)
286      USE ISO_C_BINDING
287      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
288      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index
289      INTEGER (kind = C_INT), VALUE  :: extent1
290      INTEGER (kind = C_INT), VALUE  :: extent2
291    END SUBROUTINE cxios_get_domaingroup_i_index
292
293    FUNCTION cxios_is_defined_domaingroup_i_index(domaingroup_hdl) BIND(C)
294      USE ISO_C_BINDING
295      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_i_index
296      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
297    END FUNCTION cxios_is_defined_domaingroup_i_index
298
299
300    SUBROUTINE cxios_set_domaingroup_ibegin(domaingroup_hdl, ibegin) BIND(C)
301      USE ISO_C_BINDING
302      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
303      INTEGER (KIND=C_INT)      , VALUE :: ibegin
304    END SUBROUTINE cxios_set_domaingroup_ibegin
305
306    SUBROUTINE cxios_get_domaingroup_ibegin(domaingroup_hdl, ibegin) BIND(C)
307      USE ISO_C_BINDING
308      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
309      INTEGER (KIND=C_INT)             :: ibegin
310    END SUBROUTINE cxios_get_domaingroup_ibegin
311
312    FUNCTION cxios_is_defined_domaingroup_ibegin(domaingroup_hdl) BIND(C)
313      USE ISO_C_BINDING
314      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ibegin
315      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
316    END FUNCTION cxios_is_defined_domaingroup_ibegin
317
318
319    SUBROUTINE cxios_set_domaingroup_iend(domaingroup_hdl, iend) BIND(C)
320      USE ISO_C_BINDING
321      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
322      INTEGER (KIND=C_INT)      , VALUE :: iend
323    END SUBROUTINE cxios_set_domaingroup_iend
324
325    SUBROUTINE cxios_get_domaingroup_iend(domaingroup_hdl, iend) BIND(C)
326      USE ISO_C_BINDING
327      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
328      INTEGER (KIND=C_INT)             :: iend
329    END SUBROUTINE cxios_get_domaingroup_iend
330
331    FUNCTION cxios_is_defined_domaingroup_iend(domaingroup_hdl) BIND(C)
332      USE ISO_C_BINDING
333      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_iend
334      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
335    END FUNCTION cxios_is_defined_domaingroup_iend
336
337
338    SUBROUTINE cxios_set_domaingroup_j_index(domaingroup_hdl, j_index, extent1, extent2) BIND(C)
339      USE ISO_C_BINDING
340      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
341      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index
342      INTEGER (kind = C_INT), VALUE  :: extent1
343      INTEGER (kind = C_INT), VALUE  :: extent2
344    END SUBROUTINE cxios_set_domaingroup_j_index
345
346    SUBROUTINE cxios_get_domaingroup_j_index(domaingroup_hdl, j_index, extent1, extent2) BIND(C)
347      USE ISO_C_BINDING
348      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
349      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index
350      INTEGER (kind = C_INT), VALUE  :: extent1
351      INTEGER (kind = C_INT), VALUE  :: extent2
352    END SUBROUTINE cxios_get_domaingroup_j_index
353
354    FUNCTION cxios_is_defined_domaingroup_j_index(domaingroup_hdl) BIND(C)
355      USE ISO_C_BINDING
356      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_j_index
357      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
358    END FUNCTION cxios_is_defined_domaingroup_j_index
359
360
361    SUBROUTINE cxios_set_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C)
362      USE ISO_C_BINDING
363      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
364      INTEGER (KIND=C_INT)      , VALUE :: jbegin
365    END SUBROUTINE cxios_set_domaingroup_jbegin
366
367    SUBROUTINE cxios_get_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C)
368      USE ISO_C_BINDING
369      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
370      INTEGER (KIND=C_INT)             :: jbegin
371    END SUBROUTINE cxios_get_domaingroup_jbegin
372
373    FUNCTION cxios_is_defined_domaingroup_jbegin(domaingroup_hdl) BIND(C)
374      USE ISO_C_BINDING
375      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_jbegin
376      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
377    END FUNCTION cxios_is_defined_domaingroup_jbegin
378
379
380    SUBROUTINE cxios_set_domaingroup_jend(domaingroup_hdl, jend) BIND(C)
381      USE ISO_C_BINDING
382      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
383      INTEGER (KIND=C_INT)      , VALUE :: jend
384    END SUBROUTINE cxios_set_domaingroup_jend
385
386    SUBROUTINE cxios_get_domaingroup_jend(domaingroup_hdl, jend) BIND(C)
387      USE ISO_C_BINDING
388      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
389      INTEGER (KIND=C_INT)             :: jend
390    END SUBROUTINE cxios_get_domaingroup_jend
391
392    FUNCTION cxios_is_defined_domaingroup_jend(domaingroup_hdl) BIND(C)
393      USE ISO_C_BINDING
394      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_jend
395      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
396    END FUNCTION cxios_is_defined_domaingroup_jend
397
398
399    SUBROUTINE cxios_set_domaingroup_latvalue(domaingroup_hdl, latvalue, extent1) BIND(C)
400      USE ISO_C_BINDING
401      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
402      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue
403      INTEGER (kind = C_INT), VALUE  :: extent1
404    END SUBROUTINE cxios_set_domaingroup_latvalue
405
406    SUBROUTINE cxios_get_domaingroup_latvalue(domaingroup_hdl, latvalue, extent1) BIND(C)
407      USE ISO_C_BINDING
408      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
409      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue
410      INTEGER (kind = C_INT), VALUE  :: extent1
411    END SUBROUTINE cxios_get_domaingroup_latvalue
412
413    FUNCTION cxios_is_defined_domaingroup_latvalue(domaingroup_hdl) BIND(C)
414      USE ISO_C_BINDING
415      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_latvalue
416      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
417    END FUNCTION cxios_is_defined_domaingroup_latvalue
418
419
420    SUBROUTINE cxios_set_domaingroup_long_name(domaingroup_hdl, long_name, long_name_size) BIND(C)
421      USE ISO_C_BINDING
422      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
423      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
424      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
425    END SUBROUTINE cxios_set_domaingroup_long_name
426
427    SUBROUTINE cxios_get_domaingroup_long_name(domaingroup_hdl, long_name, long_name_size) BIND(C)
428      USE ISO_C_BINDING
429      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
430      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
431      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
432    END SUBROUTINE cxios_get_domaingroup_long_name
433
434    FUNCTION cxios_is_defined_domaingroup_long_name(domaingroup_hdl) BIND(C)
435      USE ISO_C_BINDING
436      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_long_name
437      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
438    END FUNCTION cxios_is_defined_domaingroup_long_name
439
440
441    SUBROUTINE cxios_set_domaingroup_lonvalue(domaingroup_hdl, lonvalue, extent1) BIND(C)
442      USE ISO_C_BINDING
443      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
444      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue
445      INTEGER (kind = C_INT), VALUE  :: extent1
446    END SUBROUTINE cxios_set_domaingroup_lonvalue
447
448    SUBROUTINE cxios_get_domaingroup_lonvalue(domaingroup_hdl, lonvalue, extent1) BIND(C)
449      USE ISO_C_BINDING
450      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
451      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue
452      INTEGER (kind = C_INT), VALUE  :: extent1
453    END SUBROUTINE cxios_get_domaingroup_lonvalue
454
455    FUNCTION cxios_is_defined_domaingroup_lonvalue(domaingroup_hdl) BIND(C)
456      USE ISO_C_BINDING
457      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_lonvalue
458      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
459    END FUNCTION cxios_is_defined_domaingroup_lonvalue
460
461
462    SUBROUTINE cxios_set_domaingroup_mask(domaingroup_hdl, mask, extent1, extent2) BIND(C)
463      USE ISO_C_BINDING
464      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
465      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
466      INTEGER (kind = C_INT), VALUE  :: extent1
467      INTEGER (kind = C_INT), VALUE  :: extent2
468    END SUBROUTINE cxios_set_domaingroup_mask
469
470    SUBROUTINE cxios_get_domaingroup_mask(domaingroup_hdl, mask, extent1, extent2) BIND(C)
471      USE ISO_C_BINDING
472      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
473      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
474      INTEGER (kind = C_INT), VALUE  :: extent1
475      INTEGER (kind = C_INT), VALUE  :: extent2
476    END SUBROUTINE cxios_get_domaingroup_mask
477
478    FUNCTION cxios_is_defined_domaingroup_mask(domaingroup_hdl) BIND(C)
479      USE ISO_C_BINDING
480      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_mask
481      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
482    END FUNCTION cxios_is_defined_domaingroup_mask
483
484
485    SUBROUTINE cxios_set_domaingroup_name(domaingroup_hdl, name, name_size) BIND(C)
486      USE ISO_C_BINDING
487      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
488      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
489      INTEGER  (kind = C_INT)     , VALUE        :: name_size
490    END SUBROUTINE cxios_set_domaingroup_name
491
492    SUBROUTINE cxios_get_domaingroup_name(domaingroup_hdl, name, name_size) BIND(C)
493      USE ISO_C_BINDING
494      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
495      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
496      INTEGER  (kind = C_INT)     , VALUE        :: name_size
497    END SUBROUTINE cxios_get_domaingroup_name
498
499    FUNCTION cxios_is_defined_domaingroup_name(domaingroup_hdl) BIND(C)
500      USE ISO_C_BINDING
501      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_name
502      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
503    END FUNCTION cxios_is_defined_domaingroup_name
504
505
506    SUBROUTINE cxios_set_domaingroup_ni(domaingroup_hdl, ni) BIND(C)
507      USE ISO_C_BINDING
508      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
509      INTEGER (KIND=C_INT)      , VALUE :: ni
510    END SUBROUTINE cxios_set_domaingroup_ni
511
512    SUBROUTINE cxios_get_domaingroup_ni(domaingroup_hdl, ni) BIND(C)
513      USE ISO_C_BINDING
514      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
515      INTEGER (KIND=C_INT)             :: ni
516    END SUBROUTINE cxios_get_domaingroup_ni
517
518    FUNCTION cxios_is_defined_domaingroup_ni(domaingroup_hdl) BIND(C)
519      USE ISO_C_BINDING
520      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni
521      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
522    END FUNCTION cxios_is_defined_domaingroup_ni
523
524
525    SUBROUTINE cxios_set_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C)
526      USE ISO_C_BINDING
527      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
528      INTEGER (KIND=C_INT)      , VALUE :: ni_glo
529    END SUBROUTINE cxios_set_domaingroup_ni_glo
530
531    SUBROUTINE cxios_get_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C)
532      USE ISO_C_BINDING
533      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
534      INTEGER (KIND=C_INT)             :: ni_glo
535    END SUBROUTINE cxios_get_domaingroup_ni_glo
536
537    FUNCTION cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl) BIND(C)
538      USE ISO_C_BINDING
539      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni_glo
540      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
541    END FUNCTION cxios_is_defined_domaingroup_ni_glo
542
543
544    SUBROUTINE cxios_set_domaingroup_nj(domaingroup_hdl, nj) BIND(C)
545      USE ISO_C_BINDING
546      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
547      INTEGER (KIND=C_INT)      , VALUE :: nj
548    END SUBROUTINE cxios_set_domaingroup_nj
549
550    SUBROUTINE cxios_get_domaingroup_nj(domaingroup_hdl, nj) BIND(C)
551      USE ISO_C_BINDING
552      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
553      INTEGER (KIND=C_INT)             :: nj
554    END SUBROUTINE cxios_get_domaingroup_nj
555
556    FUNCTION cxios_is_defined_domaingroup_nj(domaingroup_hdl) BIND(C)
557      USE ISO_C_BINDING
558      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj
559      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
560    END FUNCTION cxios_is_defined_domaingroup_nj
561
562
563    SUBROUTINE cxios_set_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C)
564      USE ISO_C_BINDING
565      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
566      INTEGER (KIND=C_INT)      , VALUE :: nj_glo
567    END SUBROUTINE cxios_set_domaingroup_nj_glo
568
569    SUBROUTINE cxios_get_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C)
570      USE ISO_C_BINDING
571      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
572      INTEGER (KIND=C_INT)             :: nj_glo
573    END SUBROUTINE cxios_get_domaingroup_nj_glo
574
575    FUNCTION cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl) BIND(C)
576      USE ISO_C_BINDING
577      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj_glo
578      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
579    END FUNCTION cxios_is_defined_domaingroup_nj_glo
580
581
582    SUBROUTINE cxios_set_domaingroup_nvertex(domaingroup_hdl, nvertex) BIND(C)
583      USE ISO_C_BINDING
584      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
585      INTEGER (KIND=C_INT)      , VALUE :: nvertex
586    END SUBROUTINE cxios_set_domaingroup_nvertex
587
588    SUBROUTINE cxios_get_domaingroup_nvertex(domaingroup_hdl, nvertex) BIND(C)
589      USE ISO_C_BINDING
590      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
591      INTEGER (KIND=C_INT)             :: nvertex
592    END SUBROUTINE cxios_get_domaingroup_nvertex
593
594    FUNCTION cxios_is_defined_domaingroup_nvertex(domaingroup_hdl) BIND(C)
595      USE ISO_C_BINDING
596      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nvertex
597      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
598    END FUNCTION cxios_is_defined_domaingroup_nvertex
599
600
601    SUBROUTINE cxios_set_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C)
602      USE ISO_C_BINDING
603      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
604      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
605      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
606    END SUBROUTINE cxios_set_domaingroup_standard_name
607
608    SUBROUTINE cxios_get_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C)
609      USE ISO_C_BINDING
610      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
611      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
612      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
613    END SUBROUTINE cxios_get_domaingroup_standard_name
614
615    FUNCTION cxios_is_defined_domaingroup_standard_name(domaingroup_hdl) BIND(C)
616      USE ISO_C_BINDING
617      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_standard_name
618      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
619    END FUNCTION cxios_is_defined_domaingroup_standard_name
620
621
622    SUBROUTINE cxios_set_domaingroup_type(domaingroup_hdl, type, type_size) BIND(C)
623      USE ISO_C_BINDING
624      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
625      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
626      INTEGER  (kind = C_INT)     , VALUE        :: type_size
627    END SUBROUTINE cxios_set_domaingroup_type
628
629    SUBROUTINE cxios_get_domaingroup_type(domaingroup_hdl, type, type_size) BIND(C)
630      USE ISO_C_BINDING
631      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
632      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
633      INTEGER  (kind = C_INT)     , VALUE        :: type_size
634    END SUBROUTINE cxios_get_domaingroup_type
635
636    FUNCTION cxios_is_defined_domaingroup_type(domaingroup_hdl) BIND(C)
637      USE ISO_C_BINDING
638      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_type
639      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
640    END FUNCTION cxios_is_defined_domaingroup_type
641
642
643    SUBROUTINE cxios_set_domaingroup_zoom_ibegin(domaingroup_hdl, zoom_ibegin) BIND(C)
644      USE ISO_C_BINDING
645      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
646      INTEGER (KIND=C_INT)      , VALUE :: zoom_ibegin
647    END SUBROUTINE cxios_set_domaingroup_zoom_ibegin
648
649    SUBROUTINE cxios_get_domaingroup_zoom_ibegin(domaingroup_hdl, zoom_ibegin) BIND(C)
650      USE ISO_C_BINDING
651      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
652      INTEGER (KIND=C_INT)             :: zoom_ibegin
653    END SUBROUTINE cxios_get_domaingroup_zoom_ibegin
654
655    FUNCTION cxios_is_defined_domaingroup_zoom_ibegin(domaingroup_hdl) BIND(C)
656      USE ISO_C_BINDING
657      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ibegin
658      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
659    END FUNCTION cxios_is_defined_domaingroup_zoom_ibegin
660
661
662    SUBROUTINE cxios_set_domaingroup_zoom_ibegin_loc(domaingroup_hdl, zoom_ibegin_loc) BIND(C)
663      USE ISO_C_BINDING
664      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
665      INTEGER (KIND=C_INT)      , VALUE :: zoom_ibegin_loc
666    END SUBROUTINE cxios_set_domaingroup_zoom_ibegin_loc
667
668    SUBROUTINE cxios_get_domaingroup_zoom_ibegin_loc(domaingroup_hdl, zoom_ibegin_loc) BIND(C)
669      USE ISO_C_BINDING
670      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
671      INTEGER (KIND=C_INT)             :: zoom_ibegin_loc
672    END SUBROUTINE cxios_get_domaingroup_zoom_ibegin_loc
673
674    FUNCTION cxios_is_defined_domaingroup_zoom_ibegin_loc(domaingroup_hdl) BIND(C)
675      USE ISO_C_BINDING
676      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ibegin_loc
677      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
678    END FUNCTION cxios_is_defined_domaingroup_zoom_ibegin_loc
679
680
681    SUBROUTINE cxios_set_domaingroup_zoom_jbegin(domaingroup_hdl, zoom_jbegin) BIND(C)
682      USE ISO_C_BINDING
683      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
684      INTEGER (KIND=C_INT)      , VALUE :: zoom_jbegin
685    END SUBROUTINE cxios_set_domaingroup_zoom_jbegin
686
687    SUBROUTINE cxios_get_domaingroup_zoom_jbegin(domaingroup_hdl, zoom_jbegin) BIND(C)
688      USE ISO_C_BINDING
689      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
690      INTEGER (KIND=C_INT)             :: zoom_jbegin
691    END SUBROUTINE cxios_get_domaingroup_zoom_jbegin
692
693    FUNCTION cxios_is_defined_domaingroup_zoom_jbegin(domaingroup_hdl) BIND(C)
694      USE ISO_C_BINDING
695      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_jbegin
696      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
697    END FUNCTION cxios_is_defined_domaingroup_zoom_jbegin
698
699
700    SUBROUTINE cxios_set_domaingroup_zoom_jbegin_loc(domaingroup_hdl, zoom_jbegin_loc) BIND(C)
701      USE ISO_C_BINDING
702      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
703      INTEGER (KIND=C_INT)      , VALUE :: zoom_jbegin_loc
704    END SUBROUTINE cxios_set_domaingroup_zoom_jbegin_loc
705
706    SUBROUTINE cxios_get_domaingroup_zoom_jbegin_loc(domaingroup_hdl, zoom_jbegin_loc) BIND(C)
707      USE ISO_C_BINDING
708      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
709      INTEGER (KIND=C_INT)             :: zoom_jbegin_loc
710    END SUBROUTINE cxios_get_domaingroup_zoom_jbegin_loc
711
712    FUNCTION cxios_is_defined_domaingroup_zoom_jbegin_loc(domaingroup_hdl) BIND(C)
713      USE ISO_C_BINDING
714      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_jbegin_loc
715      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
716    END FUNCTION cxios_is_defined_domaingroup_zoom_jbegin_loc
717
718
719    SUBROUTINE cxios_set_domaingroup_zoom_ni(domaingroup_hdl, zoom_ni) BIND(C)
720      USE ISO_C_BINDING
721      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
722      INTEGER (KIND=C_INT)      , VALUE :: zoom_ni
723    END SUBROUTINE cxios_set_domaingroup_zoom_ni
724
725    SUBROUTINE cxios_get_domaingroup_zoom_ni(domaingroup_hdl, zoom_ni) BIND(C)
726      USE ISO_C_BINDING
727      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
728      INTEGER (KIND=C_INT)             :: zoom_ni
729    END SUBROUTINE cxios_get_domaingroup_zoom_ni
730
731    FUNCTION cxios_is_defined_domaingroup_zoom_ni(domaingroup_hdl) BIND(C)
732      USE ISO_C_BINDING
733      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ni
734      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
735    END FUNCTION cxios_is_defined_domaingroup_zoom_ni
736
737
738    SUBROUTINE cxios_set_domaingroup_zoom_ni_loc(domaingroup_hdl, zoom_ni_loc) BIND(C)
739      USE ISO_C_BINDING
740      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
741      INTEGER (KIND=C_INT)      , VALUE :: zoom_ni_loc
742    END SUBROUTINE cxios_set_domaingroup_zoom_ni_loc
743
744    SUBROUTINE cxios_get_domaingroup_zoom_ni_loc(domaingroup_hdl, zoom_ni_loc) BIND(C)
745      USE ISO_C_BINDING
746      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
747      INTEGER (KIND=C_INT)             :: zoom_ni_loc
748    END SUBROUTINE cxios_get_domaingroup_zoom_ni_loc
749
750    FUNCTION cxios_is_defined_domaingroup_zoom_ni_loc(domaingroup_hdl) BIND(C)
751      USE ISO_C_BINDING
752      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ni_loc
753      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
754    END FUNCTION cxios_is_defined_domaingroup_zoom_ni_loc
755
756
757    SUBROUTINE cxios_set_domaingroup_zoom_nj(domaingroup_hdl, zoom_nj) BIND(C)
758      USE ISO_C_BINDING
759      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
760      INTEGER (KIND=C_INT)      , VALUE :: zoom_nj
761    END SUBROUTINE cxios_set_domaingroup_zoom_nj
762
763    SUBROUTINE cxios_get_domaingroup_zoom_nj(domaingroup_hdl, zoom_nj) BIND(C)
764      USE ISO_C_BINDING
765      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
766      INTEGER (KIND=C_INT)             :: zoom_nj
767    END SUBROUTINE cxios_get_domaingroup_zoom_nj
768
769    FUNCTION cxios_is_defined_domaingroup_zoom_nj(domaingroup_hdl) BIND(C)
770      USE ISO_C_BINDING
771      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_nj
772      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
773    END FUNCTION cxios_is_defined_domaingroup_zoom_nj
774
775
776    SUBROUTINE cxios_set_domaingroup_zoom_nj_loc(domaingroup_hdl, zoom_nj_loc) BIND(C)
777      USE ISO_C_BINDING
778      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
779      INTEGER (KIND=C_INT)      , VALUE :: zoom_nj_loc
780    END SUBROUTINE cxios_set_domaingroup_zoom_nj_loc
781
782    SUBROUTINE cxios_get_domaingroup_zoom_nj_loc(domaingroup_hdl, zoom_nj_loc) BIND(C)
783      USE ISO_C_BINDING
784      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
785      INTEGER (KIND=C_INT)             :: zoom_nj_loc
786    END SUBROUTINE cxios_get_domaingroup_zoom_nj_loc
787
788    FUNCTION cxios_is_defined_domaingroup_zoom_nj_loc(domaingroup_hdl) BIND(C)
789      USE ISO_C_BINDING
790      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_nj_loc
791      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
792    END FUNCTION cxios_is_defined_domaingroup_zoom_nj_loc
793
794  END INTERFACE
795
796END MODULE domaingroup_interface_attr
Note: See TracBrowser for help on using the repository browser.