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

Last change on this file since 664 was 664, checked in by mhnguyen, 9 years ago

Changing some domain attributes

+) Longitude and latitude from now on can be 2 dimension array

Test
+) On Curie
+) test_client, test_complete pass and are correct
  • 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: 30.1 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_1d(domain_hdl, bounds_lat_1d, 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_1d
39      INTEGER (kind = C_INT), VALUE  :: extent1
40      INTEGER (kind = C_INT), VALUE  :: extent2
41    END SUBROUTINE cxios_set_domain_bounds_lat_1d
42
43    SUBROUTINE cxios_get_domain_bounds_lat_1d(domain_hdl, bounds_lat_1d, 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_1d
47      INTEGER (kind = C_INT), VALUE  :: extent1
48      INTEGER (kind = C_INT), VALUE  :: extent2
49    END SUBROUTINE cxios_get_domain_bounds_lat_1d
50
51    FUNCTION cxios_is_defined_domain_bounds_lat_1d(domain_hdl) BIND(C)
52      USE ISO_C_BINDING
53      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lat_1d
54      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
55    END FUNCTION cxios_is_defined_domain_bounds_lat_1d
56
57
58    SUBROUTINE cxios_set_domain_bounds_lat_2d(domain_hdl, bounds_lat_2d, extent1, extent2, extent3) BIND(C)
59      USE ISO_C_BINDING
60      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
61      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_2d
62      INTEGER (kind = C_INT), VALUE  :: extent1
63      INTEGER (kind = C_INT), VALUE  :: extent2
64      INTEGER (kind = C_INT), VALUE  :: extent3
65    END SUBROUTINE cxios_set_domain_bounds_lat_2d
66
67    SUBROUTINE cxios_get_domain_bounds_lat_2d(domain_hdl, bounds_lat_2d, extent1, extent2, extent3) BIND(C)
68      USE ISO_C_BINDING
69      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
70      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_2d
71      INTEGER (kind = C_INT), VALUE  :: extent1
72      INTEGER (kind = C_INT), VALUE  :: extent2
73      INTEGER (kind = C_INT), VALUE  :: extent3
74    END SUBROUTINE cxios_get_domain_bounds_lat_2d
75
76    FUNCTION cxios_is_defined_domain_bounds_lat_2d(domain_hdl) BIND(C)
77      USE ISO_C_BINDING
78      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lat_2d
79      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
80    END FUNCTION cxios_is_defined_domain_bounds_lat_2d
81
82
83    SUBROUTINE cxios_set_domain_bounds_lon_1d(domain_hdl, bounds_lon_1d, extent1, extent2) BIND(C)
84      USE ISO_C_BINDING
85      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
86      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_1d
87      INTEGER (kind = C_INT), VALUE  :: extent1
88      INTEGER (kind = C_INT), VALUE  :: extent2
89    END SUBROUTINE cxios_set_domain_bounds_lon_1d
90
91    SUBROUTINE cxios_get_domain_bounds_lon_1d(domain_hdl, bounds_lon_1d, extent1, extent2) BIND(C)
92      USE ISO_C_BINDING
93      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
94      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_1d
95      INTEGER (kind = C_INT), VALUE  :: extent1
96      INTEGER (kind = C_INT), VALUE  :: extent2
97    END SUBROUTINE cxios_get_domain_bounds_lon_1d
98
99    FUNCTION cxios_is_defined_domain_bounds_lon_1d(domain_hdl) BIND(C)
100      USE ISO_C_BINDING
101      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lon_1d
102      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
103    END FUNCTION cxios_is_defined_domain_bounds_lon_1d
104
105
106    SUBROUTINE cxios_set_domain_bounds_lon_2d(domain_hdl, bounds_lon_2d, extent1, extent2, extent3) BIND(C)
107      USE ISO_C_BINDING
108      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
109      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_2d
110      INTEGER (kind = C_INT), VALUE  :: extent1
111      INTEGER (kind = C_INT), VALUE  :: extent2
112      INTEGER (kind = C_INT), VALUE  :: extent3
113    END SUBROUTINE cxios_set_domain_bounds_lon_2d
114
115    SUBROUTINE cxios_get_domain_bounds_lon_2d(domain_hdl, bounds_lon_2d, extent1, extent2, extent3) BIND(C)
116      USE ISO_C_BINDING
117      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
118      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_2d
119      INTEGER (kind = C_INT), VALUE  :: extent1
120      INTEGER (kind = C_INT), VALUE  :: extent2
121      INTEGER (kind = C_INT), VALUE  :: extent3
122    END SUBROUTINE cxios_get_domain_bounds_lon_2d
123
124    FUNCTION cxios_is_defined_domain_bounds_lon_2d(domain_hdl) BIND(C)
125      USE ISO_C_BINDING
126      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lon_2d
127      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
128    END FUNCTION cxios_is_defined_domain_bounds_lon_2d
129
130
131    SUBROUTINE cxios_set_domain_data_dim(domain_hdl, data_dim) BIND(C)
132      USE ISO_C_BINDING
133      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
134      INTEGER (KIND=C_INT)      , VALUE :: data_dim
135    END SUBROUTINE cxios_set_domain_data_dim
136
137    SUBROUTINE cxios_get_domain_data_dim(domain_hdl, data_dim) BIND(C)
138      USE ISO_C_BINDING
139      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
140      INTEGER (KIND=C_INT)             :: data_dim
141    END SUBROUTINE cxios_get_domain_data_dim
142
143    FUNCTION cxios_is_defined_domain_data_dim(domain_hdl) BIND(C)
144      USE ISO_C_BINDING
145      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_dim
146      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
147    END FUNCTION cxios_is_defined_domain_data_dim
148
149
150    SUBROUTINE cxios_set_domain_data_i_index(domain_hdl, data_i_index, extent1) BIND(C)
151      USE ISO_C_BINDING
152      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
153      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
154      INTEGER (kind = C_INT), VALUE  :: extent1
155    END SUBROUTINE cxios_set_domain_data_i_index
156
157    SUBROUTINE cxios_get_domain_data_i_index(domain_hdl, data_i_index, extent1) BIND(C)
158      USE ISO_C_BINDING
159      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
160      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
161      INTEGER (kind = C_INT), VALUE  :: extent1
162    END SUBROUTINE cxios_get_domain_data_i_index
163
164    FUNCTION cxios_is_defined_domain_data_i_index(domain_hdl) BIND(C)
165      USE ISO_C_BINDING
166      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_i_index
167      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
168    END FUNCTION cxios_is_defined_domain_data_i_index
169
170
171    SUBROUTINE cxios_set_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C)
172      USE ISO_C_BINDING
173      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
174      INTEGER (KIND=C_INT)      , VALUE :: data_ibegin
175    END SUBROUTINE cxios_set_domain_data_ibegin
176
177    SUBROUTINE cxios_get_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C)
178      USE ISO_C_BINDING
179      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
180      INTEGER (KIND=C_INT)             :: data_ibegin
181    END SUBROUTINE cxios_get_domain_data_ibegin
182
183    FUNCTION cxios_is_defined_domain_data_ibegin(domain_hdl) BIND(C)
184      USE ISO_C_BINDING
185      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ibegin
186      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
187    END FUNCTION cxios_is_defined_domain_data_ibegin
188
189
190    SUBROUTINE cxios_set_domain_data_j_index(domain_hdl, data_j_index, extent1) BIND(C)
191      USE ISO_C_BINDING
192      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
193      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
194      INTEGER (kind = C_INT), VALUE  :: extent1
195    END SUBROUTINE cxios_set_domain_data_j_index
196
197    SUBROUTINE cxios_get_domain_data_j_index(domain_hdl, data_j_index, extent1) BIND(C)
198      USE ISO_C_BINDING
199      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
200      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
201      INTEGER (kind = C_INT), VALUE  :: extent1
202    END SUBROUTINE cxios_get_domain_data_j_index
203
204    FUNCTION cxios_is_defined_domain_data_j_index(domain_hdl) BIND(C)
205      USE ISO_C_BINDING
206      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_j_index
207      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
208    END FUNCTION cxios_is_defined_domain_data_j_index
209
210
211    SUBROUTINE cxios_set_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C)
212      USE ISO_C_BINDING
213      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
214      INTEGER (KIND=C_INT)      , VALUE :: data_jbegin
215    END SUBROUTINE cxios_set_domain_data_jbegin
216
217    SUBROUTINE cxios_get_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C)
218      USE ISO_C_BINDING
219      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
220      INTEGER (KIND=C_INT)             :: data_jbegin
221    END SUBROUTINE cxios_get_domain_data_jbegin
222
223    FUNCTION cxios_is_defined_domain_data_jbegin(domain_hdl) BIND(C)
224      USE ISO_C_BINDING
225      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_jbegin
226      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
227    END FUNCTION cxios_is_defined_domain_data_jbegin
228
229
230    SUBROUTINE cxios_set_domain_data_n_index(domain_hdl, data_n_index) BIND(C)
231      USE ISO_C_BINDING
232      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
233      INTEGER (KIND=C_INT)      , VALUE :: data_n_index
234    END SUBROUTINE cxios_set_domain_data_n_index
235
236    SUBROUTINE cxios_get_domain_data_n_index(domain_hdl, data_n_index) BIND(C)
237      USE ISO_C_BINDING
238      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
239      INTEGER (KIND=C_INT)             :: data_n_index
240    END SUBROUTINE cxios_get_domain_data_n_index
241
242    FUNCTION cxios_is_defined_domain_data_n_index(domain_hdl) BIND(C)
243      USE ISO_C_BINDING
244      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_n_index
245      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
246    END FUNCTION cxios_is_defined_domain_data_n_index
247
248
249    SUBROUTINE cxios_set_domain_data_ni(domain_hdl, data_ni) BIND(C)
250      USE ISO_C_BINDING
251      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
252      INTEGER (KIND=C_INT)      , VALUE :: data_ni
253    END SUBROUTINE cxios_set_domain_data_ni
254
255    SUBROUTINE cxios_get_domain_data_ni(domain_hdl, data_ni) BIND(C)
256      USE ISO_C_BINDING
257      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
258      INTEGER (KIND=C_INT)             :: data_ni
259    END SUBROUTINE cxios_get_domain_data_ni
260
261    FUNCTION cxios_is_defined_domain_data_ni(domain_hdl) BIND(C)
262      USE ISO_C_BINDING
263      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ni
264      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
265    END FUNCTION cxios_is_defined_domain_data_ni
266
267
268    SUBROUTINE cxios_set_domain_data_nj(domain_hdl, data_nj) BIND(C)
269      USE ISO_C_BINDING
270      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
271      INTEGER (KIND=C_INT)      , VALUE :: data_nj
272    END SUBROUTINE cxios_set_domain_data_nj
273
274    SUBROUTINE cxios_get_domain_data_nj(domain_hdl, data_nj) BIND(C)
275      USE ISO_C_BINDING
276      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
277      INTEGER (KIND=C_INT)             :: data_nj
278    END SUBROUTINE cxios_get_domain_data_nj
279
280    FUNCTION cxios_is_defined_domain_data_nj(domain_hdl) BIND(C)
281      USE ISO_C_BINDING
282      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_nj
283      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
284    END FUNCTION cxios_is_defined_domain_data_nj
285
286
287    SUBROUTINE cxios_set_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
288      USE ISO_C_BINDING
289      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
290      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref
291      INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size
292    END SUBROUTINE cxios_set_domain_domain_group_ref
293
294    SUBROUTINE cxios_get_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
295      USE ISO_C_BINDING
296      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
297      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref
298      INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size
299    END SUBROUTINE cxios_get_domain_domain_group_ref
300
301    FUNCTION cxios_is_defined_domain_domain_group_ref(domain_hdl) BIND(C)
302      USE ISO_C_BINDING
303      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_group_ref
304      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
305    END FUNCTION cxios_is_defined_domain_domain_group_ref
306
307
308    SUBROUTINE cxios_set_domain_domain_ref(domain_hdl, domain_ref, domain_ref_size) BIND(C)
309      USE ISO_C_BINDING
310      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
311      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
312      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
313    END SUBROUTINE cxios_set_domain_domain_ref
314
315    SUBROUTINE cxios_get_domain_domain_ref(domain_hdl, domain_ref, domain_ref_size) BIND(C)
316      USE ISO_C_BINDING
317      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
318      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
319      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
320    END SUBROUTINE cxios_get_domain_domain_ref
321
322    FUNCTION cxios_is_defined_domain_domain_ref(domain_hdl) BIND(C)
323      USE ISO_C_BINDING
324      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_ref
325      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
326    END FUNCTION cxios_is_defined_domain_domain_ref
327
328
329    SUBROUTINE cxios_set_domain_i_index(domain_hdl, i_index, extent1) BIND(C)
330      USE ISO_C_BINDING
331      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
332      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index
333      INTEGER (kind = C_INT), VALUE  :: extent1
334    END SUBROUTINE cxios_set_domain_i_index
335
336    SUBROUTINE cxios_get_domain_i_index(domain_hdl, i_index, extent1) BIND(C)
337      USE ISO_C_BINDING
338      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
339      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index
340      INTEGER (kind = C_INT), VALUE  :: extent1
341    END SUBROUTINE cxios_get_domain_i_index
342
343    FUNCTION cxios_is_defined_domain_i_index(domain_hdl) BIND(C)
344      USE ISO_C_BINDING
345      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_i_index
346      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
347    END FUNCTION cxios_is_defined_domain_i_index
348
349
350    SUBROUTINE cxios_set_domain_ibegin(domain_hdl, ibegin) BIND(C)
351      USE ISO_C_BINDING
352      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
353      INTEGER (KIND=C_INT)      , VALUE :: ibegin
354    END SUBROUTINE cxios_set_domain_ibegin
355
356    SUBROUTINE cxios_get_domain_ibegin(domain_hdl, ibegin) BIND(C)
357      USE ISO_C_BINDING
358      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
359      INTEGER (KIND=C_INT)             :: ibegin
360    END SUBROUTINE cxios_get_domain_ibegin
361
362    FUNCTION cxios_is_defined_domain_ibegin(domain_hdl) BIND(C)
363      USE ISO_C_BINDING
364      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ibegin
365      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
366    END FUNCTION cxios_is_defined_domain_ibegin
367
368
369    SUBROUTINE cxios_set_domain_j_index(domain_hdl, j_index, extent1) BIND(C)
370      USE ISO_C_BINDING
371      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
372      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index
373      INTEGER (kind = C_INT), VALUE  :: extent1
374    END SUBROUTINE cxios_set_domain_j_index
375
376    SUBROUTINE cxios_get_domain_j_index(domain_hdl, j_index, extent1) BIND(C)
377      USE ISO_C_BINDING
378      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
379      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index
380      INTEGER (kind = C_INT), VALUE  :: extent1
381    END SUBROUTINE cxios_get_domain_j_index
382
383    FUNCTION cxios_is_defined_domain_j_index(domain_hdl) BIND(C)
384      USE ISO_C_BINDING
385      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_j_index
386      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
387    END FUNCTION cxios_is_defined_domain_j_index
388
389
390    SUBROUTINE cxios_set_domain_jbegin(domain_hdl, jbegin) BIND(C)
391      USE ISO_C_BINDING
392      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
393      INTEGER (KIND=C_INT)      , VALUE :: jbegin
394    END SUBROUTINE cxios_set_domain_jbegin
395
396    SUBROUTINE cxios_get_domain_jbegin(domain_hdl, jbegin) BIND(C)
397      USE ISO_C_BINDING
398      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
399      INTEGER (KIND=C_INT)             :: jbegin
400    END SUBROUTINE cxios_get_domain_jbegin
401
402    FUNCTION cxios_is_defined_domain_jbegin(domain_hdl) BIND(C)
403      USE ISO_C_BINDING
404      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jbegin
405      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
406    END FUNCTION cxios_is_defined_domain_jbegin
407
408
409    SUBROUTINE cxios_set_domain_latvalue_1d(domain_hdl, latvalue_1d, extent1) BIND(C)
410      USE ISO_C_BINDING
411      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
412      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_1d
413      INTEGER (kind = C_INT), VALUE  :: extent1
414    END SUBROUTINE cxios_set_domain_latvalue_1d
415
416    SUBROUTINE cxios_get_domain_latvalue_1d(domain_hdl, latvalue_1d, extent1) BIND(C)
417      USE ISO_C_BINDING
418      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
419      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_1d
420      INTEGER (kind = C_INT), VALUE  :: extent1
421    END SUBROUTINE cxios_get_domain_latvalue_1d
422
423    FUNCTION cxios_is_defined_domain_latvalue_1d(domain_hdl) BIND(C)
424      USE ISO_C_BINDING
425      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue_1d
426      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
427    END FUNCTION cxios_is_defined_domain_latvalue_1d
428
429
430    SUBROUTINE cxios_set_domain_latvalue_2d(domain_hdl, latvalue_2d, extent1, extent2) BIND(C)
431      USE ISO_C_BINDING
432      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
433      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_2d
434      INTEGER (kind = C_INT), VALUE  :: extent1
435      INTEGER (kind = C_INT), VALUE  :: extent2
436    END SUBROUTINE cxios_set_domain_latvalue_2d
437
438    SUBROUTINE cxios_get_domain_latvalue_2d(domain_hdl, latvalue_2d, extent1, extent2) BIND(C)
439      USE ISO_C_BINDING
440      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
441      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_2d
442      INTEGER (kind = C_INT), VALUE  :: extent1
443      INTEGER (kind = C_INT), VALUE  :: extent2
444    END SUBROUTINE cxios_get_domain_latvalue_2d
445
446    FUNCTION cxios_is_defined_domain_latvalue_2d(domain_hdl) BIND(C)
447      USE ISO_C_BINDING
448      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue_2d
449      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
450    END FUNCTION cxios_is_defined_domain_latvalue_2d
451
452
453    SUBROUTINE cxios_set_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C)
454      USE ISO_C_BINDING
455      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
456      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
457      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
458    END SUBROUTINE cxios_set_domain_long_name
459
460    SUBROUTINE cxios_get_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C)
461      USE ISO_C_BINDING
462      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
463      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
464      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
465    END SUBROUTINE cxios_get_domain_long_name
466
467    FUNCTION cxios_is_defined_domain_long_name(domain_hdl) BIND(C)
468      USE ISO_C_BINDING
469      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_long_name
470      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
471    END FUNCTION cxios_is_defined_domain_long_name
472
473
474    SUBROUTINE cxios_set_domain_lonvalue_1d(domain_hdl, lonvalue_1d, extent1) BIND(C)
475      USE ISO_C_BINDING
476      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
477      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_1d
478      INTEGER (kind = C_INT), VALUE  :: extent1
479    END SUBROUTINE cxios_set_domain_lonvalue_1d
480
481    SUBROUTINE cxios_get_domain_lonvalue_1d(domain_hdl, lonvalue_1d, extent1) BIND(C)
482      USE ISO_C_BINDING
483      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
484      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_1d
485      INTEGER (kind = C_INT), VALUE  :: extent1
486    END SUBROUTINE cxios_get_domain_lonvalue_1d
487
488    FUNCTION cxios_is_defined_domain_lonvalue_1d(domain_hdl) BIND(C)
489      USE ISO_C_BINDING
490      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue_1d
491      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
492    END FUNCTION cxios_is_defined_domain_lonvalue_1d
493
494
495    SUBROUTINE cxios_set_domain_lonvalue_2d(domain_hdl, lonvalue_2d, extent1, extent2) BIND(C)
496      USE ISO_C_BINDING
497      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
498      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_2d
499      INTEGER (kind = C_INT), VALUE  :: extent1
500      INTEGER (kind = C_INT), VALUE  :: extent2
501    END SUBROUTINE cxios_set_domain_lonvalue_2d
502
503    SUBROUTINE cxios_get_domain_lonvalue_2d(domain_hdl, lonvalue_2d, extent1, extent2) BIND(C)
504      USE ISO_C_BINDING
505      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
506      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_2d
507      INTEGER (kind = C_INT), VALUE  :: extent1
508      INTEGER (kind = C_INT), VALUE  :: extent2
509    END SUBROUTINE cxios_get_domain_lonvalue_2d
510
511    FUNCTION cxios_is_defined_domain_lonvalue_2d(domain_hdl) BIND(C)
512      USE ISO_C_BINDING
513      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue_2d
514      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
515    END FUNCTION cxios_is_defined_domain_lonvalue_2d
516
517
518    SUBROUTINE cxios_set_domain_mask_1d(domain_hdl, mask_1d, extent1) BIND(C)
519      USE ISO_C_BINDING
520      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
521      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_1d
522      INTEGER (kind = C_INT), VALUE  :: extent1
523    END SUBROUTINE cxios_set_domain_mask_1d
524
525    SUBROUTINE cxios_get_domain_mask_1d(domain_hdl, mask_1d, extent1) BIND(C)
526      USE ISO_C_BINDING
527      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
528      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_1d
529      INTEGER (kind = C_INT), VALUE  :: extent1
530    END SUBROUTINE cxios_get_domain_mask_1d
531
532    FUNCTION cxios_is_defined_domain_mask_1d(domain_hdl) BIND(C)
533      USE ISO_C_BINDING
534      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask_1d
535      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
536    END FUNCTION cxios_is_defined_domain_mask_1d
537
538
539    SUBROUTINE cxios_set_domain_mask_2d(domain_hdl, mask_2d, extent1, extent2) BIND(C)
540      USE ISO_C_BINDING
541      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
542      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_2d
543      INTEGER (kind = C_INT), VALUE  :: extent1
544      INTEGER (kind = C_INT), VALUE  :: extent2
545    END SUBROUTINE cxios_set_domain_mask_2d
546
547    SUBROUTINE cxios_get_domain_mask_2d(domain_hdl, mask_2d, extent1, extent2) BIND(C)
548      USE ISO_C_BINDING
549      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
550      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_2d
551      INTEGER (kind = C_INT), VALUE  :: extent1
552      INTEGER (kind = C_INT), VALUE  :: extent2
553    END SUBROUTINE cxios_get_domain_mask_2d
554
555    FUNCTION cxios_is_defined_domain_mask_2d(domain_hdl) BIND(C)
556      USE ISO_C_BINDING
557      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask_2d
558      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
559    END FUNCTION cxios_is_defined_domain_mask_2d
560
561
562    SUBROUTINE cxios_set_domain_name(domain_hdl, name, name_size) BIND(C)
563      USE ISO_C_BINDING
564      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
565      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
566      INTEGER  (kind = C_INT)     , VALUE        :: name_size
567    END SUBROUTINE cxios_set_domain_name
568
569    SUBROUTINE cxios_get_domain_name(domain_hdl, name, name_size) BIND(C)
570      USE ISO_C_BINDING
571      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
572      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
573      INTEGER  (kind = C_INT)     , VALUE        :: name_size
574    END SUBROUTINE cxios_get_domain_name
575
576    FUNCTION cxios_is_defined_domain_name(domain_hdl) BIND(C)
577      USE ISO_C_BINDING
578      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_name
579      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
580    END FUNCTION cxios_is_defined_domain_name
581
582
583    SUBROUTINE cxios_set_domain_ni(domain_hdl, ni) BIND(C)
584      USE ISO_C_BINDING
585      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
586      INTEGER (KIND=C_INT)      , VALUE :: ni
587    END SUBROUTINE cxios_set_domain_ni
588
589    SUBROUTINE cxios_get_domain_ni(domain_hdl, ni) BIND(C)
590      USE ISO_C_BINDING
591      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
592      INTEGER (KIND=C_INT)             :: ni
593    END SUBROUTINE cxios_get_domain_ni
594
595    FUNCTION cxios_is_defined_domain_ni(domain_hdl) BIND(C)
596      USE ISO_C_BINDING
597      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni
598      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
599    END FUNCTION cxios_is_defined_domain_ni
600
601
602    SUBROUTINE cxios_set_domain_ni_glo(domain_hdl, ni_glo) BIND(C)
603      USE ISO_C_BINDING
604      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
605      INTEGER (KIND=C_INT)      , VALUE :: ni_glo
606    END SUBROUTINE cxios_set_domain_ni_glo
607
608    SUBROUTINE cxios_get_domain_ni_glo(domain_hdl, ni_glo) BIND(C)
609      USE ISO_C_BINDING
610      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
611      INTEGER (KIND=C_INT)             :: ni_glo
612    END SUBROUTINE cxios_get_domain_ni_glo
613
614    FUNCTION cxios_is_defined_domain_ni_glo(domain_hdl) BIND(C)
615      USE ISO_C_BINDING
616      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni_glo
617      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
618    END FUNCTION cxios_is_defined_domain_ni_glo
619
620
621    SUBROUTINE cxios_set_domain_nj(domain_hdl, nj) BIND(C)
622      USE ISO_C_BINDING
623      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
624      INTEGER (KIND=C_INT)      , VALUE :: nj
625    END SUBROUTINE cxios_set_domain_nj
626
627    SUBROUTINE cxios_get_domain_nj(domain_hdl, nj) BIND(C)
628      USE ISO_C_BINDING
629      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
630      INTEGER (KIND=C_INT)             :: nj
631    END SUBROUTINE cxios_get_domain_nj
632
633    FUNCTION cxios_is_defined_domain_nj(domain_hdl) BIND(C)
634      USE ISO_C_BINDING
635      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj
636      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
637    END FUNCTION cxios_is_defined_domain_nj
638
639
640    SUBROUTINE cxios_set_domain_nj_glo(domain_hdl, nj_glo) BIND(C)
641      USE ISO_C_BINDING
642      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
643      INTEGER (KIND=C_INT)      , VALUE :: nj_glo
644    END SUBROUTINE cxios_set_domain_nj_glo
645
646    SUBROUTINE cxios_get_domain_nj_glo(domain_hdl, nj_glo) BIND(C)
647      USE ISO_C_BINDING
648      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
649      INTEGER (KIND=C_INT)             :: nj_glo
650    END SUBROUTINE cxios_get_domain_nj_glo
651
652    FUNCTION cxios_is_defined_domain_nj_glo(domain_hdl) BIND(C)
653      USE ISO_C_BINDING
654      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj_glo
655      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
656    END FUNCTION cxios_is_defined_domain_nj_glo
657
658
659    SUBROUTINE cxios_set_domain_nvertex(domain_hdl, nvertex) BIND(C)
660      USE ISO_C_BINDING
661      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
662      INTEGER (KIND=C_INT)      , VALUE :: nvertex
663    END SUBROUTINE cxios_set_domain_nvertex
664
665    SUBROUTINE cxios_get_domain_nvertex(domain_hdl, nvertex) BIND(C)
666      USE ISO_C_BINDING
667      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
668      INTEGER (KIND=C_INT)             :: nvertex
669    END SUBROUTINE cxios_get_domain_nvertex
670
671    FUNCTION cxios_is_defined_domain_nvertex(domain_hdl) BIND(C)
672      USE ISO_C_BINDING
673      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nvertex
674      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
675    END FUNCTION cxios_is_defined_domain_nvertex
676
677
678    SUBROUTINE cxios_set_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C)
679      USE ISO_C_BINDING
680      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
681      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
682      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
683    END SUBROUTINE cxios_set_domain_standard_name
684
685    SUBROUTINE cxios_get_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C)
686      USE ISO_C_BINDING
687      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
688      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
689      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
690    END SUBROUTINE cxios_get_domain_standard_name
691
692    FUNCTION cxios_is_defined_domain_standard_name(domain_hdl) BIND(C)
693      USE ISO_C_BINDING
694      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_standard_name
695      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
696    END FUNCTION cxios_is_defined_domain_standard_name
697
698
699    SUBROUTINE cxios_set_domain_type(domain_hdl, type, type_size) BIND(C)
700      USE ISO_C_BINDING
701      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
702      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
703      INTEGER  (kind = C_INT)     , VALUE        :: type_size
704    END SUBROUTINE cxios_set_domain_type
705
706    SUBROUTINE cxios_get_domain_type(domain_hdl, type, type_size) BIND(C)
707      USE ISO_C_BINDING
708      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
709      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
710      INTEGER  (kind = C_INT)     , VALUE        :: type_size
711    END SUBROUTINE cxios_get_domain_type
712
713    FUNCTION cxios_is_defined_domain_type(domain_hdl) BIND(C)
714      USE ISO_C_BINDING
715      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_type
716      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
717    END FUNCTION cxios_is_defined_domain_type
718
719  END INTERFACE
720
721END MODULE domain_interface_attr
Note: See TracBrowser for help on using the repository browser.