source: XIOS3/trunk/src/interface/fortran_attr/izoom_axis_attr.F90

Last change on this file was 2620, checked in by jderouillat, 4 months ago

Modify fortran-C interfaces to manage logical-bool conversion, the optimizations of OneAPI could produce bugs regarding the logical-bool encodings.
File size: 5.9 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE izoom_axis_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE izoom_axis
9  USE zoom_axis_interface_attr
10  USE LOGICAL_BOOL_CONVERSION
11
12CONTAINS
13
14  SUBROUTINE xios(set_zoom_axis_attr)  &
15    ( zoom_axis_id, begin, index, n )
16
17    IMPLICIT NONE
18      TYPE(txios(zoom_axis))  :: zoom_axis_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id
20      INTEGER  , OPTIONAL, INTENT(IN) :: begin
21      INTEGER  , OPTIONAL, INTENT(IN) :: index(:)
22      INTEGER  , OPTIONAL, INTENT(IN) :: n
23
24      CALL xios(get_zoom_axis_handle) &
25      (zoom_axis_id,zoom_axis_hdl)
26      CALL xios(set_zoom_axis_attr_hdl_)   &
27      ( zoom_axis_hdl, begin, index, n )
28
29  END SUBROUTINE xios(set_zoom_axis_attr)
30
31  SUBROUTINE xios(set_zoom_axis_attr_hdl)  &
32    ( zoom_axis_hdl, begin, index, n )
33
34    IMPLICIT NONE
35      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
36      INTEGER  , OPTIONAL, INTENT(IN) :: begin
37      INTEGER  , OPTIONAL, INTENT(IN) :: index(:)
38      INTEGER  , OPTIONAL, INTENT(IN) :: n
39
40      CALL xios(set_zoom_axis_attr_hdl_)  &
41      ( zoom_axis_hdl, begin, index, n )
42
43  END SUBROUTINE xios(set_zoom_axis_attr_hdl)
44
45  SUBROUTINE xios(set_zoom_axis_attr_hdl_)   &
46    ( zoom_axis_hdl, begin_, index_, n_ )
47
48    IMPLICIT NONE
49      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
50      INTEGER  , OPTIONAL, INTENT(IN) :: begin_
51      INTEGER  , OPTIONAL, INTENT(IN) :: index_(:)
52      INTEGER  , OPTIONAL, INTENT(IN) :: n_
53
54      IF (PRESENT(begin_)) THEN
55        CALL cxios_set_zoom_axis_begin &
56      (zoom_axis_hdl%daddr, begin_)
57      ENDIF
58
59      IF (PRESENT(index_)) THEN
60        CALL cxios_set_zoom_axis_index &
61      (zoom_axis_hdl%daddr, index_, SHAPE(index_))
62      ENDIF
63
64      IF (PRESENT(n_)) THEN
65        CALL cxios_set_zoom_axis_n &
66      (zoom_axis_hdl%daddr, n_)
67      ENDIF
68
69  END SUBROUTINE xios(set_zoom_axis_attr_hdl_)
70
71  SUBROUTINE xios(get_zoom_axis_attr)  &
72    ( zoom_axis_id, begin, index, n )
73
74    IMPLICIT NONE
75      TYPE(txios(zoom_axis))  :: zoom_axis_hdl
76      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id
77      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
78      INTEGER  , OPTIONAL, INTENT(OUT) :: index(:)
79      INTEGER  , OPTIONAL, INTENT(OUT) :: n
80
81      CALL xios(get_zoom_axis_handle) &
82      (zoom_axis_id,zoom_axis_hdl)
83      CALL xios(get_zoom_axis_attr_hdl_)   &
84      ( zoom_axis_hdl, begin, index, n )
85
86  END SUBROUTINE xios(get_zoom_axis_attr)
87
88  SUBROUTINE xios(get_zoom_axis_attr_hdl)  &
89    ( zoom_axis_hdl, begin, index, n )
90
91    IMPLICIT NONE
92      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
93      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
94      INTEGER  , OPTIONAL, INTENT(OUT) :: index(:)
95      INTEGER  , OPTIONAL, INTENT(OUT) :: n
96
97      CALL xios(get_zoom_axis_attr_hdl_)  &
98      ( zoom_axis_hdl, begin, index, n )
99
100  END SUBROUTINE xios(get_zoom_axis_attr_hdl)
101
102  SUBROUTINE xios(get_zoom_axis_attr_hdl_)   &
103    ( zoom_axis_hdl, begin_, index_, n_ )
104
105    IMPLICIT NONE
106      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
107      INTEGER  , OPTIONAL, INTENT(OUT) :: begin_
108      INTEGER  , OPTIONAL, INTENT(OUT) :: index_(:)
109      INTEGER  , OPTIONAL, INTENT(OUT) :: n_
110
111      IF (PRESENT(begin_)) THEN
112        CALL cxios_get_zoom_axis_begin &
113      (zoom_axis_hdl%daddr, begin_)
114      ENDIF
115
116      IF (PRESENT(index_)) THEN
117        CALL cxios_get_zoom_axis_index &
118      (zoom_axis_hdl%daddr, index_, SHAPE(index_))
119      ENDIF
120
121      IF (PRESENT(n_)) THEN
122        CALL cxios_get_zoom_axis_n &
123      (zoom_axis_hdl%daddr, n_)
124      ENDIF
125
126  END SUBROUTINE xios(get_zoom_axis_attr_hdl_)
127
128  SUBROUTINE xios(is_defined_zoom_axis_attr)  &
129    ( zoom_axis_id, begin, index, n )
130
131    IMPLICIT NONE
132      TYPE(txios(zoom_axis))  :: zoom_axis_hdl
133      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id
134      LOGICAL, OPTIONAL, INTENT(OUT) :: begin
135      LOGICAL(KIND=C_BOOL) :: begin_tmp
136      LOGICAL, OPTIONAL, INTENT(OUT) :: index
137      LOGICAL(KIND=C_BOOL) :: index_tmp
138      LOGICAL, OPTIONAL, INTENT(OUT) :: n
139      LOGICAL(KIND=C_BOOL) :: n_tmp
140
141      CALL xios(get_zoom_axis_handle) &
142      (zoom_axis_id,zoom_axis_hdl)
143      CALL xios(is_defined_zoom_axis_attr_hdl_)   &
144      ( zoom_axis_hdl, begin, index, n )
145
146  END SUBROUTINE xios(is_defined_zoom_axis_attr)
147
148  SUBROUTINE xios(is_defined_zoom_axis_attr_hdl)  &
149    ( zoom_axis_hdl, begin, index, n )
150
151    IMPLICIT NONE
152      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
153      LOGICAL, OPTIONAL, INTENT(OUT) :: begin
154      LOGICAL(KIND=C_BOOL) :: begin_tmp
155      LOGICAL, OPTIONAL, INTENT(OUT) :: index
156      LOGICAL(KIND=C_BOOL) :: index_tmp
157      LOGICAL, OPTIONAL, INTENT(OUT) :: n
158      LOGICAL(KIND=C_BOOL) :: n_tmp
159
160      CALL xios(is_defined_zoom_axis_attr_hdl_)  &
161      ( zoom_axis_hdl, begin, index, n )
162
163  END SUBROUTINE xios(is_defined_zoom_axis_attr_hdl)
164
165  SUBROUTINE xios(is_defined_zoom_axis_attr_hdl_)   &
166    ( zoom_axis_hdl, begin_, index_, n_ )
167
168    IMPLICIT NONE
169      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
170      LOGICAL, OPTIONAL, INTENT(OUT) :: begin_
171      LOGICAL(KIND=C_BOOL) :: begin__tmp
172      LOGICAL, OPTIONAL, INTENT(OUT) :: index_
173      LOGICAL(KIND=C_BOOL) :: index__tmp
174      LOGICAL, OPTIONAL, INTENT(OUT) :: n_
175      LOGICAL(KIND=C_BOOL) :: n__tmp
176
177      IF (PRESENT(begin_)) THEN
178        begin__tmp = cxios_is_defined_zoom_axis_begin &
179      (zoom_axis_hdl%daddr)
180        begin_ = begin__tmp
181      ENDIF
182
183      IF (PRESENT(index_)) THEN
184        index__tmp = cxios_is_defined_zoom_axis_index &
185      (zoom_axis_hdl%daddr)
186        index_ = index__tmp
187      ENDIF
188
189      IF (PRESENT(n_)) THEN
190        n__tmp = cxios_is_defined_zoom_axis_n &
191      (zoom_axis_hdl%daddr)
192        n_ = n__tmp
193      ENDIF
194
195  END SUBROUTINE xios(is_defined_zoom_axis_attr_hdl_)
196
197END MODULE izoom_axis_attr
Note: See TracBrowser for help on using the repository browser.