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

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

Reducing length of line of auto-generate Fortran interface

+) Break line into smaller ones to make sure each line is not longer than 132 character

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