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

Last change on this file since 817 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: 22.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, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask, n  &
15    , n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
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      INTEGER  , OPTIONAL, INTENT(IN) :: begin
22      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:)
23      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin
24      INTEGER  , OPTIONAL, INTENT(IN) :: data_index(:)
25      INTEGER  , OPTIONAL, INTENT(IN) :: data_n
26      INTEGER  , OPTIONAL, INTENT(IN) :: index(:)
27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
28      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:)
29      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
30      INTEGER  , OPTIONAL, INTENT(IN) :: n
31      INTEGER  , OPTIONAL, INTENT(IN) :: n_distributed_partition
32      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo
33      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
37      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
38
39      CALL xios(get_axis_handle)(axis_id,axis_hdl)
40      CALL xios(set_axis_attr_hdl_)   &
41      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  &
42      , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
43
44  END SUBROUTINE xios(set_axis_attr)
45
46  SUBROUTINE xios(set_axis_attr_hdl)  &
47    ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  &
48    , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
49
50    IMPLICIT NONE
51      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
53      INTEGER  , OPTIONAL, INTENT(IN) :: begin
54      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:)
55      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin
56      INTEGER  , OPTIONAL, INTENT(IN) :: data_index(:)
57      INTEGER  , OPTIONAL, INTENT(IN) :: data_n
58      INTEGER  , OPTIONAL, INTENT(IN) :: index(:)
59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
60      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:)
61      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
62      INTEGER  , OPTIONAL, INTENT(IN) :: n
63      INTEGER  , OPTIONAL, INTENT(IN) :: n_distributed_partition
64      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo
65      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
66      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
67      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
68      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
69      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
70
71      CALL xios(set_axis_attr_hdl_)  &
72      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  &
73      , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
74
75  END SUBROUTINE xios(set_axis_attr_hdl)
76
77  SUBROUTINE xios(set_axis_attr_hdl_)   &
78    ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, long_name_  &
79    , mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_, unit_, value_  &
80     )
81
82    IMPLICIT NONE
83      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
84      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
85      INTEGER  , OPTIONAL, INTENT(IN) :: begin_
86      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:,:)
87      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin_
88      INTEGER  , OPTIONAL, INTENT(IN) :: data_index_(:)
89      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_
90      INTEGER  , OPTIONAL, INTENT(IN) :: index_(:)
91      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
92      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_(:)
93      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
94      INTEGER  , OPTIONAL, INTENT(IN) :: n_
95      INTEGER  , OPTIONAL, INTENT(IN) :: n_distributed_partition_
96      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo_
97      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
98      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
99      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
100      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
101      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_(:)
102
103      IF (PRESENT(axis_ref_)) THEN
104        CALL cxios_set_axis_axis_ref(axis_hdl%daddr, axis_ref_, len(axis_ref_))
105      ENDIF
106
107      IF (PRESENT(begin_)) THEN
108        CALL cxios_set_axis_begin(axis_hdl%daddr, begin_)
109      ENDIF
110
111      IF (PRESENT(bounds_)) THEN
112        CALL cxios_set_axis_bounds(axis_hdl%daddr, bounds_, SHAPE(bounds_))
113      ENDIF
114
115      IF (PRESENT(data_begin_)) THEN
116        CALL cxios_set_axis_data_begin(axis_hdl%daddr, data_begin_)
117      ENDIF
118
119      IF (PRESENT(data_index_)) THEN
120        CALL cxios_set_axis_data_index(axis_hdl%daddr, data_index_, SHAPE(data_index_))
121      ENDIF
122
123      IF (PRESENT(data_n_)) THEN
124        CALL cxios_set_axis_data_n(axis_hdl%daddr, data_n_)
125      ENDIF
126
127      IF (PRESENT(index_)) THEN
128        CALL cxios_set_axis_index(axis_hdl%daddr, index_, SHAPE(index_))
129      ENDIF
130
131      IF (PRESENT(long_name_)) THEN
132        CALL cxios_set_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_))
133      ENDIF
134
135      IF (PRESENT(mask_)) THEN
136        ALLOCATE(mask__tmp(SIZE(mask_,1)))
137        mask__tmp = mask_
138        CALL cxios_set_axis_mask(axis_hdl%daddr, mask__tmp, SHAPE(mask_))
139      ENDIF
140
141      IF (PRESENT(n_)) THEN
142        CALL cxios_set_axis_n(axis_hdl%daddr, n_)
143      ENDIF
144
145      IF (PRESENT(n_distributed_partition_)) THEN
146        CALL cxios_set_axis_n_distributed_partition(axis_hdl%daddr, n_distributed_partition_)
147      ENDIF
148
149      IF (PRESENT(n_glo_)) THEN
150        CALL cxios_set_axis_n_glo(axis_hdl%daddr, n_glo_)
151      ENDIF
152
153      IF (PRESENT(name_)) THEN
154        CALL cxios_set_axis_name(axis_hdl%daddr, name_, len(name_))
155      ENDIF
156
157      IF (PRESENT(positive_)) THEN
158        CALL cxios_set_axis_positive(axis_hdl%daddr, positive_, len(positive_))
159      ENDIF
160
161      IF (PRESENT(standard_name_)) THEN
162        CALL cxios_set_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_))
163      ENDIF
164
165      IF (PRESENT(unit_)) THEN
166        CALL cxios_set_axis_unit(axis_hdl%daddr, unit_, len(unit_))
167      ENDIF
168
169      IF (PRESENT(value_)) THEN
170        CALL cxios_set_axis_value(axis_hdl%daddr, value_, SHAPE(value_))
171      ENDIF
172
173  END SUBROUTINE xios(set_axis_attr_hdl_)
174
175  SUBROUTINE xios(get_axis_attr)  &
176    ( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask, n  &
177    , n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
178
179    IMPLICIT NONE
180      TYPE(txios(axis))  :: axis_hdl
181      CHARACTER(LEN=*), INTENT(IN) ::axis_id
182      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
183      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
184      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
185      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin
186      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index(:)
187      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n
188      INTEGER  , OPTIONAL, INTENT(OUT) :: index(:)
189      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
190      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:)
191      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
192      INTEGER  , OPTIONAL, INTENT(OUT) :: n
193      INTEGER  , OPTIONAL, INTENT(OUT) :: n_distributed_partition
194      INTEGER  , OPTIONAL, INTENT(OUT) :: n_glo
195      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
196      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
197      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
198      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
199      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
200
201      CALL xios(get_axis_handle)(axis_id,axis_hdl)
202      CALL xios(get_axis_attr_hdl_)   &
203      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  &
204      , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
205
206  END SUBROUTINE xios(get_axis_attr)
207
208  SUBROUTINE xios(get_axis_attr_hdl)  &
209    ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  &
210    , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
211
212    IMPLICIT NONE
213      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
214      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
215      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
216      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
217      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin
218      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index(:)
219      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n
220      INTEGER  , OPTIONAL, INTENT(OUT) :: index(:)
221      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
222      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:)
223      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
224      INTEGER  , OPTIONAL, INTENT(OUT) :: n
225      INTEGER  , OPTIONAL, INTENT(OUT) :: n_distributed_partition
226      INTEGER  , OPTIONAL, INTENT(OUT) :: n_glo
227      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
228      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
229      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
230      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
231      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
232
233      CALL xios(get_axis_attr_hdl_)  &
234      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  &
235      , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
236
237  END SUBROUTINE xios(get_axis_attr_hdl)
238
239  SUBROUTINE xios(get_axis_attr_hdl_)   &
240    ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, long_name_  &
241    , mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_, unit_, value_  &
242     )
243
244    IMPLICIT NONE
245      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
246      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
247      INTEGER  , OPTIONAL, INTENT(OUT) :: begin_
248      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:,:)
249      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin_
250      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index_(:)
251      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_
252      INTEGER  , OPTIONAL, INTENT(OUT) :: index_(:)
253      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
254      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:)
255      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
256      INTEGER  , OPTIONAL, INTENT(OUT) :: n_
257      INTEGER  , OPTIONAL, INTENT(OUT) :: n_distributed_partition_
258      INTEGER  , OPTIONAL, INTENT(OUT) :: n_glo_
259      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
260      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
261      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
262      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
263      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_(:)
264
265      IF (PRESENT(axis_ref_)) THEN
266        CALL cxios_get_axis_axis_ref(axis_hdl%daddr, axis_ref_, len(axis_ref_))
267      ENDIF
268
269      IF (PRESENT(begin_)) THEN
270        CALL cxios_get_axis_begin(axis_hdl%daddr, begin_)
271      ENDIF
272
273      IF (PRESENT(bounds_)) THEN
274        CALL cxios_get_axis_bounds(axis_hdl%daddr, bounds_, SHAPE(bounds_))
275      ENDIF
276
277      IF (PRESENT(data_begin_)) THEN
278        CALL cxios_get_axis_data_begin(axis_hdl%daddr, data_begin_)
279      ENDIF
280
281      IF (PRESENT(data_index_)) THEN
282        CALL cxios_get_axis_data_index(axis_hdl%daddr, data_index_, SHAPE(data_index_))
283      ENDIF
284
285      IF (PRESENT(data_n_)) THEN
286        CALL cxios_get_axis_data_n(axis_hdl%daddr, data_n_)
287      ENDIF
288
289      IF (PRESENT(index_)) THEN
290        CALL cxios_get_axis_index(axis_hdl%daddr, index_, SHAPE(index_))
291      ENDIF
292
293      IF (PRESENT(long_name_)) THEN
294        CALL cxios_get_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_))
295      ENDIF
296
297      IF (PRESENT(mask_)) THEN
298        ALLOCATE(mask__tmp(SIZE(mask_,1)))
299        CALL cxios_get_axis_mask(axis_hdl%daddr, mask__tmp, SHAPE(mask_))
300        mask_ = mask__tmp
301      ENDIF
302
303      IF (PRESENT(n_)) THEN
304        CALL cxios_get_axis_n(axis_hdl%daddr, n_)
305      ENDIF
306
307      IF (PRESENT(n_distributed_partition_)) THEN
308        CALL cxios_get_axis_n_distributed_partition(axis_hdl%daddr, n_distributed_partition_)
309      ENDIF
310
311      IF (PRESENT(n_glo_)) THEN
312        CALL cxios_get_axis_n_glo(axis_hdl%daddr, n_glo_)
313      ENDIF
314
315      IF (PRESENT(name_)) THEN
316        CALL cxios_get_axis_name(axis_hdl%daddr, name_, len(name_))
317      ENDIF
318
319      IF (PRESENT(positive_)) THEN
320        CALL cxios_get_axis_positive(axis_hdl%daddr, positive_, len(positive_))
321      ENDIF
322
323      IF (PRESENT(standard_name_)) THEN
324        CALL cxios_get_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_))
325      ENDIF
326
327      IF (PRESENT(unit_)) THEN
328        CALL cxios_get_axis_unit(axis_hdl%daddr, unit_, len(unit_))
329      ENDIF
330
331      IF (PRESENT(value_)) THEN
332        CALL cxios_get_axis_value(axis_hdl%daddr, value_, SHAPE(value_))
333      ENDIF
334
335  END SUBROUTINE xios(get_axis_attr_hdl_)
336
337  SUBROUTINE xios(is_defined_axis_attr)  &
338    ( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask, n  &
339    , n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
340
341    IMPLICIT NONE
342      TYPE(txios(axis))  :: axis_hdl
343      CHARACTER(LEN=*), INTENT(IN) ::axis_id
344      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
345      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
346      LOGICAL, OPTIONAL, INTENT(OUT) :: begin
347      LOGICAL(KIND=C_BOOL) :: begin_tmp
348      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
349      LOGICAL(KIND=C_BOOL) :: bounds_tmp
350      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
351      LOGICAL(KIND=C_BOOL) :: data_begin_tmp
352      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
353      LOGICAL(KIND=C_BOOL) :: data_index_tmp
354      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
355      LOGICAL(KIND=C_BOOL) :: data_n_tmp
356      LOGICAL, OPTIONAL, INTENT(OUT) :: index
357      LOGICAL(KIND=C_BOOL) :: index_tmp
358      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
359      LOGICAL(KIND=C_BOOL) :: long_name_tmp
360      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
361      LOGICAL(KIND=C_BOOL) :: mask_tmp
362      LOGICAL, OPTIONAL, INTENT(OUT) :: n
363      LOGICAL(KIND=C_BOOL) :: n_tmp
364      LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
365      LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp
366      LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
367      LOGICAL(KIND=C_BOOL) :: n_glo_tmp
368      LOGICAL, OPTIONAL, INTENT(OUT) :: name
369      LOGICAL(KIND=C_BOOL) :: name_tmp
370      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
371      LOGICAL(KIND=C_BOOL) :: positive_tmp
372      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
373      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
374      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
375      LOGICAL(KIND=C_BOOL) :: unit_tmp
376      LOGICAL, OPTIONAL, INTENT(OUT) :: value
377      LOGICAL(KIND=C_BOOL) :: value_tmp
378
379      CALL xios(get_axis_handle)(axis_id,axis_hdl)
380      CALL xios(is_defined_axis_attr_hdl_)   &
381      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  &
382      , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
383
384  END SUBROUTINE xios(is_defined_axis_attr)
385
386  SUBROUTINE xios(is_defined_axis_attr_hdl)  &
387    ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  &
388    , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
389
390    IMPLICIT NONE
391      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
392      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
393      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
394      LOGICAL, OPTIONAL, INTENT(OUT) :: begin
395      LOGICAL(KIND=C_BOOL) :: begin_tmp
396      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
397      LOGICAL(KIND=C_BOOL) :: bounds_tmp
398      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
399      LOGICAL(KIND=C_BOOL) :: data_begin_tmp
400      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
401      LOGICAL(KIND=C_BOOL) :: data_index_tmp
402      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
403      LOGICAL(KIND=C_BOOL) :: data_n_tmp
404      LOGICAL, OPTIONAL, INTENT(OUT) :: index
405      LOGICAL(KIND=C_BOOL) :: index_tmp
406      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
407      LOGICAL(KIND=C_BOOL) :: long_name_tmp
408      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
409      LOGICAL(KIND=C_BOOL) :: mask_tmp
410      LOGICAL, OPTIONAL, INTENT(OUT) :: n
411      LOGICAL(KIND=C_BOOL) :: n_tmp
412      LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
413      LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp
414      LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
415      LOGICAL(KIND=C_BOOL) :: n_glo_tmp
416      LOGICAL, OPTIONAL, INTENT(OUT) :: name
417      LOGICAL(KIND=C_BOOL) :: name_tmp
418      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
419      LOGICAL(KIND=C_BOOL) :: positive_tmp
420      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
421      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
422      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
423      LOGICAL(KIND=C_BOOL) :: unit_tmp
424      LOGICAL, OPTIONAL, INTENT(OUT) :: value
425      LOGICAL(KIND=C_BOOL) :: value_tmp
426
427      CALL xios(is_defined_axis_attr_hdl_)  &
428      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  &
429      , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
430
431  END SUBROUTINE xios(is_defined_axis_attr_hdl)
432
433  SUBROUTINE xios(is_defined_axis_attr_hdl_)   &
434    ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, long_name_  &
435    , mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_, unit_, value_  &
436     )
437
438    IMPLICIT NONE
439      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
440      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
441      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
442      LOGICAL, OPTIONAL, INTENT(OUT) :: begin_
443      LOGICAL(KIND=C_BOOL) :: begin__tmp
444      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_
445      LOGICAL(KIND=C_BOOL) :: bounds__tmp
446      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin_
447      LOGICAL(KIND=C_BOOL) :: data_begin__tmp
448      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index_
449      LOGICAL(KIND=C_BOOL) :: data_index__tmp
450      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_
451      LOGICAL(KIND=C_BOOL) :: data_n__tmp
452      LOGICAL, OPTIONAL, INTENT(OUT) :: index_
453      LOGICAL(KIND=C_BOOL) :: index__tmp
454      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
455      LOGICAL(KIND=C_BOOL) :: long_name__tmp
456      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
457      LOGICAL(KIND=C_BOOL) :: mask__tmp
458      LOGICAL, OPTIONAL, INTENT(OUT) :: n_
459      LOGICAL(KIND=C_BOOL) :: n__tmp
460      LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition_
461      LOGICAL(KIND=C_BOOL) :: n_distributed_partition__tmp
462      LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo_
463      LOGICAL(KIND=C_BOOL) :: n_glo__tmp
464      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
465      LOGICAL(KIND=C_BOOL) :: name__tmp
466      LOGICAL, OPTIONAL, INTENT(OUT) :: positive_
467      LOGICAL(KIND=C_BOOL) :: positive__tmp
468      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
469      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
470      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
471      LOGICAL(KIND=C_BOOL) :: unit__tmp
472      LOGICAL, OPTIONAL, INTENT(OUT) :: value_
473      LOGICAL(KIND=C_BOOL) :: value__tmp
474
475      IF (PRESENT(axis_ref_)) THEN
476        axis_ref__tmp = cxios_is_defined_axis_axis_ref(axis_hdl%daddr)
477        axis_ref_ = axis_ref__tmp
478      ENDIF
479
480      IF (PRESENT(begin_)) THEN
481        begin__tmp = cxios_is_defined_axis_begin(axis_hdl%daddr)
482        begin_ = begin__tmp
483      ENDIF
484
485      IF (PRESENT(bounds_)) THEN
486        bounds__tmp = cxios_is_defined_axis_bounds(axis_hdl%daddr)
487        bounds_ = bounds__tmp
488      ENDIF
489
490      IF (PRESENT(data_begin_)) THEN
491        data_begin__tmp = cxios_is_defined_axis_data_begin(axis_hdl%daddr)
492        data_begin_ = data_begin__tmp
493      ENDIF
494
495      IF (PRESENT(data_index_)) THEN
496        data_index__tmp = cxios_is_defined_axis_data_index(axis_hdl%daddr)
497        data_index_ = data_index__tmp
498      ENDIF
499
500      IF (PRESENT(data_n_)) THEN
501        data_n__tmp = cxios_is_defined_axis_data_n(axis_hdl%daddr)
502        data_n_ = data_n__tmp
503      ENDIF
504
505      IF (PRESENT(index_)) THEN
506        index__tmp = cxios_is_defined_axis_index(axis_hdl%daddr)
507        index_ = index__tmp
508      ENDIF
509
510      IF (PRESENT(long_name_)) THEN
511        long_name__tmp = cxios_is_defined_axis_long_name(axis_hdl%daddr)
512        long_name_ = long_name__tmp
513      ENDIF
514
515      IF (PRESENT(mask_)) THEN
516        mask__tmp = cxios_is_defined_axis_mask(axis_hdl%daddr)
517        mask_ = mask__tmp
518      ENDIF
519
520      IF (PRESENT(n_)) THEN
521        n__tmp = cxios_is_defined_axis_n(axis_hdl%daddr)
522        n_ = n__tmp
523      ENDIF
524
525      IF (PRESENT(n_distributed_partition_)) THEN
526        n_distributed_partition__tmp = cxios_is_defined_axis_n_distributed_partition(axis_hdl%daddr)
527        n_distributed_partition_ = n_distributed_partition__tmp
528      ENDIF
529
530      IF (PRESENT(n_glo_)) THEN
531        n_glo__tmp = cxios_is_defined_axis_n_glo(axis_hdl%daddr)
532        n_glo_ = n_glo__tmp
533      ENDIF
534
535      IF (PRESENT(name_)) THEN
536        name__tmp = cxios_is_defined_axis_name(axis_hdl%daddr)
537        name_ = name__tmp
538      ENDIF
539
540      IF (PRESENT(positive_)) THEN
541        positive__tmp = cxios_is_defined_axis_positive(axis_hdl%daddr)
542        positive_ = positive__tmp
543      ENDIF
544
545      IF (PRESENT(standard_name_)) THEN
546        standard_name__tmp = cxios_is_defined_axis_standard_name(axis_hdl%daddr)
547        standard_name_ = standard_name__tmp
548      ENDIF
549
550      IF (PRESENT(unit_)) THEN
551        unit__tmp = cxios_is_defined_axis_unit(axis_hdl%daddr)
552        unit_ = unit__tmp
553      ENDIF
554
555      IF (PRESENT(value_)) THEN
556        value__tmp = cxios_is_defined_axis_value(axis_hdl%daddr)
557        value_ = value__tmp
558      ENDIF
559
560  END SUBROUTINE xios(is_defined_axis_attr_hdl_)
561
562END MODULE iaxis_attr
Note: See TracBrowser for help on using the repository browser.