source: XIOS/trunk/src/interface/fortran_attr/iaxis_attr.F90 @ 546

Last change on this file since 546 was 546, checked in by rlacroix, 7 years ago

Update the Fortran interface after r540.

  • 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: 15.3 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE iaxis_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iaxis
9  USE axis_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_axis_attr)  &
14    ( axis_id, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  &
15    , zoom_end, zoom_size )
16   
17    IMPLICIT NONE
18      TYPE(txios(axis))  :: axis_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::axis_id
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
24      INTEGER  , OPTIONAL, INTENT(IN) :: size
25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
27      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
28      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin
29      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end
30      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size
31     
32      CALL xios(get_axis_handle)(axis_id,axis_hdl)
33      CALL xios(set_axis_attr_hdl_)   &
34      ( axis_hdl, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  &
35      , zoom_end, zoom_size )
36   
37  END SUBROUTINE xios(set_axis_attr)
38 
39  SUBROUTINE xios(set_axis_attr_hdl)  &
40    ( axis_hdl, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  &
41    , zoom_end, zoom_size )
42   
43    IMPLICIT NONE
44      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
45      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
49      INTEGER  , OPTIONAL, INTENT(IN) :: size
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
52      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
53      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin
54      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end
55      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size
56     
57      CALL xios(set_axis_attr_hdl_)  &
58      ( axis_hdl, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  &
59      , zoom_end, zoom_size )
60   
61  END SUBROUTINE xios(set_axis_attr_hdl)
62 
63  SUBROUTINE xios(set_axis_attr_hdl_)   &
64    ( axis_hdl, axis_ref_, long_name_, name_, positive_, size_, standard_name_, unit_, value_, zoom_begin_  &
65    , zoom_end_, zoom_size_ )
66   
67    IMPLICIT NONE
68      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
69      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
70      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
71      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
72      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
73      INTEGER  , OPTIONAL, INTENT(IN) :: size_
74      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
75      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
76      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_(:)
77      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin_
78      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end_
79      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size_
80     
81      IF (PRESENT(axis_ref_)) THEN
82        CALL cxios_set_axis_axis_ref(axis_hdl%daddr, axis_ref_, len(axis_ref_))
83      ENDIF
84     
85      IF (PRESENT(long_name_)) THEN
86        CALL cxios_set_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_))
87      ENDIF
88     
89      IF (PRESENT(name_)) THEN
90        CALL cxios_set_axis_name(axis_hdl%daddr, name_, len(name_))
91      ENDIF
92     
93      IF (PRESENT(positive_)) THEN
94        CALL cxios_set_axis_positive(axis_hdl%daddr, positive_, len(positive_))
95      ENDIF
96     
97      IF (PRESENT(size_)) THEN
98        CALL cxios_set_axis_size(axis_hdl%daddr, size_)
99      ENDIF
100     
101      IF (PRESENT(standard_name_)) THEN
102        CALL cxios_set_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_))
103      ENDIF
104     
105      IF (PRESENT(unit_)) THEN
106        CALL cxios_set_axis_unit(axis_hdl%daddr, unit_, len(unit_))
107      ENDIF
108     
109      IF (PRESENT(value_)) THEN
110        CALL cxios_set_axis_value(axis_hdl%daddr, value_,size(value_,1))
111      ENDIF
112     
113      IF (PRESENT(zoom_begin_)) THEN
114        CALL cxios_set_axis_zoom_begin(axis_hdl%daddr, zoom_begin_)
115      ENDIF
116     
117      IF (PRESENT(zoom_end_)) THEN
118        CALL cxios_set_axis_zoom_end(axis_hdl%daddr, zoom_end_)
119      ENDIF
120     
121      IF (PRESENT(zoom_size_)) THEN
122        CALL cxios_set_axis_zoom_size(axis_hdl%daddr, zoom_size_)
123      ENDIF
124     
125     
126   
127  END SUBROUTINE xios(set_axis_attr_hdl_)
128 
129  SUBROUTINE xios(get_axis_attr)  &
130    ( axis_id, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  &
131    , zoom_end, zoom_size )
132   
133    IMPLICIT NONE
134      TYPE(txios(axis))  :: axis_hdl
135      CHARACTER(LEN=*), INTENT(IN) ::axis_id
136      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
137      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
138      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
139      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
140      INTEGER  , OPTIONAL, INTENT(OUT) :: size
141      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
142      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
143      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
144      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin
145      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end
146      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size
147     
148      CALL xios(get_axis_handle)(axis_id,axis_hdl)
149      CALL xios(get_axis_attr_hdl_)   &
150      ( axis_hdl, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  &
151      , zoom_end, zoom_size )
152   
153  END SUBROUTINE xios(get_axis_attr)
154 
155  SUBROUTINE xios(get_axis_attr_hdl)  &
156    ( axis_hdl, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  &
157    , zoom_end, zoom_size )
158   
159    IMPLICIT NONE
160      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
161      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
162      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
163      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
164      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
165      INTEGER  , OPTIONAL, INTENT(OUT) :: size
166      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
167      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
168      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
169      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin
170      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end
171      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size
172     
173      CALL xios(get_axis_attr_hdl_)  &
174      ( axis_hdl, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  &
175      , zoom_end, zoom_size )
176   
177  END SUBROUTINE xios(get_axis_attr_hdl)
178 
179  SUBROUTINE xios(get_axis_attr_hdl_)   &
180    ( axis_hdl, axis_ref_, long_name_, name_, positive_, size_, standard_name_, unit_, value_, zoom_begin_  &
181    , zoom_end_, zoom_size_ )
182   
183    IMPLICIT NONE
184      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
185      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
186      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
187      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
188      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
189      INTEGER  , OPTIONAL, INTENT(OUT) :: size_
190      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
191      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
192      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_(:)
193      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin_
194      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end_
195      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size_
196     
197      IF (PRESENT(axis_ref_)) THEN
198        CALL cxios_get_axis_axis_ref(axis_hdl%daddr, axis_ref_, len(axis_ref_))
199      ENDIF
200     
201      IF (PRESENT(long_name_)) THEN
202        CALL cxios_get_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_))
203      ENDIF
204     
205      IF (PRESENT(name_)) THEN
206        CALL cxios_get_axis_name(axis_hdl%daddr, name_, len(name_))
207      ENDIF
208     
209      IF (PRESENT(positive_)) THEN
210        CALL cxios_get_axis_positive(axis_hdl%daddr, positive_, len(positive_))
211      ENDIF
212     
213      IF (PRESENT(size_)) THEN
214        CALL cxios_get_axis_size(axis_hdl%daddr, size_)
215      ENDIF
216     
217      IF (PRESENT(standard_name_)) THEN
218        CALL cxios_get_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_))
219      ENDIF
220     
221      IF (PRESENT(unit_)) THEN
222        CALL cxios_get_axis_unit(axis_hdl%daddr, unit_, len(unit_))
223      ENDIF
224     
225      IF (PRESENT(value_)) THEN
226        CALL cxios_get_axis_value(axis_hdl%daddr, value_,size(value_,1))
227      ENDIF
228     
229      IF (PRESENT(zoom_begin_)) THEN
230        CALL cxios_get_axis_zoom_begin(axis_hdl%daddr, zoom_begin_)
231      ENDIF
232     
233      IF (PRESENT(zoom_end_)) THEN
234        CALL cxios_get_axis_zoom_end(axis_hdl%daddr, zoom_end_)
235      ENDIF
236     
237      IF (PRESENT(zoom_size_)) THEN
238        CALL cxios_get_axis_zoom_size(axis_hdl%daddr, zoom_size_)
239      ENDIF
240     
241     
242   
243  END SUBROUTINE xios(get_axis_attr_hdl_)
244 
245  SUBROUTINE xios(is_defined_axis_attr)  &
246    ( axis_id, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  &
247    , zoom_end, zoom_size )
248   
249    IMPLICIT NONE
250      TYPE(txios(axis))  :: axis_hdl
251      CHARACTER(LEN=*), INTENT(IN) ::axis_id
252      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
253      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
254      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
255      LOGICAL(KIND=C_BOOL) :: long_name_tmp
256      LOGICAL, OPTIONAL, INTENT(OUT) :: name
257      LOGICAL(KIND=C_BOOL) :: name_tmp
258      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
259      LOGICAL(KIND=C_BOOL) :: positive_tmp
260      LOGICAL, OPTIONAL, INTENT(OUT) :: size
261      LOGICAL(KIND=C_BOOL) :: size_tmp
262      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
263      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
264      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
265      LOGICAL(KIND=C_BOOL) :: unit_tmp
266      LOGICAL, OPTIONAL, INTENT(OUT) :: value
267      LOGICAL(KIND=C_BOOL) :: value_tmp
268      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin
269      LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp
270      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end
271      LOGICAL(KIND=C_BOOL) :: zoom_end_tmp
272      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size
273      LOGICAL(KIND=C_BOOL) :: zoom_size_tmp
274     
275      CALL xios(get_axis_handle)(axis_id,axis_hdl)
276      CALL xios(is_defined_axis_attr_hdl_)   &
277      ( axis_hdl, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  &
278      , zoom_end, zoom_size )
279   
280  END SUBROUTINE xios(is_defined_axis_attr)
281 
282  SUBROUTINE xios(is_defined_axis_attr_hdl)  &
283    ( axis_hdl, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  &
284    , zoom_end, zoom_size )
285   
286    IMPLICIT NONE
287      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
288      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
289      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
290      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
291      LOGICAL(KIND=C_BOOL) :: long_name_tmp
292      LOGICAL, OPTIONAL, INTENT(OUT) :: name
293      LOGICAL(KIND=C_BOOL) :: name_tmp
294      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
295      LOGICAL(KIND=C_BOOL) :: positive_tmp
296      LOGICAL, OPTIONAL, INTENT(OUT) :: size
297      LOGICAL(KIND=C_BOOL) :: size_tmp
298      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
299      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
300      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
301      LOGICAL(KIND=C_BOOL) :: unit_tmp
302      LOGICAL, OPTIONAL, INTENT(OUT) :: value
303      LOGICAL(KIND=C_BOOL) :: value_tmp
304      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin
305      LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp
306      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end
307      LOGICAL(KIND=C_BOOL) :: zoom_end_tmp
308      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size
309      LOGICAL(KIND=C_BOOL) :: zoom_size_tmp
310     
311      CALL xios(is_defined_axis_attr_hdl_)  &
312      ( axis_hdl, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  &
313      , zoom_end, zoom_size )
314   
315  END SUBROUTINE xios(is_defined_axis_attr_hdl)
316 
317  SUBROUTINE xios(is_defined_axis_attr_hdl_)   &
318    ( axis_hdl, axis_ref_, long_name_, name_, positive_, size_, standard_name_, unit_, value_, zoom_begin_  &
319    , zoom_end_, zoom_size_ )
320   
321    IMPLICIT NONE
322      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
323      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
324      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
325      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
326      LOGICAL(KIND=C_BOOL) :: long_name__tmp
327      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
328      LOGICAL(KIND=C_BOOL) :: name__tmp
329      LOGICAL, OPTIONAL, INTENT(OUT) :: positive_
330      LOGICAL(KIND=C_BOOL) :: positive__tmp
331      LOGICAL, OPTIONAL, INTENT(OUT) :: size_
332      LOGICAL(KIND=C_BOOL) :: size__tmp
333      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
334      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
335      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
336      LOGICAL(KIND=C_BOOL) :: unit__tmp
337      LOGICAL, OPTIONAL, INTENT(OUT) :: value_
338      LOGICAL(KIND=C_BOOL) :: value__tmp
339      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin_
340      LOGICAL(KIND=C_BOOL) :: zoom_begin__tmp
341      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end_
342      LOGICAL(KIND=C_BOOL) :: zoom_end__tmp
343      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size_
344      LOGICAL(KIND=C_BOOL) :: zoom_size__tmp
345     
346      IF (PRESENT(axis_ref_)) THEN
347        axis_ref__tmp=cxios_is_defined_axis_axis_ref(axis_hdl%daddr)
348        axis_ref_=axis_ref__tmp
349      ENDIF
350     
351      IF (PRESENT(long_name_)) THEN
352        long_name__tmp=cxios_is_defined_axis_long_name(axis_hdl%daddr)
353        long_name_=long_name__tmp
354      ENDIF
355     
356      IF (PRESENT(name_)) THEN
357        name__tmp=cxios_is_defined_axis_name(axis_hdl%daddr)
358        name_=name__tmp
359      ENDIF
360     
361      IF (PRESENT(positive_)) THEN
362        positive__tmp=cxios_is_defined_axis_positive(axis_hdl%daddr)
363        positive_=positive__tmp
364      ENDIF
365     
366      IF (PRESENT(size_)) THEN
367        size__tmp=cxios_is_defined_axis_size(axis_hdl%daddr)
368        size_=size__tmp
369      ENDIF
370     
371      IF (PRESENT(standard_name_)) THEN
372        standard_name__tmp=cxios_is_defined_axis_standard_name(axis_hdl%daddr)
373        standard_name_=standard_name__tmp
374      ENDIF
375     
376      IF (PRESENT(unit_)) THEN
377        unit__tmp=cxios_is_defined_axis_unit(axis_hdl%daddr)
378        unit_=unit__tmp
379      ENDIF
380     
381      IF (PRESENT(value_)) THEN
382        value__tmp=cxios_is_defined_axis_value(axis_hdl%daddr)
383        value_=value__tmp
384      ENDIF
385     
386      IF (PRESENT(zoom_begin_)) THEN
387        zoom_begin__tmp=cxios_is_defined_axis_zoom_begin(axis_hdl%daddr)
388        zoom_begin_=zoom_begin__tmp
389      ENDIF
390     
391      IF (PRESENT(zoom_end_)) THEN
392        zoom_end__tmp=cxios_is_defined_axis_zoom_end(axis_hdl%daddr)
393        zoom_end_=zoom_end__tmp
394      ENDIF
395     
396      IF (PRESENT(zoom_size_)) THEN
397        zoom_size__tmp=cxios_is_defined_axis_zoom_size(axis_hdl%daddr)
398        zoom_size_=zoom_size__tmp
399      ENDIF
400     
401     
402   
403  END SUBROUTINE xios(is_defined_axis_attr_hdl_)
404 
405END MODULE iaxis_attr
Note: See TracBrowser for help on using the repository browser.