source: XIOS/dev/dev_olga/src/interface/fortran_attr/igenerate_rectilinear_domain_attr.F90 @ 1021

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