source: XIOS/trunk/src/interface/fortran_attr/domain_interface_attr.f90 @ 529

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