source: XIOS/trunk/src/interface/fortran_attr/icalendar_wrapper_attr.F90 @ 581

Last change on this file since 581 was 581, checked in by rlacroix, 9 years ago

Fix the Fortran interface generation to avoid generating dead code that caused a timer not to be stopped.
File size: 17.0 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE icalendar_wrapper_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE icalendar_wrapper
9  USE calendar_wrapper_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_calendar_wrapper_attr)  &
14    ( calendar_wrapper_id, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  &
15    , month_lengths, start_date, time_origin, timestep, type, year_length )
16
17    IMPLICIT NONE
18      TYPE(txios(calendar_wrapper))  :: calendar_wrapper_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::calendar_wrapper_id
20      INTEGER  , OPTIONAL, INTENT(IN) :: day_length
21      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: leap_year_drift
22      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: leap_year_drift_offset
23      INTEGER  , OPTIONAL, INTENT(IN) :: leap_year_month
24      INTEGER  , OPTIONAL, INTENT(IN) :: month_lengths(:)
25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: start_date
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_origin
27      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: timestep
28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
29      INTEGER  , OPTIONAL, INTENT(IN) :: year_length
30
31      CALL xios(get_calendar_wrapper_handle)(calendar_wrapper_id,calendar_wrapper_hdl)
32      CALL xios(set_calendar_wrapper_attr_hdl_)   &
33      ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  &
34      , month_lengths, start_date, time_origin, timestep, type, year_length )
35
36  END SUBROUTINE xios(set_calendar_wrapper_attr)
37
38  SUBROUTINE xios(set_calendar_wrapper_attr_hdl)  &
39    ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  &
40    , month_lengths, start_date, time_origin, timestep, type, year_length )
41
42    IMPLICIT NONE
43      TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl
44      INTEGER  , OPTIONAL, INTENT(IN) :: day_length
45      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: leap_year_drift
46      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: leap_year_drift_offset
47      INTEGER  , OPTIONAL, INTENT(IN) :: leap_year_month
48      INTEGER  , OPTIONAL, INTENT(IN) :: month_lengths(:)
49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: start_date
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_origin
51      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: timestep
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
53      INTEGER  , OPTIONAL, INTENT(IN) :: year_length
54
55      CALL xios(set_calendar_wrapper_attr_hdl_)  &
56      ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  &
57      , month_lengths, start_date, time_origin, timestep, type, year_length )
58
59  END SUBROUTINE xios(set_calendar_wrapper_attr_hdl)
60
61  SUBROUTINE xios(set_calendar_wrapper_attr_hdl_)   &
62    ( calendar_wrapper_hdl, day_length_, leap_year_drift_, leap_year_drift_offset_, leap_year_month_  &
63    , month_lengths_, start_date_, time_origin_, timestep_, type_, year_length_ )
64
65    IMPLICIT NONE
66      TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl
67      INTEGER  , OPTIONAL, INTENT(IN) :: day_length_
68      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: leap_year_drift_
69      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: leap_year_drift_offset_
70      INTEGER  , OPTIONAL, INTENT(IN) :: leap_year_month_
71      INTEGER  , OPTIONAL, INTENT(IN) :: month_lengths_(:)
72      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: start_date_
73      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_origin_
74      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: timestep_
75      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
76      INTEGER  , OPTIONAL, INTENT(IN) :: year_length_
77
78      IF (PRESENT(day_length_)) THEN
79        CALL cxios_set_calendar_wrapper_day_length(calendar_wrapper_hdl%daddr, day_length_)
80      ENDIF
81
82      IF (PRESENT(leap_year_drift_)) THEN
83        CALL cxios_set_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl%daddr, leap_year_drift_)
84      ENDIF
85
86      IF (PRESENT(leap_year_drift_offset_)) THEN
87        CALL cxios_set_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl%daddr, leap_year_drift_offset_)
88      ENDIF
89
90      IF (PRESENT(leap_year_month_)) THEN
91        CALL cxios_set_calendar_wrapper_leap_year_month(calendar_wrapper_hdl%daddr, leap_year_month_)
92      ENDIF
93
94      IF (PRESENT(month_lengths_)) THEN
95        CALL cxios_set_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr, month_lengths_, size(month_lengths_,1))
96      ENDIF
97
98      IF (PRESENT(start_date_)) THEN
99        CALL cxios_set_calendar_wrapper_start_date(calendar_wrapper_hdl%daddr, start_date_, len(start_date_))
100      ENDIF
101
102      IF (PRESENT(time_origin_)) THEN
103        CALL cxios_set_calendar_wrapper_time_origin(calendar_wrapper_hdl%daddr, time_origin_, len(time_origin_))
104      ENDIF
105
106      IF (PRESENT(timestep_)) THEN
107        CALL cxios_set_calendar_wrapper_timestep(calendar_wrapper_hdl%daddr, timestep_)
108      ENDIF
109
110      IF (PRESENT(type_)) THEN
111        CALL cxios_set_calendar_wrapper_type(calendar_wrapper_hdl%daddr, type_, len(type_))
112      ENDIF
113
114      IF (PRESENT(year_length_)) THEN
115        CALL cxios_set_calendar_wrapper_year_length(calendar_wrapper_hdl%daddr, year_length_)
116      ENDIF
117
118  END SUBROUTINE xios(set_calendar_wrapper_attr_hdl_)
119
120  SUBROUTINE xios(get_calendar_wrapper_attr)  &
121    ( calendar_wrapper_id, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  &
122    , month_lengths, start_date, time_origin, timestep, type, year_length )
123
124    IMPLICIT NONE
125      TYPE(txios(calendar_wrapper))  :: calendar_wrapper_hdl
126      CHARACTER(LEN=*), INTENT(IN) ::calendar_wrapper_id
127      INTEGER  , OPTIONAL, INTENT(OUT) :: day_length
128      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: leap_year_drift
129      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: leap_year_drift_offset
130      INTEGER  , OPTIONAL, INTENT(OUT) :: leap_year_month
131      INTEGER  , OPTIONAL, INTENT(OUT) :: month_lengths(:)
132      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: start_date
133      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_origin
134      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: timestep
135      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
136      INTEGER  , OPTIONAL, INTENT(OUT) :: year_length
137
138      CALL xios(get_calendar_wrapper_handle)(calendar_wrapper_id,calendar_wrapper_hdl)
139      CALL xios(get_calendar_wrapper_attr_hdl_)   &
140      ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  &
141      , month_lengths, start_date, time_origin, timestep, type, year_length )
142
143  END SUBROUTINE xios(get_calendar_wrapper_attr)
144
145  SUBROUTINE xios(get_calendar_wrapper_attr_hdl)  &
146    ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  &
147    , month_lengths, start_date, time_origin, timestep, type, year_length )
148
149    IMPLICIT NONE
150      TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl
151      INTEGER  , OPTIONAL, INTENT(OUT) :: day_length
152      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: leap_year_drift
153      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: leap_year_drift_offset
154      INTEGER  , OPTIONAL, INTENT(OUT) :: leap_year_month
155      INTEGER  , OPTIONAL, INTENT(OUT) :: month_lengths(:)
156      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: start_date
157      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_origin
158      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: timestep
159      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
160      INTEGER  , OPTIONAL, INTENT(OUT) :: year_length
161
162      CALL xios(get_calendar_wrapper_attr_hdl_)  &
163      ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  &
164      , month_lengths, start_date, time_origin, timestep, type, year_length )
165
166  END SUBROUTINE xios(get_calendar_wrapper_attr_hdl)
167
168  SUBROUTINE xios(get_calendar_wrapper_attr_hdl_)   &
169    ( calendar_wrapper_hdl, day_length_, leap_year_drift_, leap_year_drift_offset_, leap_year_month_  &
170    , month_lengths_, start_date_, time_origin_, timestep_, type_, year_length_ )
171
172    IMPLICIT NONE
173      TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl
174      INTEGER  , OPTIONAL, INTENT(OUT) :: day_length_
175      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: leap_year_drift_
176      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: leap_year_drift_offset_
177      INTEGER  , OPTIONAL, INTENT(OUT) :: leap_year_month_
178      INTEGER  , OPTIONAL, INTENT(OUT) :: month_lengths_(:)
179      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: start_date_
180      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_origin_
181      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: timestep_
182      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
183      INTEGER  , OPTIONAL, INTENT(OUT) :: year_length_
184
185      IF (PRESENT(day_length_)) THEN
186        CALL cxios_get_calendar_wrapper_day_length(calendar_wrapper_hdl%daddr, day_length_)
187      ENDIF
188
189      IF (PRESENT(leap_year_drift_)) THEN
190        CALL cxios_get_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl%daddr, leap_year_drift_)
191      ENDIF
192
193      IF (PRESENT(leap_year_drift_offset_)) THEN
194        CALL cxios_get_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl%daddr, leap_year_drift_offset_)
195      ENDIF
196
197      IF (PRESENT(leap_year_month_)) THEN
198        CALL cxios_get_calendar_wrapper_leap_year_month(calendar_wrapper_hdl%daddr, leap_year_month_)
199      ENDIF
200
201      IF (PRESENT(month_lengths_)) THEN
202        CALL cxios_get_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr, month_lengths_, size(month_lengths_,1))
203      ENDIF
204
205      IF (PRESENT(start_date_)) THEN
206        CALL cxios_get_calendar_wrapper_start_date(calendar_wrapper_hdl%daddr, start_date_, len(start_date_))
207      ENDIF
208
209      IF (PRESENT(time_origin_)) THEN
210        CALL cxios_get_calendar_wrapper_time_origin(calendar_wrapper_hdl%daddr, time_origin_, len(time_origin_))
211      ENDIF
212
213      IF (PRESENT(timestep_)) THEN
214        CALL cxios_get_calendar_wrapper_timestep(calendar_wrapper_hdl%daddr, timestep_)
215      ENDIF
216
217      IF (PRESENT(type_)) THEN
218        CALL cxios_get_calendar_wrapper_type(calendar_wrapper_hdl%daddr, type_, len(type_))
219      ENDIF
220
221      IF (PRESENT(year_length_)) THEN
222        CALL cxios_get_calendar_wrapper_year_length(calendar_wrapper_hdl%daddr, year_length_)
223      ENDIF
224
225  END SUBROUTINE xios(get_calendar_wrapper_attr_hdl_)
226
227  SUBROUTINE xios(is_defined_calendar_wrapper_attr)  &
228    ( calendar_wrapper_id, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  &
229    , month_lengths, start_date, time_origin, timestep, type, year_length )
230
231    IMPLICIT NONE
232      TYPE(txios(calendar_wrapper))  :: calendar_wrapper_hdl
233      CHARACTER(LEN=*), INTENT(IN) ::calendar_wrapper_id
234      LOGICAL, OPTIONAL, INTENT(OUT) :: day_length
235      LOGICAL(KIND=C_BOOL) :: day_length_tmp
236      LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_drift
237      LOGICAL(KIND=C_BOOL) :: leap_year_drift_tmp
238      LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_drift_offset
239      LOGICAL(KIND=C_BOOL) :: leap_year_drift_offset_tmp
240      LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_month
241      LOGICAL(KIND=C_BOOL) :: leap_year_month_tmp
242      LOGICAL, OPTIONAL, INTENT(OUT) :: month_lengths
243      LOGICAL(KIND=C_BOOL) :: month_lengths_tmp
244      LOGICAL, OPTIONAL, INTENT(OUT) :: start_date
245      LOGICAL(KIND=C_BOOL) :: start_date_tmp
246      LOGICAL, OPTIONAL, INTENT(OUT) :: time_origin
247      LOGICAL(KIND=C_BOOL) :: time_origin_tmp
248      LOGICAL, OPTIONAL, INTENT(OUT) :: timestep
249      LOGICAL(KIND=C_BOOL) :: timestep_tmp
250      LOGICAL, OPTIONAL, INTENT(OUT) :: type
251      LOGICAL(KIND=C_BOOL) :: type_tmp
252      LOGICAL, OPTIONAL, INTENT(OUT) :: year_length
253      LOGICAL(KIND=C_BOOL) :: year_length_tmp
254
255      CALL xios(get_calendar_wrapper_handle)(calendar_wrapper_id,calendar_wrapper_hdl)
256      CALL xios(is_defined_calendar_wrapper_attr_hdl_)   &
257      ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  &
258      , month_lengths, start_date, time_origin, timestep, type, year_length )
259
260  END SUBROUTINE xios(is_defined_calendar_wrapper_attr)
261
262  SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl)  &
263    ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  &
264    , month_lengths, start_date, time_origin, timestep, type, year_length )
265
266    IMPLICIT NONE
267      TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl
268      LOGICAL, OPTIONAL, INTENT(OUT) :: day_length
269      LOGICAL(KIND=C_BOOL) :: day_length_tmp
270      LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_drift
271      LOGICAL(KIND=C_BOOL) :: leap_year_drift_tmp
272      LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_drift_offset
273      LOGICAL(KIND=C_BOOL) :: leap_year_drift_offset_tmp
274      LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_month
275      LOGICAL(KIND=C_BOOL) :: leap_year_month_tmp
276      LOGICAL, OPTIONAL, INTENT(OUT) :: month_lengths
277      LOGICAL(KIND=C_BOOL) :: month_lengths_tmp
278      LOGICAL, OPTIONAL, INTENT(OUT) :: start_date
279      LOGICAL(KIND=C_BOOL) :: start_date_tmp
280      LOGICAL, OPTIONAL, INTENT(OUT) :: time_origin
281      LOGICAL(KIND=C_BOOL) :: time_origin_tmp
282      LOGICAL, OPTIONAL, INTENT(OUT) :: timestep
283      LOGICAL(KIND=C_BOOL) :: timestep_tmp
284      LOGICAL, OPTIONAL, INTENT(OUT) :: type
285      LOGICAL(KIND=C_BOOL) :: type_tmp
286      LOGICAL, OPTIONAL, INTENT(OUT) :: year_length
287      LOGICAL(KIND=C_BOOL) :: year_length_tmp
288
289      CALL xios(is_defined_calendar_wrapper_attr_hdl_)  &
290      ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  &
291      , month_lengths, start_date, time_origin, timestep, type, year_length )
292
293  END SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl)
294
295  SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl_)   &
296    ( calendar_wrapper_hdl, day_length_, leap_year_drift_, leap_year_drift_offset_, leap_year_month_  &
297    , month_lengths_, start_date_, time_origin_, timestep_, type_, year_length_ )
298
299    IMPLICIT NONE
300      TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl
301      LOGICAL, OPTIONAL, INTENT(OUT) :: day_length_
302      LOGICAL(KIND=C_BOOL) :: day_length__tmp
303      LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_drift_
304      LOGICAL(KIND=C_BOOL) :: leap_year_drift__tmp
305      LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_drift_offset_
306      LOGICAL(KIND=C_BOOL) :: leap_year_drift_offset__tmp
307      LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_month_
308      LOGICAL(KIND=C_BOOL) :: leap_year_month__tmp
309      LOGICAL, OPTIONAL, INTENT(OUT) :: month_lengths_
310      LOGICAL(KIND=C_BOOL) :: month_lengths__tmp
311      LOGICAL, OPTIONAL, INTENT(OUT) :: start_date_
312      LOGICAL(KIND=C_BOOL) :: start_date__tmp
313      LOGICAL, OPTIONAL, INTENT(OUT) :: time_origin_
314      LOGICAL(KIND=C_BOOL) :: time_origin__tmp
315      LOGICAL, OPTIONAL, INTENT(OUT) :: timestep_
316      LOGICAL(KIND=C_BOOL) :: timestep__tmp
317      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
318      LOGICAL(KIND=C_BOOL) :: type__tmp
319      LOGICAL, OPTIONAL, INTENT(OUT) :: year_length_
320      LOGICAL(KIND=C_BOOL) :: year_length__tmp
321
322      IF (PRESENT(day_length_)) THEN
323        day_length__tmp = cxios_is_defined_calendar_wrapper_day_length(calendar_wrapper_hdl%daddr)
324        day_length_ = day_length__tmp
325      ENDIF
326
327      IF (PRESENT(leap_year_drift_)) THEN
328        leap_year_drift__tmp = cxios_is_defined_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl%daddr)
329        leap_year_drift_ = leap_year_drift__tmp
330      ENDIF
331
332      IF (PRESENT(leap_year_drift_offset_)) THEN
333        leap_year_drift_offset__tmp = cxios_is_defined_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl%daddr)
334        leap_year_drift_offset_ = leap_year_drift_offset__tmp
335      ENDIF
336
337      IF (PRESENT(leap_year_month_)) THEN
338        leap_year_month__tmp = cxios_is_defined_calendar_wrapper_leap_year_month(calendar_wrapper_hdl%daddr)
339        leap_year_month_ = leap_year_month__tmp
340      ENDIF
341
342      IF (PRESENT(month_lengths_)) THEN
343        month_lengths__tmp = cxios_is_defined_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr)
344        month_lengths_ = month_lengths__tmp
345      ENDIF
346
347      IF (PRESENT(start_date_)) THEN
348        start_date__tmp = cxios_is_defined_calendar_wrapper_start_date(calendar_wrapper_hdl%daddr)
349        start_date_ = start_date__tmp
350      ENDIF
351
352      IF (PRESENT(time_origin_)) THEN
353        time_origin__tmp = cxios_is_defined_calendar_wrapper_time_origin(calendar_wrapper_hdl%daddr)
354        time_origin_ = time_origin__tmp
355      ENDIF
356
357      IF (PRESENT(timestep_)) THEN
358        timestep__tmp = cxios_is_defined_calendar_wrapper_timestep(calendar_wrapper_hdl%daddr)
359        timestep_ = timestep__tmp
360      ENDIF
361
362      IF (PRESENT(type_)) THEN
363        type__tmp = cxios_is_defined_calendar_wrapper_type(calendar_wrapper_hdl%daddr)
364        type_ = type__tmp
365      ENDIF
366
367      IF (PRESENT(year_length_)) THEN
368        year_length__tmp = cxios_is_defined_calendar_wrapper_year_length(calendar_wrapper_hdl%daddr)
369        year_length_ = year_length__tmp
370      ENDIF
371
372  END SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl_)
373
374END MODULE icalendar_wrapper_attr
Note: See TracBrowser for help on using the repository browser.