source: XIOS/trunk/src/interface/fortran_attr/domaingroup_interface_attr.f90 @ 527

Last change on this file since 527 was 501, checked in by ymipsl, 10 years ago

Add licence copyright to all file ond directory src using the command :
svn propset -R copyright -F header_licence src

XIOS is now officialy under CeCILL licence

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