source: XIOS/dev/dev_olga/src/interface/fortran_attr/iaxis_attr.F90 @ 1158

Last change on this file since 1158 was 1158, checked in by oabramkina, 7 years ago

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