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

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

port to gfortran/g++

YM

File size: 17.5 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4
5MODULE domain_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_domain_data_dim(domain_hdl, data_dim) BIND(C)
12      USE ISO_C_BINDING
13      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
14      INTEGER (KIND=C_INT)      , VALUE :: data_dim
15    END SUBROUTINE cxios_set_domain_data_dim
16   
17    SUBROUTINE cxios_get_domain_data_dim(domain_hdl, data_dim) BIND(C)
18      USE ISO_C_BINDING
19      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
20      INTEGER (KIND=C_INT)             :: data_dim
21    END SUBROUTINE cxios_get_domain_data_dim
22   
23   
24    SUBROUTINE cxios_set_domain_data_i_index(domain_hdl, data_i_index, extent1) BIND(C)
25      USE ISO_C_BINDING
26      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
27      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
28      INTEGER (kind = C_INT), VALUE  :: extent1
29    END SUBROUTINE cxios_set_domain_data_i_index
30   
31    SUBROUTINE cxios_get_domain_data_i_index(domain_hdl, data_i_index, extent1) BIND(C)
32      USE ISO_C_BINDING
33      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
34      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
35      INTEGER (kind = C_INT), VALUE  :: extent1
36    END SUBROUTINE cxios_get_domain_data_i_index
37   
38   
39    SUBROUTINE cxios_set_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C)
40      USE ISO_C_BINDING
41      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
42      INTEGER (KIND=C_INT)      , VALUE :: data_ibegin
43    END SUBROUTINE cxios_set_domain_data_ibegin
44   
45    SUBROUTINE cxios_get_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C)
46      USE ISO_C_BINDING
47      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
48      INTEGER (KIND=C_INT)             :: data_ibegin
49    END SUBROUTINE cxios_get_domain_data_ibegin
50   
51   
52    SUBROUTINE cxios_set_domain_data_j_index(domain_hdl, data_j_index, extent1) BIND(C)
53      USE ISO_C_BINDING
54      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
55      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
56      INTEGER (kind = C_INT), VALUE  :: extent1
57    END SUBROUTINE cxios_set_domain_data_j_index
58   
59    SUBROUTINE cxios_get_domain_data_j_index(domain_hdl, data_j_index, extent1) BIND(C)
60      USE ISO_C_BINDING
61      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
62      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
63      INTEGER (kind = C_INT), VALUE  :: extent1
64    END SUBROUTINE cxios_get_domain_data_j_index
65   
66   
67    SUBROUTINE cxios_set_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C)
68      USE ISO_C_BINDING
69      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
70      INTEGER (KIND=C_INT)      , VALUE :: data_jbegin
71    END SUBROUTINE cxios_set_domain_data_jbegin
72   
73    SUBROUTINE cxios_get_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C)
74      USE ISO_C_BINDING
75      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
76      INTEGER (KIND=C_INT)             :: data_jbegin
77    END SUBROUTINE cxios_get_domain_data_jbegin
78   
79   
80    SUBROUTINE cxios_set_domain_data_n_index(domain_hdl, data_n_index) BIND(C)
81      USE ISO_C_BINDING
82      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
83      INTEGER (KIND=C_INT)      , VALUE :: data_n_index
84    END SUBROUTINE cxios_set_domain_data_n_index
85   
86    SUBROUTINE cxios_get_domain_data_n_index(domain_hdl, data_n_index) BIND(C)
87      USE ISO_C_BINDING
88      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
89      INTEGER (KIND=C_INT)             :: data_n_index
90    END SUBROUTINE cxios_get_domain_data_n_index
91   
92   
93    SUBROUTINE cxios_set_domain_data_ni(domain_hdl, data_ni) BIND(C)
94      USE ISO_C_BINDING
95      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
96      INTEGER (KIND=C_INT)      , VALUE :: data_ni
97    END SUBROUTINE cxios_set_domain_data_ni
98   
99    SUBROUTINE cxios_get_domain_data_ni(domain_hdl, data_ni) BIND(C)
100      USE ISO_C_BINDING
101      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
102      INTEGER (KIND=C_INT)             :: data_ni
103    END SUBROUTINE cxios_get_domain_data_ni
104   
105   
106    SUBROUTINE cxios_set_domain_data_nj(domain_hdl, data_nj) BIND(C)
107      USE ISO_C_BINDING
108      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
109      INTEGER (KIND=C_INT)      , VALUE :: data_nj
110    END SUBROUTINE cxios_set_domain_data_nj
111   
112    SUBROUTINE cxios_get_domain_data_nj(domain_hdl, data_nj) BIND(C)
113      USE ISO_C_BINDING
114      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
115      INTEGER (KIND=C_INT)             :: data_nj
116    END SUBROUTINE cxios_get_domain_data_nj
117   
118   
119    SUBROUTINE cxios_set_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
120      USE ISO_C_BINDING
121      INTEGER (kind = C_INTPTR_T), VALUE :: domain_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_domain_domain_group_ref
125   
126    SUBROUTINE cxios_get_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
127      USE ISO_C_BINDING
128      INTEGER (kind = C_INTPTR_T), VALUE :: domain_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_domain_domain_group_ref
132   
133   
134    SUBROUTINE cxios_set_domain_ibegin(domain_hdl, ibegin) BIND(C)
135      USE ISO_C_BINDING
136      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
137      INTEGER (KIND=C_INT)      , VALUE :: ibegin
138    END SUBROUTINE cxios_set_domain_ibegin
139   
140    SUBROUTINE cxios_get_domain_ibegin(domain_hdl, ibegin) BIND(C)
141      USE ISO_C_BINDING
142      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
143      INTEGER (KIND=C_INT)             :: ibegin
144    END SUBROUTINE cxios_get_domain_ibegin
145   
146   
147    SUBROUTINE cxios_set_domain_iend(domain_hdl, iend) BIND(C)
148      USE ISO_C_BINDING
149      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
150      INTEGER (KIND=C_INT)      , VALUE :: iend
151    END SUBROUTINE cxios_set_domain_iend
152   
153    SUBROUTINE cxios_get_domain_iend(domain_hdl, iend) BIND(C)
154      USE ISO_C_BINDING
155      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
156      INTEGER (KIND=C_INT)             :: iend
157    END SUBROUTINE cxios_get_domain_iend
158   
159   
160    SUBROUTINE cxios_set_domain_jbegin(domain_hdl, jbegin) BIND(C)
161      USE ISO_C_BINDING
162      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
163      INTEGER (KIND=C_INT)      , VALUE :: jbegin
164    END SUBROUTINE cxios_set_domain_jbegin
165   
166    SUBROUTINE cxios_get_domain_jbegin(domain_hdl, jbegin) BIND(C)
167      USE ISO_C_BINDING
168      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
169      INTEGER (KIND=C_INT)             :: jbegin
170    END SUBROUTINE cxios_get_domain_jbegin
171   
172   
173    SUBROUTINE cxios_set_domain_jend(domain_hdl, jend) BIND(C)
174      USE ISO_C_BINDING
175      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
176      INTEGER (KIND=C_INT)      , VALUE :: jend
177    END SUBROUTINE cxios_set_domain_jend
178   
179    SUBROUTINE cxios_get_domain_jend(domain_hdl, jend) BIND(C)
180      USE ISO_C_BINDING
181      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
182      INTEGER (KIND=C_INT)             :: jend
183    END SUBROUTINE cxios_get_domain_jend
184   
185   
186    SUBROUTINE cxios_set_domain_latvalue(domain_hdl, latvalue, extent1) BIND(C)
187      USE ISO_C_BINDING
188      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
189      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue
190      INTEGER (kind = C_INT), VALUE  :: extent1
191    END SUBROUTINE cxios_set_domain_latvalue
192   
193    SUBROUTINE cxios_get_domain_latvalue(domain_hdl, latvalue, extent1) BIND(C)
194      USE ISO_C_BINDING
195      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
196      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue
197      INTEGER (kind = C_INT), VALUE  :: extent1
198    END SUBROUTINE cxios_get_domain_latvalue
199   
200   
201    SUBROUTINE cxios_set_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C)
202      USE ISO_C_BINDING
203      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
204      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
205      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
206    END SUBROUTINE cxios_set_domain_long_name
207   
208    SUBROUTINE cxios_get_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C)
209      USE ISO_C_BINDING
210      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
211      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
212      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
213    END SUBROUTINE cxios_get_domain_long_name
214   
215   
216    SUBROUTINE cxios_set_domain_lonvalue(domain_hdl, lonvalue, extent1) BIND(C)
217      USE ISO_C_BINDING
218      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
219      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue
220      INTEGER (kind = C_INT), VALUE  :: extent1
221    END SUBROUTINE cxios_set_domain_lonvalue
222   
223    SUBROUTINE cxios_get_domain_lonvalue(domain_hdl, lonvalue, extent1) BIND(C)
224      USE ISO_C_BINDING
225      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
226      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue
227      INTEGER (kind = C_INT), VALUE  :: extent1
228    END SUBROUTINE cxios_get_domain_lonvalue
229   
230   
231    SUBROUTINE cxios_set_domain_mask(domain_hdl, mask, extent1, extent2) BIND(C)
232      USE ISO_C_BINDING
233      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
234      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
235      INTEGER (kind = C_INT), VALUE  :: extent1
236      INTEGER (kind = C_INT), VALUE  :: extent2
237    END SUBROUTINE cxios_set_domain_mask
238   
239    SUBROUTINE cxios_get_domain_mask(domain_hdl, mask, extent1, extent2) BIND(C)
240      USE ISO_C_BINDING
241      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
242      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
243      INTEGER (kind = C_INT), VALUE  :: extent1
244      INTEGER (kind = C_INT), VALUE  :: extent2
245    END SUBROUTINE cxios_get_domain_mask
246   
247   
248    SUBROUTINE cxios_set_domain_name(domain_hdl, name, name_size) BIND(C)
249      USE ISO_C_BINDING
250      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
251      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
252      INTEGER  (kind = C_INT)     , VALUE        :: name_size
253    END SUBROUTINE cxios_set_domain_name
254   
255    SUBROUTINE cxios_get_domain_name(domain_hdl, name, name_size) BIND(C)
256      USE ISO_C_BINDING
257      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
258      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
259      INTEGER  (kind = C_INT)     , VALUE        :: name_size
260    END SUBROUTINE cxios_get_domain_name
261   
262   
263    SUBROUTINE cxios_set_domain_ni(domain_hdl, ni) BIND(C)
264      USE ISO_C_BINDING
265      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
266      INTEGER (KIND=C_INT)      , VALUE :: ni
267    END SUBROUTINE cxios_set_domain_ni
268   
269    SUBROUTINE cxios_get_domain_ni(domain_hdl, ni) BIND(C)
270      USE ISO_C_BINDING
271      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
272      INTEGER (KIND=C_INT)             :: ni
273    END SUBROUTINE cxios_get_domain_ni
274   
275   
276    SUBROUTINE cxios_set_domain_ni_glo(domain_hdl, ni_glo) BIND(C)
277      USE ISO_C_BINDING
278      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
279      INTEGER (KIND=C_INT)      , VALUE :: ni_glo
280    END SUBROUTINE cxios_set_domain_ni_glo
281   
282    SUBROUTINE cxios_get_domain_ni_glo(domain_hdl, ni_glo) BIND(C)
283      USE ISO_C_BINDING
284      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
285      INTEGER (KIND=C_INT)             :: ni_glo
286    END SUBROUTINE cxios_get_domain_ni_glo
287   
288   
289    SUBROUTINE cxios_set_domain_nj(domain_hdl, nj) BIND(C)
290      USE ISO_C_BINDING
291      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
292      INTEGER (KIND=C_INT)      , VALUE :: nj
293    END SUBROUTINE cxios_set_domain_nj
294   
295    SUBROUTINE cxios_get_domain_nj(domain_hdl, nj) BIND(C)
296      USE ISO_C_BINDING
297      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
298      INTEGER (KIND=C_INT)             :: nj
299    END SUBROUTINE cxios_get_domain_nj
300   
301   
302    SUBROUTINE cxios_set_domain_nj_glo(domain_hdl, nj_glo) BIND(C)
303      USE ISO_C_BINDING
304      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
305      INTEGER (KIND=C_INT)      , VALUE :: nj_glo
306    END SUBROUTINE cxios_set_domain_nj_glo
307   
308    SUBROUTINE cxios_get_domain_nj_glo(domain_hdl, nj_glo) BIND(C)
309      USE ISO_C_BINDING
310      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
311      INTEGER (KIND=C_INT)             :: nj_glo
312    END SUBROUTINE cxios_get_domain_nj_glo
313   
314   
315    SUBROUTINE cxios_set_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C)
316      USE ISO_C_BINDING
317      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
318      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
319      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
320    END SUBROUTINE cxios_set_domain_standard_name
321   
322    SUBROUTINE cxios_get_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C)
323      USE ISO_C_BINDING
324      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
325      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
326      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
327    END SUBROUTINE cxios_get_domain_standard_name
328   
329   
330    SUBROUTINE cxios_set_domain_zoom_ibegin(domain_hdl, zoom_ibegin) BIND(C)
331      USE ISO_C_BINDING
332      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
333      INTEGER (KIND=C_INT)      , VALUE :: zoom_ibegin
334    END SUBROUTINE cxios_set_domain_zoom_ibegin
335   
336    SUBROUTINE cxios_get_domain_zoom_ibegin(domain_hdl, zoom_ibegin) BIND(C)
337      USE ISO_C_BINDING
338      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
339      INTEGER (KIND=C_INT)             :: zoom_ibegin
340    END SUBROUTINE cxios_get_domain_zoom_ibegin
341   
342   
343    SUBROUTINE cxios_set_domain_zoom_ibegin_loc(domain_hdl, zoom_ibegin_loc) BIND(C)
344      USE ISO_C_BINDING
345      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
346      INTEGER (KIND=C_INT)      , VALUE :: zoom_ibegin_loc
347    END SUBROUTINE cxios_set_domain_zoom_ibegin_loc
348   
349    SUBROUTINE cxios_get_domain_zoom_ibegin_loc(domain_hdl, zoom_ibegin_loc) BIND(C)
350      USE ISO_C_BINDING
351      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
352      INTEGER (KIND=C_INT)             :: zoom_ibegin_loc
353    END SUBROUTINE cxios_get_domain_zoom_ibegin_loc
354   
355   
356    SUBROUTINE cxios_set_domain_zoom_jbegin(domain_hdl, zoom_jbegin) BIND(C)
357      USE ISO_C_BINDING
358      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
359      INTEGER (KIND=C_INT)      , VALUE :: zoom_jbegin
360    END SUBROUTINE cxios_set_domain_zoom_jbegin
361   
362    SUBROUTINE cxios_get_domain_zoom_jbegin(domain_hdl, zoom_jbegin) BIND(C)
363      USE ISO_C_BINDING
364      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
365      INTEGER (KIND=C_INT)             :: zoom_jbegin
366    END SUBROUTINE cxios_get_domain_zoom_jbegin
367   
368   
369    SUBROUTINE cxios_set_domain_zoom_jbegin_loc(domain_hdl, zoom_jbegin_loc) BIND(C)
370      USE ISO_C_BINDING
371      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
372      INTEGER (KIND=C_INT)      , VALUE :: zoom_jbegin_loc
373    END SUBROUTINE cxios_set_domain_zoom_jbegin_loc
374   
375    SUBROUTINE cxios_get_domain_zoom_jbegin_loc(domain_hdl, zoom_jbegin_loc) BIND(C)
376      USE ISO_C_BINDING
377      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
378      INTEGER (KIND=C_INT)             :: zoom_jbegin_loc
379    END SUBROUTINE cxios_get_domain_zoom_jbegin_loc
380   
381   
382    SUBROUTINE cxios_set_domain_zoom_ni(domain_hdl, zoom_ni) BIND(C)
383      USE ISO_C_BINDING
384      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
385      INTEGER (KIND=C_INT)      , VALUE :: zoom_ni
386    END SUBROUTINE cxios_set_domain_zoom_ni
387   
388    SUBROUTINE cxios_get_domain_zoom_ni(domain_hdl, zoom_ni) BIND(C)
389      USE ISO_C_BINDING
390      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
391      INTEGER (KIND=C_INT)             :: zoom_ni
392    END SUBROUTINE cxios_get_domain_zoom_ni
393   
394   
395    SUBROUTINE cxios_set_domain_zoom_ni_loc(domain_hdl, zoom_ni_loc) BIND(C)
396      USE ISO_C_BINDING
397      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
398      INTEGER (KIND=C_INT)      , VALUE :: zoom_ni_loc
399    END SUBROUTINE cxios_set_domain_zoom_ni_loc
400   
401    SUBROUTINE cxios_get_domain_zoom_ni_loc(domain_hdl, zoom_ni_loc) BIND(C)
402      USE ISO_C_BINDING
403      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
404      INTEGER (KIND=C_INT)             :: zoom_ni_loc
405    END SUBROUTINE cxios_get_domain_zoom_ni_loc
406   
407   
408    SUBROUTINE cxios_set_domain_zoom_nj(domain_hdl, zoom_nj) BIND(C)
409      USE ISO_C_BINDING
410      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
411      INTEGER (KIND=C_INT)      , VALUE :: zoom_nj
412    END SUBROUTINE cxios_set_domain_zoom_nj
413   
414    SUBROUTINE cxios_get_domain_zoom_nj(domain_hdl, zoom_nj) BIND(C)
415      USE ISO_C_BINDING
416      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
417      INTEGER (KIND=C_INT)             :: zoom_nj
418    END SUBROUTINE cxios_get_domain_zoom_nj
419   
420   
421    SUBROUTINE cxios_set_domain_zoom_nj_loc(domain_hdl, zoom_nj_loc) BIND(C)
422      USE ISO_C_BINDING
423      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
424      INTEGER (KIND=C_INT)      , VALUE :: zoom_nj_loc
425    END SUBROUTINE cxios_set_domain_zoom_nj_loc
426   
427    SUBROUTINE cxios_get_domain_zoom_nj_loc(domain_hdl, zoom_nj_loc) BIND(C)
428      USE ISO_C_BINDING
429      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
430      INTEGER (KIND=C_INT)             :: zoom_nj_loc
431    END SUBROUTINE cxios_get_domain_zoom_nj_loc
432   
433   
434    END INTERFACE
435 
436END MODULE domain_interface_attr
Note: See TracBrowser for help on using the repository browser.