source: XIOS/trunk/src/interface/fortran_attr/domaingroup_interface_attr.F90 @ 690

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

Updating some fortran interface

Test
+) On Curie
+) All tests pass
  • 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 domaingroup_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_domaingroup_area(domaingroup_hdl, area, extent) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
15      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area
16      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
17    END SUBROUTINE cxios_set_domaingroup_area
18
19    SUBROUTINE cxios_get_domaingroup_area(domaingroup_hdl, area, extent) BIND(C)
20      USE ISO_C_BINDING
21      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
22      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area
23      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
24    END SUBROUTINE cxios_get_domaingroup_area
25
26    FUNCTION cxios_is_defined_domaingroup_area(domaingroup_hdl) BIND(C)
27      USE ISO_C_BINDING
28      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_area
29      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
30    END FUNCTION cxios_is_defined_domaingroup_area
31
32
33    SUBROUTINE cxios_set_domaingroup_bounds_lat_1d(domaingroup_hdl, bounds_lat_1d, extent) BIND(C)
34      USE ISO_C_BINDING
35      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
36      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_1d
37      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
38    END SUBROUTINE cxios_set_domaingroup_bounds_lat_1d
39
40    SUBROUTINE cxios_get_domaingroup_bounds_lat_1d(domaingroup_hdl, bounds_lat_1d, extent) BIND(C)
41      USE ISO_C_BINDING
42      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
43      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_1d
44      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
45    END SUBROUTINE cxios_get_domaingroup_bounds_lat_1d
46
47    FUNCTION cxios_is_defined_domaingroup_bounds_lat_1d(domaingroup_hdl) BIND(C)
48      USE ISO_C_BINDING
49      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lat_1d
50      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
51    END FUNCTION cxios_is_defined_domaingroup_bounds_lat_1d
52
53
54    SUBROUTINE cxios_set_domaingroup_bounds_lat_2d(domaingroup_hdl, bounds_lat_2d, extent) BIND(C)
55      USE ISO_C_BINDING
56      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
57      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_2d
58      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
59    END SUBROUTINE cxios_set_domaingroup_bounds_lat_2d
60
61    SUBROUTINE cxios_get_domaingroup_bounds_lat_2d(domaingroup_hdl, bounds_lat_2d, extent) BIND(C)
62      USE ISO_C_BINDING
63      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
64      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_2d
65      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
66    END SUBROUTINE cxios_get_domaingroup_bounds_lat_2d
67
68    FUNCTION cxios_is_defined_domaingroup_bounds_lat_2d(domaingroup_hdl) BIND(C)
69      USE ISO_C_BINDING
70      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lat_2d
71      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
72    END FUNCTION cxios_is_defined_domaingroup_bounds_lat_2d
73
74
75    SUBROUTINE cxios_set_domaingroup_bounds_lon_1d(domaingroup_hdl, bounds_lon_1d, extent) BIND(C)
76      USE ISO_C_BINDING
77      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
78      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_1d
79      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
80    END SUBROUTINE cxios_set_domaingroup_bounds_lon_1d
81
82    SUBROUTINE cxios_get_domaingroup_bounds_lon_1d(domaingroup_hdl, bounds_lon_1d, extent) BIND(C)
83      USE ISO_C_BINDING
84      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
85      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_1d
86      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
87    END SUBROUTINE cxios_get_domaingroup_bounds_lon_1d
88
89    FUNCTION cxios_is_defined_domaingroup_bounds_lon_1d(domaingroup_hdl) BIND(C)
90      USE ISO_C_BINDING
91      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lon_1d
92      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
93    END FUNCTION cxios_is_defined_domaingroup_bounds_lon_1d
94
95
96    SUBROUTINE cxios_set_domaingroup_bounds_lon_2d(domaingroup_hdl, bounds_lon_2d, extent) BIND(C)
97      USE ISO_C_BINDING
98      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
99      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_2d
100      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
101    END SUBROUTINE cxios_set_domaingroup_bounds_lon_2d
102
103    SUBROUTINE cxios_get_domaingroup_bounds_lon_2d(domaingroup_hdl, bounds_lon_2d, extent) BIND(C)
104      USE ISO_C_BINDING
105      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
106      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_2d
107      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
108    END SUBROUTINE cxios_get_domaingroup_bounds_lon_2d
109
110    FUNCTION cxios_is_defined_domaingroup_bounds_lon_2d(domaingroup_hdl) BIND(C)
111      USE ISO_C_BINDING
112      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lon_2d
113      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
114    END FUNCTION cxios_is_defined_domaingroup_bounds_lon_2d
115
116
117    SUBROUTINE cxios_set_domaingroup_data_dim(domaingroup_hdl, data_dim) BIND(C)
118      USE ISO_C_BINDING
119      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
120      INTEGER (KIND=C_INT)      , VALUE :: data_dim
121    END SUBROUTINE cxios_set_domaingroup_data_dim
122
123    SUBROUTINE cxios_get_domaingroup_data_dim(domaingroup_hdl, data_dim) BIND(C)
124      USE ISO_C_BINDING
125      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
126      INTEGER (KIND=C_INT)             :: data_dim
127    END SUBROUTINE cxios_get_domaingroup_data_dim
128
129    FUNCTION cxios_is_defined_domaingroup_data_dim(domaingroup_hdl) BIND(C)
130      USE ISO_C_BINDING
131      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_dim
132      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
133    END FUNCTION cxios_is_defined_domaingroup_data_dim
134
135
136    SUBROUTINE cxios_set_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent) BIND(C)
137      USE ISO_C_BINDING
138      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
139      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
140      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
141    END SUBROUTINE cxios_set_domaingroup_data_i_index
142
143    SUBROUTINE cxios_get_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent) BIND(C)
144      USE ISO_C_BINDING
145      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
146      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
147      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
148    END SUBROUTINE cxios_get_domaingroup_data_i_index
149
150    FUNCTION cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl) BIND(C)
151      USE ISO_C_BINDING
152      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_i_index
153      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
154    END FUNCTION cxios_is_defined_domaingroup_data_i_index
155
156
157    SUBROUTINE cxios_set_domaingroup_data_ibegin(domaingroup_hdl, data_ibegin) BIND(C)
158      USE ISO_C_BINDING
159      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
160      INTEGER (KIND=C_INT)      , VALUE :: data_ibegin
161    END SUBROUTINE cxios_set_domaingroup_data_ibegin
162
163    SUBROUTINE cxios_get_domaingroup_data_ibegin(domaingroup_hdl, data_ibegin) BIND(C)
164      USE ISO_C_BINDING
165      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
166      INTEGER (KIND=C_INT)             :: data_ibegin
167    END SUBROUTINE cxios_get_domaingroup_data_ibegin
168
169    FUNCTION cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl) BIND(C)
170      USE ISO_C_BINDING
171      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_ibegin
172      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
173    END FUNCTION cxios_is_defined_domaingroup_data_ibegin
174
175
176    SUBROUTINE cxios_set_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent) BIND(C)
177      USE ISO_C_BINDING
178      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
179      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
180      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
181    END SUBROUTINE cxios_set_domaingroup_data_j_index
182
183    SUBROUTINE cxios_get_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent) BIND(C)
184      USE ISO_C_BINDING
185      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
186      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
187      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
188    END SUBROUTINE cxios_get_domaingroup_data_j_index
189
190    FUNCTION cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl) BIND(C)
191      USE ISO_C_BINDING
192      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_j_index
193      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
194    END FUNCTION cxios_is_defined_domaingroup_data_j_index
195
196
197    SUBROUTINE cxios_set_domaingroup_data_jbegin(domaingroup_hdl, data_jbegin) BIND(C)
198      USE ISO_C_BINDING
199      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
200      INTEGER (KIND=C_INT)      , VALUE :: data_jbegin
201    END SUBROUTINE cxios_set_domaingroup_data_jbegin
202
203    SUBROUTINE cxios_get_domaingroup_data_jbegin(domaingroup_hdl, data_jbegin) BIND(C)
204      USE ISO_C_BINDING
205      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
206      INTEGER (KIND=C_INT)             :: data_jbegin
207    END SUBROUTINE cxios_get_domaingroup_data_jbegin
208
209    FUNCTION cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl) BIND(C)
210      USE ISO_C_BINDING
211      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_jbegin
212      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
213    END FUNCTION cxios_is_defined_domaingroup_data_jbegin
214
215
216    SUBROUTINE cxios_set_domaingroup_data_ni(domaingroup_hdl, data_ni) BIND(C)
217      USE ISO_C_BINDING
218      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
219      INTEGER (KIND=C_INT)      , VALUE :: data_ni
220    END SUBROUTINE cxios_set_domaingroup_data_ni
221
222    SUBROUTINE cxios_get_domaingroup_data_ni(domaingroup_hdl, data_ni) BIND(C)
223      USE ISO_C_BINDING
224      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
225      INTEGER (KIND=C_INT)             :: data_ni
226    END SUBROUTINE cxios_get_domaingroup_data_ni
227
228    FUNCTION cxios_is_defined_domaingroup_data_ni(domaingroup_hdl) BIND(C)
229      USE ISO_C_BINDING
230      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_ni
231      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
232    END FUNCTION cxios_is_defined_domaingroup_data_ni
233
234
235    SUBROUTINE cxios_set_domaingroup_data_nj(domaingroup_hdl, data_nj) BIND(C)
236      USE ISO_C_BINDING
237      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
238      INTEGER (KIND=C_INT)      , VALUE :: data_nj
239    END SUBROUTINE cxios_set_domaingroup_data_nj
240
241    SUBROUTINE cxios_get_domaingroup_data_nj(domaingroup_hdl, data_nj) BIND(C)
242      USE ISO_C_BINDING
243      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
244      INTEGER (KIND=C_INT)             :: data_nj
245    END SUBROUTINE cxios_get_domaingroup_data_nj
246
247    FUNCTION cxios_is_defined_domaingroup_data_nj(domaingroup_hdl) BIND(C)
248      USE ISO_C_BINDING
249      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_nj
250      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
251    END FUNCTION cxios_is_defined_domaingroup_data_nj
252
253
254    SUBROUTINE cxios_set_domaingroup_domain_group_ref(domaingroup_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
255      USE ISO_C_BINDING
256      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
257      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref
258      INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size
259    END SUBROUTINE cxios_set_domaingroup_domain_group_ref
260
261    SUBROUTINE cxios_get_domaingroup_domain_group_ref(domaingroup_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
262      USE ISO_C_BINDING
263      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
264      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref
265      INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size
266    END SUBROUTINE cxios_get_domaingroup_domain_group_ref
267
268    FUNCTION cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl) BIND(C)
269      USE ISO_C_BINDING
270      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_domain_group_ref
271      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
272    END FUNCTION cxios_is_defined_domaingroup_domain_group_ref
273
274
275    SUBROUTINE cxios_set_domaingroup_domain_ref(domaingroup_hdl, domain_ref, domain_ref_size) BIND(C)
276      USE ISO_C_BINDING
277      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
278      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
279      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
280    END SUBROUTINE cxios_set_domaingroup_domain_ref
281
282    SUBROUTINE cxios_get_domaingroup_domain_ref(domaingroup_hdl, domain_ref, domain_ref_size) BIND(C)
283      USE ISO_C_BINDING
284      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
285      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
286      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
287    END SUBROUTINE cxios_get_domaingroup_domain_ref
288
289    FUNCTION cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl) BIND(C)
290      USE ISO_C_BINDING
291      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_domain_ref
292      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
293    END FUNCTION cxios_is_defined_domaingroup_domain_ref
294
295
296    SUBROUTINE cxios_set_domaingroup_domain_src(domaingroup_hdl, domain_src, domain_src_size) BIND(C)
297      USE ISO_C_BINDING
298      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
299      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_src
300      INTEGER  (kind = C_INT)     , VALUE        :: domain_src_size
301    END SUBROUTINE cxios_set_domaingroup_domain_src
302
303    SUBROUTINE cxios_get_domaingroup_domain_src(domaingroup_hdl, domain_src, domain_src_size) BIND(C)
304      USE ISO_C_BINDING
305      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
306      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_src
307      INTEGER  (kind = C_INT)     , VALUE        :: domain_src_size
308    END SUBROUTINE cxios_get_domaingroup_domain_src
309
310    FUNCTION cxios_is_defined_domaingroup_domain_src(domaingroup_hdl) BIND(C)
311      USE ISO_C_BINDING
312      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_domain_src
313      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
314    END FUNCTION cxios_is_defined_domaingroup_domain_src
315
316
317    SUBROUTINE cxios_set_domaingroup_group_ref(domaingroup_hdl, group_ref, group_ref_size) BIND(C)
318      USE ISO_C_BINDING
319      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
320      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
321      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
322    END SUBROUTINE cxios_set_domaingroup_group_ref
323
324    SUBROUTINE cxios_get_domaingroup_group_ref(domaingroup_hdl, group_ref, group_ref_size) BIND(C)
325      USE ISO_C_BINDING
326      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
327      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
328      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
329    END SUBROUTINE cxios_get_domaingroup_group_ref
330
331    FUNCTION cxios_is_defined_domaingroup_group_ref(domaingroup_hdl) BIND(C)
332      USE ISO_C_BINDING
333      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_group_ref
334      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
335    END FUNCTION cxios_is_defined_domaingroup_group_ref
336
337
338    SUBROUTINE cxios_set_domaingroup_i_index(domaingroup_hdl, i_index, extent) BIND(C)
339      USE ISO_C_BINDING
340      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
341      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index
342      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
343    END SUBROUTINE cxios_set_domaingroup_i_index
344
345    SUBROUTINE cxios_get_domaingroup_i_index(domaingroup_hdl, i_index, extent) BIND(C)
346      USE ISO_C_BINDING
347      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
348      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index
349      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
350    END SUBROUTINE cxios_get_domaingroup_i_index
351
352    FUNCTION cxios_is_defined_domaingroup_i_index(domaingroup_hdl) BIND(C)
353      USE ISO_C_BINDING
354      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_i_index
355      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
356    END FUNCTION cxios_is_defined_domaingroup_i_index
357
358
359    SUBROUTINE cxios_set_domaingroup_ibegin(domaingroup_hdl, ibegin) BIND(C)
360      USE ISO_C_BINDING
361      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
362      INTEGER (KIND=C_INT)      , VALUE :: ibegin
363    END SUBROUTINE cxios_set_domaingroup_ibegin
364
365    SUBROUTINE cxios_get_domaingroup_ibegin(domaingroup_hdl, ibegin) BIND(C)
366      USE ISO_C_BINDING
367      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
368      INTEGER (KIND=C_INT)             :: ibegin
369    END SUBROUTINE cxios_get_domaingroup_ibegin
370
371    FUNCTION cxios_is_defined_domaingroup_ibegin(domaingroup_hdl) BIND(C)
372      USE ISO_C_BINDING
373      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ibegin
374      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
375    END FUNCTION cxios_is_defined_domaingroup_ibegin
376
377
378    SUBROUTINE cxios_set_domaingroup_j_index(domaingroup_hdl, j_index, extent) BIND(C)
379      USE ISO_C_BINDING
380      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
381      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index
382      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
383    END SUBROUTINE cxios_set_domaingroup_j_index
384
385    SUBROUTINE cxios_get_domaingroup_j_index(domaingroup_hdl, j_index, extent) BIND(C)
386      USE ISO_C_BINDING
387      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
388      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index
389      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
390    END SUBROUTINE cxios_get_domaingroup_j_index
391
392    FUNCTION cxios_is_defined_domaingroup_j_index(domaingroup_hdl) BIND(C)
393      USE ISO_C_BINDING
394      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_j_index
395      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
396    END FUNCTION cxios_is_defined_domaingroup_j_index
397
398
399    SUBROUTINE cxios_set_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C)
400      USE ISO_C_BINDING
401      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
402      INTEGER (KIND=C_INT)      , VALUE :: jbegin
403    END SUBROUTINE cxios_set_domaingroup_jbegin
404
405    SUBROUTINE cxios_get_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C)
406      USE ISO_C_BINDING
407      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
408      INTEGER (KIND=C_INT)             :: jbegin
409    END SUBROUTINE cxios_get_domaingroup_jbegin
410
411    FUNCTION cxios_is_defined_domaingroup_jbegin(domaingroup_hdl) BIND(C)
412      USE ISO_C_BINDING
413      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_jbegin
414      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
415    END FUNCTION cxios_is_defined_domaingroup_jbegin
416
417
418    SUBROUTINE cxios_set_domaingroup_latvalue_1d(domaingroup_hdl, latvalue_1d, extent) BIND(C)
419      USE ISO_C_BINDING
420      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
421      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_1d
422      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
423    END SUBROUTINE cxios_set_domaingroup_latvalue_1d
424
425    SUBROUTINE cxios_get_domaingroup_latvalue_1d(domaingroup_hdl, latvalue_1d, extent) BIND(C)
426      USE ISO_C_BINDING
427      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
428      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_1d
429      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
430    END SUBROUTINE cxios_get_domaingroup_latvalue_1d
431
432    FUNCTION cxios_is_defined_domaingroup_latvalue_1d(domaingroup_hdl) BIND(C)
433      USE ISO_C_BINDING
434      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_latvalue_1d
435      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
436    END FUNCTION cxios_is_defined_domaingroup_latvalue_1d
437
438
439    SUBROUTINE cxios_set_domaingroup_latvalue_2d(domaingroup_hdl, latvalue_2d, extent) BIND(C)
440      USE ISO_C_BINDING
441      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
442      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_2d
443      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
444    END SUBROUTINE cxios_set_domaingroup_latvalue_2d
445
446    SUBROUTINE cxios_get_domaingroup_latvalue_2d(domaingroup_hdl, latvalue_2d, extent) BIND(C)
447      USE ISO_C_BINDING
448      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
449      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_2d
450      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
451    END SUBROUTINE cxios_get_domaingroup_latvalue_2d
452
453    FUNCTION cxios_is_defined_domaingroup_latvalue_2d(domaingroup_hdl) BIND(C)
454      USE ISO_C_BINDING
455      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_latvalue_2d
456      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
457    END FUNCTION cxios_is_defined_domaingroup_latvalue_2d
458
459
460    SUBROUTINE cxios_set_domaingroup_long_name(domaingroup_hdl, long_name, long_name_size) BIND(C)
461      USE ISO_C_BINDING
462      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
463      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
464      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
465    END SUBROUTINE cxios_set_domaingroup_long_name
466
467    SUBROUTINE cxios_get_domaingroup_long_name(domaingroup_hdl, long_name, long_name_size) BIND(C)
468      USE ISO_C_BINDING
469      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
470      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
471      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
472    END SUBROUTINE cxios_get_domaingroup_long_name
473
474    FUNCTION cxios_is_defined_domaingroup_long_name(domaingroup_hdl) BIND(C)
475      USE ISO_C_BINDING
476      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_long_name
477      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
478    END FUNCTION cxios_is_defined_domaingroup_long_name
479
480
481    SUBROUTINE cxios_set_domaingroup_lonvalue_1d(domaingroup_hdl, lonvalue_1d, extent) BIND(C)
482      USE ISO_C_BINDING
483      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
484      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_1d
485      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
486    END SUBROUTINE cxios_set_domaingroup_lonvalue_1d
487
488    SUBROUTINE cxios_get_domaingroup_lonvalue_1d(domaingroup_hdl, lonvalue_1d, extent) BIND(C)
489      USE ISO_C_BINDING
490      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
491      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_1d
492      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
493    END SUBROUTINE cxios_get_domaingroup_lonvalue_1d
494
495    FUNCTION cxios_is_defined_domaingroup_lonvalue_1d(domaingroup_hdl) BIND(C)
496      USE ISO_C_BINDING
497      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_lonvalue_1d
498      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
499    END FUNCTION cxios_is_defined_domaingroup_lonvalue_1d
500
501
502    SUBROUTINE cxios_set_domaingroup_lonvalue_2d(domaingroup_hdl, lonvalue_2d, extent) BIND(C)
503      USE ISO_C_BINDING
504      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
505      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_2d
506      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
507    END SUBROUTINE cxios_set_domaingroup_lonvalue_2d
508
509    SUBROUTINE cxios_get_domaingroup_lonvalue_2d(domaingroup_hdl, lonvalue_2d, extent) BIND(C)
510      USE ISO_C_BINDING
511      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
512      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_2d
513      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
514    END SUBROUTINE cxios_get_domaingroup_lonvalue_2d
515
516    FUNCTION cxios_is_defined_domaingroup_lonvalue_2d(domaingroup_hdl) BIND(C)
517      USE ISO_C_BINDING
518      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_lonvalue_2d
519      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
520    END FUNCTION cxios_is_defined_domaingroup_lonvalue_2d
521
522
523    SUBROUTINE cxios_set_domaingroup_mask_1d(domaingroup_hdl, mask_1d, extent) BIND(C)
524      USE ISO_C_BINDING
525      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
526      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_1d
527      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
528    END SUBROUTINE cxios_set_domaingroup_mask_1d
529
530    SUBROUTINE cxios_get_domaingroup_mask_1d(domaingroup_hdl, mask_1d, extent) BIND(C)
531      USE ISO_C_BINDING
532      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
533      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_1d
534      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
535    END SUBROUTINE cxios_get_domaingroup_mask_1d
536
537    FUNCTION cxios_is_defined_domaingroup_mask_1d(domaingroup_hdl) BIND(C)
538      USE ISO_C_BINDING
539      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_mask_1d
540      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
541    END FUNCTION cxios_is_defined_domaingroup_mask_1d
542
543
544    SUBROUTINE cxios_set_domaingroup_mask_2d(domaingroup_hdl, mask_2d, extent) BIND(C)
545      USE ISO_C_BINDING
546      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
547      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_2d
548      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
549    END SUBROUTINE cxios_set_domaingroup_mask_2d
550
551    SUBROUTINE cxios_get_domaingroup_mask_2d(domaingroup_hdl, mask_2d, extent) BIND(C)
552      USE ISO_C_BINDING
553      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
554      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_2d
555      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
556    END SUBROUTINE cxios_get_domaingroup_mask_2d
557
558    FUNCTION cxios_is_defined_domaingroup_mask_2d(domaingroup_hdl) BIND(C)
559      USE ISO_C_BINDING
560      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_mask_2d
561      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
562    END FUNCTION cxios_is_defined_domaingroup_mask_2d
563
564
565    SUBROUTINE cxios_set_domaingroup_name(domaingroup_hdl, name, name_size) BIND(C)
566      USE ISO_C_BINDING
567      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
568      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
569      INTEGER  (kind = C_INT)     , VALUE        :: name_size
570    END SUBROUTINE cxios_set_domaingroup_name
571
572    SUBROUTINE cxios_get_domaingroup_name(domaingroup_hdl, name, name_size) BIND(C)
573      USE ISO_C_BINDING
574      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
575      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
576      INTEGER  (kind = C_INT)     , VALUE        :: name_size
577    END SUBROUTINE cxios_get_domaingroup_name
578
579    FUNCTION cxios_is_defined_domaingroup_name(domaingroup_hdl) BIND(C)
580      USE ISO_C_BINDING
581      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_name
582      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
583    END FUNCTION cxios_is_defined_domaingroup_name
584
585
586    SUBROUTINE cxios_set_domaingroup_ni(domaingroup_hdl, ni) BIND(C)
587      USE ISO_C_BINDING
588      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
589      INTEGER (KIND=C_INT)      , VALUE :: ni
590    END SUBROUTINE cxios_set_domaingroup_ni
591
592    SUBROUTINE cxios_get_domaingroup_ni(domaingroup_hdl, ni) BIND(C)
593      USE ISO_C_BINDING
594      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
595      INTEGER (KIND=C_INT)             :: ni
596    END SUBROUTINE cxios_get_domaingroup_ni
597
598    FUNCTION cxios_is_defined_domaingroup_ni(domaingroup_hdl) BIND(C)
599      USE ISO_C_BINDING
600      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni
601      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
602    END FUNCTION cxios_is_defined_domaingroup_ni
603
604
605    SUBROUTINE cxios_set_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C)
606      USE ISO_C_BINDING
607      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
608      INTEGER (KIND=C_INT)      , VALUE :: ni_glo
609    END SUBROUTINE cxios_set_domaingroup_ni_glo
610
611    SUBROUTINE cxios_get_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C)
612      USE ISO_C_BINDING
613      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
614      INTEGER (KIND=C_INT)             :: ni_glo
615    END SUBROUTINE cxios_get_domaingroup_ni_glo
616
617    FUNCTION cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl) BIND(C)
618      USE ISO_C_BINDING
619      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni_glo
620      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
621    END FUNCTION cxios_is_defined_domaingroup_ni_glo
622
623
624    SUBROUTINE cxios_set_domaingroup_nj(domaingroup_hdl, nj) BIND(C)
625      USE ISO_C_BINDING
626      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
627      INTEGER (KIND=C_INT)      , VALUE :: nj
628    END SUBROUTINE cxios_set_domaingroup_nj
629
630    SUBROUTINE cxios_get_domaingroup_nj(domaingroup_hdl, nj) BIND(C)
631      USE ISO_C_BINDING
632      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
633      INTEGER (KIND=C_INT)             :: nj
634    END SUBROUTINE cxios_get_domaingroup_nj
635
636    FUNCTION cxios_is_defined_domaingroup_nj(domaingroup_hdl) BIND(C)
637      USE ISO_C_BINDING
638      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj
639      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
640    END FUNCTION cxios_is_defined_domaingroup_nj
641
642
643    SUBROUTINE cxios_set_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C)
644      USE ISO_C_BINDING
645      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
646      INTEGER (KIND=C_INT)      , VALUE :: nj_glo
647    END SUBROUTINE cxios_set_domaingroup_nj_glo
648
649    SUBROUTINE cxios_get_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C)
650      USE ISO_C_BINDING
651      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
652      INTEGER (KIND=C_INT)             :: nj_glo
653    END SUBROUTINE cxios_get_domaingroup_nj_glo
654
655    FUNCTION cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl) BIND(C)
656      USE ISO_C_BINDING
657      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj_glo
658      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
659    END FUNCTION cxios_is_defined_domaingroup_nj_glo
660
661
662    SUBROUTINE cxios_set_domaingroup_nvertex(domaingroup_hdl, nvertex) BIND(C)
663      USE ISO_C_BINDING
664      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
665      INTEGER (KIND=C_INT)      , VALUE :: nvertex
666    END SUBROUTINE cxios_set_domaingroup_nvertex
667
668    SUBROUTINE cxios_get_domaingroup_nvertex(domaingroup_hdl, nvertex) BIND(C)
669      USE ISO_C_BINDING
670      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
671      INTEGER (KIND=C_INT)             :: nvertex
672    END SUBROUTINE cxios_get_domaingroup_nvertex
673
674    FUNCTION cxios_is_defined_domaingroup_nvertex(domaingroup_hdl) BIND(C)
675      USE ISO_C_BINDING
676      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nvertex
677      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
678    END FUNCTION cxios_is_defined_domaingroup_nvertex
679
680
681    SUBROUTINE cxios_set_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C)
682      USE ISO_C_BINDING
683      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
684      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
685      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
686    END SUBROUTINE cxios_set_domaingroup_standard_name
687
688    SUBROUTINE cxios_get_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C)
689      USE ISO_C_BINDING
690      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
691      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
692      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
693    END SUBROUTINE cxios_get_domaingroup_standard_name
694
695    FUNCTION cxios_is_defined_domaingroup_standard_name(domaingroup_hdl) BIND(C)
696      USE ISO_C_BINDING
697      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_standard_name
698      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
699    END FUNCTION cxios_is_defined_domaingroup_standard_name
700
701
702    SUBROUTINE cxios_set_domaingroup_type(domaingroup_hdl, type, type_size) BIND(C)
703      USE ISO_C_BINDING
704      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
705      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
706      INTEGER  (kind = C_INT)     , VALUE        :: type_size
707    END SUBROUTINE cxios_set_domaingroup_type
708
709    SUBROUTINE cxios_get_domaingroup_type(domaingroup_hdl, type, type_size) BIND(C)
710      USE ISO_C_BINDING
711      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
712      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
713      INTEGER  (kind = C_INT)     , VALUE        :: type_size
714    END SUBROUTINE cxios_get_domaingroup_type
715
716    FUNCTION cxios_is_defined_domaingroup_type(domaingroup_hdl) BIND(C)
717      USE ISO_C_BINDING
718      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_type
719      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
720    END FUNCTION cxios_is_defined_domaingroup_type
721
722  END INTERFACE
723
724END MODULE domaingroup_interface_attr
Note: See TracBrowser for help on using the repository browser.