source: XIOS2/trunk/src/interface/fortran_attr/igenerate_rectilinear_domain_attr.F90 @ 2634

Last change on this file since 2634 was 2623, checked in by jderouillat, 5 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: 15.6 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE igenerate_rectilinear_domain_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE igenerate_rectilinear_domain
9  USE generate_rectilinear_domain_interface_attr
10  USE LOGICAL_BOOL_CONVERSION
11
12CONTAINS
13
14  SUBROUTINE xios(set_generate_rectilinear_domain_attr)  &
15    ( generate_rectilinear_domain_id, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start  &
16    , lat_end, lat_start, lon_end, lon_start )
17
18    IMPLICIT NONE
19      TYPE(txios(generate_rectilinear_domain))  :: generate_rectilinear_domain_hdl
20      CHARACTER(LEN=*), INTENT(IN) ::generate_rectilinear_domain_id
21      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_end
22      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_start
23      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_end
24      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_start
25      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lat_end
26      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lat_start
27      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lon_end
28      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lon_start
29
30      CALL xios(get_generate_rectilinear_domain_handle) &
31      (generate_rectilinear_domain_id,generate_rectilinear_domain_hdl)
32      CALL xios(set_generate_rectilinear_domain_attr_hdl_)   &
33      ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start  &
34      , lat_end, lat_start, lon_end, lon_start )
35
36  END SUBROUTINE xios(set_generate_rectilinear_domain_attr)
37
38  SUBROUTINE xios(set_generate_rectilinear_domain_attr_hdl)  &
39    ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start  &
40    , lat_end, lat_start, lon_end, lon_start )
41
42    IMPLICIT NONE
43      TYPE(txios(generate_rectilinear_domain)) , INTENT(IN) :: generate_rectilinear_domain_hdl
44      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_end
45      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_start
46      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_end
47      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_start
48      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lat_end
49      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lat_start
50      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lon_end
51      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lon_start
52
53      CALL xios(set_generate_rectilinear_domain_attr_hdl_)  &
54      ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start  &
55      , lat_end, lat_start, lon_end, lon_start )
56
57  END SUBROUTINE xios(set_generate_rectilinear_domain_attr_hdl)
58
59  SUBROUTINE xios(set_generate_rectilinear_domain_attr_hdl_)   &
60    ( generate_rectilinear_domain_hdl, bounds_lat_end_, bounds_lat_start_, bounds_lon_end_, bounds_lon_start_  &
61    , lat_end_, lat_start_, lon_end_, lon_start_ )
62
63    IMPLICIT NONE
64      TYPE(txios(generate_rectilinear_domain)) , INTENT(IN) :: generate_rectilinear_domain_hdl
65      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_end_
66      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_start_
67      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_end_
68      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_start_
69      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lat_end_
70      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lat_start_
71      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lon_end_
72      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lon_start_
73
74      IF (PRESENT(bounds_lat_end_)) THEN
75        CALL cxios_set_generate_rectilinear_domain_bounds_lat_end &
76      (generate_rectilinear_domain_hdl%daddr, bounds_lat_end_)
77      ENDIF
78
79      IF (PRESENT(bounds_lat_start_)) THEN
80        CALL cxios_set_generate_rectilinear_domain_bounds_lat_start &
81      (generate_rectilinear_domain_hdl%daddr, bounds_lat_start_)
82      ENDIF
83
84      IF (PRESENT(bounds_lon_end_)) THEN
85        CALL cxios_set_generate_rectilinear_domain_bounds_lon_end &
86      (generate_rectilinear_domain_hdl%daddr, bounds_lon_end_)
87      ENDIF
88
89      IF (PRESENT(bounds_lon_start_)) THEN
90        CALL cxios_set_generate_rectilinear_domain_bounds_lon_start &
91      (generate_rectilinear_domain_hdl%daddr, bounds_lon_start_)
92      ENDIF
93
94      IF (PRESENT(lat_end_)) THEN
95        CALL cxios_set_generate_rectilinear_domain_lat_end &
96      (generate_rectilinear_domain_hdl%daddr, lat_end_)
97      ENDIF
98
99      IF (PRESENT(lat_start_)) THEN
100        CALL cxios_set_generate_rectilinear_domain_lat_start &
101      (generate_rectilinear_domain_hdl%daddr, lat_start_)
102      ENDIF
103
104      IF (PRESENT(lon_end_)) THEN
105        CALL cxios_set_generate_rectilinear_domain_lon_end &
106      (generate_rectilinear_domain_hdl%daddr, lon_end_)
107      ENDIF
108
109      IF (PRESENT(lon_start_)) THEN
110        CALL cxios_set_generate_rectilinear_domain_lon_start &
111      (generate_rectilinear_domain_hdl%daddr, lon_start_)
112      ENDIF
113
114  END SUBROUTINE xios(set_generate_rectilinear_domain_attr_hdl_)
115
116  SUBROUTINE xios(get_generate_rectilinear_domain_attr)  &
117    ( generate_rectilinear_domain_id, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start  &
118    , lat_end, lat_start, lon_end, lon_start )
119
120    IMPLICIT NONE
121      TYPE(txios(generate_rectilinear_domain))  :: generate_rectilinear_domain_hdl
122      CHARACTER(LEN=*), INTENT(IN) ::generate_rectilinear_domain_id
123      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_end
124      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_start
125      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_end
126      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_start
127      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lat_end
128      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lat_start
129      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lon_end
130      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lon_start
131
132      CALL xios(get_generate_rectilinear_domain_handle) &
133      (generate_rectilinear_domain_id,generate_rectilinear_domain_hdl)
134      CALL xios(get_generate_rectilinear_domain_attr_hdl_)   &
135      ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start  &
136      , lat_end, lat_start, lon_end, lon_start )
137
138  END SUBROUTINE xios(get_generate_rectilinear_domain_attr)
139
140  SUBROUTINE xios(get_generate_rectilinear_domain_attr_hdl)  &
141    ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start  &
142    , lat_end, lat_start, lon_end, lon_start )
143
144    IMPLICIT NONE
145      TYPE(txios(generate_rectilinear_domain)) , INTENT(IN) :: generate_rectilinear_domain_hdl
146      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_end
147      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_start
148      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_end
149      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_start
150      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lat_end
151      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lat_start
152      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lon_end
153      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lon_start
154
155      CALL xios(get_generate_rectilinear_domain_attr_hdl_)  &
156      ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start  &
157      , lat_end, lat_start, lon_end, lon_start )
158
159  END SUBROUTINE xios(get_generate_rectilinear_domain_attr_hdl)
160
161  SUBROUTINE xios(get_generate_rectilinear_domain_attr_hdl_)   &
162    ( generate_rectilinear_domain_hdl, bounds_lat_end_, bounds_lat_start_, bounds_lon_end_, bounds_lon_start_  &
163    , lat_end_, lat_start_, lon_end_, lon_start_ )
164
165    IMPLICIT NONE
166      TYPE(txios(generate_rectilinear_domain)) , INTENT(IN) :: generate_rectilinear_domain_hdl
167      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_end_
168      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_start_
169      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_end_
170      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_start_
171      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lat_end_
172      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lat_start_
173      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lon_end_
174      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lon_start_
175
176      IF (PRESENT(bounds_lat_end_)) THEN
177        CALL cxios_get_generate_rectilinear_domain_bounds_lat_end &
178      (generate_rectilinear_domain_hdl%daddr, bounds_lat_end_)
179      ENDIF
180
181      IF (PRESENT(bounds_lat_start_)) THEN
182        CALL cxios_get_generate_rectilinear_domain_bounds_lat_start &
183      (generate_rectilinear_domain_hdl%daddr, bounds_lat_start_)
184      ENDIF
185
186      IF (PRESENT(bounds_lon_end_)) THEN
187        CALL cxios_get_generate_rectilinear_domain_bounds_lon_end &
188      (generate_rectilinear_domain_hdl%daddr, bounds_lon_end_)
189      ENDIF
190
191      IF (PRESENT(bounds_lon_start_)) THEN
192        CALL cxios_get_generate_rectilinear_domain_bounds_lon_start &
193      (generate_rectilinear_domain_hdl%daddr, bounds_lon_start_)
194      ENDIF
195
196      IF (PRESENT(lat_end_)) THEN
197        CALL cxios_get_generate_rectilinear_domain_lat_end &
198      (generate_rectilinear_domain_hdl%daddr, lat_end_)
199      ENDIF
200
201      IF (PRESENT(lat_start_)) THEN
202        CALL cxios_get_generate_rectilinear_domain_lat_start &
203      (generate_rectilinear_domain_hdl%daddr, lat_start_)
204      ENDIF
205
206      IF (PRESENT(lon_end_)) THEN
207        CALL cxios_get_generate_rectilinear_domain_lon_end &
208      (generate_rectilinear_domain_hdl%daddr, lon_end_)
209      ENDIF
210
211      IF (PRESENT(lon_start_)) THEN
212        CALL cxios_get_generate_rectilinear_domain_lon_start &
213      (generate_rectilinear_domain_hdl%daddr, lon_start_)
214      ENDIF
215
216  END SUBROUTINE xios(get_generate_rectilinear_domain_attr_hdl_)
217
218  SUBROUTINE xios(is_defined_generate_rectilinear_domain_attr)  &
219    ( generate_rectilinear_domain_id, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start  &
220    , lat_end, lat_start, lon_end, lon_start )
221
222    IMPLICIT NONE
223      TYPE(txios(generate_rectilinear_domain))  :: generate_rectilinear_domain_hdl
224      CHARACTER(LEN=*), INTENT(IN) ::generate_rectilinear_domain_id
225      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_end
226      LOGICAL(KIND=C_BOOL) :: bounds_lat_end_tmp
227      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_start
228      LOGICAL(KIND=C_BOOL) :: bounds_lat_start_tmp
229      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_end
230      LOGICAL(KIND=C_BOOL) :: bounds_lon_end_tmp
231      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_start
232      LOGICAL(KIND=C_BOOL) :: bounds_lon_start_tmp
233      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_end
234      LOGICAL(KIND=C_BOOL) :: lat_end_tmp
235      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_start
236      LOGICAL(KIND=C_BOOL) :: lat_start_tmp
237      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_end
238      LOGICAL(KIND=C_BOOL) :: lon_end_tmp
239      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_start
240      LOGICAL(KIND=C_BOOL) :: lon_start_tmp
241
242      CALL xios(get_generate_rectilinear_domain_handle) &
243      (generate_rectilinear_domain_id,generate_rectilinear_domain_hdl)
244      CALL xios(is_defined_generate_rectilinear_domain_attr_hdl_)   &
245      ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start  &
246      , lat_end, lat_start, lon_end, lon_start )
247
248  END SUBROUTINE xios(is_defined_generate_rectilinear_domain_attr)
249
250  SUBROUTINE xios(is_defined_generate_rectilinear_domain_attr_hdl)  &
251    ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start  &
252    , lat_end, lat_start, lon_end, lon_start )
253
254    IMPLICIT NONE
255      TYPE(txios(generate_rectilinear_domain)) , INTENT(IN) :: generate_rectilinear_domain_hdl
256      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_end
257      LOGICAL(KIND=C_BOOL) :: bounds_lat_end_tmp
258      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_start
259      LOGICAL(KIND=C_BOOL) :: bounds_lat_start_tmp
260      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_end
261      LOGICAL(KIND=C_BOOL) :: bounds_lon_end_tmp
262      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_start
263      LOGICAL(KIND=C_BOOL) :: bounds_lon_start_tmp
264      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_end
265      LOGICAL(KIND=C_BOOL) :: lat_end_tmp
266      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_start
267      LOGICAL(KIND=C_BOOL) :: lat_start_tmp
268      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_end
269      LOGICAL(KIND=C_BOOL) :: lon_end_tmp
270      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_start
271      LOGICAL(KIND=C_BOOL) :: lon_start_tmp
272
273      CALL xios(is_defined_generate_rectilinear_domain_attr_hdl_)  &
274      ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start  &
275      , lat_end, lat_start, lon_end, lon_start )
276
277  END SUBROUTINE xios(is_defined_generate_rectilinear_domain_attr_hdl)
278
279  SUBROUTINE xios(is_defined_generate_rectilinear_domain_attr_hdl_)   &
280    ( generate_rectilinear_domain_hdl, bounds_lat_end_, bounds_lat_start_, bounds_lon_end_, bounds_lon_start_  &
281    , lat_end_, lat_start_, lon_end_, lon_start_ )
282
283    IMPLICIT NONE
284      TYPE(txios(generate_rectilinear_domain)) , INTENT(IN) :: generate_rectilinear_domain_hdl
285      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_end_
286      LOGICAL(KIND=C_BOOL) :: bounds_lat_end__tmp
287      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_start_
288      LOGICAL(KIND=C_BOOL) :: bounds_lat_start__tmp
289      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_end_
290      LOGICAL(KIND=C_BOOL) :: bounds_lon_end__tmp
291      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_start_
292      LOGICAL(KIND=C_BOOL) :: bounds_lon_start__tmp
293      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_end_
294      LOGICAL(KIND=C_BOOL) :: lat_end__tmp
295      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_start_
296      LOGICAL(KIND=C_BOOL) :: lat_start__tmp
297      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_end_
298      LOGICAL(KIND=C_BOOL) :: lon_end__tmp
299      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_start_
300      LOGICAL(KIND=C_BOOL) :: lon_start__tmp
301
302      IF (PRESENT(bounds_lat_end_)) THEN
303        bounds_lat_end__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lat_end &
304      (generate_rectilinear_domain_hdl%daddr)
305        bounds_lat_end_ = bounds_lat_end__tmp
306      ENDIF
307
308      IF (PRESENT(bounds_lat_start_)) THEN
309        bounds_lat_start__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lat_start &
310      (generate_rectilinear_domain_hdl%daddr)
311        bounds_lat_start_ = bounds_lat_start__tmp
312      ENDIF
313
314      IF (PRESENT(bounds_lon_end_)) THEN
315        bounds_lon_end__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lon_end &
316      (generate_rectilinear_domain_hdl%daddr)
317        bounds_lon_end_ = bounds_lon_end__tmp
318      ENDIF
319
320      IF (PRESENT(bounds_lon_start_)) THEN
321        bounds_lon_start__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lon_start &
322      (generate_rectilinear_domain_hdl%daddr)
323        bounds_lon_start_ = bounds_lon_start__tmp
324      ENDIF
325
326      IF (PRESENT(lat_end_)) THEN
327        lat_end__tmp = cxios_is_defined_generate_rectilinear_domain_lat_end &
328      (generate_rectilinear_domain_hdl%daddr)
329        lat_end_ = lat_end__tmp
330      ENDIF
331
332      IF (PRESENT(lat_start_)) THEN
333        lat_start__tmp = cxios_is_defined_generate_rectilinear_domain_lat_start &
334      (generate_rectilinear_domain_hdl%daddr)
335        lat_start_ = lat_start__tmp
336      ENDIF
337
338      IF (PRESENT(lon_end_)) THEN
339        lon_end__tmp = cxios_is_defined_generate_rectilinear_domain_lon_end &
340      (generate_rectilinear_domain_hdl%daddr)
341        lon_end_ = lon_end__tmp
342      ENDIF
343
344      IF (PRESENT(lon_start_)) THEN
345        lon_start__tmp = cxios_is_defined_generate_rectilinear_domain_lon_start &
346      (generate_rectilinear_domain_hdl%daddr)
347        lon_start_ = lon_start__tmp
348      ENDIF
349
350  END SUBROUTINE xios(is_defined_generate_rectilinear_domain_attr_hdl_)
351
352END MODULE igenerate_rectilinear_domain_attr
Note: See TracBrowser for help on using the repository browser.