source: XIOS3/trunk/src/interface/fortran_attr/ireduce_domain_to_axis_attr.F90 @ 2620

Last change on this file since 2620 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: 8.0 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ireduce_domain_to_axis_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ireduce_domain_to_axis
9  USE reduce_domain_to_axis_interface_attr
10  USE LOGICAL_BOOL_CONVERSION
11
12CONTAINS
13
14  SUBROUTINE xios(set_reduce_domain_to_axis_attr)  &
15    ( reduce_domain_to_axis_id, direction, local, operation )
16
17    IMPLICIT NONE
18      TYPE(txios(reduce_domain_to_axis))  :: reduce_domain_to_axis_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::reduce_domain_to_axis_id
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: direction
21      LOGICAL  , OPTIONAL, INTENT(IN) :: local
22      LOGICAL (KIND=C_BOOL) :: local_tmp
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
24
25      CALL xios(get_reduce_domain_to_axis_handle) &
26      (reduce_domain_to_axis_id,reduce_domain_to_axis_hdl)
27      CALL xios(set_reduce_domain_to_axis_attr_hdl_)   &
28      ( reduce_domain_to_axis_hdl, direction, local, operation )
29
30  END SUBROUTINE xios(set_reduce_domain_to_axis_attr)
31
32  SUBROUTINE xios(set_reduce_domain_to_axis_attr_hdl)  &
33    ( reduce_domain_to_axis_hdl, direction, local, operation )
34
35    IMPLICIT NONE
36      TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: direction
38      LOGICAL  , OPTIONAL, INTENT(IN) :: local
39      LOGICAL (KIND=C_BOOL) :: local_tmp
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
41
42      CALL xios(set_reduce_domain_to_axis_attr_hdl_)  &
43      ( reduce_domain_to_axis_hdl, direction, local, operation )
44
45  END SUBROUTINE xios(set_reduce_domain_to_axis_attr_hdl)
46
47  SUBROUTINE xios(set_reduce_domain_to_axis_attr_hdl_)   &
48    ( reduce_domain_to_axis_hdl, direction_, local_, operation_ )
49
50    IMPLICIT NONE
51      TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: direction_
53      LOGICAL  , OPTIONAL, INTENT(IN) :: local_
54      LOGICAL (KIND=C_BOOL) :: local__tmp
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
56
57      IF (PRESENT(direction_)) THEN
58        CALL cxios_set_reduce_domain_to_axis_direction &
59      (reduce_domain_to_axis_hdl%daddr, direction_, len(direction_))
60      ENDIF
61
62      IF (PRESENT(local_)) THEN
63        local__tmp = local_
64        CALL xios_logical_to_bool_0d(local__tmp)
65        CALL cxios_set_reduce_domain_to_axis_local &
66      (reduce_domain_to_axis_hdl%daddr, local__tmp)
67      ENDIF
68
69      IF (PRESENT(operation_)) THEN
70        CALL cxios_set_reduce_domain_to_axis_operation &
71      (reduce_domain_to_axis_hdl%daddr, operation_, len(operation_))
72      ENDIF
73
74  END SUBROUTINE xios(set_reduce_domain_to_axis_attr_hdl_)
75
76  SUBROUTINE xios(get_reduce_domain_to_axis_attr)  &
77    ( reduce_domain_to_axis_id, direction, local, operation )
78
79    IMPLICIT NONE
80      TYPE(txios(reduce_domain_to_axis))  :: reduce_domain_to_axis_hdl
81      CHARACTER(LEN=*), INTENT(IN) ::reduce_domain_to_axis_id
82      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: direction
83      LOGICAL  , OPTIONAL, INTENT(OUT) :: local
84      LOGICAL (KIND=C_BOOL) :: local_tmp
85      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
86
87      CALL xios(get_reduce_domain_to_axis_handle) &
88      (reduce_domain_to_axis_id,reduce_domain_to_axis_hdl)
89      CALL xios(get_reduce_domain_to_axis_attr_hdl_)   &
90      ( reduce_domain_to_axis_hdl, direction, local, operation )
91
92  END SUBROUTINE xios(get_reduce_domain_to_axis_attr)
93
94  SUBROUTINE xios(get_reduce_domain_to_axis_attr_hdl)  &
95    ( reduce_domain_to_axis_hdl, direction, local, operation )
96
97    IMPLICIT NONE
98      TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl
99      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: direction
100      LOGICAL  , OPTIONAL, INTENT(OUT) :: local
101      LOGICAL (KIND=C_BOOL) :: local_tmp
102      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
103
104      CALL xios(get_reduce_domain_to_axis_attr_hdl_)  &
105      ( reduce_domain_to_axis_hdl, direction, local, operation )
106
107  END SUBROUTINE xios(get_reduce_domain_to_axis_attr_hdl)
108
109  SUBROUTINE xios(get_reduce_domain_to_axis_attr_hdl_)   &
110    ( reduce_domain_to_axis_hdl, direction_, local_, operation_ )
111
112    IMPLICIT NONE
113      TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl
114      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: direction_
115      LOGICAL  , OPTIONAL, INTENT(OUT) :: local_
116      LOGICAL (KIND=C_BOOL) :: local__tmp
117      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
118
119      IF (PRESENT(direction_)) THEN
120        CALL cxios_get_reduce_domain_to_axis_direction &
121      (reduce_domain_to_axis_hdl%daddr, direction_, len(direction_))
122      ENDIF
123
124      IF (PRESENT(local_)) THEN
125        CALL cxios_get_reduce_domain_to_axis_local &
126      (reduce_domain_to_axis_hdl%daddr, local__tmp)
127        CALL xios_bool_to_logical_0d(local__tmp)
128        local_ = local__tmp
129      ENDIF
130
131      IF (PRESENT(operation_)) THEN
132        CALL cxios_get_reduce_domain_to_axis_operation &
133      (reduce_domain_to_axis_hdl%daddr, operation_, len(operation_))
134      ENDIF
135
136  END SUBROUTINE xios(get_reduce_domain_to_axis_attr_hdl_)
137
138  SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr)  &
139    ( reduce_domain_to_axis_id, direction, local, operation )
140
141    IMPLICIT NONE
142      TYPE(txios(reduce_domain_to_axis))  :: reduce_domain_to_axis_hdl
143      CHARACTER(LEN=*), INTENT(IN) ::reduce_domain_to_axis_id
144      LOGICAL, OPTIONAL, INTENT(OUT) :: direction
145      LOGICAL(KIND=C_BOOL) :: direction_tmp
146      LOGICAL, OPTIONAL, INTENT(OUT) :: local
147      LOGICAL(KIND=C_BOOL) :: local_tmp
148      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
149      LOGICAL(KIND=C_BOOL) :: operation_tmp
150
151      CALL xios(get_reduce_domain_to_axis_handle) &
152      (reduce_domain_to_axis_id,reduce_domain_to_axis_hdl)
153      CALL xios(is_defined_reduce_domain_to_axis_attr_hdl_)   &
154      ( reduce_domain_to_axis_hdl, direction, local, operation )
155
156  END SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr)
157
158  SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr_hdl)  &
159    ( reduce_domain_to_axis_hdl, direction, local, operation )
160
161    IMPLICIT NONE
162      TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl
163      LOGICAL, OPTIONAL, INTENT(OUT) :: direction
164      LOGICAL(KIND=C_BOOL) :: direction_tmp
165      LOGICAL, OPTIONAL, INTENT(OUT) :: local
166      LOGICAL(KIND=C_BOOL) :: local_tmp
167      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
168      LOGICAL(KIND=C_BOOL) :: operation_tmp
169
170      CALL xios(is_defined_reduce_domain_to_axis_attr_hdl_)  &
171      ( reduce_domain_to_axis_hdl, direction, local, operation )
172
173  END SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr_hdl)
174
175  SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr_hdl_)   &
176    ( reduce_domain_to_axis_hdl, direction_, local_, operation_ )
177
178    IMPLICIT NONE
179      TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl
180      LOGICAL, OPTIONAL, INTENT(OUT) :: direction_
181      LOGICAL(KIND=C_BOOL) :: direction__tmp
182      LOGICAL, OPTIONAL, INTENT(OUT) :: local_
183      LOGICAL(KIND=C_BOOL) :: local__tmp
184      LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
185      LOGICAL(KIND=C_BOOL) :: operation__tmp
186
187      IF (PRESENT(direction_)) THEN
188        direction__tmp = cxios_is_defined_reduce_domain_to_axis_direction &
189      (reduce_domain_to_axis_hdl%daddr)
190        direction_ = direction__tmp
191      ENDIF
192
193      IF (PRESENT(local_)) THEN
194        local__tmp = cxios_is_defined_reduce_domain_to_axis_local &
195      (reduce_domain_to_axis_hdl%daddr)
196        local_ = local__tmp
197      ENDIF
198
199      IF (PRESENT(operation_)) THEN
200        operation__tmp = cxios_is_defined_reduce_domain_to_axis_operation &
201      (reduce_domain_to_axis_hdl%daddr)
202        operation_ = operation__tmp
203      ENDIF
204
205  END SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr_hdl_)
206
207END MODULE ireduce_domain_to_axis_attr
Note: See TracBrowser for help on using the repository browser.