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

Last change on this file since 432 was 432, checked in by ymipsl, 9 years ago

Enhancement : Add fortran interface to know if an attribute is set or not
ex : CALL xios_is_defined_field_attr("field_A",enabled=ok)

YM

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