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

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

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