source: XIOS/trunk/src/interface/fortran_attr/axis_interface_attr.F90 @ 878

Last change on this file since 878 was 817, checked in by mhnguyen, 8 years ago

Adding some attributes for axis and grid (ticket 71, 78)

+) Add index attribute for axis
+) Change mask?d to mask_?d for grid

Test
+) On Curie
+) Test passes
  • 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: 14.3 KB
RevLine 
[326]1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
[532]4#include "../fortran/xios_fortran_prefix.hpp"
[326]5
6MODULE axis_interface_attr
7  USE, INTRINSIC :: ISO_C_BINDING
[581]8
9  INTERFACE
10    ! Do not call directly / interface FORTRAN 2003 <-> C99
11
[546]12    SUBROUTINE cxios_set_axis_axis_ref(axis_hdl, axis_ref, axis_ref_size) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
15      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
16      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
17    END SUBROUTINE cxios_set_axis_axis_ref
[581]18
[546]19    SUBROUTINE cxios_get_axis_axis_ref(axis_hdl, axis_ref, axis_ref_size) BIND(C)
20      USE ISO_C_BINDING
21      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
22      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
23      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
24    END SUBROUTINE cxios_get_axis_axis_ref
[581]25
26    FUNCTION cxios_is_defined_axis_axis_ref(axis_hdl) BIND(C)
[546]27      USE ISO_C_BINDING
28      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_axis_ref
29      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
30    END FUNCTION cxios_is_defined_axis_axis_ref
[581]31
32
[666]33    SUBROUTINE cxios_set_axis_begin(axis_hdl, begin) BIND(C)
34      USE ISO_C_BINDING
35      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
36      INTEGER (KIND=C_INT)      , VALUE :: begin
37    END SUBROUTINE cxios_set_axis_begin
38
39    SUBROUTINE cxios_get_axis_begin(axis_hdl, begin) BIND(C)
40      USE ISO_C_BINDING
41      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
42      INTEGER (KIND=C_INT)             :: begin
43    END SUBROUTINE cxios_get_axis_begin
44
45    FUNCTION cxios_is_defined_axis_begin(axis_hdl) BIND(C)
46      USE ISO_C_BINDING
47      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_begin
48      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
49    END FUNCTION cxios_is_defined_axis_begin
50
51
[674]52    SUBROUTINE cxios_set_axis_bounds(axis_hdl, bounds, extent) BIND(C)
[609]53      USE ISO_C_BINDING
54      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
55      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds
[674]56      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[609]57    END SUBROUTINE cxios_set_axis_bounds
58
[674]59    SUBROUTINE cxios_get_axis_bounds(axis_hdl, bounds, extent) BIND(C)
[609]60      USE ISO_C_BINDING
61      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
62      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds
[674]63      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[609]64    END SUBROUTINE cxios_get_axis_bounds
65
66    FUNCTION cxios_is_defined_axis_bounds(axis_hdl) BIND(C)
67      USE ISO_C_BINDING
68      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_bounds
69      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
70    END FUNCTION cxios_is_defined_axis_bounds
71
72
[555]73    SUBROUTINE cxios_set_axis_data_begin(axis_hdl, data_begin) BIND(C)
74      USE ISO_C_BINDING
75      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
76      INTEGER (KIND=C_INT)      , VALUE :: data_begin
77    END SUBROUTINE cxios_set_axis_data_begin
[581]78
[555]79    SUBROUTINE cxios_get_axis_data_begin(axis_hdl, data_begin) BIND(C)
80      USE ISO_C_BINDING
81      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
82      INTEGER (KIND=C_INT)             :: data_begin
83    END SUBROUTINE cxios_get_axis_data_begin
[581]84
85    FUNCTION cxios_is_defined_axis_data_begin(axis_hdl) BIND(C)
[555]86      USE ISO_C_BINDING
87      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_data_begin
88      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
89    END FUNCTION cxios_is_defined_axis_data_begin
[581]90
91
[674]92    SUBROUTINE cxios_set_axis_data_index(axis_hdl, data_index, extent) BIND(C)
[555]93      USE ISO_C_BINDING
94      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
95      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index
[674]96      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[555]97    END SUBROUTINE cxios_set_axis_data_index
[581]98
[674]99    SUBROUTINE cxios_get_axis_data_index(axis_hdl, data_index, extent) BIND(C)
[555]100      USE ISO_C_BINDING
101      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
102      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index
[674]103      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[555]104    END SUBROUTINE cxios_get_axis_data_index
[581]105
106    FUNCTION cxios_is_defined_axis_data_index(axis_hdl) BIND(C)
[555]107      USE ISO_C_BINDING
108      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_data_index
109      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
110    END FUNCTION cxios_is_defined_axis_data_index
[581]111
112
[555]113    SUBROUTINE cxios_set_axis_data_n(axis_hdl, data_n) BIND(C)
114      USE ISO_C_BINDING
115      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
116      INTEGER (KIND=C_INT)      , VALUE :: data_n
117    END SUBROUTINE cxios_set_axis_data_n
[581]118
[555]119    SUBROUTINE cxios_get_axis_data_n(axis_hdl, data_n) BIND(C)
120      USE ISO_C_BINDING
121      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
122      INTEGER (KIND=C_INT)             :: data_n
123    END SUBROUTINE cxios_get_axis_data_n
[581]124
125    FUNCTION cxios_is_defined_axis_data_n(axis_hdl) BIND(C)
[555]126      USE ISO_C_BINDING
127      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_data_n
128      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
129    END FUNCTION cxios_is_defined_axis_data_n
[581]130
131
[817]132    SUBROUTINE cxios_set_axis_index(axis_hdl, index, extent) BIND(C)
133      USE ISO_C_BINDING
134      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
135      INTEGER (KIND=C_INT)     , DIMENSION(*) :: index
136      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
137    END SUBROUTINE cxios_set_axis_index
138
139    SUBROUTINE cxios_get_axis_index(axis_hdl, index, extent) BIND(C)
140      USE ISO_C_BINDING
141      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
142      INTEGER (KIND=C_INT)     , DIMENSION(*) :: index
143      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
144    END SUBROUTINE cxios_get_axis_index
145
146    FUNCTION cxios_is_defined_axis_index(axis_hdl) BIND(C)
147      USE ISO_C_BINDING
148      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_index
149      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
150    END FUNCTION cxios_is_defined_axis_index
151
152
[326]153    SUBROUTINE cxios_set_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C)
154      USE ISO_C_BINDING
155      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
156      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
157      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
158    END SUBROUTINE cxios_set_axis_long_name
[581]159
[326]160    SUBROUTINE cxios_get_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C)
161      USE ISO_C_BINDING
162      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
163      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
164      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
165    END SUBROUTINE cxios_get_axis_long_name
[581]166
167    FUNCTION cxios_is_defined_axis_long_name(axis_hdl) BIND(C)
[432]168      USE ISO_C_BINDING
169      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_long_name
170      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
171    END FUNCTION cxios_is_defined_axis_long_name
[581]172
173
[674]174    SUBROUTINE cxios_set_axis_mask(axis_hdl, mask, extent) BIND(C)
[555]175      USE ISO_C_BINDING
176      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
177      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
[674]178      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[555]179    END SUBROUTINE cxios_set_axis_mask
[581]180
[674]181    SUBROUTINE cxios_get_axis_mask(axis_hdl, mask, extent) BIND(C)
[555]182      USE ISO_C_BINDING
183      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
184      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
[674]185      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[555]186    END SUBROUTINE cxios_get_axis_mask
[581]187
188    FUNCTION cxios_is_defined_axis_mask(axis_hdl) BIND(C)
[555]189      USE ISO_C_BINDING
190      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_mask
191      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
192    END FUNCTION cxios_is_defined_axis_mask
[581]193
194
[666]195    SUBROUTINE cxios_set_axis_n(axis_hdl, n) BIND(C)
196      USE ISO_C_BINDING
197      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
198      INTEGER (KIND=C_INT)      , VALUE :: n
199    END SUBROUTINE cxios_set_axis_n
200
201    SUBROUTINE cxios_get_axis_n(axis_hdl, n) BIND(C)
202      USE ISO_C_BINDING
203      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
204      INTEGER (KIND=C_INT)             :: n
205    END SUBROUTINE cxios_get_axis_n
206
207    FUNCTION cxios_is_defined_axis_n(axis_hdl) BIND(C)
208      USE ISO_C_BINDING
209      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_n
210      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
211    END FUNCTION cxios_is_defined_axis_n
212
213
[779]214    SUBROUTINE cxios_set_axis_n_distributed_partition(axis_hdl, n_distributed_partition) BIND(C)
215      USE ISO_C_BINDING
216      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
217      INTEGER (KIND=C_INT)      , VALUE :: n_distributed_partition
218    END SUBROUTINE cxios_set_axis_n_distributed_partition
219
220    SUBROUTINE cxios_get_axis_n_distributed_partition(axis_hdl, n_distributed_partition) BIND(C)
221      USE ISO_C_BINDING
222      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
223      INTEGER (KIND=C_INT)             :: n_distributed_partition
224    END SUBROUTINE cxios_get_axis_n_distributed_partition
225
226    FUNCTION cxios_is_defined_axis_n_distributed_partition(axis_hdl) BIND(C)
227      USE ISO_C_BINDING
228      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_n_distributed_partition
229      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
230    END FUNCTION cxios_is_defined_axis_n_distributed_partition
231
232
[666]233    SUBROUTINE cxios_set_axis_n_glo(axis_hdl, n_glo) BIND(C)
234      USE ISO_C_BINDING
235      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
236      INTEGER (KIND=C_INT)      , VALUE :: n_glo
237    END SUBROUTINE cxios_set_axis_n_glo
238
239    SUBROUTINE cxios_get_axis_n_glo(axis_hdl, n_glo) BIND(C)
240      USE ISO_C_BINDING
241      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
242      INTEGER (KIND=C_INT)             :: n_glo
243    END SUBROUTINE cxios_get_axis_n_glo
244
245    FUNCTION cxios_is_defined_axis_n_glo(axis_hdl) BIND(C)
246      USE ISO_C_BINDING
247      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_n_glo
248      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
249    END FUNCTION cxios_is_defined_axis_n_glo
250
251
[326]252    SUBROUTINE cxios_set_axis_name(axis_hdl, name, name_size) BIND(C)
253      USE ISO_C_BINDING
254      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
255      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
256      INTEGER  (kind = C_INT)     , VALUE        :: name_size
257    END SUBROUTINE cxios_set_axis_name
[581]258
[326]259    SUBROUTINE cxios_get_axis_name(axis_hdl, name, name_size) BIND(C)
260      USE ISO_C_BINDING
261      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
262      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
263      INTEGER  (kind = C_INT)     , VALUE        :: name_size
264    END SUBROUTINE cxios_get_axis_name
[581]265
266    FUNCTION cxios_is_defined_axis_name(axis_hdl) BIND(C)
[432]267      USE ISO_C_BINDING
268      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_name
269      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
270    END FUNCTION cxios_is_defined_axis_name
[581]271
272
[415]273    SUBROUTINE cxios_set_axis_positive(axis_hdl, positive, positive_size) BIND(C)
274      USE ISO_C_BINDING
275      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
276      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
277      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
278    END SUBROUTINE cxios_set_axis_positive
[581]279
[415]280    SUBROUTINE cxios_get_axis_positive(axis_hdl, positive, positive_size) BIND(C)
281      USE ISO_C_BINDING
282      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
283      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
284      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
285    END SUBROUTINE cxios_get_axis_positive
[581]286
287    FUNCTION cxios_is_defined_axis_positive(axis_hdl) BIND(C)
[432]288      USE ISO_C_BINDING
289      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_positive
290      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
291    END FUNCTION cxios_is_defined_axis_positive
[581]292
293
[326]294    SUBROUTINE cxios_set_axis_standard_name(axis_hdl, standard_name, standard_name_size) BIND(C)
295      USE ISO_C_BINDING
296      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
297      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
298      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
299    END SUBROUTINE cxios_set_axis_standard_name
[581]300
[326]301    SUBROUTINE cxios_get_axis_standard_name(axis_hdl, standard_name, standard_name_size) BIND(C)
302      USE ISO_C_BINDING
303      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
304      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
305      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
306    END SUBROUTINE cxios_get_axis_standard_name
[581]307
308    FUNCTION cxios_is_defined_axis_standard_name(axis_hdl) BIND(C)
[432]309      USE ISO_C_BINDING
310      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_standard_name
311      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
312    END FUNCTION cxios_is_defined_axis_standard_name
[581]313
314
[326]315    SUBROUTINE cxios_set_axis_unit(axis_hdl, unit, unit_size) BIND(C)
316      USE ISO_C_BINDING
317      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
318      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
319      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
320    END SUBROUTINE cxios_set_axis_unit
[581]321
[326]322    SUBROUTINE cxios_get_axis_unit(axis_hdl, unit, unit_size) BIND(C)
323      USE ISO_C_BINDING
324      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
325      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
326      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
327    END SUBROUTINE cxios_get_axis_unit
[581]328
329    FUNCTION cxios_is_defined_axis_unit(axis_hdl) BIND(C)
[432]330      USE ISO_C_BINDING
331      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_unit
332      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
333    END FUNCTION cxios_is_defined_axis_unit
[581]334
335
[674]336    SUBROUTINE cxios_set_axis_value(axis_hdl, value, extent) BIND(C)
[326]337      USE ISO_C_BINDING
338      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
339      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
[674]340      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[326]341    END SUBROUTINE cxios_set_axis_value
[581]342
[674]343    SUBROUTINE cxios_get_axis_value(axis_hdl, value, extent) BIND(C)
[326]344      USE ISO_C_BINDING
345      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
346      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
[674]347      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[326]348    END SUBROUTINE cxios_get_axis_value
[581]349
350    FUNCTION cxios_is_defined_axis_value(axis_hdl) BIND(C)
[432]351      USE ISO_C_BINDING
352      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_value
353      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
354    END FUNCTION cxios_is_defined_axis_value
[581]355
356  END INTERFACE
357
[326]358END MODULE axis_interface_attr
Note: See TracBrowser for help on using the repository browser.