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

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