source: XIOS/trunk/src/interface/fortran_attr/domaingroup_interface_attr.f90 @ 527

Last change on this file since 527 was 501, checked in by ymipsl, 10 years ago

Add licence copyright to all file ond directory src using the command :
svn propset -R copyright -F header_licence src

XIOS is now officialy under CeCILL licence

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