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

Last change on this file since 432 was 432, checked in by ymipsl, 11 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: 25.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    FUNCTION cxios_is_defined_domain_data_dim(domain_hdl ) BIND(C)
24      USE ISO_C_BINDING
25      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_dim
26      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
27    END FUNCTION cxios_is_defined_domain_data_dim
28   
29   
30    SUBROUTINE cxios_set_domain_data_i_index(domain_hdl, data_i_index, extent1) BIND(C)
31      USE ISO_C_BINDING
32      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
33      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
34      INTEGER (kind = C_INT), VALUE  :: extent1
35    END SUBROUTINE cxios_set_domain_data_i_index
36   
37    SUBROUTINE cxios_get_domain_data_i_index(domain_hdl, data_i_index, extent1) BIND(C)
38      USE ISO_C_BINDING
39      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
40      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
41      INTEGER (kind = C_INT), VALUE  :: extent1
42    END SUBROUTINE cxios_get_domain_data_i_index
43   
44    FUNCTION cxios_is_defined_domain_data_i_index(domain_hdl ) BIND(C)
45      USE ISO_C_BINDING
46      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_i_index
47      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
48    END FUNCTION cxios_is_defined_domain_data_i_index
49   
50   
51    SUBROUTINE cxios_set_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C)
52      USE ISO_C_BINDING
53      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
54      INTEGER (KIND=C_INT)      , VALUE :: data_ibegin
55    END SUBROUTINE cxios_set_domain_data_ibegin
56   
57    SUBROUTINE cxios_get_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C)
58      USE ISO_C_BINDING
59      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
60      INTEGER (KIND=C_INT)             :: data_ibegin
61    END SUBROUTINE cxios_get_domain_data_ibegin
62   
63    FUNCTION cxios_is_defined_domain_data_ibegin(domain_hdl ) BIND(C)
64      USE ISO_C_BINDING
65      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ibegin
66      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
67    END FUNCTION cxios_is_defined_domain_data_ibegin
68   
69   
70    SUBROUTINE cxios_set_domain_data_j_index(domain_hdl, data_j_index, extent1) BIND(C)
71      USE ISO_C_BINDING
72      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
73      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
74      INTEGER (kind = C_INT), VALUE  :: extent1
75    END SUBROUTINE cxios_set_domain_data_j_index
76   
77    SUBROUTINE cxios_get_domain_data_j_index(domain_hdl, data_j_index, extent1) BIND(C)
78      USE ISO_C_BINDING
79      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
80      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
81      INTEGER (kind = C_INT), VALUE  :: extent1
82    END SUBROUTINE cxios_get_domain_data_j_index
83   
84    FUNCTION cxios_is_defined_domain_data_j_index(domain_hdl ) BIND(C)
85      USE ISO_C_BINDING
86      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_j_index
87      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
88    END FUNCTION cxios_is_defined_domain_data_j_index
89   
90   
91    SUBROUTINE cxios_set_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C)
92      USE ISO_C_BINDING
93      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
94      INTEGER (KIND=C_INT)      , VALUE :: data_jbegin
95    END SUBROUTINE cxios_set_domain_data_jbegin
96   
97    SUBROUTINE cxios_get_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C)
98      USE ISO_C_BINDING
99      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
100      INTEGER (KIND=C_INT)             :: data_jbegin
101    END SUBROUTINE cxios_get_domain_data_jbegin
102   
103    FUNCTION cxios_is_defined_domain_data_jbegin(domain_hdl ) BIND(C)
104      USE ISO_C_BINDING
105      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_jbegin
106      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
107    END FUNCTION cxios_is_defined_domain_data_jbegin
108   
109   
110    SUBROUTINE cxios_set_domain_data_n_index(domain_hdl, data_n_index) BIND(C)
111      USE ISO_C_BINDING
112      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
113      INTEGER (KIND=C_INT)      , VALUE :: data_n_index
114    END SUBROUTINE cxios_set_domain_data_n_index
115   
116    SUBROUTINE cxios_get_domain_data_n_index(domain_hdl, data_n_index) BIND(C)
117      USE ISO_C_BINDING
118      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
119      INTEGER (KIND=C_INT)             :: data_n_index
120    END SUBROUTINE cxios_get_domain_data_n_index
121   
122    FUNCTION cxios_is_defined_domain_data_n_index(domain_hdl ) BIND(C)
123      USE ISO_C_BINDING
124      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_n_index
125      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
126    END FUNCTION cxios_is_defined_domain_data_n_index
127   
128   
129    SUBROUTINE cxios_set_domain_data_ni(domain_hdl, data_ni) BIND(C)
130      USE ISO_C_BINDING
131      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
132      INTEGER (KIND=C_INT)      , VALUE :: data_ni
133    END SUBROUTINE cxios_set_domain_data_ni
134   
135    SUBROUTINE cxios_get_domain_data_ni(domain_hdl, data_ni) BIND(C)
136      USE ISO_C_BINDING
137      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
138      INTEGER (KIND=C_INT)             :: data_ni
139    END SUBROUTINE cxios_get_domain_data_ni
140   
141    FUNCTION cxios_is_defined_domain_data_ni(domain_hdl ) BIND(C)
142      USE ISO_C_BINDING
143      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ni
144      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
145    END FUNCTION cxios_is_defined_domain_data_ni
146   
147   
148    SUBROUTINE cxios_set_domain_data_nj(domain_hdl, data_nj) BIND(C)
149      USE ISO_C_BINDING
150      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
151      INTEGER (KIND=C_INT)      , VALUE :: data_nj
152    END SUBROUTINE cxios_set_domain_data_nj
153   
154    SUBROUTINE cxios_get_domain_data_nj(domain_hdl, data_nj) BIND(C)
155      USE ISO_C_BINDING
156      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
157      INTEGER (KIND=C_INT)             :: data_nj
158    END SUBROUTINE cxios_get_domain_data_nj
159   
160    FUNCTION cxios_is_defined_domain_data_nj(domain_hdl ) BIND(C)
161      USE ISO_C_BINDING
162      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_nj
163      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
164    END FUNCTION cxios_is_defined_domain_data_nj
165   
166   
167    SUBROUTINE cxios_set_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
168      USE ISO_C_BINDING
169      INTEGER (kind = C_INTPTR_T), VALUE :: domain_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_domain_domain_group_ref
173   
174    SUBROUTINE cxios_get_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
175      USE ISO_C_BINDING
176      INTEGER (kind = C_INTPTR_T), VALUE :: domain_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_domain_domain_group_ref
180   
181    FUNCTION cxios_is_defined_domain_domain_group_ref(domain_hdl ) BIND(C)
182      USE ISO_C_BINDING
183      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_group_ref
184      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
185    END FUNCTION cxios_is_defined_domain_domain_group_ref
186   
187   
188    SUBROUTINE cxios_set_domain_ibegin(domain_hdl, ibegin) BIND(C)
189      USE ISO_C_BINDING
190      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
191      INTEGER (KIND=C_INT)      , VALUE :: ibegin
192    END SUBROUTINE cxios_set_domain_ibegin
193   
194    SUBROUTINE cxios_get_domain_ibegin(domain_hdl, ibegin) BIND(C)
195      USE ISO_C_BINDING
196      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
197      INTEGER (KIND=C_INT)             :: ibegin
198    END SUBROUTINE cxios_get_domain_ibegin
199   
200    FUNCTION cxios_is_defined_domain_ibegin(domain_hdl ) BIND(C)
201      USE ISO_C_BINDING
202      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ibegin
203      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
204    END FUNCTION cxios_is_defined_domain_ibegin
205   
206   
207    SUBROUTINE cxios_set_domain_iend(domain_hdl, iend) BIND(C)
208      USE ISO_C_BINDING
209      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
210      INTEGER (KIND=C_INT)      , VALUE :: iend
211    END SUBROUTINE cxios_set_domain_iend
212   
213    SUBROUTINE cxios_get_domain_iend(domain_hdl, iend) BIND(C)
214      USE ISO_C_BINDING
215      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
216      INTEGER (KIND=C_INT)             :: iend
217    END SUBROUTINE cxios_get_domain_iend
218   
219    FUNCTION cxios_is_defined_domain_iend(domain_hdl ) BIND(C)
220      USE ISO_C_BINDING
221      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_iend
222      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
223    END FUNCTION cxios_is_defined_domain_iend
224   
225   
226    SUBROUTINE cxios_set_domain_jbegin(domain_hdl, jbegin) BIND(C)
227      USE ISO_C_BINDING
228      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
229      INTEGER (KIND=C_INT)      , VALUE :: jbegin
230    END SUBROUTINE cxios_set_domain_jbegin
231   
232    SUBROUTINE cxios_get_domain_jbegin(domain_hdl, jbegin) BIND(C)
233      USE ISO_C_BINDING
234      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
235      INTEGER (KIND=C_INT)             :: jbegin
236    END SUBROUTINE cxios_get_domain_jbegin
237   
238    FUNCTION cxios_is_defined_domain_jbegin(domain_hdl ) BIND(C)
239      USE ISO_C_BINDING
240      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jbegin
241      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
242    END FUNCTION cxios_is_defined_domain_jbegin
243   
244   
245    SUBROUTINE cxios_set_domain_jend(domain_hdl, jend) BIND(C)
246      USE ISO_C_BINDING
247      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
248      INTEGER (KIND=C_INT)      , VALUE :: jend
249    END SUBROUTINE cxios_set_domain_jend
250   
251    SUBROUTINE cxios_get_domain_jend(domain_hdl, jend) BIND(C)
252      USE ISO_C_BINDING
253      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
254      INTEGER (KIND=C_INT)             :: jend
255    END SUBROUTINE cxios_get_domain_jend
256   
257    FUNCTION cxios_is_defined_domain_jend(domain_hdl ) BIND(C)
258      USE ISO_C_BINDING
259      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jend
260      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
261    END FUNCTION cxios_is_defined_domain_jend
262   
263   
264    SUBROUTINE cxios_set_domain_latvalue(domain_hdl, latvalue, extent1) BIND(C)
265      USE ISO_C_BINDING
266      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
267      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue
268      INTEGER (kind = C_INT), VALUE  :: extent1
269    END SUBROUTINE cxios_set_domain_latvalue
270   
271    SUBROUTINE cxios_get_domain_latvalue(domain_hdl, latvalue, extent1) BIND(C)
272      USE ISO_C_BINDING
273      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
274      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue
275      INTEGER (kind = C_INT), VALUE  :: extent1
276    END SUBROUTINE cxios_get_domain_latvalue
277   
278    FUNCTION cxios_is_defined_domain_latvalue(domain_hdl ) BIND(C)
279      USE ISO_C_BINDING
280      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue
281      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
282    END FUNCTION cxios_is_defined_domain_latvalue
283   
284   
285    SUBROUTINE cxios_set_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C)
286      USE ISO_C_BINDING
287      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
288      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
289      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
290    END SUBROUTINE cxios_set_domain_long_name
291   
292    SUBROUTINE cxios_get_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C)
293      USE ISO_C_BINDING
294      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
295      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
296      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
297    END SUBROUTINE cxios_get_domain_long_name
298   
299    FUNCTION cxios_is_defined_domain_long_name(domain_hdl ) BIND(C)
300      USE ISO_C_BINDING
301      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_long_name
302      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
303    END FUNCTION cxios_is_defined_domain_long_name
304   
305   
306    SUBROUTINE cxios_set_domain_lonvalue(domain_hdl, lonvalue, extent1) BIND(C)
307      USE ISO_C_BINDING
308      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
309      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue
310      INTEGER (kind = C_INT), VALUE  :: extent1
311    END SUBROUTINE cxios_set_domain_lonvalue
312   
313    SUBROUTINE cxios_get_domain_lonvalue(domain_hdl, lonvalue, extent1) BIND(C)
314      USE ISO_C_BINDING
315      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
316      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue
317      INTEGER (kind = C_INT), VALUE  :: extent1
318    END SUBROUTINE cxios_get_domain_lonvalue
319   
320    FUNCTION cxios_is_defined_domain_lonvalue(domain_hdl ) BIND(C)
321      USE ISO_C_BINDING
322      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue
323      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
324    END FUNCTION cxios_is_defined_domain_lonvalue
325   
326   
327    SUBROUTINE cxios_set_domain_mask(domain_hdl, mask, extent1, extent2) BIND(C)
328      USE ISO_C_BINDING
329      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
330      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
331      INTEGER (kind = C_INT), VALUE  :: extent1
332      INTEGER (kind = C_INT), VALUE  :: extent2
333    END SUBROUTINE cxios_set_domain_mask
334   
335    SUBROUTINE cxios_get_domain_mask(domain_hdl, mask, extent1, extent2) BIND(C)
336      USE ISO_C_BINDING
337      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
338      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
339      INTEGER (kind = C_INT), VALUE  :: extent1
340      INTEGER (kind = C_INT), VALUE  :: extent2
341    END SUBROUTINE cxios_get_domain_mask
342   
343    FUNCTION cxios_is_defined_domain_mask(domain_hdl ) BIND(C)
344      USE ISO_C_BINDING
345      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask
346      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
347    END FUNCTION cxios_is_defined_domain_mask
348   
349   
350    SUBROUTINE cxios_set_domain_name(domain_hdl, name, name_size) BIND(C)
351      USE ISO_C_BINDING
352      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
353      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
354      INTEGER  (kind = C_INT)     , VALUE        :: name_size
355    END SUBROUTINE cxios_set_domain_name
356   
357    SUBROUTINE cxios_get_domain_name(domain_hdl, name, name_size) BIND(C)
358      USE ISO_C_BINDING
359      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
360      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
361      INTEGER  (kind = C_INT)     , VALUE        :: name_size
362    END SUBROUTINE cxios_get_domain_name
363   
364    FUNCTION cxios_is_defined_domain_name(domain_hdl ) BIND(C)
365      USE ISO_C_BINDING
366      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_name
367      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
368    END FUNCTION cxios_is_defined_domain_name
369   
370   
371    SUBROUTINE cxios_set_domain_ni(domain_hdl, ni) BIND(C)
372      USE ISO_C_BINDING
373      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
374      INTEGER (KIND=C_INT)      , VALUE :: ni
375    END SUBROUTINE cxios_set_domain_ni
376   
377    SUBROUTINE cxios_get_domain_ni(domain_hdl, ni) BIND(C)
378      USE ISO_C_BINDING
379      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
380      INTEGER (KIND=C_INT)             :: ni
381    END SUBROUTINE cxios_get_domain_ni
382   
383    FUNCTION cxios_is_defined_domain_ni(domain_hdl ) BIND(C)
384      USE ISO_C_BINDING
385      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni
386      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
387    END FUNCTION cxios_is_defined_domain_ni
388   
389   
390    SUBROUTINE cxios_set_domain_ni_glo(domain_hdl, ni_glo) BIND(C)
391      USE ISO_C_BINDING
392      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
393      INTEGER (KIND=C_INT)      , VALUE :: ni_glo
394    END SUBROUTINE cxios_set_domain_ni_glo
395   
396    SUBROUTINE cxios_get_domain_ni_glo(domain_hdl, ni_glo) BIND(C)
397      USE ISO_C_BINDING
398      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
399      INTEGER (KIND=C_INT)             :: ni_glo
400    END SUBROUTINE cxios_get_domain_ni_glo
401   
402    FUNCTION cxios_is_defined_domain_ni_glo(domain_hdl ) BIND(C)
403      USE ISO_C_BINDING
404      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni_glo
405      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
406    END FUNCTION cxios_is_defined_domain_ni_glo
407   
408   
409    SUBROUTINE cxios_set_domain_nj(domain_hdl, nj) BIND(C)
410      USE ISO_C_BINDING
411      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
412      INTEGER (KIND=C_INT)      , VALUE :: nj
413    END SUBROUTINE cxios_set_domain_nj
414   
415    SUBROUTINE cxios_get_domain_nj(domain_hdl, nj) BIND(C)
416      USE ISO_C_BINDING
417      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
418      INTEGER (KIND=C_INT)             :: nj
419    END SUBROUTINE cxios_get_domain_nj
420   
421    FUNCTION cxios_is_defined_domain_nj(domain_hdl ) BIND(C)
422      USE ISO_C_BINDING
423      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj
424      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
425    END FUNCTION cxios_is_defined_domain_nj
426   
427   
428    SUBROUTINE cxios_set_domain_nj_glo(domain_hdl, nj_glo) BIND(C)
429      USE ISO_C_BINDING
430      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
431      INTEGER (KIND=C_INT)      , VALUE :: nj_glo
432    END SUBROUTINE cxios_set_domain_nj_glo
433   
434    SUBROUTINE cxios_get_domain_nj_glo(domain_hdl, nj_glo) BIND(C)
435      USE ISO_C_BINDING
436      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
437      INTEGER (KIND=C_INT)             :: nj_glo
438    END SUBROUTINE cxios_get_domain_nj_glo
439   
440    FUNCTION cxios_is_defined_domain_nj_glo(domain_hdl ) BIND(C)
441      USE ISO_C_BINDING
442      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj_glo
443      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
444    END FUNCTION cxios_is_defined_domain_nj_glo
445   
446   
447    SUBROUTINE cxios_set_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C)
448      USE ISO_C_BINDING
449      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
450      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
451      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
452    END SUBROUTINE cxios_set_domain_standard_name
453   
454    SUBROUTINE cxios_get_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C)
455      USE ISO_C_BINDING
456      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
457      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
458      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
459    END SUBROUTINE cxios_get_domain_standard_name
460   
461    FUNCTION cxios_is_defined_domain_standard_name(domain_hdl ) BIND(C)
462      USE ISO_C_BINDING
463      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_standard_name
464      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
465    END FUNCTION cxios_is_defined_domain_standard_name
466   
467   
468    SUBROUTINE cxios_set_domain_zoom_ibegin(domain_hdl, zoom_ibegin) BIND(C)
469      USE ISO_C_BINDING
470      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
471      INTEGER (KIND=C_INT)      , VALUE :: zoom_ibegin
472    END SUBROUTINE cxios_set_domain_zoom_ibegin
473   
474    SUBROUTINE cxios_get_domain_zoom_ibegin(domain_hdl, zoom_ibegin) BIND(C)
475      USE ISO_C_BINDING
476      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
477      INTEGER (KIND=C_INT)             :: zoom_ibegin
478    END SUBROUTINE cxios_get_domain_zoom_ibegin
479   
480    FUNCTION cxios_is_defined_domain_zoom_ibegin(domain_hdl ) BIND(C)
481      USE ISO_C_BINDING
482      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ibegin
483      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
484    END FUNCTION cxios_is_defined_domain_zoom_ibegin
485   
486   
487    SUBROUTINE cxios_set_domain_zoom_ibegin_loc(domain_hdl, zoom_ibegin_loc) BIND(C)
488      USE ISO_C_BINDING
489      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
490      INTEGER (KIND=C_INT)      , VALUE :: zoom_ibegin_loc
491    END SUBROUTINE cxios_set_domain_zoom_ibegin_loc
492   
493    SUBROUTINE cxios_get_domain_zoom_ibegin_loc(domain_hdl, zoom_ibegin_loc) BIND(C)
494      USE ISO_C_BINDING
495      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
496      INTEGER (KIND=C_INT)             :: zoom_ibegin_loc
497    END SUBROUTINE cxios_get_domain_zoom_ibegin_loc
498   
499    FUNCTION cxios_is_defined_domain_zoom_ibegin_loc(domain_hdl ) BIND(C)
500      USE ISO_C_BINDING
501      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ibegin_loc
502      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
503    END FUNCTION cxios_is_defined_domain_zoom_ibegin_loc
504   
505   
506    SUBROUTINE cxios_set_domain_zoom_jbegin(domain_hdl, zoom_jbegin) BIND(C)
507      USE ISO_C_BINDING
508      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
509      INTEGER (KIND=C_INT)      , VALUE :: zoom_jbegin
510    END SUBROUTINE cxios_set_domain_zoom_jbegin
511   
512    SUBROUTINE cxios_get_domain_zoom_jbegin(domain_hdl, zoom_jbegin) BIND(C)
513      USE ISO_C_BINDING
514      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
515      INTEGER (KIND=C_INT)             :: zoom_jbegin
516    END SUBROUTINE cxios_get_domain_zoom_jbegin
517   
518    FUNCTION cxios_is_defined_domain_zoom_jbegin(domain_hdl ) BIND(C)
519      USE ISO_C_BINDING
520      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_jbegin
521      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
522    END FUNCTION cxios_is_defined_domain_zoom_jbegin
523   
524   
525    SUBROUTINE cxios_set_domain_zoom_jbegin_loc(domain_hdl, zoom_jbegin_loc) BIND(C)
526      USE ISO_C_BINDING
527      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
528      INTEGER (KIND=C_INT)      , VALUE :: zoom_jbegin_loc
529    END SUBROUTINE cxios_set_domain_zoom_jbegin_loc
530   
531    SUBROUTINE cxios_get_domain_zoom_jbegin_loc(domain_hdl, zoom_jbegin_loc) BIND(C)
532      USE ISO_C_BINDING
533      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
534      INTEGER (KIND=C_INT)             :: zoom_jbegin_loc
535    END SUBROUTINE cxios_get_domain_zoom_jbegin_loc
536   
537    FUNCTION cxios_is_defined_domain_zoom_jbegin_loc(domain_hdl ) BIND(C)
538      USE ISO_C_BINDING
539      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_jbegin_loc
540      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
541    END FUNCTION cxios_is_defined_domain_zoom_jbegin_loc
542   
543   
544    SUBROUTINE cxios_set_domain_zoom_ni(domain_hdl, zoom_ni) BIND(C)
545      USE ISO_C_BINDING
546      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
547      INTEGER (KIND=C_INT)      , VALUE :: zoom_ni
548    END SUBROUTINE cxios_set_domain_zoom_ni
549   
550    SUBROUTINE cxios_get_domain_zoom_ni(domain_hdl, zoom_ni) BIND(C)
551      USE ISO_C_BINDING
552      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
553      INTEGER (KIND=C_INT)             :: zoom_ni
554    END SUBROUTINE cxios_get_domain_zoom_ni
555   
556    FUNCTION cxios_is_defined_domain_zoom_ni(domain_hdl ) BIND(C)
557      USE ISO_C_BINDING
558      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ni
559      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
560    END FUNCTION cxios_is_defined_domain_zoom_ni
561   
562   
563    SUBROUTINE cxios_set_domain_zoom_ni_loc(domain_hdl, zoom_ni_loc) BIND(C)
564      USE ISO_C_BINDING
565      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
566      INTEGER (KIND=C_INT)      , VALUE :: zoom_ni_loc
567    END SUBROUTINE cxios_set_domain_zoom_ni_loc
568   
569    SUBROUTINE cxios_get_domain_zoom_ni_loc(domain_hdl, zoom_ni_loc) BIND(C)
570      USE ISO_C_BINDING
571      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
572      INTEGER (KIND=C_INT)             :: zoom_ni_loc
573    END SUBROUTINE cxios_get_domain_zoom_ni_loc
574   
575    FUNCTION cxios_is_defined_domain_zoom_ni_loc(domain_hdl ) BIND(C)
576      USE ISO_C_BINDING
577      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ni_loc
578      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
579    END FUNCTION cxios_is_defined_domain_zoom_ni_loc
580   
581   
582    SUBROUTINE cxios_set_domain_zoom_nj(domain_hdl, zoom_nj) BIND(C)
583      USE ISO_C_BINDING
584      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
585      INTEGER (KIND=C_INT)      , VALUE :: zoom_nj
586    END SUBROUTINE cxios_set_domain_zoom_nj
587   
588    SUBROUTINE cxios_get_domain_zoom_nj(domain_hdl, zoom_nj) BIND(C)
589      USE ISO_C_BINDING
590      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
591      INTEGER (KIND=C_INT)             :: zoom_nj
592    END SUBROUTINE cxios_get_domain_zoom_nj
593   
594    FUNCTION cxios_is_defined_domain_zoom_nj(domain_hdl ) BIND(C)
595      USE ISO_C_BINDING
596      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_nj
597      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
598    END FUNCTION cxios_is_defined_domain_zoom_nj
599   
600   
601    SUBROUTINE cxios_set_domain_zoom_nj_loc(domain_hdl, zoom_nj_loc) BIND(C)
602      USE ISO_C_BINDING
603      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
604      INTEGER (KIND=C_INT)      , VALUE :: zoom_nj_loc
605    END SUBROUTINE cxios_set_domain_zoom_nj_loc
606   
607    SUBROUTINE cxios_get_domain_zoom_nj_loc(domain_hdl, zoom_nj_loc) BIND(C)
608      USE ISO_C_BINDING
609      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
610      INTEGER (KIND=C_INT)             :: zoom_nj_loc
611    END SUBROUTINE cxios_get_domain_zoom_nj_loc
612   
613    FUNCTION cxios_is_defined_domain_zoom_nj_loc(domain_hdl ) BIND(C)
614      USE ISO_C_BINDING
615      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_nj_loc
616      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
617    END FUNCTION cxios_is_defined_domain_zoom_nj_loc
618   
619   
620    END INTERFACE
621 
622END MODULE domain_interface_attr
Note: See TracBrowser for help on using the repository browser.