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

Last change on this file since 455 was 449, checked in by ymipsl, 11 years ago

Add unstructured grid management.

YM
File size: 32.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_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_ibegin(domaingroup_hdl, ibegin) BIND(C)
256      USE ISO_C_BINDING
257      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
258      INTEGER (KIND=C_INT)      , VALUE :: ibegin
259    END SUBROUTINE cxios_set_domaingroup_ibegin
260   
261    SUBROUTINE cxios_get_domaingroup_ibegin(domaingroup_hdl, ibegin) BIND(C)
262      USE ISO_C_BINDING
263      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
264      INTEGER (KIND=C_INT)             :: ibegin
265    END SUBROUTINE cxios_get_domaingroup_ibegin
266   
267    FUNCTION cxios_is_defined_domaingroup_ibegin(domaingroup_hdl ) BIND(C)
268      USE ISO_C_BINDING
269      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ibegin
270      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
271    END FUNCTION cxios_is_defined_domaingroup_ibegin
272   
273   
274    SUBROUTINE cxios_set_domaingroup_iend(domaingroup_hdl, iend) BIND(C)
275      USE ISO_C_BINDING
276      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
277      INTEGER (KIND=C_INT)      , VALUE :: iend
278    END SUBROUTINE cxios_set_domaingroup_iend
279   
280    SUBROUTINE cxios_get_domaingroup_iend(domaingroup_hdl, iend) BIND(C)
281      USE ISO_C_BINDING
282      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
283      INTEGER (KIND=C_INT)             :: iend
284    END SUBROUTINE cxios_get_domaingroup_iend
285   
286    FUNCTION cxios_is_defined_domaingroup_iend(domaingroup_hdl ) BIND(C)
287      USE ISO_C_BINDING
288      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_iend
289      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
290    END FUNCTION cxios_is_defined_domaingroup_iend
291   
292   
293    SUBROUTINE cxios_set_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C)
294      USE ISO_C_BINDING
295      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
296      INTEGER (KIND=C_INT)      , VALUE :: jbegin
297    END SUBROUTINE cxios_set_domaingroup_jbegin
298   
299    SUBROUTINE cxios_get_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C)
300      USE ISO_C_BINDING
301      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
302      INTEGER (KIND=C_INT)             :: jbegin
303    END SUBROUTINE cxios_get_domaingroup_jbegin
304   
305    FUNCTION cxios_is_defined_domaingroup_jbegin(domaingroup_hdl ) BIND(C)
306      USE ISO_C_BINDING
307      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_jbegin
308      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
309    END FUNCTION cxios_is_defined_domaingroup_jbegin
310   
311   
312    SUBROUTINE cxios_set_domaingroup_jend(domaingroup_hdl, jend) BIND(C)
313      USE ISO_C_BINDING
314      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
315      INTEGER (KIND=C_INT)      , VALUE :: jend
316    END SUBROUTINE cxios_set_domaingroup_jend
317   
318    SUBROUTINE cxios_get_domaingroup_jend(domaingroup_hdl, jend) BIND(C)
319      USE ISO_C_BINDING
320      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
321      INTEGER (KIND=C_INT)             :: jend
322    END SUBROUTINE cxios_get_domaingroup_jend
323   
324    FUNCTION cxios_is_defined_domaingroup_jend(domaingroup_hdl ) BIND(C)
325      USE ISO_C_BINDING
326      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_jend
327      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
328    END FUNCTION cxios_is_defined_domaingroup_jend
329   
330   
331    SUBROUTINE cxios_set_domaingroup_latvalue(domaingroup_hdl, latvalue, extent1) BIND(C)
332      USE ISO_C_BINDING
333      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
334      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue
335      INTEGER (kind = C_INT), VALUE  :: extent1
336    END SUBROUTINE cxios_set_domaingroup_latvalue
337   
338    SUBROUTINE cxios_get_domaingroup_latvalue(domaingroup_hdl, latvalue, extent1) BIND(C)
339      USE ISO_C_BINDING
340      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
341      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue
342      INTEGER (kind = C_INT), VALUE  :: extent1
343    END SUBROUTINE cxios_get_domaingroup_latvalue
344   
345    FUNCTION cxios_is_defined_domaingroup_latvalue(domaingroup_hdl ) BIND(C)
346      USE ISO_C_BINDING
347      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_latvalue
348      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
349    END FUNCTION cxios_is_defined_domaingroup_latvalue
350   
351   
352    SUBROUTINE cxios_set_domaingroup_long_name(domaingroup_hdl, long_name, long_name_size) BIND(C)
353      USE ISO_C_BINDING
354      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
355      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
356      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
357    END SUBROUTINE cxios_set_domaingroup_long_name
358   
359    SUBROUTINE cxios_get_domaingroup_long_name(domaingroup_hdl, long_name, long_name_size) BIND(C)
360      USE ISO_C_BINDING
361      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
362      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
363      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
364    END SUBROUTINE cxios_get_domaingroup_long_name
365   
366    FUNCTION cxios_is_defined_domaingroup_long_name(domaingroup_hdl ) BIND(C)
367      USE ISO_C_BINDING
368      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_long_name
369      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
370    END FUNCTION cxios_is_defined_domaingroup_long_name
371   
372   
373    SUBROUTINE cxios_set_domaingroup_lonvalue(domaingroup_hdl, lonvalue, extent1) BIND(C)
374      USE ISO_C_BINDING
375      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
376      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue
377      INTEGER (kind = C_INT), VALUE  :: extent1
378    END SUBROUTINE cxios_set_domaingroup_lonvalue
379   
380    SUBROUTINE cxios_get_domaingroup_lonvalue(domaingroup_hdl, lonvalue, extent1) BIND(C)
381      USE ISO_C_BINDING
382      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
383      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue
384      INTEGER (kind = C_INT), VALUE  :: extent1
385    END SUBROUTINE cxios_get_domaingroup_lonvalue
386   
387    FUNCTION cxios_is_defined_domaingroup_lonvalue(domaingroup_hdl ) BIND(C)
388      USE ISO_C_BINDING
389      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_lonvalue
390      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
391    END FUNCTION cxios_is_defined_domaingroup_lonvalue
392   
393   
394    SUBROUTINE cxios_set_domaingroup_mask(domaingroup_hdl, mask, extent1, extent2) BIND(C)
395      USE ISO_C_BINDING
396      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
397      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
398      INTEGER (kind = C_INT), VALUE  :: extent1
399      INTEGER (kind = C_INT), VALUE  :: extent2
400    END SUBROUTINE cxios_set_domaingroup_mask
401   
402    SUBROUTINE cxios_get_domaingroup_mask(domaingroup_hdl, mask, extent1, extent2) BIND(C)
403      USE ISO_C_BINDING
404      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
405      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
406      INTEGER (kind = C_INT), VALUE  :: extent1
407      INTEGER (kind = C_INT), VALUE  :: extent2
408    END SUBROUTINE cxios_get_domaingroup_mask
409   
410    FUNCTION cxios_is_defined_domaingroup_mask(domaingroup_hdl ) BIND(C)
411      USE ISO_C_BINDING
412      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_mask
413      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
414    END FUNCTION cxios_is_defined_domaingroup_mask
415   
416   
417    SUBROUTINE cxios_set_domaingroup_name(domaingroup_hdl, name, name_size) BIND(C)
418      USE ISO_C_BINDING
419      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
420      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
421      INTEGER  (kind = C_INT)     , VALUE        :: name_size
422    END SUBROUTINE cxios_set_domaingroup_name
423   
424    SUBROUTINE cxios_get_domaingroup_name(domaingroup_hdl, name, name_size) BIND(C)
425      USE ISO_C_BINDING
426      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
427      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
428      INTEGER  (kind = C_INT)     , VALUE        :: name_size
429    END SUBROUTINE cxios_get_domaingroup_name
430   
431    FUNCTION cxios_is_defined_domaingroup_name(domaingroup_hdl ) BIND(C)
432      USE ISO_C_BINDING
433      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_name
434      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
435    END FUNCTION cxios_is_defined_domaingroup_name
436   
437   
438    SUBROUTINE cxios_set_domaingroup_ni(domaingroup_hdl, ni) BIND(C)
439      USE ISO_C_BINDING
440      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
441      INTEGER (KIND=C_INT)      , VALUE :: ni
442    END SUBROUTINE cxios_set_domaingroup_ni
443   
444    SUBROUTINE cxios_get_domaingroup_ni(domaingroup_hdl, ni) BIND(C)
445      USE ISO_C_BINDING
446      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
447      INTEGER (KIND=C_INT)             :: ni
448    END SUBROUTINE cxios_get_domaingroup_ni
449   
450    FUNCTION cxios_is_defined_domaingroup_ni(domaingroup_hdl ) BIND(C)
451      USE ISO_C_BINDING
452      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni
453      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
454    END FUNCTION cxios_is_defined_domaingroup_ni
455   
456   
457    SUBROUTINE cxios_set_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C)
458      USE ISO_C_BINDING
459      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
460      INTEGER (KIND=C_INT)      , VALUE :: ni_glo
461    END SUBROUTINE cxios_set_domaingroup_ni_glo
462   
463    SUBROUTINE cxios_get_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C)
464      USE ISO_C_BINDING
465      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
466      INTEGER (KIND=C_INT)             :: ni_glo
467    END SUBROUTINE cxios_get_domaingroup_ni_glo
468   
469    FUNCTION cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl ) BIND(C)
470      USE ISO_C_BINDING
471      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni_glo
472      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
473    END FUNCTION cxios_is_defined_domaingroup_ni_glo
474   
475   
476    SUBROUTINE cxios_set_domaingroup_nj(domaingroup_hdl, nj) BIND(C)
477      USE ISO_C_BINDING
478      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
479      INTEGER (KIND=C_INT)      , VALUE :: nj
480    END SUBROUTINE cxios_set_domaingroup_nj
481   
482    SUBROUTINE cxios_get_domaingroup_nj(domaingroup_hdl, nj) BIND(C)
483      USE ISO_C_BINDING
484      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
485      INTEGER (KIND=C_INT)             :: nj
486    END SUBROUTINE cxios_get_domaingroup_nj
487   
488    FUNCTION cxios_is_defined_domaingroup_nj(domaingroup_hdl ) BIND(C)
489      USE ISO_C_BINDING
490      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj
491      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
492    END FUNCTION cxios_is_defined_domaingroup_nj
493   
494   
495    SUBROUTINE cxios_set_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C)
496      USE ISO_C_BINDING
497      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
498      INTEGER (KIND=C_INT)      , VALUE :: nj_glo
499    END SUBROUTINE cxios_set_domaingroup_nj_glo
500   
501    SUBROUTINE cxios_get_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C)
502      USE ISO_C_BINDING
503      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
504      INTEGER (KIND=C_INT)             :: nj_glo
505    END SUBROUTINE cxios_get_domaingroup_nj_glo
506   
507    FUNCTION cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl ) BIND(C)
508      USE ISO_C_BINDING
509      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj_glo
510      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
511    END FUNCTION cxios_is_defined_domaingroup_nj_glo
512   
513   
514    SUBROUTINE cxios_set_domaingroup_nvertex(domaingroup_hdl, nvertex) BIND(C)
515      USE ISO_C_BINDING
516      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
517      INTEGER (KIND=C_INT)      , VALUE :: nvertex
518    END SUBROUTINE cxios_set_domaingroup_nvertex
519   
520    SUBROUTINE cxios_get_domaingroup_nvertex(domaingroup_hdl, nvertex) BIND(C)
521      USE ISO_C_BINDING
522      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
523      INTEGER (KIND=C_INT)             :: nvertex
524    END SUBROUTINE cxios_get_domaingroup_nvertex
525   
526    FUNCTION cxios_is_defined_domaingroup_nvertex(domaingroup_hdl ) BIND(C)
527      USE ISO_C_BINDING
528      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nvertex
529      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
530    END FUNCTION cxios_is_defined_domaingroup_nvertex
531   
532   
533    SUBROUTINE cxios_set_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C)
534      USE ISO_C_BINDING
535      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
536      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
537      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
538    END SUBROUTINE cxios_set_domaingroup_standard_name
539   
540    SUBROUTINE cxios_get_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C)
541      USE ISO_C_BINDING
542      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
543      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
544      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
545    END SUBROUTINE cxios_get_domaingroup_standard_name
546   
547    FUNCTION cxios_is_defined_domaingroup_standard_name(domaingroup_hdl ) BIND(C)
548      USE ISO_C_BINDING
549      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_standard_name
550      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
551    END FUNCTION cxios_is_defined_domaingroup_standard_name
552   
553   
554    SUBROUTINE cxios_set_domaingroup_type(domaingroup_hdl, type, type_size) BIND(C)
555      USE ISO_C_BINDING
556      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
557      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
558      INTEGER  (kind = C_INT)     , VALUE        :: type_size
559    END SUBROUTINE cxios_set_domaingroup_type
560   
561    SUBROUTINE cxios_get_domaingroup_type(domaingroup_hdl, type, type_size) BIND(C)
562      USE ISO_C_BINDING
563      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
564      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
565      INTEGER  (kind = C_INT)     , VALUE        :: type_size
566    END SUBROUTINE cxios_get_domaingroup_type
567   
568    FUNCTION cxios_is_defined_domaingroup_type(domaingroup_hdl ) BIND(C)
569      USE ISO_C_BINDING
570      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_type
571      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
572    END FUNCTION cxios_is_defined_domaingroup_type
573   
574   
575    SUBROUTINE cxios_set_domaingroup_zoom_ibegin(domaingroup_hdl, zoom_ibegin) BIND(C)
576      USE ISO_C_BINDING
577      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
578      INTEGER (KIND=C_INT)      , VALUE :: zoom_ibegin
579    END SUBROUTINE cxios_set_domaingroup_zoom_ibegin
580   
581    SUBROUTINE cxios_get_domaingroup_zoom_ibegin(domaingroup_hdl, zoom_ibegin) BIND(C)
582      USE ISO_C_BINDING
583      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
584      INTEGER (KIND=C_INT)             :: zoom_ibegin
585    END SUBROUTINE cxios_get_domaingroup_zoom_ibegin
586   
587    FUNCTION cxios_is_defined_domaingroup_zoom_ibegin(domaingroup_hdl ) BIND(C)
588      USE ISO_C_BINDING
589      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ibegin
590      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
591    END FUNCTION cxios_is_defined_domaingroup_zoom_ibegin
592   
593   
594    SUBROUTINE cxios_set_domaingroup_zoom_ibegin_loc(domaingroup_hdl, zoom_ibegin_loc) BIND(C)
595      USE ISO_C_BINDING
596      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
597      INTEGER (KIND=C_INT)      , VALUE :: zoom_ibegin_loc
598    END SUBROUTINE cxios_set_domaingroup_zoom_ibegin_loc
599   
600    SUBROUTINE cxios_get_domaingroup_zoom_ibegin_loc(domaingroup_hdl, zoom_ibegin_loc) BIND(C)
601      USE ISO_C_BINDING
602      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
603      INTEGER (KIND=C_INT)             :: zoom_ibegin_loc
604    END SUBROUTINE cxios_get_domaingroup_zoom_ibegin_loc
605   
606    FUNCTION cxios_is_defined_domaingroup_zoom_ibegin_loc(domaingroup_hdl ) BIND(C)
607      USE ISO_C_BINDING
608      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ibegin_loc
609      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
610    END FUNCTION cxios_is_defined_domaingroup_zoom_ibegin_loc
611   
612   
613    SUBROUTINE cxios_set_domaingroup_zoom_jbegin(domaingroup_hdl, zoom_jbegin) BIND(C)
614      USE ISO_C_BINDING
615      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
616      INTEGER (KIND=C_INT)      , VALUE :: zoom_jbegin
617    END SUBROUTINE cxios_set_domaingroup_zoom_jbegin
618   
619    SUBROUTINE cxios_get_domaingroup_zoom_jbegin(domaingroup_hdl, zoom_jbegin) BIND(C)
620      USE ISO_C_BINDING
621      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
622      INTEGER (KIND=C_INT)             :: zoom_jbegin
623    END SUBROUTINE cxios_get_domaingroup_zoom_jbegin
624   
625    FUNCTION cxios_is_defined_domaingroup_zoom_jbegin(domaingroup_hdl ) BIND(C)
626      USE ISO_C_BINDING
627      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_jbegin
628      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
629    END FUNCTION cxios_is_defined_domaingroup_zoom_jbegin
630   
631   
632    SUBROUTINE cxios_set_domaingroup_zoom_jbegin_loc(domaingroup_hdl, zoom_jbegin_loc) BIND(C)
633      USE ISO_C_BINDING
634      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
635      INTEGER (KIND=C_INT)      , VALUE :: zoom_jbegin_loc
636    END SUBROUTINE cxios_set_domaingroup_zoom_jbegin_loc
637   
638    SUBROUTINE cxios_get_domaingroup_zoom_jbegin_loc(domaingroup_hdl, zoom_jbegin_loc) BIND(C)
639      USE ISO_C_BINDING
640      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
641      INTEGER (KIND=C_INT)             :: zoom_jbegin_loc
642    END SUBROUTINE cxios_get_domaingroup_zoom_jbegin_loc
643   
644    FUNCTION cxios_is_defined_domaingroup_zoom_jbegin_loc(domaingroup_hdl ) BIND(C)
645      USE ISO_C_BINDING
646      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_jbegin_loc
647      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
648    END FUNCTION cxios_is_defined_domaingroup_zoom_jbegin_loc
649   
650   
651    SUBROUTINE cxios_set_domaingroup_zoom_ni(domaingroup_hdl, zoom_ni) BIND(C)
652      USE ISO_C_BINDING
653      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
654      INTEGER (KIND=C_INT)      , VALUE :: zoom_ni
655    END SUBROUTINE cxios_set_domaingroup_zoom_ni
656   
657    SUBROUTINE cxios_get_domaingroup_zoom_ni(domaingroup_hdl, zoom_ni) BIND(C)
658      USE ISO_C_BINDING
659      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
660      INTEGER (KIND=C_INT)             :: zoom_ni
661    END SUBROUTINE cxios_get_domaingroup_zoom_ni
662   
663    FUNCTION cxios_is_defined_domaingroup_zoom_ni(domaingroup_hdl ) BIND(C)
664      USE ISO_C_BINDING
665      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ni
666      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
667    END FUNCTION cxios_is_defined_domaingroup_zoom_ni
668   
669   
670    SUBROUTINE cxios_set_domaingroup_zoom_ni_loc(domaingroup_hdl, zoom_ni_loc) BIND(C)
671      USE ISO_C_BINDING
672      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
673      INTEGER (KIND=C_INT)      , VALUE :: zoom_ni_loc
674    END SUBROUTINE cxios_set_domaingroup_zoom_ni_loc
675   
676    SUBROUTINE cxios_get_domaingroup_zoom_ni_loc(domaingroup_hdl, zoom_ni_loc) BIND(C)
677      USE ISO_C_BINDING
678      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
679      INTEGER (KIND=C_INT)             :: zoom_ni_loc
680    END SUBROUTINE cxios_get_domaingroup_zoom_ni_loc
681   
682    FUNCTION cxios_is_defined_domaingroup_zoom_ni_loc(domaingroup_hdl ) BIND(C)
683      USE ISO_C_BINDING
684      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ni_loc
685      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
686    END FUNCTION cxios_is_defined_domaingroup_zoom_ni_loc
687   
688   
689    SUBROUTINE cxios_set_domaingroup_zoom_nj(domaingroup_hdl, zoom_nj) BIND(C)
690      USE ISO_C_BINDING
691      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
692      INTEGER (KIND=C_INT)      , VALUE :: zoom_nj
693    END SUBROUTINE cxios_set_domaingroup_zoom_nj
694   
695    SUBROUTINE cxios_get_domaingroup_zoom_nj(domaingroup_hdl, zoom_nj) BIND(C)
696      USE ISO_C_BINDING
697      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
698      INTEGER (KIND=C_INT)             :: zoom_nj
699    END SUBROUTINE cxios_get_domaingroup_zoom_nj
700   
701    FUNCTION cxios_is_defined_domaingroup_zoom_nj(domaingroup_hdl ) BIND(C)
702      USE ISO_C_BINDING
703      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_nj
704      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
705    END FUNCTION cxios_is_defined_domaingroup_zoom_nj
706   
707   
708    SUBROUTINE cxios_set_domaingroup_zoom_nj_loc(domaingroup_hdl, zoom_nj_loc) BIND(C)
709      USE ISO_C_BINDING
710      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
711      INTEGER (KIND=C_INT)      , VALUE :: zoom_nj_loc
712    END SUBROUTINE cxios_set_domaingroup_zoom_nj_loc
713   
714    SUBROUTINE cxios_get_domaingroup_zoom_nj_loc(domaingroup_hdl, zoom_nj_loc) BIND(C)
715      USE ISO_C_BINDING
716      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
717      INTEGER (KIND=C_INT)             :: zoom_nj_loc
718    END SUBROUTINE cxios_get_domaingroup_zoom_nj_loc
719   
720    FUNCTION cxios_is_defined_domaingroup_zoom_nj_loc(domaingroup_hdl ) BIND(C)
721      USE ISO_C_BINDING
722      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_nj_loc
723      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
724    END FUNCTION cxios_is_defined_domaingroup_zoom_nj_loc
725   
726   
727    END INTERFACE
728 
729END MODULE domaingroup_interface_attr
Note: See TracBrowser for help on using the repository browser.