source: XIOS/trunk/src/interface/fortran_attr/domain_interface_attr.F90 @ 611

Last change on this file since 611 was 611, checked in by rlacroix, 9 years ago

Improve CF compliance: Add a new domain attribute "area".

Fixes ticket #68.
  • Property copyright set to
    Software name : XIOS (Xml I/O Server)
    http://forge.ipsl.jussieu.fr/ioserver
    Creation date : January 2009
    Licence : CeCCIL version2
    see license file in root directory : Licence_CeCILL_V2-en.txt
    or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
    Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
    CNRS/IPSL (Institut Pierre Simon Laplace)
    Project Manager : Yann Meurdesoif
    yann.meurdesoif@cea.fr
File size: 32.5 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "../fortran/xios_fortran_prefix.hpp"
5
6MODULE domain_interface_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8
9  INTERFACE
10    ! Do not call directly / interface FORTRAN 2003 <-> C99
11
12    SUBROUTINE cxios_set_domain_area(domain_hdl, area, extent1, extent2) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
15      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area
16      INTEGER (kind = C_INT), VALUE  :: extent1
17      INTEGER (kind = C_INT), VALUE  :: extent2
18    END SUBROUTINE cxios_set_domain_area
19
20    SUBROUTINE cxios_get_domain_area(domain_hdl, area, extent1, extent2) BIND(C)
21      USE ISO_C_BINDING
22      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
23      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area
24      INTEGER (kind = C_INT), VALUE  :: extent1
25      INTEGER (kind = C_INT), VALUE  :: extent2
26    END SUBROUTINE cxios_get_domain_area
27
28    FUNCTION cxios_is_defined_domain_area(domain_hdl) BIND(C)
29      USE ISO_C_BINDING
30      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_area
31      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
32    END FUNCTION cxios_is_defined_domain_area
33
34
35    SUBROUTINE cxios_set_domain_bounds_lat(domain_hdl, bounds_lat, extent1, extent2) BIND(C)
36      USE ISO_C_BINDING
37      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
38      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat
39      INTEGER (kind = C_INT), VALUE  :: extent1
40      INTEGER (kind = C_INT), VALUE  :: extent2
41    END SUBROUTINE cxios_set_domain_bounds_lat
42
43    SUBROUTINE cxios_get_domain_bounds_lat(domain_hdl, bounds_lat, extent1, extent2) BIND(C)
44      USE ISO_C_BINDING
45      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
46      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat
47      INTEGER (kind = C_INT), VALUE  :: extent1
48      INTEGER (kind = C_INT), VALUE  :: extent2
49    END SUBROUTINE cxios_get_domain_bounds_lat
50
51    FUNCTION cxios_is_defined_domain_bounds_lat(domain_hdl) BIND(C)
52      USE ISO_C_BINDING
53      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lat
54      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
55    END FUNCTION cxios_is_defined_domain_bounds_lat
56
57
58    SUBROUTINE cxios_set_domain_bounds_lon(domain_hdl, bounds_lon, extent1, extent2) BIND(C)
59      USE ISO_C_BINDING
60      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
61      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon
62      INTEGER (kind = C_INT), VALUE  :: extent1
63      INTEGER (kind = C_INT), VALUE  :: extent2
64    END SUBROUTINE cxios_set_domain_bounds_lon
65
66    SUBROUTINE cxios_get_domain_bounds_lon(domain_hdl, bounds_lon, extent1, extent2) BIND(C)
67      USE ISO_C_BINDING
68      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
69      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon
70      INTEGER (kind = C_INT), VALUE  :: extent1
71      INTEGER (kind = C_INT), VALUE  :: extent2
72    END SUBROUTINE cxios_get_domain_bounds_lon
73
74    FUNCTION cxios_is_defined_domain_bounds_lon(domain_hdl) BIND(C)
75      USE ISO_C_BINDING
76      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lon
77      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
78    END FUNCTION cxios_is_defined_domain_bounds_lon
79
80
81    SUBROUTINE cxios_set_domain_data_dim(domain_hdl, data_dim) BIND(C)
82      USE ISO_C_BINDING
83      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
84      INTEGER (KIND=C_INT)      , VALUE :: data_dim
85    END SUBROUTINE cxios_set_domain_data_dim
86
87    SUBROUTINE cxios_get_domain_data_dim(domain_hdl, data_dim) BIND(C)
88      USE ISO_C_BINDING
89      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
90      INTEGER (KIND=C_INT)             :: data_dim
91    END SUBROUTINE cxios_get_domain_data_dim
92
93    FUNCTION cxios_is_defined_domain_data_dim(domain_hdl) BIND(C)
94      USE ISO_C_BINDING
95      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_dim
96      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
97    END FUNCTION cxios_is_defined_domain_data_dim
98
99
100    SUBROUTINE cxios_set_domain_data_i_index(domain_hdl, data_i_index, extent1) BIND(C)
101      USE ISO_C_BINDING
102      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
103      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
104      INTEGER (kind = C_INT), VALUE  :: extent1
105    END SUBROUTINE cxios_set_domain_data_i_index
106
107    SUBROUTINE cxios_get_domain_data_i_index(domain_hdl, data_i_index, extent1) BIND(C)
108      USE ISO_C_BINDING
109      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
110      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
111      INTEGER (kind = C_INT), VALUE  :: extent1
112    END SUBROUTINE cxios_get_domain_data_i_index
113
114    FUNCTION cxios_is_defined_domain_data_i_index(domain_hdl) BIND(C)
115      USE ISO_C_BINDING
116      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_i_index
117      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
118    END FUNCTION cxios_is_defined_domain_data_i_index
119
120
121    SUBROUTINE cxios_set_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C)
122      USE ISO_C_BINDING
123      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
124      INTEGER (KIND=C_INT)      , VALUE :: data_ibegin
125    END SUBROUTINE cxios_set_domain_data_ibegin
126
127    SUBROUTINE cxios_get_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C)
128      USE ISO_C_BINDING
129      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
130      INTEGER (KIND=C_INT)             :: data_ibegin
131    END SUBROUTINE cxios_get_domain_data_ibegin
132
133    FUNCTION cxios_is_defined_domain_data_ibegin(domain_hdl) BIND(C)
134      USE ISO_C_BINDING
135      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ibegin
136      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
137    END FUNCTION cxios_is_defined_domain_data_ibegin
138
139
140    SUBROUTINE cxios_set_domain_data_j_index(domain_hdl, data_j_index, extent1) BIND(C)
141      USE ISO_C_BINDING
142      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
143      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
144      INTEGER (kind = C_INT), VALUE  :: extent1
145    END SUBROUTINE cxios_set_domain_data_j_index
146
147    SUBROUTINE cxios_get_domain_data_j_index(domain_hdl, data_j_index, extent1) BIND(C)
148      USE ISO_C_BINDING
149      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
150      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
151      INTEGER (kind = C_INT), VALUE  :: extent1
152    END SUBROUTINE cxios_get_domain_data_j_index
153
154    FUNCTION cxios_is_defined_domain_data_j_index(domain_hdl) BIND(C)
155      USE ISO_C_BINDING
156      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_j_index
157      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
158    END FUNCTION cxios_is_defined_domain_data_j_index
159
160
161    SUBROUTINE cxios_set_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C)
162      USE ISO_C_BINDING
163      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
164      INTEGER (KIND=C_INT)      , VALUE :: data_jbegin
165    END SUBROUTINE cxios_set_domain_data_jbegin
166
167    SUBROUTINE cxios_get_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C)
168      USE ISO_C_BINDING
169      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
170      INTEGER (KIND=C_INT)             :: data_jbegin
171    END SUBROUTINE cxios_get_domain_data_jbegin
172
173    FUNCTION cxios_is_defined_domain_data_jbegin(domain_hdl) BIND(C)
174      USE ISO_C_BINDING
175      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_jbegin
176      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
177    END FUNCTION cxios_is_defined_domain_data_jbegin
178
179
180    SUBROUTINE cxios_set_domain_data_n_index(domain_hdl, data_n_index) BIND(C)
181      USE ISO_C_BINDING
182      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
183      INTEGER (KIND=C_INT)      , VALUE :: data_n_index
184    END SUBROUTINE cxios_set_domain_data_n_index
185
186    SUBROUTINE cxios_get_domain_data_n_index(domain_hdl, data_n_index) BIND(C)
187      USE ISO_C_BINDING
188      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
189      INTEGER (KIND=C_INT)             :: data_n_index
190    END SUBROUTINE cxios_get_domain_data_n_index
191
192    FUNCTION cxios_is_defined_domain_data_n_index(domain_hdl) BIND(C)
193      USE ISO_C_BINDING
194      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_n_index
195      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
196    END FUNCTION cxios_is_defined_domain_data_n_index
197
198
199    SUBROUTINE cxios_set_domain_data_ni(domain_hdl, data_ni) BIND(C)
200      USE ISO_C_BINDING
201      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
202      INTEGER (KIND=C_INT)      , VALUE :: data_ni
203    END SUBROUTINE cxios_set_domain_data_ni
204
205    SUBROUTINE cxios_get_domain_data_ni(domain_hdl, data_ni) BIND(C)
206      USE ISO_C_BINDING
207      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
208      INTEGER (KIND=C_INT)             :: data_ni
209    END SUBROUTINE cxios_get_domain_data_ni
210
211    FUNCTION cxios_is_defined_domain_data_ni(domain_hdl) BIND(C)
212      USE ISO_C_BINDING
213      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ni
214      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
215    END FUNCTION cxios_is_defined_domain_data_ni
216
217
218    SUBROUTINE cxios_set_domain_data_nj(domain_hdl, data_nj) BIND(C)
219      USE ISO_C_BINDING
220      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
221      INTEGER (KIND=C_INT)      , VALUE :: data_nj
222    END SUBROUTINE cxios_set_domain_data_nj
223
224    SUBROUTINE cxios_get_domain_data_nj(domain_hdl, data_nj) BIND(C)
225      USE ISO_C_BINDING
226      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
227      INTEGER (KIND=C_INT)             :: data_nj
228    END SUBROUTINE cxios_get_domain_data_nj
229
230    FUNCTION cxios_is_defined_domain_data_nj(domain_hdl) BIND(C)
231      USE ISO_C_BINDING
232      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_nj
233      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
234    END FUNCTION cxios_is_defined_domain_data_nj
235
236
237    SUBROUTINE cxios_set_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
238      USE ISO_C_BINDING
239      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
240      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref
241      INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size
242    END SUBROUTINE cxios_set_domain_domain_group_ref
243
244    SUBROUTINE cxios_get_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
245      USE ISO_C_BINDING
246      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
247      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref
248      INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size
249    END SUBROUTINE cxios_get_domain_domain_group_ref
250
251    FUNCTION cxios_is_defined_domain_domain_group_ref(domain_hdl) BIND(C)
252      USE ISO_C_BINDING
253      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_group_ref
254      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
255    END FUNCTION cxios_is_defined_domain_domain_group_ref
256
257
258    SUBROUTINE cxios_set_domain_domain_ref(domain_hdl, domain_ref, domain_ref_size) BIND(C)
259      USE ISO_C_BINDING
260      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
261      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
262      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
263    END SUBROUTINE cxios_set_domain_domain_ref
264
265    SUBROUTINE cxios_get_domain_domain_ref(domain_hdl, domain_ref, domain_ref_size) BIND(C)
266      USE ISO_C_BINDING
267      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
268      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
269      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
270    END SUBROUTINE cxios_get_domain_domain_ref
271
272    FUNCTION cxios_is_defined_domain_domain_ref(domain_hdl) BIND(C)
273      USE ISO_C_BINDING
274      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_ref
275      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
276    END FUNCTION cxios_is_defined_domain_domain_ref
277
278
279    SUBROUTINE cxios_set_domain_i_index(domain_hdl, i_index, extent1, extent2) BIND(C)
280      USE ISO_C_BINDING
281      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
282      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index
283      INTEGER (kind = C_INT), VALUE  :: extent1
284      INTEGER (kind = C_INT), VALUE  :: extent2
285    END SUBROUTINE cxios_set_domain_i_index
286
287    SUBROUTINE cxios_get_domain_i_index(domain_hdl, i_index, extent1, extent2) BIND(C)
288      USE ISO_C_BINDING
289      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
290      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index
291      INTEGER (kind = C_INT), VALUE  :: extent1
292      INTEGER (kind = C_INT), VALUE  :: extent2
293    END SUBROUTINE cxios_get_domain_i_index
294
295    FUNCTION cxios_is_defined_domain_i_index(domain_hdl) BIND(C)
296      USE ISO_C_BINDING
297      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_i_index
298      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
299    END FUNCTION cxios_is_defined_domain_i_index
300
301
302    SUBROUTINE cxios_set_domain_ibegin(domain_hdl, ibegin) BIND(C)
303      USE ISO_C_BINDING
304      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
305      INTEGER (KIND=C_INT)      , VALUE :: ibegin
306    END SUBROUTINE cxios_set_domain_ibegin
307
308    SUBROUTINE cxios_get_domain_ibegin(domain_hdl, ibegin) BIND(C)
309      USE ISO_C_BINDING
310      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
311      INTEGER (KIND=C_INT)             :: ibegin
312    END SUBROUTINE cxios_get_domain_ibegin
313
314    FUNCTION cxios_is_defined_domain_ibegin(domain_hdl) BIND(C)
315      USE ISO_C_BINDING
316      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ibegin
317      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
318    END FUNCTION cxios_is_defined_domain_ibegin
319
320
321    SUBROUTINE cxios_set_domain_iend(domain_hdl, iend) BIND(C)
322      USE ISO_C_BINDING
323      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
324      INTEGER (KIND=C_INT)      , VALUE :: iend
325    END SUBROUTINE cxios_set_domain_iend
326
327    SUBROUTINE cxios_get_domain_iend(domain_hdl, iend) BIND(C)
328      USE ISO_C_BINDING
329      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
330      INTEGER (KIND=C_INT)             :: iend
331    END SUBROUTINE cxios_get_domain_iend
332
333    FUNCTION cxios_is_defined_domain_iend(domain_hdl) BIND(C)
334      USE ISO_C_BINDING
335      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_iend
336      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
337    END FUNCTION cxios_is_defined_domain_iend
338
339
340    SUBROUTINE cxios_set_domain_j_index(domain_hdl, j_index, extent1, extent2) BIND(C)
341      USE ISO_C_BINDING
342      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
343      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index
344      INTEGER (kind = C_INT), VALUE  :: extent1
345      INTEGER (kind = C_INT), VALUE  :: extent2
346    END SUBROUTINE cxios_set_domain_j_index
347
348    SUBROUTINE cxios_get_domain_j_index(domain_hdl, j_index, extent1, extent2) BIND(C)
349      USE ISO_C_BINDING
350      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
351      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index
352      INTEGER (kind = C_INT), VALUE  :: extent1
353      INTEGER (kind = C_INT), VALUE  :: extent2
354    END SUBROUTINE cxios_get_domain_j_index
355
356    FUNCTION cxios_is_defined_domain_j_index(domain_hdl) BIND(C)
357      USE ISO_C_BINDING
358      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_j_index
359      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
360    END FUNCTION cxios_is_defined_domain_j_index
361
362
363    SUBROUTINE cxios_set_domain_jbegin(domain_hdl, jbegin) BIND(C)
364      USE ISO_C_BINDING
365      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
366      INTEGER (KIND=C_INT)      , VALUE :: jbegin
367    END SUBROUTINE cxios_set_domain_jbegin
368
369    SUBROUTINE cxios_get_domain_jbegin(domain_hdl, jbegin) BIND(C)
370      USE ISO_C_BINDING
371      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
372      INTEGER (KIND=C_INT)             :: jbegin
373    END SUBROUTINE cxios_get_domain_jbegin
374
375    FUNCTION cxios_is_defined_domain_jbegin(domain_hdl) BIND(C)
376      USE ISO_C_BINDING
377      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jbegin
378      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
379    END FUNCTION cxios_is_defined_domain_jbegin
380
381
382    SUBROUTINE cxios_set_domain_jend(domain_hdl, jend) BIND(C)
383      USE ISO_C_BINDING
384      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
385      INTEGER (KIND=C_INT)      , VALUE :: jend
386    END SUBROUTINE cxios_set_domain_jend
387
388    SUBROUTINE cxios_get_domain_jend(domain_hdl, jend) BIND(C)
389      USE ISO_C_BINDING
390      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
391      INTEGER (KIND=C_INT)             :: jend
392    END SUBROUTINE cxios_get_domain_jend
393
394    FUNCTION cxios_is_defined_domain_jend(domain_hdl) BIND(C)
395      USE ISO_C_BINDING
396      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jend
397      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
398    END FUNCTION cxios_is_defined_domain_jend
399
400
401    SUBROUTINE cxios_set_domain_latvalue(domain_hdl, latvalue, extent1) BIND(C)
402      USE ISO_C_BINDING
403      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
404      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue
405      INTEGER (kind = C_INT), VALUE  :: extent1
406    END SUBROUTINE cxios_set_domain_latvalue
407
408    SUBROUTINE cxios_get_domain_latvalue(domain_hdl, latvalue, extent1) BIND(C)
409      USE ISO_C_BINDING
410      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
411      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue
412      INTEGER (kind = C_INT), VALUE  :: extent1
413    END SUBROUTINE cxios_get_domain_latvalue
414
415    FUNCTION cxios_is_defined_domain_latvalue(domain_hdl) BIND(C)
416      USE ISO_C_BINDING
417      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue
418      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
419    END FUNCTION cxios_is_defined_domain_latvalue
420
421
422    SUBROUTINE cxios_set_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C)
423      USE ISO_C_BINDING
424      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
425      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
426      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
427    END SUBROUTINE cxios_set_domain_long_name
428
429    SUBROUTINE cxios_get_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C)
430      USE ISO_C_BINDING
431      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
432      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
433      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
434    END SUBROUTINE cxios_get_domain_long_name
435
436    FUNCTION cxios_is_defined_domain_long_name(domain_hdl) BIND(C)
437      USE ISO_C_BINDING
438      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_long_name
439      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
440    END FUNCTION cxios_is_defined_domain_long_name
441
442
443    SUBROUTINE cxios_set_domain_lonvalue(domain_hdl, lonvalue, extent1) BIND(C)
444      USE ISO_C_BINDING
445      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
446      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue
447      INTEGER (kind = C_INT), VALUE  :: extent1
448    END SUBROUTINE cxios_set_domain_lonvalue
449
450    SUBROUTINE cxios_get_domain_lonvalue(domain_hdl, lonvalue, extent1) BIND(C)
451      USE ISO_C_BINDING
452      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
453      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue
454      INTEGER (kind = C_INT), VALUE  :: extent1
455    END SUBROUTINE cxios_get_domain_lonvalue
456
457    FUNCTION cxios_is_defined_domain_lonvalue(domain_hdl) BIND(C)
458      USE ISO_C_BINDING
459      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue
460      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
461    END FUNCTION cxios_is_defined_domain_lonvalue
462
463
464    SUBROUTINE cxios_set_domain_mask(domain_hdl, mask, extent1, extent2) BIND(C)
465      USE ISO_C_BINDING
466      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
467      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
468      INTEGER (kind = C_INT), VALUE  :: extent1
469      INTEGER (kind = C_INT), VALUE  :: extent2
470    END SUBROUTINE cxios_set_domain_mask
471
472    SUBROUTINE cxios_get_domain_mask(domain_hdl, mask, extent1, extent2) BIND(C)
473      USE ISO_C_BINDING
474      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
475      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
476      INTEGER (kind = C_INT), VALUE  :: extent1
477      INTEGER (kind = C_INT), VALUE  :: extent2
478    END SUBROUTINE cxios_get_domain_mask
479
480    FUNCTION cxios_is_defined_domain_mask(domain_hdl) BIND(C)
481      USE ISO_C_BINDING
482      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask
483      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
484    END FUNCTION cxios_is_defined_domain_mask
485
486
487    SUBROUTINE cxios_set_domain_name(domain_hdl, name, name_size) BIND(C)
488      USE ISO_C_BINDING
489      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
490      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
491      INTEGER  (kind = C_INT)     , VALUE        :: name_size
492    END SUBROUTINE cxios_set_domain_name
493
494    SUBROUTINE cxios_get_domain_name(domain_hdl, name, name_size) BIND(C)
495      USE ISO_C_BINDING
496      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
497      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
498      INTEGER  (kind = C_INT)     , VALUE        :: name_size
499    END SUBROUTINE cxios_get_domain_name
500
501    FUNCTION cxios_is_defined_domain_name(domain_hdl) BIND(C)
502      USE ISO_C_BINDING
503      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_name
504      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
505    END FUNCTION cxios_is_defined_domain_name
506
507
508    SUBROUTINE cxios_set_domain_ni(domain_hdl, ni) BIND(C)
509      USE ISO_C_BINDING
510      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
511      INTEGER (KIND=C_INT)      , VALUE :: ni
512    END SUBROUTINE cxios_set_domain_ni
513
514    SUBROUTINE cxios_get_domain_ni(domain_hdl, ni) BIND(C)
515      USE ISO_C_BINDING
516      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
517      INTEGER (KIND=C_INT)             :: ni
518    END SUBROUTINE cxios_get_domain_ni
519
520    FUNCTION cxios_is_defined_domain_ni(domain_hdl) BIND(C)
521      USE ISO_C_BINDING
522      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni
523      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
524    END FUNCTION cxios_is_defined_domain_ni
525
526
527    SUBROUTINE cxios_set_domain_ni_glo(domain_hdl, ni_glo) BIND(C)
528      USE ISO_C_BINDING
529      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
530      INTEGER (KIND=C_INT)      , VALUE :: ni_glo
531    END SUBROUTINE cxios_set_domain_ni_glo
532
533    SUBROUTINE cxios_get_domain_ni_glo(domain_hdl, ni_glo) BIND(C)
534      USE ISO_C_BINDING
535      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
536      INTEGER (KIND=C_INT)             :: ni_glo
537    END SUBROUTINE cxios_get_domain_ni_glo
538
539    FUNCTION cxios_is_defined_domain_ni_glo(domain_hdl) BIND(C)
540      USE ISO_C_BINDING
541      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni_glo
542      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
543    END FUNCTION cxios_is_defined_domain_ni_glo
544
545
546    SUBROUTINE cxios_set_domain_nj(domain_hdl, nj) BIND(C)
547      USE ISO_C_BINDING
548      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
549      INTEGER (KIND=C_INT)      , VALUE :: nj
550    END SUBROUTINE cxios_set_domain_nj
551
552    SUBROUTINE cxios_get_domain_nj(domain_hdl, nj) BIND(C)
553      USE ISO_C_BINDING
554      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
555      INTEGER (KIND=C_INT)             :: nj
556    END SUBROUTINE cxios_get_domain_nj
557
558    FUNCTION cxios_is_defined_domain_nj(domain_hdl) BIND(C)
559      USE ISO_C_BINDING
560      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj
561      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
562    END FUNCTION cxios_is_defined_domain_nj
563
564
565    SUBROUTINE cxios_set_domain_nj_glo(domain_hdl, nj_glo) BIND(C)
566      USE ISO_C_BINDING
567      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
568      INTEGER (KIND=C_INT)      , VALUE :: nj_glo
569    END SUBROUTINE cxios_set_domain_nj_glo
570
571    SUBROUTINE cxios_get_domain_nj_glo(domain_hdl, nj_glo) BIND(C)
572      USE ISO_C_BINDING
573      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
574      INTEGER (KIND=C_INT)             :: nj_glo
575    END SUBROUTINE cxios_get_domain_nj_glo
576
577    FUNCTION cxios_is_defined_domain_nj_glo(domain_hdl) BIND(C)
578      USE ISO_C_BINDING
579      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj_glo
580      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
581    END FUNCTION cxios_is_defined_domain_nj_glo
582
583
584    SUBROUTINE cxios_set_domain_nvertex(domain_hdl, nvertex) BIND(C)
585      USE ISO_C_BINDING
586      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
587      INTEGER (KIND=C_INT)      , VALUE :: nvertex
588    END SUBROUTINE cxios_set_domain_nvertex
589
590    SUBROUTINE cxios_get_domain_nvertex(domain_hdl, nvertex) BIND(C)
591      USE ISO_C_BINDING
592      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
593      INTEGER (KIND=C_INT)             :: nvertex
594    END SUBROUTINE cxios_get_domain_nvertex
595
596    FUNCTION cxios_is_defined_domain_nvertex(domain_hdl) BIND(C)
597      USE ISO_C_BINDING
598      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nvertex
599      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
600    END FUNCTION cxios_is_defined_domain_nvertex
601
602
603    SUBROUTINE cxios_set_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C)
604      USE ISO_C_BINDING
605      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
606      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
607      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
608    END SUBROUTINE cxios_set_domain_standard_name
609
610    SUBROUTINE cxios_get_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C)
611      USE ISO_C_BINDING
612      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
613      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
614      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
615    END SUBROUTINE cxios_get_domain_standard_name
616
617    FUNCTION cxios_is_defined_domain_standard_name(domain_hdl) BIND(C)
618      USE ISO_C_BINDING
619      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_standard_name
620      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
621    END FUNCTION cxios_is_defined_domain_standard_name
622
623
624    SUBROUTINE cxios_set_domain_type(domain_hdl, type, type_size) BIND(C)
625      USE ISO_C_BINDING
626      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
627      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
628      INTEGER  (kind = C_INT)     , VALUE        :: type_size
629    END SUBROUTINE cxios_set_domain_type
630
631    SUBROUTINE cxios_get_domain_type(domain_hdl, type, type_size) BIND(C)
632      USE ISO_C_BINDING
633      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
634      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
635      INTEGER  (kind = C_INT)     , VALUE        :: type_size
636    END SUBROUTINE cxios_get_domain_type
637
638    FUNCTION cxios_is_defined_domain_type(domain_hdl) BIND(C)
639      USE ISO_C_BINDING
640      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_type
641      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
642    END FUNCTION cxios_is_defined_domain_type
643
644
645    SUBROUTINE cxios_set_domain_zoom_ibegin(domain_hdl, zoom_ibegin) BIND(C)
646      USE ISO_C_BINDING
647      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
648      INTEGER (KIND=C_INT)      , VALUE :: zoom_ibegin
649    END SUBROUTINE cxios_set_domain_zoom_ibegin
650
651    SUBROUTINE cxios_get_domain_zoom_ibegin(domain_hdl, zoom_ibegin) BIND(C)
652      USE ISO_C_BINDING
653      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
654      INTEGER (KIND=C_INT)             :: zoom_ibegin
655    END SUBROUTINE cxios_get_domain_zoom_ibegin
656
657    FUNCTION cxios_is_defined_domain_zoom_ibegin(domain_hdl) BIND(C)
658      USE ISO_C_BINDING
659      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ibegin
660      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
661    END FUNCTION cxios_is_defined_domain_zoom_ibegin
662
663
664    SUBROUTINE cxios_set_domain_zoom_ibegin_loc(domain_hdl, zoom_ibegin_loc) BIND(C)
665      USE ISO_C_BINDING
666      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
667      INTEGER (KIND=C_INT)      , VALUE :: zoom_ibegin_loc
668    END SUBROUTINE cxios_set_domain_zoom_ibegin_loc
669
670    SUBROUTINE cxios_get_domain_zoom_ibegin_loc(domain_hdl, zoom_ibegin_loc) BIND(C)
671      USE ISO_C_BINDING
672      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
673      INTEGER (KIND=C_INT)             :: zoom_ibegin_loc
674    END SUBROUTINE cxios_get_domain_zoom_ibegin_loc
675
676    FUNCTION cxios_is_defined_domain_zoom_ibegin_loc(domain_hdl) BIND(C)
677      USE ISO_C_BINDING
678      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ibegin_loc
679      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
680    END FUNCTION cxios_is_defined_domain_zoom_ibegin_loc
681
682
683    SUBROUTINE cxios_set_domain_zoom_jbegin(domain_hdl, zoom_jbegin) BIND(C)
684      USE ISO_C_BINDING
685      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
686      INTEGER (KIND=C_INT)      , VALUE :: zoom_jbegin
687    END SUBROUTINE cxios_set_domain_zoom_jbegin
688
689    SUBROUTINE cxios_get_domain_zoom_jbegin(domain_hdl, zoom_jbegin) BIND(C)
690      USE ISO_C_BINDING
691      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
692      INTEGER (KIND=C_INT)             :: zoom_jbegin
693    END SUBROUTINE cxios_get_domain_zoom_jbegin
694
695    FUNCTION cxios_is_defined_domain_zoom_jbegin(domain_hdl) BIND(C)
696      USE ISO_C_BINDING
697      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_jbegin
698      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
699    END FUNCTION cxios_is_defined_domain_zoom_jbegin
700
701
702    SUBROUTINE cxios_set_domain_zoom_jbegin_loc(domain_hdl, zoom_jbegin_loc) BIND(C)
703      USE ISO_C_BINDING
704      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
705      INTEGER (KIND=C_INT)      , VALUE :: zoom_jbegin_loc
706    END SUBROUTINE cxios_set_domain_zoom_jbegin_loc
707
708    SUBROUTINE cxios_get_domain_zoom_jbegin_loc(domain_hdl, zoom_jbegin_loc) BIND(C)
709      USE ISO_C_BINDING
710      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
711      INTEGER (KIND=C_INT)             :: zoom_jbegin_loc
712    END SUBROUTINE cxios_get_domain_zoom_jbegin_loc
713
714    FUNCTION cxios_is_defined_domain_zoom_jbegin_loc(domain_hdl) BIND(C)
715      USE ISO_C_BINDING
716      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_jbegin_loc
717      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
718    END FUNCTION cxios_is_defined_domain_zoom_jbegin_loc
719
720
721    SUBROUTINE cxios_set_domain_zoom_ni(domain_hdl, zoom_ni) BIND(C)
722      USE ISO_C_BINDING
723      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
724      INTEGER (KIND=C_INT)      , VALUE :: zoom_ni
725    END SUBROUTINE cxios_set_domain_zoom_ni
726
727    SUBROUTINE cxios_get_domain_zoom_ni(domain_hdl, zoom_ni) BIND(C)
728      USE ISO_C_BINDING
729      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
730      INTEGER (KIND=C_INT)             :: zoom_ni
731    END SUBROUTINE cxios_get_domain_zoom_ni
732
733    FUNCTION cxios_is_defined_domain_zoom_ni(domain_hdl) BIND(C)
734      USE ISO_C_BINDING
735      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ni
736      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
737    END FUNCTION cxios_is_defined_domain_zoom_ni
738
739
740    SUBROUTINE cxios_set_domain_zoom_ni_loc(domain_hdl, zoom_ni_loc) BIND(C)
741      USE ISO_C_BINDING
742      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
743      INTEGER (KIND=C_INT)      , VALUE :: zoom_ni_loc
744    END SUBROUTINE cxios_set_domain_zoom_ni_loc
745
746    SUBROUTINE cxios_get_domain_zoom_ni_loc(domain_hdl, zoom_ni_loc) BIND(C)
747      USE ISO_C_BINDING
748      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
749      INTEGER (KIND=C_INT)             :: zoom_ni_loc
750    END SUBROUTINE cxios_get_domain_zoom_ni_loc
751
752    FUNCTION cxios_is_defined_domain_zoom_ni_loc(domain_hdl) BIND(C)
753      USE ISO_C_BINDING
754      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ni_loc
755      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
756    END FUNCTION cxios_is_defined_domain_zoom_ni_loc
757
758
759    SUBROUTINE cxios_set_domain_zoom_nj(domain_hdl, zoom_nj) BIND(C)
760      USE ISO_C_BINDING
761      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
762      INTEGER (KIND=C_INT)      , VALUE :: zoom_nj
763    END SUBROUTINE cxios_set_domain_zoom_nj
764
765    SUBROUTINE cxios_get_domain_zoom_nj(domain_hdl, zoom_nj) BIND(C)
766      USE ISO_C_BINDING
767      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
768      INTEGER (KIND=C_INT)             :: zoom_nj
769    END SUBROUTINE cxios_get_domain_zoom_nj
770
771    FUNCTION cxios_is_defined_domain_zoom_nj(domain_hdl) BIND(C)
772      USE ISO_C_BINDING
773      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_nj
774      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
775    END FUNCTION cxios_is_defined_domain_zoom_nj
776
777
778    SUBROUTINE cxios_set_domain_zoom_nj_loc(domain_hdl, zoom_nj_loc) BIND(C)
779      USE ISO_C_BINDING
780      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
781      INTEGER (KIND=C_INT)      , VALUE :: zoom_nj_loc
782    END SUBROUTINE cxios_set_domain_zoom_nj_loc
783
784    SUBROUTINE cxios_get_domain_zoom_nj_loc(domain_hdl, zoom_nj_loc) BIND(C)
785      USE ISO_C_BINDING
786      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
787      INTEGER (KIND=C_INT)             :: zoom_nj_loc
788    END SUBROUTINE cxios_get_domain_zoom_nj_loc
789
790    FUNCTION cxios_is_defined_domain_zoom_nj_loc(domain_hdl) BIND(C)
791      USE ISO_C_BINDING
792      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_nj_loc
793      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
794    END FUNCTION cxios_is_defined_domain_zoom_nj_loc
795
796  END INTERFACE
797
798END MODULE domain_interface_attr
Note: See TracBrowser for help on using the repository browser.