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

Last change on this file since 326 was 326, checked in by ymipsl, 13 years ago

port to gfortran/g++

YM
File size: 19.4 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_data_dim(domaingroup_hdl, data_dim) BIND(C)
12      USE ISO_C_BINDING
13      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
14      INTEGER (KIND=C_INT)      , VALUE :: data_dim
15    END SUBROUTINE cxios_set_domaingroup_data_dim
16   
17    SUBROUTINE cxios_get_domaingroup_data_dim(domaingroup_hdl, data_dim) BIND(C)
18      USE ISO_C_BINDING
19      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
20      INTEGER (KIND=C_INT)             :: data_dim
21    END SUBROUTINE cxios_get_domaingroup_data_dim
22   
23   
24    SUBROUTINE cxios_set_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent1) BIND(C)
25      USE ISO_C_BINDING
26      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
27      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
28      INTEGER (kind = C_INT), VALUE  :: extent1
29    END SUBROUTINE cxios_set_domaingroup_data_i_index
30   
31    SUBROUTINE cxios_get_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent1) BIND(C)
32      USE ISO_C_BINDING
33      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
34      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
35      INTEGER (kind = C_INT), VALUE  :: extent1
36    END SUBROUTINE cxios_get_domaingroup_data_i_index
37   
38   
39    SUBROUTINE cxios_set_domaingroup_data_ibegin(domaingroup_hdl, data_ibegin) BIND(C)
40      USE ISO_C_BINDING
41      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
42      INTEGER (KIND=C_INT)      , VALUE :: data_ibegin
43    END SUBROUTINE cxios_set_domaingroup_data_ibegin
44   
45    SUBROUTINE cxios_get_domaingroup_data_ibegin(domaingroup_hdl, data_ibegin) BIND(C)
46      USE ISO_C_BINDING
47      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
48      INTEGER (KIND=C_INT)             :: data_ibegin
49    END SUBROUTINE cxios_get_domaingroup_data_ibegin
50   
51   
52    SUBROUTINE cxios_set_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent1) BIND(C)
53      USE ISO_C_BINDING
54      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
55      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
56      INTEGER (kind = C_INT), VALUE  :: extent1
57    END SUBROUTINE cxios_set_domaingroup_data_j_index
58   
59    SUBROUTINE cxios_get_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent1) BIND(C)
60      USE ISO_C_BINDING
61      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
62      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
63      INTEGER (kind = C_INT), VALUE  :: extent1
64    END SUBROUTINE cxios_get_domaingroup_data_j_index
65   
66   
67    SUBROUTINE cxios_set_domaingroup_data_jbegin(domaingroup_hdl, data_jbegin) BIND(C)
68      USE ISO_C_BINDING
69      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
70      INTEGER (KIND=C_INT)      , VALUE :: data_jbegin
71    END SUBROUTINE cxios_set_domaingroup_data_jbegin
72   
73    SUBROUTINE cxios_get_domaingroup_data_jbegin(domaingroup_hdl, data_jbegin) BIND(C)
74      USE ISO_C_BINDING
75      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
76      INTEGER (KIND=C_INT)             :: data_jbegin
77    END SUBROUTINE cxios_get_domaingroup_data_jbegin
78   
79   
80    SUBROUTINE cxios_set_domaingroup_data_n_index(domaingroup_hdl, data_n_index) BIND(C)
81      USE ISO_C_BINDING
82      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
83      INTEGER (KIND=C_INT)      , VALUE :: data_n_index
84    END SUBROUTINE cxios_set_domaingroup_data_n_index
85   
86    SUBROUTINE cxios_get_domaingroup_data_n_index(domaingroup_hdl, data_n_index) BIND(C)
87      USE ISO_C_BINDING
88      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
89      INTEGER (KIND=C_INT)             :: data_n_index
90    END SUBROUTINE cxios_get_domaingroup_data_n_index
91   
92   
93    SUBROUTINE cxios_set_domaingroup_data_ni(domaingroup_hdl, data_ni) BIND(C)
94      USE ISO_C_BINDING
95      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
96      INTEGER (KIND=C_INT)      , VALUE :: data_ni
97    END SUBROUTINE cxios_set_domaingroup_data_ni
98   
99    SUBROUTINE cxios_get_domaingroup_data_ni(domaingroup_hdl, data_ni) BIND(C)
100      USE ISO_C_BINDING
101      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
102      INTEGER (KIND=C_INT)             :: data_ni
103    END SUBROUTINE cxios_get_domaingroup_data_ni
104   
105   
106    SUBROUTINE cxios_set_domaingroup_data_nj(domaingroup_hdl, data_nj) BIND(C)
107      USE ISO_C_BINDING
108      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
109      INTEGER (KIND=C_INT)      , VALUE :: data_nj
110    END SUBROUTINE cxios_set_domaingroup_data_nj
111   
112    SUBROUTINE cxios_get_domaingroup_data_nj(domaingroup_hdl, data_nj) BIND(C)
113      USE ISO_C_BINDING
114      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
115      INTEGER (KIND=C_INT)             :: data_nj
116    END SUBROUTINE cxios_get_domaingroup_data_nj
117   
118   
119    SUBROUTINE cxios_set_domaingroup_domain_group_ref(domaingroup_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
120      USE ISO_C_BINDING
121      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
122      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref
123      INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size
124    END SUBROUTINE cxios_set_domaingroup_domain_group_ref
125   
126    SUBROUTINE cxios_get_domaingroup_domain_group_ref(domaingroup_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
127      USE ISO_C_BINDING
128      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
129      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref
130      INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size
131    END SUBROUTINE cxios_get_domaingroup_domain_group_ref
132   
133   
134    SUBROUTINE cxios_set_domaingroup_group_ref(domaingroup_hdl, group_ref, group_ref_size) BIND(C)
135      USE ISO_C_BINDING
136      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
137      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
138      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
139    END SUBROUTINE cxios_set_domaingroup_group_ref
140   
141    SUBROUTINE cxios_get_domaingroup_group_ref(domaingroup_hdl, group_ref, group_ref_size) BIND(C)
142      USE ISO_C_BINDING
143      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
144      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
145      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
146    END SUBROUTINE cxios_get_domaingroup_group_ref
147   
148   
149    SUBROUTINE cxios_set_domaingroup_ibegin(domaingroup_hdl, ibegin) BIND(C)
150      USE ISO_C_BINDING
151      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
152      INTEGER (KIND=C_INT)      , VALUE :: ibegin
153    END SUBROUTINE cxios_set_domaingroup_ibegin
154   
155    SUBROUTINE cxios_get_domaingroup_ibegin(domaingroup_hdl, ibegin) BIND(C)
156      USE ISO_C_BINDING
157      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
158      INTEGER (KIND=C_INT)             :: ibegin
159    END SUBROUTINE cxios_get_domaingroup_ibegin
160   
161   
162    SUBROUTINE cxios_set_domaingroup_iend(domaingroup_hdl, iend) BIND(C)
163      USE ISO_C_BINDING
164      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
165      INTEGER (KIND=C_INT)      , VALUE :: iend
166    END SUBROUTINE cxios_set_domaingroup_iend
167   
168    SUBROUTINE cxios_get_domaingroup_iend(domaingroup_hdl, iend) BIND(C)
169      USE ISO_C_BINDING
170      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
171      INTEGER (KIND=C_INT)             :: iend
172    END SUBROUTINE cxios_get_domaingroup_iend
173   
174   
175    SUBROUTINE cxios_set_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C)
176      USE ISO_C_BINDING
177      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
178      INTEGER (KIND=C_INT)      , VALUE :: jbegin
179    END SUBROUTINE cxios_set_domaingroup_jbegin
180   
181    SUBROUTINE cxios_get_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C)
182      USE ISO_C_BINDING
183      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
184      INTEGER (KIND=C_INT)             :: jbegin
185    END SUBROUTINE cxios_get_domaingroup_jbegin
186   
187   
188    SUBROUTINE cxios_set_domaingroup_jend(domaingroup_hdl, jend) BIND(C)
189      USE ISO_C_BINDING
190      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
191      INTEGER (KIND=C_INT)      , VALUE :: jend
192    END SUBROUTINE cxios_set_domaingroup_jend
193   
194    SUBROUTINE cxios_get_domaingroup_jend(domaingroup_hdl, jend) BIND(C)
195      USE ISO_C_BINDING
196      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
197      INTEGER (KIND=C_INT)             :: jend
198    END SUBROUTINE cxios_get_domaingroup_jend
199   
200   
201    SUBROUTINE cxios_set_domaingroup_latvalue(domaingroup_hdl, latvalue, extent1) BIND(C)
202      USE ISO_C_BINDING
203      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
204      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue
205      INTEGER (kind = C_INT), VALUE  :: extent1
206    END SUBROUTINE cxios_set_domaingroup_latvalue
207   
208    SUBROUTINE cxios_get_domaingroup_latvalue(domaingroup_hdl, latvalue, extent1) BIND(C)
209      USE ISO_C_BINDING
210      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
211      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue
212      INTEGER (kind = C_INT), VALUE  :: extent1
213    END SUBROUTINE cxios_get_domaingroup_latvalue
214   
215   
216    SUBROUTINE cxios_set_domaingroup_long_name(domaingroup_hdl, long_name, long_name_size) BIND(C)
217      USE ISO_C_BINDING
218      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
219      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
220      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
221    END SUBROUTINE cxios_set_domaingroup_long_name
222   
223    SUBROUTINE cxios_get_domaingroup_long_name(domaingroup_hdl, long_name, long_name_size) BIND(C)
224      USE ISO_C_BINDING
225      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
226      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
227      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
228    END SUBROUTINE cxios_get_domaingroup_long_name
229   
230   
231    SUBROUTINE cxios_set_domaingroup_lonvalue(domaingroup_hdl, lonvalue, extent1) BIND(C)
232      USE ISO_C_BINDING
233      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
234      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue
235      INTEGER (kind = C_INT), VALUE  :: extent1
236    END SUBROUTINE cxios_set_domaingroup_lonvalue
237   
238    SUBROUTINE cxios_get_domaingroup_lonvalue(domaingroup_hdl, lonvalue, extent1) BIND(C)
239      USE ISO_C_BINDING
240      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
241      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue
242      INTEGER (kind = C_INT), VALUE  :: extent1
243    END SUBROUTINE cxios_get_domaingroup_lonvalue
244   
245   
246    SUBROUTINE cxios_set_domaingroup_mask(domaingroup_hdl, mask, extent1, extent2) BIND(C)
247      USE ISO_C_BINDING
248      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
249      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
250      INTEGER (kind = C_INT), VALUE  :: extent1
251      INTEGER (kind = C_INT), VALUE  :: extent2
252    END SUBROUTINE cxios_set_domaingroup_mask
253   
254    SUBROUTINE cxios_get_domaingroup_mask(domaingroup_hdl, mask, extent1, extent2) BIND(C)
255      USE ISO_C_BINDING
256      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
257      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
258      INTEGER (kind = C_INT), VALUE  :: extent1
259      INTEGER (kind = C_INT), VALUE  :: extent2
260    END SUBROUTINE cxios_get_domaingroup_mask
261   
262   
263    SUBROUTINE cxios_set_domaingroup_name(domaingroup_hdl, name, name_size) BIND(C)
264      USE ISO_C_BINDING
265      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
266      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
267      INTEGER  (kind = C_INT)     , VALUE        :: name_size
268    END SUBROUTINE cxios_set_domaingroup_name
269   
270    SUBROUTINE cxios_get_domaingroup_name(domaingroup_hdl, name, name_size) BIND(C)
271      USE ISO_C_BINDING
272      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
273      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
274      INTEGER  (kind = C_INT)     , VALUE        :: name_size
275    END SUBROUTINE cxios_get_domaingroup_name
276   
277   
278    SUBROUTINE cxios_set_domaingroup_ni(domaingroup_hdl, ni) BIND(C)
279      USE ISO_C_BINDING
280      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
281      INTEGER (KIND=C_INT)      , VALUE :: ni
282    END SUBROUTINE cxios_set_domaingroup_ni
283   
284    SUBROUTINE cxios_get_domaingroup_ni(domaingroup_hdl, ni) BIND(C)
285      USE ISO_C_BINDING
286      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
287      INTEGER (KIND=C_INT)             :: ni
288    END SUBROUTINE cxios_get_domaingroup_ni
289   
290   
291    SUBROUTINE cxios_set_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C)
292      USE ISO_C_BINDING
293      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
294      INTEGER (KIND=C_INT)      , VALUE :: ni_glo
295    END SUBROUTINE cxios_set_domaingroup_ni_glo
296   
297    SUBROUTINE cxios_get_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C)
298      USE ISO_C_BINDING
299      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
300      INTEGER (KIND=C_INT)             :: ni_glo
301    END SUBROUTINE cxios_get_domaingroup_ni_glo
302   
303   
304    SUBROUTINE cxios_set_domaingroup_nj(domaingroup_hdl, nj) BIND(C)
305      USE ISO_C_BINDING
306      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
307      INTEGER (KIND=C_INT)      , VALUE :: nj
308    END SUBROUTINE cxios_set_domaingroup_nj
309   
310    SUBROUTINE cxios_get_domaingroup_nj(domaingroup_hdl, nj) BIND(C)
311      USE ISO_C_BINDING
312      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
313      INTEGER (KIND=C_INT)             :: nj
314    END SUBROUTINE cxios_get_domaingroup_nj
315   
316   
317    SUBROUTINE cxios_set_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C)
318      USE ISO_C_BINDING
319      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
320      INTEGER (KIND=C_INT)      , VALUE :: nj_glo
321    END SUBROUTINE cxios_set_domaingroup_nj_glo
322   
323    SUBROUTINE cxios_get_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C)
324      USE ISO_C_BINDING
325      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
326      INTEGER (KIND=C_INT)             :: nj_glo
327    END SUBROUTINE cxios_get_domaingroup_nj_glo
328   
329   
330    SUBROUTINE cxios_set_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C)
331      USE ISO_C_BINDING
332      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
333      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
334      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
335    END SUBROUTINE cxios_set_domaingroup_standard_name
336   
337    SUBROUTINE cxios_get_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C)
338      USE ISO_C_BINDING
339      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
340      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
341      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
342    END SUBROUTINE cxios_get_domaingroup_standard_name
343   
344   
345    SUBROUTINE cxios_set_domaingroup_zoom_ibegin(domaingroup_hdl, zoom_ibegin) BIND(C)
346      USE ISO_C_BINDING
347      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
348      INTEGER (KIND=C_INT)      , VALUE :: zoom_ibegin
349    END SUBROUTINE cxios_set_domaingroup_zoom_ibegin
350   
351    SUBROUTINE cxios_get_domaingroup_zoom_ibegin(domaingroup_hdl, zoom_ibegin) BIND(C)
352      USE ISO_C_BINDING
353      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
354      INTEGER (KIND=C_INT)             :: zoom_ibegin
355    END SUBROUTINE cxios_get_domaingroup_zoom_ibegin
356   
357   
358    SUBROUTINE cxios_set_domaingroup_zoom_ibegin_loc(domaingroup_hdl, zoom_ibegin_loc) BIND(C)
359      USE ISO_C_BINDING
360      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
361      INTEGER (KIND=C_INT)      , VALUE :: zoom_ibegin_loc
362    END SUBROUTINE cxios_set_domaingroup_zoom_ibegin_loc
363   
364    SUBROUTINE cxios_get_domaingroup_zoom_ibegin_loc(domaingroup_hdl, zoom_ibegin_loc) BIND(C)
365      USE ISO_C_BINDING
366      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
367      INTEGER (KIND=C_INT)             :: zoom_ibegin_loc
368    END SUBROUTINE cxios_get_domaingroup_zoom_ibegin_loc
369   
370   
371    SUBROUTINE cxios_set_domaingroup_zoom_jbegin(domaingroup_hdl, zoom_jbegin) BIND(C)
372      USE ISO_C_BINDING
373      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
374      INTEGER (KIND=C_INT)      , VALUE :: zoom_jbegin
375    END SUBROUTINE cxios_set_domaingroup_zoom_jbegin
376   
377    SUBROUTINE cxios_get_domaingroup_zoom_jbegin(domaingroup_hdl, zoom_jbegin) BIND(C)
378      USE ISO_C_BINDING
379      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
380      INTEGER (KIND=C_INT)             :: zoom_jbegin
381    END SUBROUTINE cxios_get_domaingroup_zoom_jbegin
382   
383   
384    SUBROUTINE cxios_set_domaingroup_zoom_jbegin_loc(domaingroup_hdl, zoom_jbegin_loc) BIND(C)
385      USE ISO_C_BINDING
386      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
387      INTEGER (KIND=C_INT)      , VALUE :: zoom_jbegin_loc
388    END SUBROUTINE cxios_set_domaingroup_zoom_jbegin_loc
389   
390    SUBROUTINE cxios_get_domaingroup_zoom_jbegin_loc(domaingroup_hdl, zoom_jbegin_loc) BIND(C)
391      USE ISO_C_BINDING
392      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
393      INTEGER (KIND=C_INT)             :: zoom_jbegin_loc
394    END SUBROUTINE cxios_get_domaingroup_zoom_jbegin_loc
395   
396   
397    SUBROUTINE cxios_set_domaingroup_zoom_ni(domaingroup_hdl, zoom_ni) BIND(C)
398      USE ISO_C_BINDING
399      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
400      INTEGER (KIND=C_INT)      , VALUE :: zoom_ni
401    END SUBROUTINE cxios_set_domaingroup_zoom_ni
402   
403    SUBROUTINE cxios_get_domaingroup_zoom_ni(domaingroup_hdl, zoom_ni) BIND(C)
404      USE ISO_C_BINDING
405      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
406      INTEGER (KIND=C_INT)             :: zoom_ni
407    END SUBROUTINE cxios_get_domaingroup_zoom_ni
408   
409   
410    SUBROUTINE cxios_set_domaingroup_zoom_ni_loc(domaingroup_hdl, zoom_ni_loc) BIND(C)
411      USE ISO_C_BINDING
412      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
413      INTEGER (KIND=C_INT)      , VALUE :: zoom_ni_loc
414    END SUBROUTINE cxios_set_domaingroup_zoom_ni_loc
415   
416    SUBROUTINE cxios_get_domaingroup_zoom_ni_loc(domaingroup_hdl, zoom_ni_loc) BIND(C)
417      USE ISO_C_BINDING
418      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
419      INTEGER (KIND=C_INT)             :: zoom_ni_loc
420    END SUBROUTINE cxios_get_domaingroup_zoom_ni_loc
421   
422   
423    SUBROUTINE cxios_set_domaingroup_zoom_nj(domaingroup_hdl, zoom_nj) BIND(C)
424      USE ISO_C_BINDING
425      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
426      INTEGER (KIND=C_INT)      , VALUE :: zoom_nj
427    END SUBROUTINE cxios_set_domaingroup_zoom_nj
428   
429    SUBROUTINE cxios_get_domaingroup_zoom_nj(domaingroup_hdl, zoom_nj) BIND(C)
430      USE ISO_C_BINDING
431      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
432      INTEGER (KIND=C_INT)             :: zoom_nj
433    END SUBROUTINE cxios_get_domaingroup_zoom_nj
434   
435   
436    SUBROUTINE cxios_set_domaingroup_zoom_nj_loc(domaingroup_hdl, zoom_nj_loc) BIND(C)
437      USE ISO_C_BINDING
438      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
439      INTEGER (KIND=C_INT)      , VALUE :: zoom_nj_loc
440    END SUBROUTINE cxios_set_domaingroup_zoom_nj_loc
441   
442    SUBROUTINE cxios_get_domaingroup_zoom_nj_loc(domaingroup_hdl, zoom_nj_loc) BIND(C)
443      USE ISO_C_BINDING
444      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
445      INTEGER (KIND=C_INT)             :: zoom_nj_loc
446    END SUBROUTINE cxios_get_domaingroup_zoom_nj_loc
447   
448   
449    END INTERFACE
450 
451END MODULE domaingroup_interface_attr
Note: See TracBrowser for help on using the repository browser.