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

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

Improve CF compliance: Add a new domain attribute "area".

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