source: XIOS2/trunk/src/interface/fortran_attr/icompute_connectivity_domain_attr.F90 @ 2623

Last change on this file since 2623 was 2623, 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: 9.8 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE icompute_connectivity_domain_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE icompute_connectivity_domain
9  USE compute_connectivity_domain_interface_attr
10  USE LOGICAL_BOOL_CONVERSION
11
12CONTAINS
13
14  SUBROUTINE xios(set_compute_connectivity_domain_attr)  &
15    ( compute_connectivity_domain_id, local_neighbor, n_neighbor, n_neighbor_max, type )
16
17    IMPLICIT NONE
18      TYPE(txios(compute_connectivity_domain))  :: compute_connectivity_domain_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::compute_connectivity_domain_id
20      INTEGER  , OPTIONAL, INTENT(IN) :: local_neighbor(:,:)
21      INTEGER  , OPTIONAL, INTENT(IN) :: n_neighbor(:)
22      INTEGER  , OPTIONAL, INTENT(IN) :: n_neighbor_max
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
24
25      CALL xios(get_compute_connectivity_domain_handle) &
26      (compute_connectivity_domain_id,compute_connectivity_domain_hdl)
27      CALL xios(set_compute_connectivity_domain_attr_hdl_)   &
28      ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type )
29
30  END SUBROUTINE xios(set_compute_connectivity_domain_attr)
31
32  SUBROUTINE xios(set_compute_connectivity_domain_attr_hdl)  &
33    ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type )
34
35    IMPLICIT NONE
36      TYPE(txios(compute_connectivity_domain)) , INTENT(IN) :: compute_connectivity_domain_hdl
37      INTEGER  , OPTIONAL, INTENT(IN) :: local_neighbor(:,:)
38      INTEGER  , OPTIONAL, INTENT(IN) :: n_neighbor(:)
39      INTEGER  , OPTIONAL, INTENT(IN) :: n_neighbor_max
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
41
42      CALL xios(set_compute_connectivity_domain_attr_hdl_)  &
43      ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type )
44
45  END SUBROUTINE xios(set_compute_connectivity_domain_attr_hdl)
46
47  SUBROUTINE xios(set_compute_connectivity_domain_attr_hdl_)   &
48    ( compute_connectivity_domain_hdl, local_neighbor_, n_neighbor_, n_neighbor_max_, type_ )
49
50    IMPLICIT NONE
51      TYPE(txios(compute_connectivity_domain)) , INTENT(IN) :: compute_connectivity_domain_hdl
52      INTEGER  , OPTIONAL, INTENT(IN) :: local_neighbor_(:,:)
53      INTEGER  , OPTIONAL, INTENT(IN) :: n_neighbor_(:)
54      INTEGER  , OPTIONAL, INTENT(IN) :: n_neighbor_max_
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
56
57      IF (PRESENT(local_neighbor_)) THEN
58        CALL cxios_set_compute_connectivity_domain_local_neighbor &
59      (compute_connectivity_domain_hdl%daddr, local_neighbor_, SHAPE(local_neighbor_))
60      ENDIF
61
62      IF (PRESENT(n_neighbor_)) THEN
63        CALL cxios_set_compute_connectivity_domain_n_neighbor &
64      (compute_connectivity_domain_hdl%daddr, n_neighbor_, SHAPE(n_neighbor_))
65      ENDIF
66
67      IF (PRESENT(n_neighbor_max_)) THEN
68        CALL cxios_set_compute_connectivity_domain_n_neighbor_max &
69      (compute_connectivity_domain_hdl%daddr, n_neighbor_max_)
70      ENDIF
71
72      IF (PRESENT(type_)) THEN
73        CALL cxios_set_compute_connectivity_domain_type &
74      (compute_connectivity_domain_hdl%daddr, type_, len(type_))
75      ENDIF
76
77  END SUBROUTINE xios(set_compute_connectivity_domain_attr_hdl_)
78
79  SUBROUTINE xios(get_compute_connectivity_domain_attr)  &
80    ( compute_connectivity_domain_id, local_neighbor, n_neighbor, n_neighbor_max, type )
81
82    IMPLICIT NONE
83      TYPE(txios(compute_connectivity_domain))  :: compute_connectivity_domain_hdl
84      CHARACTER(LEN=*), INTENT(IN) ::compute_connectivity_domain_id
85      INTEGER  , OPTIONAL, INTENT(OUT) :: local_neighbor(:,:)
86      INTEGER  , OPTIONAL, INTENT(OUT) :: n_neighbor(:)
87      INTEGER  , OPTIONAL, INTENT(OUT) :: n_neighbor_max
88      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
89
90      CALL xios(get_compute_connectivity_domain_handle) &
91      (compute_connectivity_domain_id,compute_connectivity_domain_hdl)
92      CALL xios(get_compute_connectivity_domain_attr_hdl_)   &
93      ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type )
94
95  END SUBROUTINE xios(get_compute_connectivity_domain_attr)
96
97  SUBROUTINE xios(get_compute_connectivity_domain_attr_hdl)  &
98    ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type )
99
100    IMPLICIT NONE
101      TYPE(txios(compute_connectivity_domain)) , INTENT(IN) :: compute_connectivity_domain_hdl
102      INTEGER  , OPTIONAL, INTENT(OUT) :: local_neighbor(:,:)
103      INTEGER  , OPTIONAL, INTENT(OUT) :: n_neighbor(:)
104      INTEGER  , OPTIONAL, INTENT(OUT) :: n_neighbor_max
105      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
106
107      CALL xios(get_compute_connectivity_domain_attr_hdl_)  &
108      ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type )
109
110  END SUBROUTINE xios(get_compute_connectivity_domain_attr_hdl)
111
112  SUBROUTINE xios(get_compute_connectivity_domain_attr_hdl_)   &
113    ( compute_connectivity_domain_hdl, local_neighbor_, n_neighbor_, n_neighbor_max_, type_ )
114
115    IMPLICIT NONE
116      TYPE(txios(compute_connectivity_domain)) , INTENT(IN) :: compute_connectivity_domain_hdl
117      INTEGER  , OPTIONAL, INTENT(OUT) :: local_neighbor_(:,:)
118      INTEGER  , OPTIONAL, INTENT(OUT) :: n_neighbor_(:)
119      INTEGER  , OPTIONAL, INTENT(OUT) :: n_neighbor_max_
120      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
121
122      IF (PRESENT(local_neighbor_)) THEN
123        CALL cxios_get_compute_connectivity_domain_local_neighbor &
124      (compute_connectivity_domain_hdl%daddr, local_neighbor_, SHAPE(local_neighbor_))
125      ENDIF
126
127      IF (PRESENT(n_neighbor_)) THEN
128        CALL cxios_get_compute_connectivity_domain_n_neighbor &
129      (compute_connectivity_domain_hdl%daddr, n_neighbor_, SHAPE(n_neighbor_))
130      ENDIF
131
132      IF (PRESENT(n_neighbor_max_)) THEN
133        CALL cxios_get_compute_connectivity_domain_n_neighbor_max &
134      (compute_connectivity_domain_hdl%daddr, n_neighbor_max_)
135      ENDIF
136
137      IF (PRESENT(type_)) THEN
138        CALL cxios_get_compute_connectivity_domain_type &
139      (compute_connectivity_domain_hdl%daddr, type_, len(type_))
140      ENDIF
141
142  END SUBROUTINE xios(get_compute_connectivity_domain_attr_hdl_)
143
144  SUBROUTINE xios(is_defined_compute_connectivity_domain_attr)  &
145    ( compute_connectivity_domain_id, local_neighbor, n_neighbor, n_neighbor_max, type )
146
147    IMPLICIT NONE
148      TYPE(txios(compute_connectivity_domain))  :: compute_connectivity_domain_hdl
149      CHARACTER(LEN=*), INTENT(IN) ::compute_connectivity_domain_id
150      LOGICAL, OPTIONAL, INTENT(OUT) :: local_neighbor
151      LOGICAL(KIND=C_BOOL) :: local_neighbor_tmp
152      LOGICAL, OPTIONAL, INTENT(OUT) :: n_neighbor
153      LOGICAL(KIND=C_BOOL) :: n_neighbor_tmp
154      LOGICAL, OPTIONAL, INTENT(OUT) :: n_neighbor_max
155      LOGICAL(KIND=C_BOOL) :: n_neighbor_max_tmp
156      LOGICAL, OPTIONAL, INTENT(OUT) :: type
157      LOGICAL(KIND=C_BOOL) :: type_tmp
158
159      CALL xios(get_compute_connectivity_domain_handle) &
160      (compute_connectivity_domain_id,compute_connectivity_domain_hdl)
161      CALL xios(is_defined_compute_connectivity_domain_attr_hdl_)   &
162      ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type )
163
164  END SUBROUTINE xios(is_defined_compute_connectivity_domain_attr)
165
166  SUBROUTINE xios(is_defined_compute_connectivity_domain_attr_hdl)  &
167    ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type )
168
169    IMPLICIT NONE
170      TYPE(txios(compute_connectivity_domain)) , INTENT(IN) :: compute_connectivity_domain_hdl
171      LOGICAL, OPTIONAL, INTENT(OUT) :: local_neighbor
172      LOGICAL(KIND=C_BOOL) :: local_neighbor_tmp
173      LOGICAL, OPTIONAL, INTENT(OUT) :: n_neighbor
174      LOGICAL(KIND=C_BOOL) :: n_neighbor_tmp
175      LOGICAL, OPTIONAL, INTENT(OUT) :: n_neighbor_max
176      LOGICAL(KIND=C_BOOL) :: n_neighbor_max_tmp
177      LOGICAL, OPTIONAL, INTENT(OUT) :: type
178      LOGICAL(KIND=C_BOOL) :: type_tmp
179
180      CALL xios(is_defined_compute_connectivity_domain_attr_hdl_)  &
181      ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type )
182
183  END SUBROUTINE xios(is_defined_compute_connectivity_domain_attr_hdl)
184
185  SUBROUTINE xios(is_defined_compute_connectivity_domain_attr_hdl_)   &
186    ( compute_connectivity_domain_hdl, local_neighbor_, n_neighbor_, n_neighbor_max_, type_ )
187
188    IMPLICIT NONE
189      TYPE(txios(compute_connectivity_domain)) , INTENT(IN) :: compute_connectivity_domain_hdl
190      LOGICAL, OPTIONAL, INTENT(OUT) :: local_neighbor_
191      LOGICAL(KIND=C_BOOL) :: local_neighbor__tmp
192      LOGICAL, OPTIONAL, INTENT(OUT) :: n_neighbor_
193      LOGICAL(KIND=C_BOOL) :: n_neighbor__tmp
194      LOGICAL, OPTIONAL, INTENT(OUT) :: n_neighbor_max_
195      LOGICAL(KIND=C_BOOL) :: n_neighbor_max__tmp
196      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
197      LOGICAL(KIND=C_BOOL) :: type__tmp
198
199      IF (PRESENT(local_neighbor_)) THEN
200        local_neighbor__tmp = cxios_is_defined_compute_connectivity_domain_local_neighbor &
201      (compute_connectivity_domain_hdl%daddr)
202        local_neighbor_ = local_neighbor__tmp
203      ENDIF
204
205      IF (PRESENT(n_neighbor_)) THEN
206        n_neighbor__tmp = cxios_is_defined_compute_connectivity_domain_n_neighbor &
207      (compute_connectivity_domain_hdl%daddr)
208        n_neighbor_ = n_neighbor__tmp
209      ENDIF
210
211      IF (PRESENT(n_neighbor_max_)) THEN
212        n_neighbor_max__tmp = cxios_is_defined_compute_connectivity_domain_n_neighbor_max &
213      (compute_connectivity_domain_hdl%daddr)
214        n_neighbor_max_ = n_neighbor_max__tmp
215      ENDIF
216
217      IF (PRESENT(type_)) THEN
218        type__tmp = cxios_is_defined_compute_connectivity_domain_type &
219      (compute_connectivity_domain_hdl%daddr)
220        type_ = type__tmp
221      ENDIF
222
223  END SUBROUTINE xios(is_defined_compute_connectivity_domain_attr_hdl_)
224
225END MODULE icompute_connectivity_domain_attr
Note: See TracBrowser for help on using the repository browser.