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