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

Last change on this file since 532 was 532, checked in by rlacroix, 10 years ago

Add a new attribute type for dates and use it for the context's start_date and time_origin.

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