source: XIOS/trunk/src/interface/fortran_attr/ifilegroup_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.
  • Property copyright set to
    Software name : XIOS (Xml I/O Server)
    http://forge.ipsl.jussieu.fr/ioserver
    Creation date : January 2009
    Licence : CeCCIL version2
    see license file in root directory : Licence_CeCILL_V2-en.txt
    or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
    Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
    CNRS/IPSL (Institut Pierre Simon Laplace)
    Project Manager : Yann Meurdesoif
    yann.meurdesoif@cea.fr
File size: 22.0 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ifilegroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ifile
9  USE filegroup_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_filegroup_attr)  &
14    ( filegroup_id, append, description, enabled, format, group_ref, min_digits, name, name_suffix  &
15    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type )
16
17    IMPLICIT NONE
18      TYPE(txios(filegroup))  :: filegroup_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
20      LOGICAL  , OPTIONAL, INTENT(IN) :: append
21      LOGICAL (KIND=C_BOOL) :: append_tmp
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
23      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
24      LOGICAL (KIND=C_BOOL) :: enabled_tmp
25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
27      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
29      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
30      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq
31      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
33      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
35      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
37
38      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl)
39      CALL xios(set_filegroup_attr_hdl_)   &
40      ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, name, name_suffix  &
41      , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type )
42
43  END SUBROUTINE xios(set_filegroup_attr)
44
45  SUBROUTINE xios(set_filegroup_attr_hdl)  &
46    ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, name, name_suffix  &
47    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type )
48
49    IMPLICIT NONE
50      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
51      LOGICAL  , OPTIONAL, INTENT(IN) :: append
52      LOGICAL (KIND=C_BOOL) :: append_tmp
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
54      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
55      LOGICAL (KIND=C_BOOL) :: enabled_tmp
56      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
58      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
60      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
61      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq
62      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
63      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
64      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
65      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
66      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq
67      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
68
69      CALL xios(set_filegroup_attr_hdl_)  &
70      ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, name, name_suffix  &
71      , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type )
72
73  END SUBROUTINE xios(set_filegroup_attr_hdl)
74
75  SUBROUTINE xios(set_filegroup_attr_hdl_)   &
76    ( filegroup_hdl, append_, description_, enabled_, format_, group_ref_, min_digits_, name_, name_suffix_  &
77    , output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_  &
78     )
79
80    IMPLICIT NONE
81      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
82      LOGICAL  , OPTIONAL, INTENT(IN) :: append_
83      LOGICAL (KIND=C_BOOL) :: append__tmp
84      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
85      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
86      LOGICAL (KIND=C_BOOL) :: enabled__tmp
87      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_
88      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
89      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits_
90      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
91      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_
92      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq_
93      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_
94      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_
95      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq_
96      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_
97      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq_
98      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
99
100      IF (PRESENT(append_)) THEN
101        append__tmp = append_
102        CALL cxios_set_filegroup_append(filegroup_hdl%daddr, append__tmp)
103      ENDIF
104
105      IF (PRESENT(description_)) THEN
106        CALL cxios_set_filegroup_description(filegroup_hdl%daddr, description_, len(description_))
107      ENDIF
108
109      IF (PRESENT(enabled_)) THEN
110        enabled__tmp = enabled_
111        CALL cxios_set_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp)
112      ENDIF
113
114      IF (PRESENT(format_)) THEN
115        CALL cxios_set_filegroup_format(filegroup_hdl%daddr, format_, len(format_))
116      ENDIF
117
118      IF (PRESENT(group_ref_)) THEN
119        CALL cxios_set_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_))
120      ENDIF
121
122      IF (PRESENT(min_digits_)) THEN
123        CALL cxios_set_filegroup_min_digits(filegroup_hdl%daddr, min_digits_)
124      ENDIF
125
126      IF (PRESENT(name_)) THEN
127        CALL cxios_set_filegroup_name(filegroup_hdl%daddr, name_, len(name_))
128      ENDIF
129
130      IF (PRESENT(name_suffix_)) THEN
131        CALL cxios_set_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_))
132      ENDIF
133
134      IF (PRESENT(output_freq_)) THEN
135        CALL cxios_set_filegroup_output_freq(filegroup_hdl%daddr, output_freq_)
136      ENDIF
137
138      IF (PRESENT(output_level_)) THEN
139        CALL cxios_set_filegroup_output_level(filegroup_hdl%daddr, output_level_)
140      ENDIF
141
142      IF (PRESENT(par_access_)) THEN
143        CALL cxios_set_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_))
144      ENDIF
145
146      IF (PRESENT(split_freq_)) THEN
147        CALL cxios_set_filegroup_split_freq(filegroup_hdl%daddr, split_freq_)
148      ENDIF
149
150      IF (PRESENT(split_freq_format_)) THEN
151        CALL cxios_set_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_))
152      ENDIF
153
154      IF (PRESENT(sync_freq_)) THEN
155        CALL cxios_set_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_)
156      ENDIF
157
158      IF (PRESENT(type_)) THEN
159        CALL cxios_set_filegroup_type(filegroup_hdl%daddr, type_, len(type_))
160      ENDIF
161
162  END SUBROUTINE xios(set_filegroup_attr_hdl_)
163
164  SUBROUTINE xios(get_filegroup_attr)  &
165    ( filegroup_id, append, description, enabled, format, group_ref, min_digits, name, name_suffix  &
166    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type )
167
168    IMPLICIT NONE
169      TYPE(txios(filegroup))  :: filegroup_hdl
170      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
171      LOGICAL  , OPTIONAL, INTENT(OUT) :: append
172      LOGICAL (KIND=C_BOOL) :: append_tmp
173      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
174      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
175      LOGICAL (KIND=C_BOOL) :: enabled_tmp
176      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
177      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
178      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
179      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
180      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
181      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
182      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
183      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
184      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
185      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
186      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
187      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
188
189      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl)
190      CALL xios(get_filegroup_attr_hdl_)   &
191      ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, name, name_suffix  &
192      , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type )
193
194  END SUBROUTINE xios(get_filegroup_attr)
195
196  SUBROUTINE xios(get_filegroup_attr_hdl)  &
197    ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, name, name_suffix  &
198    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type )
199
200    IMPLICIT NONE
201      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
202      LOGICAL  , OPTIONAL, INTENT(OUT) :: append
203      LOGICAL (KIND=C_BOOL) :: append_tmp
204      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
205      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
206      LOGICAL (KIND=C_BOOL) :: enabled_tmp
207      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
208      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
209      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
210      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
211      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
212      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
213      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
214      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
215      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
216      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
217      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
218      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
219
220      CALL xios(get_filegroup_attr_hdl_)  &
221      ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, name, name_suffix  &
222      , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type )
223
224  END SUBROUTINE xios(get_filegroup_attr_hdl)
225
226  SUBROUTINE xios(get_filegroup_attr_hdl_)   &
227    ( filegroup_hdl, append_, description_, enabled_, format_, group_ref_, min_digits_, name_, name_suffix_  &
228    , output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_  &
229     )
230
231    IMPLICIT NONE
232      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
233      LOGICAL  , OPTIONAL, INTENT(OUT) :: append_
234      LOGICAL (KIND=C_BOOL) :: append__tmp
235      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
236      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
237      LOGICAL (KIND=C_BOOL) :: enabled__tmp
238      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_
239      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
240      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits_
241      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
242      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
243      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq_
244      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_
245      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_
246      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq_
247      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_
248      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq_
249      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
250
251      IF (PRESENT(append_)) THEN
252        CALL cxios_get_filegroup_append(filegroup_hdl%daddr, append__tmp)
253        append_ = append__tmp
254      ENDIF
255
256      IF (PRESENT(description_)) THEN
257        CALL cxios_get_filegroup_description(filegroup_hdl%daddr, description_, len(description_))
258      ENDIF
259
260      IF (PRESENT(enabled_)) THEN
261        CALL cxios_get_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp)
262        enabled_ = enabled__tmp
263      ENDIF
264
265      IF (PRESENT(format_)) THEN
266        CALL cxios_get_filegroup_format(filegroup_hdl%daddr, format_, len(format_))
267      ENDIF
268
269      IF (PRESENT(group_ref_)) THEN
270        CALL cxios_get_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_))
271      ENDIF
272
273      IF (PRESENT(min_digits_)) THEN
274        CALL cxios_get_filegroup_min_digits(filegroup_hdl%daddr, min_digits_)
275      ENDIF
276
277      IF (PRESENT(name_)) THEN
278        CALL cxios_get_filegroup_name(filegroup_hdl%daddr, name_, len(name_))
279      ENDIF
280
281      IF (PRESENT(name_suffix_)) THEN
282        CALL cxios_get_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_))
283      ENDIF
284
285      IF (PRESENT(output_freq_)) THEN
286        CALL cxios_get_filegroup_output_freq(filegroup_hdl%daddr, output_freq_)
287      ENDIF
288
289      IF (PRESENT(output_level_)) THEN
290        CALL cxios_get_filegroup_output_level(filegroup_hdl%daddr, output_level_)
291      ENDIF
292
293      IF (PRESENT(par_access_)) THEN
294        CALL cxios_get_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_))
295      ENDIF
296
297      IF (PRESENT(split_freq_)) THEN
298        CALL cxios_get_filegroup_split_freq(filegroup_hdl%daddr, split_freq_)
299      ENDIF
300
301      IF (PRESENT(split_freq_format_)) THEN
302        CALL cxios_get_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_))
303      ENDIF
304
305      IF (PRESENT(sync_freq_)) THEN
306        CALL cxios_get_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_)
307      ENDIF
308
309      IF (PRESENT(type_)) THEN
310        CALL cxios_get_filegroup_type(filegroup_hdl%daddr, type_, len(type_))
311      ENDIF
312
313  END SUBROUTINE xios(get_filegroup_attr_hdl_)
314
315  SUBROUTINE xios(is_defined_filegroup_attr)  &
316    ( filegroup_id, append, description, enabled, format, group_ref, min_digits, name, name_suffix  &
317    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type )
318
319    IMPLICIT NONE
320      TYPE(txios(filegroup))  :: filegroup_hdl
321      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
322      LOGICAL, OPTIONAL, INTENT(OUT) :: append
323      LOGICAL(KIND=C_BOOL) :: append_tmp
324      LOGICAL, OPTIONAL, INTENT(OUT) :: description
325      LOGICAL(KIND=C_BOOL) :: description_tmp
326      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
327      LOGICAL(KIND=C_BOOL) :: enabled_tmp
328      LOGICAL, OPTIONAL, INTENT(OUT) :: format
329      LOGICAL(KIND=C_BOOL) :: format_tmp
330      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
331      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
332      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
333      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
334      LOGICAL, OPTIONAL, INTENT(OUT) :: name
335      LOGICAL(KIND=C_BOOL) :: name_tmp
336      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
337      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
338      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
339      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
340      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
341      LOGICAL(KIND=C_BOOL) :: output_level_tmp
342      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
343      LOGICAL(KIND=C_BOOL) :: par_access_tmp
344      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
345      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
346      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
347      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
348      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
349      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
350      LOGICAL, OPTIONAL, INTENT(OUT) :: type
351      LOGICAL(KIND=C_BOOL) :: type_tmp
352
353      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl)
354      CALL xios(is_defined_filegroup_attr_hdl_)   &
355      ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, name, name_suffix  &
356      , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type )
357
358  END SUBROUTINE xios(is_defined_filegroup_attr)
359
360  SUBROUTINE xios(is_defined_filegroup_attr_hdl)  &
361    ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, name, name_suffix  &
362    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type )
363
364    IMPLICIT NONE
365      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
366      LOGICAL, OPTIONAL, INTENT(OUT) :: append
367      LOGICAL(KIND=C_BOOL) :: append_tmp
368      LOGICAL, OPTIONAL, INTENT(OUT) :: description
369      LOGICAL(KIND=C_BOOL) :: description_tmp
370      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
371      LOGICAL(KIND=C_BOOL) :: enabled_tmp
372      LOGICAL, OPTIONAL, INTENT(OUT) :: format
373      LOGICAL(KIND=C_BOOL) :: format_tmp
374      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
375      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
376      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
377      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
378      LOGICAL, OPTIONAL, INTENT(OUT) :: name
379      LOGICAL(KIND=C_BOOL) :: name_tmp
380      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
381      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
382      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
383      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
384      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
385      LOGICAL(KIND=C_BOOL) :: output_level_tmp
386      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
387      LOGICAL(KIND=C_BOOL) :: par_access_tmp
388      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
389      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
390      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
391      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
392      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
393      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
394      LOGICAL, OPTIONAL, INTENT(OUT) :: type
395      LOGICAL(KIND=C_BOOL) :: type_tmp
396
397      CALL xios(is_defined_filegroup_attr_hdl_)  &
398      ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, name, name_suffix  &
399      , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type )
400
401  END SUBROUTINE xios(is_defined_filegroup_attr_hdl)
402
403  SUBROUTINE xios(is_defined_filegroup_attr_hdl_)   &
404    ( filegroup_hdl, append_, description_, enabled_, format_, group_ref_, min_digits_, name_, name_suffix_  &
405    , output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_  &
406     )
407
408    IMPLICIT NONE
409      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
410      LOGICAL, OPTIONAL, INTENT(OUT) :: append_
411      LOGICAL(KIND=C_BOOL) :: append__tmp
412      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
413      LOGICAL(KIND=C_BOOL) :: description__tmp
414      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
415      LOGICAL(KIND=C_BOOL) :: enabled__tmp
416      LOGICAL, OPTIONAL, INTENT(OUT) :: format_
417      LOGICAL(KIND=C_BOOL) :: format__tmp
418      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
419      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
420      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_
421      LOGICAL(KIND=C_BOOL) :: min_digits__tmp
422      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
423      LOGICAL(KIND=C_BOOL) :: name__tmp
424      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_
425      LOGICAL(KIND=C_BOOL) :: name_suffix__tmp
426      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_
427      LOGICAL(KIND=C_BOOL) :: output_freq__tmp
428      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_
429      LOGICAL(KIND=C_BOOL) :: output_level__tmp
430      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_
431      LOGICAL(KIND=C_BOOL) :: par_access__tmp
432      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_
433      LOGICAL(KIND=C_BOOL) :: split_freq__tmp
434      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_
435      LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp
436      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_
437      LOGICAL(KIND=C_BOOL) :: sync_freq__tmp
438      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
439      LOGICAL(KIND=C_BOOL) :: type__tmp
440
441      IF (PRESENT(append_)) THEN
442        append__tmp = cxios_is_defined_filegroup_append(filegroup_hdl%daddr)
443        append_ = append__tmp
444      ENDIF
445
446      IF (PRESENT(description_)) THEN
447        description__tmp = cxios_is_defined_filegroup_description(filegroup_hdl%daddr)
448        description_ = description__tmp
449      ENDIF
450
451      IF (PRESENT(enabled_)) THEN
452        enabled__tmp = cxios_is_defined_filegroup_enabled(filegroup_hdl%daddr)
453        enabled_ = enabled__tmp
454      ENDIF
455
456      IF (PRESENT(format_)) THEN
457        format__tmp = cxios_is_defined_filegroup_format(filegroup_hdl%daddr)
458        format_ = format__tmp
459      ENDIF
460
461      IF (PRESENT(group_ref_)) THEN
462        group_ref__tmp = cxios_is_defined_filegroup_group_ref(filegroup_hdl%daddr)
463        group_ref_ = group_ref__tmp
464      ENDIF
465
466      IF (PRESENT(min_digits_)) THEN
467        min_digits__tmp = cxios_is_defined_filegroup_min_digits(filegroup_hdl%daddr)
468        min_digits_ = min_digits__tmp
469      ENDIF
470
471      IF (PRESENT(name_)) THEN
472        name__tmp = cxios_is_defined_filegroup_name(filegroup_hdl%daddr)
473        name_ = name__tmp
474      ENDIF
475
476      IF (PRESENT(name_suffix_)) THEN
477        name_suffix__tmp = cxios_is_defined_filegroup_name_suffix(filegroup_hdl%daddr)
478        name_suffix_ = name_suffix__tmp
479      ENDIF
480
481      IF (PRESENT(output_freq_)) THEN
482        output_freq__tmp = cxios_is_defined_filegroup_output_freq(filegroup_hdl%daddr)
483        output_freq_ = output_freq__tmp
484      ENDIF
485
486      IF (PRESENT(output_level_)) THEN
487        output_level__tmp = cxios_is_defined_filegroup_output_level(filegroup_hdl%daddr)
488        output_level_ = output_level__tmp
489      ENDIF
490
491      IF (PRESENT(par_access_)) THEN
492        par_access__tmp = cxios_is_defined_filegroup_par_access(filegroup_hdl%daddr)
493        par_access_ = par_access__tmp
494      ENDIF
495
496      IF (PRESENT(split_freq_)) THEN
497        split_freq__tmp = cxios_is_defined_filegroup_split_freq(filegroup_hdl%daddr)
498        split_freq_ = split_freq__tmp
499      ENDIF
500
501      IF (PRESENT(split_freq_format_)) THEN
502        split_freq_format__tmp = cxios_is_defined_filegroup_split_freq_format(filegroup_hdl%daddr)
503        split_freq_format_ = split_freq_format__tmp
504      ENDIF
505
506      IF (PRESENT(sync_freq_)) THEN
507        sync_freq__tmp = cxios_is_defined_filegroup_sync_freq(filegroup_hdl%daddr)
508        sync_freq_ = sync_freq__tmp
509      ENDIF
510
511      IF (PRESENT(type_)) THEN
512        type__tmp = cxios_is_defined_filegroup_type(filegroup_hdl%daddr)
513        type_ = type__tmp
514      ENDIF
515
516  END SUBROUTINE xios(is_defined_filegroup_attr_hdl_)
517
518END MODULE ifilegroup_attr
Note: See TracBrowser for help on using the repository browser.