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

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