source: XIOS/trunk/src/interface/fortran_attr/ifilegroup_attr.F90 @ 1052

Last change on this file since 1052 was 1052, checked in by ymipsl, 7 years ago

Generate fortran interface for new attributes from previous commit.

YM

  • 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: 41.8 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, compression_level, convention, cyclic, description, enabled, format  &
15    , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  &
16    , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  &
17    , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
18
19    IMPLICIT NONE
20      TYPE(txios(filegroup))  :: filegroup_hdl
21      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
22      LOGICAL  , OPTIONAL, INTENT(IN) :: append
23      LOGICAL (KIND=C_BOOL) :: append_tmp
24      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention
26      LOGICAL  , OPTIONAL, INTENT(IN) :: cyclic
27      LOGICAL (KIND=C_BOOL) :: cyclic_tmp
28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
29      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
30      LOGICAL (KIND=C_BOOL) :: enabled_tmp
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
33      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
37      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq
38      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
40      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset
41      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
42      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
43      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq
44      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
45      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format
47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name
48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units
49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name
54
55      CALL xios(get_filegroup_handle) &
56      (filegroup_id,filegroup_hdl)
57      CALL xios(set_filegroup_attr_hdl_)   &
58      ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  &
59      , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  &
60      , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  &
61      , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
62
63  END SUBROUTINE xios(set_filegroup_attr)
64
65  SUBROUTINE xios(set_filegroup_attr_hdl)  &
66    ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  &
67    , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  &
68    , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  &
69    , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
70
71    IMPLICIT NONE
72      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
73      LOGICAL  , OPTIONAL, INTENT(IN) :: append
74      LOGICAL (KIND=C_BOOL) :: append_tmp
75      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
76      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention
77      LOGICAL  , OPTIONAL, INTENT(IN) :: cyclic
78      LOGICAL (KIND=C_BOOL) :: cyclic_tmp
79      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
80      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
81      LOGICAL (KIND=C_BOOL) :: enabled_tmp
82      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
83      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
84      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
85      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
86      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
87      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
88      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq
89      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
90      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
91      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset
92      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
93      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
94      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq
95      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
96      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name
97      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format
98      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name
99      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units
100      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
101      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
102      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
103      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format
104      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name
105
106      CALL xios(set_filegroup_attr_hdl_)  &
107      ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  &
108      , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  &
109      , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  &
110      , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
111
112  END SUBROUTINE xios(set_filegroup_attr_hdl)
113
114  SUBROUTINE xios(set_filegroup_attr_hdl_)   &
115    ( filegroup_hdl, append_, compression_level_, convention_, cyclic_, description_, enabled_, format_  &
116    , group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_  &
117    , record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_  &
118    , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_  &
119    , uuid_name_ )
120
121    IMPLICIT NONE
122      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
123      LOGICAL  , OPTIONAL, INTENT(IN) :: append_
124      LOGICAL (KIND=C_BOOL) :: append__tmp
125      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_
126      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_
127      LOGICAL  , OPTIONAL, INTENT(IN) :: cyclic_
128      LOGICAL (KIND=C_BOOL) :: cyclic__tmp
129      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
130      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
131      LOGICAL (KIND=C_BOOL) :: enabled__tmp
132      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_
133      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
134      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits_
135      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
136      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
137      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_
138      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq_
139      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_
140      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_
141      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset_
142      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq_
143      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_
144      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq_
145      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_
146      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name_
147      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format_
148      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name_
149      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units_
150      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries_
151      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_
152      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
153      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format_
154      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name_
155
156      IF (PRESENT(append_)) THEN
157        append__tmp = append_
158        CALL cxios_set_filegroup_append &
159      (filegroup_hdl%daddr, append__tmp)
160      ENDIF
161
162      IF (PRESENT(compression_level_)) THEN
163        CALL cxios_set_filegroup_compression_level &
164      (filegroup_hdl%daddr, compression_level_)
165      ENDIF
166
167      IF (PRESENT(convention_)) THEN
168        CALL cxios_set_filegroup_convention &
169      (filegroup_hdl%daddr, convention_, len(convention_))
170      ENDIF
171
172      IF (PRESENT(cyclic_)) THEN
173        cyclic__tmp = cyclic_
174        CALL cxios_set_filegroup_cyclic &
175      (filegroup_hdl%daddr, cyclic__tmp)
176      ENDIF
177
178      IF (PRESENT(description_)) THEN
179        CALL cxios_set_filegroup_description &
180      (filegroup_hdl%daddr, description_, len(description_))
181      ENDIF
182
183      IF (PRESENT(enabled_)) THEN
184        enabled__tmp = enabled_
185        CALL cxios_set_filegroup_enabled &
186      (filegroup_hdl%daddr, enabled__tmp)
187      ENDIF
188
189      IF (PRESENT(format_)) THEN
190        CALL cxios_set_filegroup_format &
191      (filegroup_hdl%daddr, format_, len(format_))
192      ENDIF
193
194      IF (PRESENT(group_ref_)) THEN
195        CALL cxios_set_filegroup_group_ref &
196      (filegroup_hdl%daddr, group_ref_, len(group_ref_))
197      ENDIF
198
199      IF (PRESENT(min_digits_)) THEN
200        CALL cxios_set_filegroup_min_digits &
201      (filegroup_hdl%daddr, min_digits_)
202      ENDIF
203
204      IF (PRESENT(mode_)) THEN
205        CALL cxios_set_filegroup_mode &
206      (filegroup_hdl%daddr, mode_, len(mode_))
207      ENDIF
208
209      IF (PRESENT(name_)) THEN
210        CALL cxios_set_filegroup_name &
211      (filegroup_hdl%daddr, name_, len(name_))
212      ENDIF
213
214      IF (PRESENT(name_suffix_)) THEN
215        CALL cxios_set_filegroup_name_suffix &
216      (filegroup_hdl%daddr, name_suffix_, len(name_suffix_))
217      ENDIF
218
219      IF (PRESENT(output_freq_)) THEN
220        CALL cxios_set_filegroup_output_freq &
221      (filegroup_hdl%daddr, output_freq_)
222      ENDIF
223
224      IF (PRESENT(output_level_)) THEN
225        CALL cxios_set_filegroup_output_level &
226      (filegroup_hdl%daddr, output_level_)
227      ENDIF
228
229      IF (PRESENT(par_access_)) THEN
230        CALL cxios_set_filegroup_par_access &
231      (filegroup_hdl%daddr, par_access_, len(par_access_))
232      ENDIF
233
234      IF (PRESENT(record_offset_)) THEN
235        CALL cxios_set_filegroup_record_offset &
236      (filegroup_hdl%daddr, record_offset_)
237      ENDIF
238
239      IF (PRESENT(split_freq_)) THEN
240        CALL cxios_set_filegroup_split_freq &
241      (filegroup_hdl%daddr, split_freq_)
242      ENDIF
243
244      IF (PRESENT(split_freq_format_)) THEN
245        CALL cxios_set_filegroup_split_freq_format &
246      (filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_))
247      ENDIF
248
249      IF (PRESENT(sync_freq_)) THEN
250        CALL cxios_set_filegroup_sync_freq &
251      (filegroup_hdl%daddr, sync_freq_)
252      ENDIF
253
254      IF (PRESENT(time_counter_)) THEN
255        CALL cxios_set_filegroup_time_counter &
256      (filegroup_hdl%daddr, time_counter_, len(time_counter_))
257      ENDIF
258
259      IF (PRESENT(time_counter_name_)) THEN
260        CALL cxios_set_filegroup_time_counter_name &
261      (filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_))
262      ENDIF
263
264      IF (PRESENT(time_stamp_format_)) THEN
265        CALL cxios_set_filegroup_time_stamp_format &
266      (filegroup_hdl%daddr, time_stamp_format_, len(time_stamp_format_))
267      ENDIF
268
269      IF (PRESENT(time_stamp_name_)) THEN
270        CALL cxios_set_filegroup_time_stamp_name &
271      (filegroup_hdl%daddr, time_stamp_name_, len(time_stamp_name_))
272      ENDIF
273
274      IF (PRESENT(time_units_)) THEN
275        CALL cxios_set_filegroup_time_units &
276      (filegroup_hdl%daddr, time_units_, len(time_units_))
277      ENDIF
278
279      IF (PRESENT(timeseries_)) THEN
280        CALL cxios_set_filegroup_timeseries &
281      (filegroup_hdl%daddr, timeseries_, len(timeseries_))
282      ENDIF
283
284      IF (PRESENT(ts_prefix_)) THEN
285        CALL cxios_set_filegroup_ts_prefix &
286      (filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_))
287      ENDIF
288
289      IF (PRESENT(type_)) THEN
290        CALL cxios_set_filegroup_type &
291      (filegroup_hdl%daddr, type_, len(type_))
292      ENDIF
293
294      IF (PRESENT(uuid_format_)) THEN
295        CALL cxios_set_filegroup_uuid_format &
296      (filegroup_hdl%daddr, uuid_format_, len(uuid_format_))
297      ENDIF
298
299      IF (PRESENT(uuid_name_)) THEN
300        CALL cxios_set_filegroup_uuid_name &
301      (filegroup_hdl%daddr, uuid_name_, len(uuid_name_))
302      ENDIF
303
304  END SUBROUTINE xios(set_filegroup_attr_hdl_)
305
306  SUBROUTINE xios(get_filegroup_attr)  &
307    ( filegroup_id, append, compression_level, convention, cyclic, description, enabled, format  &
308    , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  &
309    , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  &
310    , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
311
312    IMPLICIT NONE
313      TYPE(txios(filegroup))  :: filegroup_hdl
314      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
315      LOGICAL  , OPTIONAL, INTENT(OUT) :: append
316      LOGICAL (KIND=C_BOOL) :: append_tmp
317      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
318      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention
319      LOGICAL  , OPTIONAL, INTENT(OUT) :: cyclic
320      LOGICAL (KIND=C_BOOL) :: cyclic_tmp
321      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
322      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
323      LOGICAL (KIND=C_BOOL) :: enabled_tmp
324      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
325      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
326      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
327      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
328      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
329      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
330      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
331      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
332      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
333      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset
334      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
335      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
336      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
337      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
338      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name
339      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format
340      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name
341      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units
342      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
343      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
344      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
345      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format
346      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name
347
348      CALL xios(get_filegroup_handle) &
349      (filegroup_id,filegroup_hdl)
350      CALL xios(get_filegroup_attr_hdl_)   &
351      ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  &
352      , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  &
353      , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  &
354      , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
355
356  END SUBROUTINE xios(get_filegroup_attr)
357
358  SUBROUTINE xios(get_filegroup_attr_hdl)  &
359    ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  &
360    , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  &
361    , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  &
362    , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
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      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
369      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention
370      LOGICAL  , OPTIONAL, INTENT(OUT) :: cyclic
371      LOGICAL (KIND=C_BOOL) :: cyclic_tmp
372      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
373      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
374      LOGICAL (KIND=C_BOOL) :: enabled_tmp
375      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
376      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
377      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
378      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
379      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
380      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
381      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
382      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
383      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
384      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset
385      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
386      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
387      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
388      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
389      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name
390      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format
391      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name
392      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units
393      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
394      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
395      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
396      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format
397      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name
398
399      CALL xios(get_filegroup_attr_hdl_)  &
400      ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  &
401      , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  &
402      , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  &
403      , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
404
405  END SUBROUTINE xios(get_filegroup_attr_hdl)
406
407  SUBROUTINE xios(get_filegroup_attr_hdl_)   &
408    ( filegroup_hdl, append_, compression_level_, convention_, cyclic_, description_, enabled_, format_  &
409    , group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_  &
410    , record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_  &
411    , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_  &
412    , uuid_name_ )
413
414    IMPLICIT NONE
415      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
416      LOGICAL  , OPTIONAL, INTENT(OUT) :: append_
417      LOGICAL (KIND=C_BOOL) :: append__tmp
418      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_
419      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_
420      LOGICAL  , OPTIONAL, INTENT(OUT) :: cyclic_
421      LOGICAL (KIND=C_BOOL) :: cyclic__tmp
422      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
423      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
424      LOGICAL (KIND=C_BOOL) :: enabled__tmp
425      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_
426      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
427      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits_
428      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
429      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
430      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
431      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq_
432      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_
433      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_
434      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset_
435      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq_
436      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_
437      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq_
438      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_
439      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name_
440      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format_
441      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name_
442      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units_
443      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries_
444      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_
445      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
446      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format_
447      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name_
448
449      IF (PRESENT(append_)) THEN
450        CALL cxios_get_filegroup_append &
451      (filegroup_hdl%daddr, append__tmp)
452        append_ = append__tmp
453      ENDIF
454
455      IF (PRESENT(compression_level_)) THEN
456        CALL cxios_get_filegroup_compression_level &
457      (filegroup_hdl%daddr, compression_level_)
458      ENDIF
459
460      IF (PRESENT(convention_)) THEN
461        CALL cxios_get_filegroup_convention &
462      (filegroup_hdl%daddr, convention_, len(convention_))
463      ENDIF
464
465      IF (PRESENT(cyclic_)) THEN
466        CALL cxios_get_filegroup_cyclic &
467      (filegroup_hdl%daddr, cyclic__tmp)
468        cyclic_ = cyclic__tmp
469      ENDIF
470
471      IF (PRESENT(description_)) THEN
472        CALL cxios_get_filegroup_description &
473      (filegroup_hdl%daddr, description_, len(description_))
474      ENDIF
475
476      IF (PRESENT(enabled_)) THEN
477        CALL cxios_get_filegroup_enabled &
478      (filegroup_hdl%daddr, enabled__tmp)
479        enabled_ = enabled__tmp
480      ENDIF
481
482      IF (PRESENT(format_)) THEN
483        CALL cxios_get_filegroup_format &
484      (filegroup_hdl%daddr, format_, len(format_))
485      ENDIF
486
487      IF (PRESENT(group_ref_)) THEN
488        CALL cxios_get_filegroup_group_ref &
489      (filegroup_hdl%daddr, group_ref_, len(group_ref_))
490      ENDIF
491
492      IF (PRESENT(min_digits_)) THEN
493        CALL cxios_get_filegroup_min_digits &
494      (filegroup_hdl%daddr, min_digits_)
495      ENDIF
496
497      IF (PRESENT(mode_)) THEN
498        CALL cxios_get_filegroup_mode &
499      (filegroup_hdl%daddr, mode_, len(mode_))
500      ENDIF
501
502      IF (PRESENT(name_)) THEN
503        CALL cxios_get_filegroup_name &
504      (filegroup_hdl%daddr, name_, len(name_))
505      ENDIF
506
507      IF (PRESENT(name_suffix_)) THEN
508        CALL cxios_get_filegroup_name_suffix &
509      (filegroup_hdl%daddr, name_suffix_, len(name_suffix_))
510      ENDIF
511
512      IF (PRESENT(output_freq_)) THEN
513        CALL cxios_get_filegroup_output_freq &
514      (filegroup_hdl%daddr, output_freq_)
515      ENDIF
516
517      IF (PRESENT(output_level_)) THEN
518        CALL cxios_get_filegroup_output_level &
519      (filegroup_hdl%daddr, output_level_)
520      ENDIF
521
522      IF (PRESENT(par_access_)) THEN
523        CALL cxios_get_filegroup_par_access &
524      (filegroup_hdl%daddr, par_access_, len(par_access_))
525      ENDIF
526
527      IF (PRESENT(record_offset_)) THEN
528        CALL cxios_get_filegroup_record_offset &
529      (filegroup_hdl%daddr, record_offset_)
530      ENDIF
531
532      IF (PRESENT(split_freq_)) THEN
533        CALL cxios_get_filegroup_split_freq &
534      (filegroup_hdl%daddr, split_freq_)
535      ENDIF
536
537      IF (PRESENT(split_freq_format_)) THEN
538        CALL cxios_get_filegroup_split_freq_format &
539      (filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_))
540      ENDIF
541
542      IF (PRESENT(sync_freq_)) THEN
543        CALL cxios_get_filegroup_sync_freq &
544      (filegroup_hdl%daddr, sync_freq_)
545      ENDIF
546
547      IF (PRESENT(time_counter_)) THEN
548        CALL cxios_get_filegroup_time_counter &
549      (filegroup_hdl%daddr, time_counter_, len(time_counter_))
550      ENDIF
551
552      IF (PRESENT(time_counter_name_)) THEN
553        CALL cxios_get_filegroup_time_counter_name &
554      (filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_))
555      ENDIF
556
557      IF (PRESENT(time_stamp_format_)) THEN
558        CALL cxios_get_filegroup_time_stamp_format &
559      (filegroup_hdl%daddr, time_stamp_format_, len(time_stamp_format_))
560      ENDIF
561
562      IF (PRESENT(time_stamp_name_)) THEN
563        CALL cxios_get_filegroup_time_stamp_name &
564      (filegroup_hdl%daddr, time_stamp_name_, len(time_stamp_name_))
565      ENDIF
566
567      IF (PRESENT(time_units_)) THEN
568        CALL cxios_get_filegroup_time_units &
569      (filegroup_hdl%daddr, time_units_, len(time_units_))
570      ENDIF
571
572      IF (PRESENT(timeseries_)) THEN
573        CALL cxios_get_filegroup_timeseries &
574      (filegroup_hdl%daddr, timeseries_, len(timeseries_))
575      ENDIF
576
577      IF (PRESENT(ts_prefix_)) THEN
578        CALL cxios_get_filegroup_ts_prefix &
579      (filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_))
580      ENDIF
581
582      IF (PRESENT(type_)) THEN
583        CALL cxios_get_filegroup_type &
584      (filegroup_hdl%daddr, type_, len(type_))
585      ENDIF
586
587      IF (PRESENT(uuid_format_)) THEN
588        CALL cxios_get_filegroup_uuid_format &
589      (filegroup_hdl%daddr, uuid_format_, len(uuid_format_))
590      ENDIF
591
592      IF (PRESENT(uuid_name_)) THEN
593        CALL cxios_get_filegroup_uuid_name &
594      (filegroup_hdl%daddr, uuid_name_, len(uuid_name_))
595      ENDIF
596
597  END SUBROUTINE xios(get_filegroup_attr_hdl_)
598
599  SUBROUTINE xios(is_defined_filegroup_attr)  &
600    ( filegroup_id, append, compression_level, convention, cyclic, description, enabled, format  &
601    , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  &
602    , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  &
603    , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
604
605    IMPLICIT NONE
606      TYPE(txios(filegroup))  :: filegroup_hdl
607      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
608      LOGICAL, OPTIONAL, INTENT(OUT) :: append
609      LOGICAL(KIND=C_BOOL) :: append_tmp
610      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
611      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
612      LOGICAL, OPTIONAL, INTENT(OUT) :: convention
613      LOGICAL(KIND=C_BOOL) :: convention_tmp
614      LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic
615      LOGICAL(KIND=C_BOOL) :: cyclic_tmp
616      LOGICAL, OPTIONAL, INTENT(OUT) :: description
617      LOGICAL(KIND=C_BOOL) :: description_tmp
618      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
619      LOGICAL(KIND=C_BOOL) :: enabled_tmp
620      LOGICAL, OPTIONAL, INTENT(OUT) :: format
621      LOGICAL(KIND=C_BOOL) :: format_tmp
622      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
623      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
624      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
625      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
626      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
627      LOGICAL(KIND=C_BOOL) :: mode_tmp
628      LOGICAL, OPTIONAL, INTENT(OUT) :: name
629      LOGICAL(KIND=C_BOOL) :: name_tmp
630      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
631      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
632      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
633      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
634      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
635      LOGICAL(KIND=C_BOOL) :: output_level_tmp
636      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
637      LOGICAL(KIND=C_BOOL) :: par_access_tmp
638      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset
639      LOGICAL(KIND=C_BOOL) :: record_offset_tmp
640      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
641      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
642      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
643      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
644      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
645      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
646      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
647      LOGICAL(KIND=C_BOOL) :: time_counter_tmp
648      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name
649      LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp
650      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format
651      LOGICAL(KIND=C_BOOL) :: time_stamp_format_tmp
652      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name
653      LOGICAL(KIND=C_BOOL) :: time_stamp_name_tmp
654      LOGICAL, OPTIONAL, INTENT(OUT) :: time_units
655      LOGICAL(KIND=C_BOOL) :: time_units_tmp
656      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
657      LOGICAL(KIND=C_BOOL) :: timeseries_tmp
658      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
659      LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
660      LOGICAL, OPTIONAL, INTENT(OUT) :: type
661      LOGICAL(KIND=C_BOOL) :: type_tmp
662      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format
663      LOGICAL(KIND=C_BOOL) :: uuid_format_tmp
664      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name
665      LOGICAL(KIND=C_BOOL) :: uuid_name_tmp
666
667      CALL xios(get_filegroup_handle) &
668      (filegroup_id,filegroup_hdl)
669      CALL xios(is_defined_filegroup_attr_hdl_)   &
670      ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  &
671      , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  &
672      , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  &
673      , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
674
675  END SUBROUTINE xios(is_defined_filegroup_attr)
676
677  SUBROUTINE xios(is_defined_filegroup_attr_hdl)  &
678    ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  &
679    , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  &
680    , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  &
681    , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
682
683    IMPLICIT NONE
684      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
685      LOGICAL, OPTIONAL, INTENT(OUT) :: append
686      LOGICAL(KIND=C_BOOL) :: append_tmp
687      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
688      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
689      LOGICAL, OPTIONAL, INTENT(OUT) :: convention
690      LOGICAL(KIND=C_BOOL) :: convention_tmp
691      LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic
692      LOGICAL(KIND=C_BOOL) :: cyclic_tmp
693      LOGICAL, OPTIONAL, INTENT(OUT) :: description
694      LOGICAL(KIND=C_BOOL) :: description_tmp
695      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
696      LOGICAL(KIND=C_BOOL) :: enabled_tmp
697      LOGICAL, OPTIONAL, INTENT(OUT) :: format
698      LOGICAL(KIND=C_BOOL) :: format_tmp
699      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
700      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
701      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
702      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
703      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
704      LOGICAL(KIND=C_BOOL) :: mode_tmp
705      LOGICAL, OPTIONAL, INTENT(OUT) :: name
706      LOGICAL(KIND=C_BOOL) :: name_tmp
707      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
708      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
709      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
710      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
711      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
712      LOGICAL(KIND=C_BOOL) :: output_level_tmp
713      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
714      LOGICAL(KIND=C_BOOL) :: par_access_tmp
715      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset
716      LOGICAL(KIND=C_BOOL) :: record_offset_tmp
717      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
718      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
719      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
720      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
721      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
722      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
723      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
724      LOGICAL(KIND=C_BOOL) :: time_counter_tmp
725      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name
726      LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp
727      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format
728      LOGICAL(KIND=C_BOOL) :: time_stamp_format_tmp
729      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name
730      LOGICAL(KIND=C_BOOL) :: time_stamp_name_tmp
731      LOGICAL, OPTIONAL, INTENT(OUT) :: time_units
732      LOGICAL(KIND=C_BOOL) :: time_units_tmp
733      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
734      LOGICAL(KIND=C_BOOL) :: timeseries_tmp
735      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
736      LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
737      LOGICAL, OPTIONAL, INTENT(OUT) :: type
738      LOGICAL(KIND=C_BOOL) :: type_tmp
739      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format
740      LOGICAL(KIND=C_BOOL) :: uuid_format_tmp
741      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name
742      LOGICAL(KIND=C_BOOL) :: uuid_name_tmp
743
744      CALL xios(is_defined_filegroup_attr_hdl_)  &
745      ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  &
746      , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  &
747      , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  &
748      , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
749
750  END SUBROUTINE xios(is_defined_filegroup_attr_hdl)
751
752  SUBROUTINE xios(is_defined_filegroup_attr_hdl_)   &
753    ( filegroup_hdl, append_, compression_level_, convention_, cyclic_, description_, enabled_, format_  &
754    , group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_  &
755    , record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_  &
756    , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_  &
757    , uuid_name_ )
758
759    IMPLICIT NONE
760      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
761      LOGICAL, OPTIONAL, INTENT(OUT) :: append_
762      LOGICAL(KIND=C_BOOL) :: append__tmp
763      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
764      LOGICAL(KIND=C_BOOL) :: compression_level__tmp
765      LOGICAL, OPTIONAL, INTENT(OUT) :: convention_
766      LOGICAL(KIND=C_BOOL) :: convention__tmp
767      LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic_
768      LOGICAL(KIND=C_BOOL) :: cyclic__tmp
769      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
770      LOGICAL(KIND=C_BOOL) :: description__tmp
771      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
772      LOGICAL(KIND=C_BOOL) :: enabled__tmp
773      LOGICAL, OPTIONAL, INTENT(OUT) :: format_
774      LOGICAL(KIND=C_BOOL) :: format__tmp
775      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
776      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
777      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_
778      LOGICAL(KIND=C_BOOL) :: min_digits__tmp
779      LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
780      LOGICAL(KIND=C_BOOL) :: mode__tmp
781      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
782      LOGICAL(KIND=C_BOOL) :: name__tmp
783      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_
784      LOGICAL(KIND=C_BOOL) :: name_suffix__tmp
785      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_
786      LOGICAL(KIND=C_BOOL) :: output_freq__tmp
787      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_
788      LOGICAL(KIND=C_BOOL) :: output_level__tmp
789      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_
790      LOGICAL(KIND=C_BOOL) :: par_access__tmp
791      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_
792      LOGICAL(KIND=C_BOOL) :: record_offset__tmp
793      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_
794      LOGICAL(KIND=C_BOOL) :: split_freq__tmp
795      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_
796      LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp
797      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_
798      LOGICAL(KIND=C_BOOL) :: sync_freq__tmp
799      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_
800      LOGICAL(KIND=C_BOOL) :: time_counter__tmp
801      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name_
802      LOGICAL(KIND=C_BOOL) :: time_counter_name__tmp
803      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format_
804      LOGICAL(KIND=C_BOOL) :: time_stamp_format__tmp
805      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name_
806      LOGICAL(KIND=C_BOOL) :: time_stamp_name__tmp
807      LOGICAL, OPTIONAL, INTENT(OUT) :: time_units_
808      LOGICAL(KIND=C_BOOL) :: time_units__tmp
809      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries_
810      LOGICAL(KIND=C_BOOL) :: timeseries__tmp
811      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix_
812      LOGICAL(KIND=C_BOOL) :: ts_prefix__tmp
813      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
814      LOGICAL(KIND=C_BOOL) :: type__tmp
815      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format_
816      LOGICAL(KIND=C_BOOL) :: uuid_format__tmp
817      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name_
818      LOGICAL(KIND=C_BOOL) :: uuid_name__tmp
819
820      IF (PRESENT(append_)) THEN
821        append__tmp = cxios_is_defined_filegroup_append &
822      (filegroup_hdl%daddr)
823        append_ = append__tmp
824      ENDIF
825
826      IF (PRESENT(compression_level_)) THEN
827        compression_level__tmp = cxios_is_defined_filegroup_compression_level &
828      (filegroup_hdl%daddr)
829        compression_level_ = compression_level__tmp
830      ENDIF
831
832      IF (PRESENT(convention_)) THEN
833        convention__tmp = cxios_is_defined_filegroup_convention &
834      (filegroup_hdl%daddr)
835        convention_ = convention__tmp
836      ENDIF
837
838      IF (PRESENT(cyclic_)) THEN
839        cyclic__tmp = cxios_is_defined_filegroup_cyclic &
840      (filegroup_hdl%daddr)
841        cyclic_ = cyclic__tmp
842      ENDIF
843
844      IF (PRESENT(description_)) THEN
845        description__tmp = cxios_is_defined_filegroup_description &
846      (filegroup_hdl%daddr)
847        description_ = description__tmp
848      ENDIF
849
850      IF (PRESENT(enabled_)) THEN
851        enabled__tmp = cxios_is_defined_filegroup_enabled &
852      (filegroup_hdl%daddr)
853        enabled_ = enabled__tmp
854      ENDIF
855
856      IF (PRESENT(format_)) THEN
857        format__tmp = cxios_is_defined_filegroup_format &
858      (filegroup_hdl%daddr)
859        format_ = format__tmp
860      ENDIF
861
862      IF (PRESENT(group_ref_)) THEN
863        group_ref__tmp = cxios_is_defined_filegroup_group_ref &
864      (filegroup_hdl%daddr)
865        group_ref_ = group_ref__tmp
866      ENDIF
867
868      IF (PRESENT(min_digits_)) THEN
869        min_digits__tmp = cxios_is_defined_filegroup_min_digits &
870      (filegroup_hdl%daddr)
871        min_digits_ = min_digits__tmp
872      ENDIF
873
874      IF (PRESENT(mode_)) THEN
875        mode__tmp = cxios_is_defined_filegroup_mode &
876      (filegroup_hdl%daddr)
877        mode_ = mode__tmp
878      ENDIF
879
880      IF (PRESENT(name_)) THEN
881        name__tmp = cxios_is_defined_filegroup_name &
882      (filegroup_hdl%daddr)
883        name_ = name__tmp
884      ENDIF
885
886      IF (PRESENT(name_suffix_)) THEN
887        name_suffix__tmp = cxios_is_defined_filegroup_name_suffix &
888      (filegroup_hdl%daddr)
889        name_suffix_ = name_suffix__tmp
890      ENDIF
891
892      IF (PRESENT(output_freq_)) THEN
893        output_freq__tmp = cxios_is_defined_filegroup_output_freq &
894      (filegroup_hdl%daddr)
895        output_freq_ = output_freq__tmp
896      ENDIF
897
898      IF (PRESENT(output_level_)) THEN
899        output_level__tmp = cxios_is_defined_filegroup_output_level &
900      (filegroup_hdl%daddr)
901        output_level_ = output_level__tmp
902      ENDIF
903
904      IF (PRESENT(par_access_)) THEN
905        par_access__tmp = cxios_is_defined_filegroup_par_access &
906      (filegroup_hdl%daddr)
907        par_access_ = par_access__tmp
908      ENDIF
909
910      IF (PRESENT(record_offset_)) THEN
911        record_offset__tmp = cxios_is_defined_filegroup_record_offset &
912      (filegroup_hdl%daddr)
913        record_offset_ = record_offset__tmp
914      ENDIF
915
916      IF (PRESENT(split_freq_)) THEN
917        split_freq__tmp = cxios_is_defined_filegroup_split_freq &
918      (filegroup_hdl%daddr)
919        split_freq_ = split_freq__tmp
920      ENDIF
921
922      IF (PRESENT(split_freq_format_)) THEN
923        split_freq_format__tmp = cxios_is_defined_filegroup_split_freq_format &
924      (filegroup_hdl%daddr)
925        split_freq_format_ = split_freq_format__tmp
926      ENDIF
927
928      IF (PRESENT(sync_freq_)) THEN
929        sync_freq__tmp = cxios_is_defined_filegroup_sync_freq &
930      (filegroup_hdl%daddr)
931        sync_freq_ = sync_freq__tmp
932      ENDIF
933
934      IF (PRESENT(time_counter_)) THEN
935        time_counter__tmp = cxios_is_defined_filegroup_time_counter &
936      (filegroup_hdl%daddr)
937        time_counter_ = time_counter__tmp
938      ENDIF
939
940      IF (PRESENT(time_counter_name_)) THEN
941        time_counter_name__tmp = cxios_is_defined_filegroup_time_counter_name &
942      (filegroup_hdl%daddr)
943        time_counter_name_ = time_counter_name__tmp
944      ENDIF
945
946      IF (PRESENT(time_stamp_format_)) THEN
947        time_stamp_format__tmp = cxios_is_defined_filegroup_time_stamp_format &
948      (filegroup_hdl%daddr)
949        time_stamp_format_ = time_stamp_format__tmp
950      ENDIF
951
952      IF (PRESENT(time_stamp_name_)) THEN
953        time_stamp_name__tmp = cxios_is_defined_filegroup_time_stamp_name &
954      (filegroup_hdl%daddr)
955        time_stamp_name_ = time_stamp_name__tmp
956      ENDIF
957
958      IF (PRESENT(time_units_)) THEN
959        time_units__tmp = cxios_is_defined_filegroup_time_units &
960      (filegroup_hdl%daddr)
961        time_units_ = time_units__tmp
962      ENDIF
963
964      IF (PRESENT(timeseries_)) THEN
965        timeseries__tmp = cxios_is_defined_filegroup_timeseries &
966      (filegroup_hdl%daddr)
967        timeseries_ = timeseries__tmp
968      ENDIF
969
970      IF (PRESENT(ts_prefix_)) THEN
971        ts_prefix__tmp = cxios_is_defined_filegroup_ts_prefix &
972      (filegroup_hdl%daddr)
973        ts_prefix_ = ts_prefix__tmp
974      ENDIF
975
976      IF (PRESENT(type_)) THEN
977        type__tmp = cxios_is_defined_filegroup_type &
978      (filegroup_hdl%daddr)
979        type_ = type__tmp
980      ENDIF
981
982      IF (PRESENT(uuid_format_)) THEN
983        uuid_format__tmp = cxios_is_defined_filegroup_uuid_format &
984      (filegroup_hdl%daddr)
985        uuid_format_ = uuid_format__tmp
986      ENDIF
987
988      IF (PRESENT(uuid_name_)) THEN
989        uuid_name__tmp = cxios_is_defined_filegroup_uuid_name &
990      (filegroup_hdl%daddr)
991        uuid_name_ = uuid_name__tmp
992      ENDIF
993
994  END SUBROUTINE xios(is_defined_filegroup_attr_hdl_)
995
996END MODULE ifilegroup_attr
Note: See TracBrowser for help on using the repository browser.