source: XIOS3/trunk/src/interface/fortran_attr/ifilegroup_attr.F90 @ 2620

Last change on this file since 2620 was 2620, checked in by jderouillat, 4 months ago

Modify fortran-C interfaces to manage logical-bool conversion, the optimizations of OneAPI could produce bugs regarding the logical-bool encodings.
  • 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: 61.2 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  USE LOGICAL_BOOL_CONVERSION
11
12CONTAINS
13
14  SUBROUTINE xios(set_filegroup_attr)  &
15    ( filegroup_id, append, comment, compression_level, convention, convention_str, cyclic, description  &
16    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
17    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
18    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
19    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
20    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
21
22    IMPLICIT NONE
23      TYPE(txios(filegroup))  :: filegroup_hdl
24      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
25      LOGICAL  , OPTIONAL, INTENT(IN) :: append
26      LOGICAL (KIND=C_BOOL) :: append_tmp
27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
28      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
29      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention
30      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str
31      LOGICAL  , OPTIONAL, INTENT(IN) :: cyclic
32      LOGICAL (KIND=C_BOOL) :: cyclic_tmp
33      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
34      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
35      LOGICAL (KIND=C_BOOL) :: enabled_tmp
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer
38      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
39      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
41      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
42      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
43      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq
44      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
45      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer
47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader
48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer
49      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par
50      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader
52      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset
53      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset
54      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
56      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date
57      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_start_offset
58      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq
59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
60      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name
61      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format
62      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name
63      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units
64      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
65      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
66      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
67      LOGICAL  , OPTIONAL, INTENT(IN) :: using_server2
68      LOGICAL (KIND=C_BOOL) :: using_server2_tmp
69      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format
70      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name
71      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer
72
73      CALL xios(get_filegroup_handle) &
74      (filegroup_id,filegroup_hdl)
75      CALL xios(set_filegroup_attr_hdl_)   &
76      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
77      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
78      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
79      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
80      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
81      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
82
83  END SUBROUTINE xios(set_filegroup_attr)
84
85  SUBROUTINE xios(set_filegroup_attr_hdl)  &
86    ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
87    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
88    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
89    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
90    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
91    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
92
93    IMPLICIT NONE
94      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
95      LOGICAL  , OPTIONAL, INTENT(IN) :: append
96      LOGICAL (KIND=C_BOOL) :: append_tmp
97      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
98      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
99      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention
100      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str
101      LOGICAL  , OPTIONAL, INTENT(IN) :: cyclic
102      LOGICAL (KIND=C_BOOL) :: cyclic_tmp
103      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
104      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
105      LOGICAL (KIND=C_BOOL) :: enabled_tmp
106      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
107      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer
108      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
109      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
110      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
111      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
112      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
113      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq
114      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
115      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
116      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer
117      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader
118      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer
119      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par
120      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp
121      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader
122      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset
123      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset
124      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
125      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
126      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date
127      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_start_offset
128      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq
129      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
130      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name
131      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format
132      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name
133      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units
134      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
135      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
136      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
137      LOGICAL  , OPTIONAL, INTENT(IN) :: using_server2
138      LOGICAL (KIND=C_BOOL) :: using_server2_tmp
139      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format
140      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name
141      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer
142
143      CALL xios(set_filegroup_attr_hdl_)  &
144      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
145      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
146      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
147      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
148      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
149      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
150
151  END SUBROUTINE xios(set_filegroup_attr_hdl)
152
153  SUBROUTINE xios(set_filegroup_attr_hdl_)   &
154    ( filegroup_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_  &
155    , description_, enabled_, format_, gatherer_, group_ref_, min_digits_, mode_, name_, name_suffix_  &
156    , output_freq_, output_level_, par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_  &
157    , reader_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_  &
158    , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_  &
159    , time_units_, timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_  &
160     )
161
162    IMPLICIT NONE
163      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
164      LOGICAL  , OPTIONAL, INTENT(IN) :: append_
165      LOGICAL (KIND=C_BOOL) :: append__tmp
166      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
167      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_
168      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_
169      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str_
170      LOGICAL  , OPTIONAL, INTENT(IN) :: cyclic_
171      LOGICAL (KIND=C_BOOL) :: cyclic__tmp
172      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
173      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
174      LOGICAL (KIND=C_BOOL) :: enabled__tmp
175      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_
176      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer_
177      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
178      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits_
179      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
180      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
181      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_
182      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq_
183      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_
184      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_
185      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer_
186      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader_
187      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer_
188      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par_
189      LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp
190      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader_
191      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset_
192      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset_
193      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq_
194      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_
195      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date_
196      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_start_offset_
197      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq_
198      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_
199      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name_
200      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format_
201      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name_
202      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units_
203      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries_
204      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_
205      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
206      LOGICAL  , OPTIONAL, INTENT(IN) :: using_server2_
207      LOGICAL (KIND=C_BOOL) :: using_server2__tmp
208      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format_
209      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name_
210      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer_
211
212      IF (PRESENT(append_)) THEN
213        append__tmp = append_
214        CALL xios_logical_to_bool_0d(append__tmp)
215        CALL cxios_set_filegroup_append &
216      (filegroup_hdl%daddr, append__tmp)
217      ENDIF
218
219      IF (PRESENT(comment_)) THEN
220        CALL cxios_set_filegroup_comment &
221      (filegroup_hdl%daddr, comment_, len(comment_))
222      ENDIF
223
224      IF (PRESENT(compression_level_)) THEN
225        CALL cxios_set_filegroup_compression_level &
226      (filegroup_hdl%daddr, compression_level_)
227      ENDIF
228
229      IF (PRESENT(convention_)) THEN
230        CALL cxios_set_filegroup_convention &
231      (filegroup_hdl%daddr, convention_, len(convention_))
232      ENDIF
233
234      IF (PRESENT(convention_str_)) THEN
235        CALL cxios_set_filegroup_convention_str &
236      (filegroup_hdl%daddr, convention_str_, len(convention_str_))
237      ENDIF
238
239      IF (PRESENT(cyclic_)) THEN
240        cyclic__tmp = cyclic_
241        CALL xios_logical_to_bool_0d(cyclic__tmp)
242        CALL cxios_set_filegroup_cyclic &
243      (filegroup_hdl%daddr, cyclic__tmp)
244      ENDIF
245
246      IF (PRESENT(description_)) THEN
247        CALL cxios_set_filegroup_description &
248      (filegroup_hdl%daddr, description_, len(description_))
249      ENDIF
250
251      IF (PRESENT(enabled_)) THEN
252        enabled__tmp = enabled_
253        CALL xios_logical_to_bool_0d(enabled__tmp)
254        CALL cxios_set_filegroup_enabled &
255      (filegroup_hdl%daddr, enabled__tmp)
256      ENDIF
257
258      IF (PRESENT(format_)) THEN
259        CALL cxios_set_filegroup_format &
260      (filegroup_hdl%daddr, format_, len(format_))
261      ENDIF
262
263      IF (PRESENT(gatherer_)) THEN
264        CALL cxios_set_filegroup_gatherer &
265      (filegroup_hdl%daddr, gatherer_, len(gatherer_))
266      ENDIF
267
268      IF (PRESENT(group_ref_)) THEN
269        CALL cxios_set_filegroup_group_ref &
270      (filegroup_hdl%daddr, group_ref_, len(group_ref_))
271      ENDIF
272
273      IF (PRESENT(min_digits_)) THEN
274        CALL cxios_set_filegroup_min_digits &
275      (filegroup_hdl%daddr, min_digits_)
276      ENDIF
277
278      IF (PRESENT(mode_)) THEN
279        CALL cxios_set_filegroup_mode &
280      (filegroup_hdl%daddr, mode_, len(mode_))
281      ENDIF
282
283      IF (PRESENT(name_)) THEN
284        CALL cxios_set_filegroup_name &
285      (filegroup_hdl%daddr, name_, len(name_))
286      ENDIF
287
288      IF (PRESENT(name_suffix_)) THEN
289        CALL cxios_set_filegroup_name_suffix &
290      (filegroup_hdl%daddr, name_suffix_, len(name_suffix_))
291      ENDIF
292
293      IF (PRESENT(output_freq_)) THEN
294        CALL cxios_set_filegroup_output_freq &
295      (filegroup_hdl%daddr, output_freq_)
296      ENDIF
297
298      IF (PRESENT(output_level_)) THEN
299        CALL cxios_set_filegroup_output_level &
300      (filegroup_hdl%daddr, output_level_)
301      ENDIF
302
303      IF (PRESENT(par_access_)) THEN
304        CALL cxios_set_filegroup_par_access &
305      (filegroup_hdl%daddr, par_access_, len(par_access_))
306      ENDIF
307
308      IF (PRESENT(pool_gatherer_)) THEN
309        CALL cxios_set_filegroup_pool_gatherer &
310      (filegroup_hdl%daddr, pool_gatherer_, len(pool_gatherer_))
311      ENDIF
312
313      IF (PRESENT(pool_reader_)) THEN
314        CALL cxios_set_filegroup_pool_reader &
315      (filegroup_hdl%daddr, pool_reader_, len(pool_reader_))
316      ENDIF
317
318      IF (PRESENT(pool_writer_)) THEN
319        CALL cxios_set_filegroup_pool_writer &
320      (filegroup_hdl%daddr, pool_writer_, len(pool_writer_))
321      ENDIF
322
323      IF (PRESENT(read_metadata_par_)) THEN
324        read_metadata_par__tmp = read_metadata_par_
325        CALL xios_logical_to_bool_0d(read_metadata_par__tmp)
326        CALL cxios_set_filegroup_read_metadata_par &
327      (filegroup_hdl%daddr, read_metadata_par__tmp)
328      ENDIF
329
330      IF (PRESENT(reader_)) THEN
331        CALL cxios_set_filegroup_reader &
332      (filegroup_hdl%daddr, reader_, len(reader_))
333      ENDIF
334
335      IF (PRESENT(record_offset_)) THEN
336        CALL cxios_set_filegroup_record_offset &
337      (filegroup_hdl%daddr, record_offset_)
338      ENDIF
339
340      IF (PRESENT(split_end_offset_)) THEN
341        CALL cxios_set_filegroup_split_end_offset &
342      (filegroup_hdl%daddr, split_end_offset_)
343      ENDIF
344
345      IF (PRESENT(split_freq_)) THEN
346        CALL cxios_set_filegroup_split_freq &
347      (filegroup_hdl%daddr, split_freq_)
348      ENDIF
349
350      IF (PRESENT(split_freq_format_)) THEN
351        CALL cxios_set_filegroup_split_freq_format &
352      (filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_))
353      ENDIF
354
355      IF (PRESENT(split_last_date_)) THEN
356        CALL cxios_set_filegroup_split_last_date &
357      (filegroup_hdl%daddr, split_last_date_, len(split_last_date_))
358      ENDIF
359
360      IF (PRESENT(split_start_offset_)) THEN
361        CALL cxios_set_filegroup_split_start_offset &
362      (filegroup_hdl%daddr, split_start_offset_)
363      ENDIF
364
365      IF (PRESENT(sync_freq_)) THEN
366        CALL cxios_set_filegroup_sync_freq &
367      (filegroup_hdl%daddr, sync_freq_)
368      ENDIF
369
370      IF (PRESENT(time_counter_)) THEN
371        CALL cxios_set_filegroup_time_counter &
372      (filegroup_hdl%daddr, time_counter_, len(time_counter_))
373      ENDIF
374
375      IF (PRESENT(time_counter_name_)) THEN
376        CALL cxios_set_filegroup_time_counter_name &
377      (filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_))
378      ENDIF
379
380      IF (PRESENT(time_stamp_format_)) THEN
381        CALL cxios_set_filegroup_time_stamp_format &
382      (filegroup_hdl%daddr, time_stamp_format_, len(time_stamp_format_))
383      ENDIF
384
385      IF (PRESENT(time_stamp_name_)) THEN
386        CALL cxios_set_filegroup_time_stamp_name &
387      (filegroup_hdl%daddr, time_stamp_name_, len(time_stamp_name_))
388      ENDIF
389
390      IF (PRESENT(time_units_)) THEN
391        CALL cxios_set_filegroup_time_units &
392      (filegroup_hdl%daddr, time_units_, len(time_units_))
393      ENDIF
394
395      IF (PRESENT(timeseries_)) THEN
396        CALL cxios_set_filegroup_timeseries &
397      (filegroup_hdl%daddr, timeseries_, len(timeseries_))
398      ENDIF
399
400      IF (PRESENT(ts_prefix_)) THEN
401        CALL cxios_set_filegroup_ts_prefix &
402      (filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_))
403      ENDIF
404
405      IF (PRESENT(type_)) THEN
406        CALL cxios_set_filegroup_type &
407      (filegroup_hdl%daddr, type_, len(type_))
408      ENDIF
409
410      IF (PRESENT(using_server2_)) THEN
411        using_server2__tmp = using_server2_
412        CALL xios_logical_to_bool_0d(using_server2__tmp)
413        CALL cxios_set_filegroup_using_server2 &
414      (filegroup_hdl%daddr, using_server2__tmp)
415      ENDIF
416
417      IF (PRESENT(uuid_format_)) THEN
418        CALL cxios_set_filegroup_uuid_format &
419      (filegroup_hdl%daddr, uuid_format_, len(uuid_format_))
420      ENDIF
421
422      IF (PRESENT(uuid_name_)) THEN
423        CALL cxios_set_filegroup_uuid_name &
424      (filegroup_hdl%daddr, uuid_name_, len(uuid_name_))
425      ENDIF
426
427      IF (PRESENT(writer_)) THEN
428        CALL cxios_set_filegroup_writer &
429      (filegroup_hdl%daddr, writer_, len(writer_))
430      ENDIF
431
432  END SUBROUTINE xios(set_filegroup_attr_hdl_)
433
434  SUBROUTINE xios(get_filegroup_attr)  &
435    ( filegroup_id, append, comment, compression_level, convention, convention_str, cyclic, description  &
436    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
437    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
438    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
439    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
440    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
441
442    IMPLICIT NONE
443      TYPE(txios(filegroup))  :: filegroup_hdl
444      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
445      LOGICAL  , OPTIONAL, INTENT(OUT) :: append
446      LOGICAL (KIND=C_BOOL) :: append_tmp
447      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
448      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
449      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention
450      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_str
451      LOGICAL  , OPTIONAL, INTENT(OUT) :: cyclic
452      LOGICAL (KIND=C_BOOL) :: cyclic_tmp
453      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
454      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
455      LOGICAL (KIND=C_BOOL) :: enabled_tmp
456      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
457      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer
458      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
459      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
460      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
461      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
462      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
463      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
464      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
465      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
466      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer
467      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader
468      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer
469      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par
470      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp
471      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader
472      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset
473      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset
474      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
475      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
476      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date
477      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_start_offset
478      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
479      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
480      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name
481      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format
482      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name
483      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units
484      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
485      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
486      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
487      LOGICAL  , OPTIONAL, INTENT(OUT) :: using_server2
488      LOGICAL (KIND=C_BOOL) :: using_server2_tmp
489      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format
490      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name
491      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer
492
493      CALL xios(get_filegroup_handle) &
494      (filegroup_id,filegroup_hdl)
495      CALL xios(get_filegroup_attr_hdl_)   &
496      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
497      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
498      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
499      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
500      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
501      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
502
503  END SUBROUTINE xios(get_filegroup_attr)
504
505  SUBROUTINE xios(get_filegroup_attr_hdl)  &
506    ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
507    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
508    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
509    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
510    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
511    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
512
513    IMPLICIT NONE
514      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
515      LOGICAL  , OPTIONAL, INTENT(OUT) :: append
516      LOGICAL (KIND=C_BOOL) :: append_tmp
517      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
518      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
519      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention
520      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_str
521      LOGICAL  , OPTIONAL, INTENT(OUT) :: cyclic
522      LOGICAL (KIND=C_BOOL) :: cyclic_tmp
523      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
524      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
525      LOGICAL (KIND=C_BOOL) :: enabled_tmp
526      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
527      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer
528      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
529      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
530      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
531      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
532      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
533      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
534      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
535      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
536      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer
537      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader
538      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer
539      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par
540      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp
541      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader
542      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset
543      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset
544      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
545      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
546      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date
547      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_start_offset
548      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
549      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
550      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name
551      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format
552      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name
553      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units
554      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
555      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
556      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
557      LOGICAL  , OPTIONAL, INTENT(OUT) :: using_server2
558      LOGICAL (KIND=C_BOOL) :: using_server2_tmp
559      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format
560      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name
561      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer
562
563      CALL xios(get_filegroup_attr_hdl_)  &
564      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
565      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
566      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
567      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
568      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
569      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
570
571  END SUBROUTINE xios(get_filegroup_attr_hdl)
572
573  SUBROUTINE xios(get_filegroup_attr_hdl_)   &
574    ( filegroup_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_  &
575    , description_, enabled_, format_, gatherer_, group_ref_, min_digits_, mode_, name_, name_suffix_  &
576    , output_freq_, output_level_, par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_  &
577    , reader_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_  &
578    , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_  &
579    , time_units_, timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_  &
580     )
581
582    IMPLICIT NONE
583      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
584      LOGICAL  , OPTIONAL, INTENT(OUT) :: append_
585      LOGICAL (KIND=C_BOOL) :: append__tmp
586      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
587      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_
588      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_
589      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_str_
590      LOGICAL  , OPTIONAL, INTENT(OUT) :: cyclic_
591      LOGICAL (KIND=C_BOOL) :: cyclic__tmp
592      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
593      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
594      LOGICAL (KIND=C_BOOL) :: enabled__tmp
595      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_
596      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer_
597      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
598      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits_
599      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
600      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
601      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
602      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq_
603      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_
604      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_
605      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer_
606      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader_
607      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer_
608      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par_
609      LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp
610      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader_
611      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset_
612      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset_
613      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq_
614      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_
615      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date_
616      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_start_offset_
617      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq_
618      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_
619      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name_
620      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format_
621      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name_
622      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units_
623      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries_
624      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_
625      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
626      LOGICAL  , OPTIONAL, INTENT(OUT) :: using_server2_
627      LOGICAL (KIND=C_BOOL) :: using_server2__tmp
628      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format_
629      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name_
630      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer_
631
632      IF (PRESENT(append_)) THEN
633        CALL cxios_get_filegroup_append &
634      (filegroup_hdl%daddr, append__tmp)
635        CALL xios_bool_to_logical_0d(append__tmp)
636        append_ = append__tmp
637      ENDIF
638
639      IF (PRESENT(comment_)) THEN
640        CALL cxios_get_filegroup_comment &
641      (filegroup_hdl%daddr, comment_, len(comment_))
642      ENDIF
643
644      IF (PRESENT(compression_level_)) THEN
645        CALL cxios_get_filegroup_compression_level &
646      (filegroup_hdl%daddr, compression_level_)
647      ENDIF
648
649      IF (PRESENT(convention_)) THEN
650        CALL cxios_get_filegroup_convention &
651      (filegroup_hdl%daddr, convention_, len(convention_))
652      ENDIF
653
654      IF (PRESENT(convention_str_)) THEN
655        CALL cxios_get_filegroup_convention_str &
656      (filegroup_hdl%daddr, convention_str_, len(convention_str_))
657      ENDIF
658
659      IF (PRESENT(cyclic_)) THEN
660        CALL cxios_get_filegroup_cyclic &
661      (filegroup_hdl%daddr, cyclic__tmp)
662        CALL xios_bool_to_logical_0d(cyclic__tmp)
663        cyclic_ = cyclic__tmp
664      ENDIF
665
666      IF (PRESENT(description_)) THEN
667        CALL cxios_get_filegroup_description &
668      (filegroup_hdl%daddr, description_, len(description_))
669      ENDIF
670
671      IF (PRESENT(enabled_)) THEN
672        CALL cxios_get_filegroup_enabled &
673      (filegroup_hdl%daddr, enabled__tmp)
674        CALL xios_bool_to_logical_0d(enabled__tmp)
675        enabled_ = enabled__tmp
676      ENDIF
677
678      IF (PRESENT(format_)) THEN
679        CALL cxios_get_filegroup_format &
680      (filegroup_hdl%daddr, format_, len(format_))
681      ENDIF
682
683      IF (PRESENT(gatherer_)) THEN
684        CALL cxios_get_filegroup_gatherer &
685      (filegroup_hdl%daddr, gatherer_, len(gatherer_))
686      ENDIF
687
688      IF (PRESENT(group_ref_)) THEN
689        CALL cxios_get_filegroup_group_ref &
690      (filegroup_hdl%daddr, group_ref_, len(group_ref_))
691      ENDIF
692
693      IF (PRESENT(min_digits_)) THEN
694        CALL cxios_get_filegroup_min_digits &
695      (filegroup_hdl%daddr, min_digits_)
696      ENDIF
697
698      IF (PRESENT(mode_)) THEN
699        CALL cxios_get_filegroup_mode &
700      (filegroup_hdl%daddr, mode_, len(mode_))
701      ENDIF
702
703      IF (PRESENT(name_)) THEN
704        CALL cxios_get_filegroup_name &
705      (filegroup_hdl%daddr, name_, len(name_))
706      ENDIF
707
708      IF (PRESENT(name_suffix_)) THEN
709        CALL cxios_get_filegroup_name_suffix &
710      (filegroup_hdl%daddr, name_suffix_, len(name_suffix_))
711      ENDIF
712
713      IF (PRESENT(output_freq_)) THEN
714        CALL cxios_get_filegroup_output_freq &
715      (filegroup_hdl%daddr, output_freq_)
716      ENDIF
717
718      IF (PRESENT(output_level_)) THEN
719        CALL cxios_get_filegroup_output_level &
720      (filegroup_hdl%daddr, output_level_)
721      ENDIF
722
723      IF (PRESENT(par_access_)) THEN
724        CALL cxios_get_filegroup_par_access &
725      (filegroup_hdl%daddr, par_access_, len(par_access_))
726      ENDIF
727
728      IF (PRESENT(pool_gatherer_)) THEN
729        CALL cxios_get_filegroup_pool_gatherer &
730      (filegroup_hdl%daddr, pool_gatherer_, len(pool_gatherer_))
731      ENDIF
732
733      IF (PRESENT(pool_reader_)) THEN
734        CALL cxios_get_filegroup_pool_reader &
735      (filegroup_hdl%daddr, pool_reader_, len(pool_reader_))
736      ENDIF
737
738      IF (PRESENT(pool_writer_)) THEN
739        CALL cxios_get_filegroup_pool_writer &
740      (filegroup_hdl%daddr, pool_writer_, len(pool_writer_))
741      ENDIF
742
743      IF (PRESENT(read_metadata_par_)) THEN
744        CALL cxios_get_filegroup_read_metadata_par &
745      (filegroup_hdl%daddr, read_metadata_par__tmp)
746        CALL xios_bool_to_logical_0d(read_metadata_par__tmp)
747        read_metadata_par_ = read_metadata_par__tmp
748      ENDIF
749
750      IF (PRESENT(reader_)) THEN
751        CALL cxios_get_filegroup_reader &
752      (filegroup_hdl%daddr, reader_, len(reader_))
753      ENDIF
754
755      IF (PRESENT(record_offset_)) THEN
756        CALL cxios_get_filegroup_record_offset &
757      (filegroup_hdl%daddr, record_offset_)
758      ENDIF
759
760      IF (PRESENT(split_end_offset_)) THEN
761        CALL cxios_get_filegroup_split_end_offset &
762      (filegroup_hdl%daddr, split_end_offset_)
763      ENDIF
764
765      IF (PRESENT(split_freq_)) THEN
766        CALL cxios_get_filegroup_split_freq &
767      (filegroup_hdl%daddr, split_freq_)
768      ENDIF
769
770      IF (PRESENT(split_freq_format_)) THEN
771        CALL cxios_get_filegroup_split_freq_format &
772      (filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_))
773      ENDIF
774
775      IF (PRESENT(split_last_date_)) THEN
776        CALL cxios_get_filegroup_split_last_date &
777      (filegroup_hdl%daddr, split_last_date_, len(split_last_date_))
778      ENDIF
779
780      IF (PRESENT(split_start_offset_)) THEN
781        CALL cxios_get_filegroup_split_start_offset &
782      (filegroup_hdl%daddr, split_start_offset_)
783      ENDIF
784
785      IF (PRESENT(sync_freq_)) THEN
786        CALL cxios_get_filegroup_sync_freq &
787      (filegroup_hdl%daddr, sync_freq_)
788      ENDIF
789
790      IF (PRESENT(time_counter_)) THEN
791        CALL cxios_get_filegroup_time_counter &
792      (filegroup_hdl%daddr, time_counter_, len(time_counter_))
793      ENDIF
794
795      IF (PRESENT(time_counter_name_)) THEN
796        CALL cxios_get_filegroup_time_counter_name &
797      (filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_))
798      ENDIF
799
800      IF (PRESENT(time_stamp_format_)) THEN
801        CALL cxios_get_filegroup_time_stamp_format &
802      (filegroup_hdl%daddr, time_stamp_format_, len(time_stamp_format_))
803      ENDIF
804
805      IF (PRESENT(time_stamp_name_)) THEN
806        CALL cxios_get_filegroup_time_stamp_name &
807      (filegroup_hdl%daddr, time_stamp_name_, len(time_stamp_name_))
808      ENDIF
809
810      IF (PRESENT(time_units_)) THEN
811        CALL cxios_get_filegroup_time_units &
812      (filegroup_hdl%daddr, time_units_, len(time_units_))
813      ENDIF
814
815      IF (PRESENT(timeseries_)) THEN
816        CALL cxios_get_filegroup_timeseries &
817      (filegroup_hdl%daddr, timeseries_, len(timeseries_))
818      ENDIF
819
820      IF (PRESENT(ts_prefix_)) THEN
821        CALL cxios_get_filegroup_ts_prefix &
822      (filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_))
823      ENDIF
824
825      IF (PRESENT(type_)) THEN
826        CALL cxios_get_filegroup_type &
827      (filegroup_hdl%daddr, type_, len(type_))
828      ENDIF
829
830      IF (PRESENT(using_server2_)) THEN
831        CALL cxios_get_filegroup_using_server2 &
832      (filegroup_hdl%daddr, using_server2__tmp)
833        CALL xios_bool_to_logical_0d(using_server2__tmp)
834        using_server2_ = using_server2__tmp
835      ENDIF
836
837      IF (PRESENT(uuid_format_)) THEN
838        CALL cxios_get_filegroup_uuid_format &
839      (filegroup_hdl%daddr, uuid_format_, len(uuid_format_))
840      ENDIF
841
842      IF (PRESENT(uuid_name_)) THEN
843        CALL cxios_get_filegroup_uuid_name &
844      (filegroup_hdl%daddr, uuid_name_, len(uuid_name_))
845      ENDIF
846
847      IF (PRESENT(writer_)) THEN
848        CALL cxios_get_filegroup_writer &
849      (filegroup_hdl%daddr, writer_, len(writer_))
850      ENDIF
851
852  END SUBROUTINE xios(get_filegroup_attr_hdl_)
853
854  SUBROUTINE xios(is_defined_filegroup_attr)  &
855    ( filegroup_id, append, comment, compression_level, convention, convention_str, cyclic, description  &
856    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
857    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
858    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
859    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
860    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
861
862    IMPLICIT NONE
863      TYPE(txios(filegroup))  :: filegroup_hdl
864      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
865      LOGICAL, OPTIONAL, INTENT(OUT) :: append
866      LOGICAL(KIND=C_BOOL) :: append_tmp
867      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
868      LOGICAL(KIND=C_BOOL) :: comment_tmp
869      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
870      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
871      LOGICAL, OPTIONAL, INTENT(OUT) :: convention
872      LOGICAL(KIND=C_BOOL) :: convention_tmp
873      LOGICAL, OPTIONAL, INTENT(OUT) :: convention_str
874      LOGICAL(KIND=C_BOOL) :: convention_str_tmp
875      LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic
876      LOGICAL(KIND=C_BOOL) :: cyclic_tmp
877      LOGICAL, OPTIONAL, INTENT(OUT) :: description
878      LOGICAL(KIND=C_BOOL) :: description_tmp
879      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
880      LOGICAL(KIND=C_BOOL) :: enabled_tmp
881      LOGICAL, OPTIONAL, INTENT(OUT) :: format
882      LOGICAL(KIND=C_BOOL) :: format_tmp
883      LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer
884      LOGICAL(KIND=C_BOOL) :: gatherer_tmp
885      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
886      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
887      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
888      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
889      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
890      LOGICAL(KIND=C_BOOL) :: mode_tmp
891      LOGICAL, OPTIONAL, INTENT(OUT) :: name
892      LOGICAL(KIND=C_BOOL) :: name_tmp
893      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
894      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
895      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
896      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
897      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
898      LOGICAL(KIND=C_BOOL) :: output_level_tmp
899      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
900      LOGICAL(KIND=C_BOOL) :: par_access_tmp
901      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer
902      LOGICAL(KIND=C_BOOL) :: pool_gatherer_tmp
903      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader
904      LOGICAL(KIND=C_BOOL) :: pool_reader_tmp
905      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer
906      LOGICAL(KIND=C_BOOL) :: pool_writer_tmp
907      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par
908      LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp
909      LOGICAL, OPTIONAL, INTENT(OUT) :: reader
910      LOGICAL(KIND=C_BOOL) :: reader_tmp
911      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset
912      LOGICAL(KIND=C_BOOL) :: record_offset_tmp
913      LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset
914      LOGICAL(KIND=C_BOOL) :: split_end_offset_tmp
915      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
916      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
917      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
918      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
919      LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date
920      LOGICAL(KIND=C_BOOL) :: split_last_date_tmp
921      LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset
922      LOGICAL(KIND=C_BOOL) :: split_start_offset_tmp
923      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
924      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
925      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
926      LOGICAL(KIND=C_BOOL) :: time_counter_tmp
927      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name
928      LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp
929      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format
930      LOGICAL(KIND=C_BOOL) :: time_stamp_format_tmp
931      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name
932      LOGICAL(KIND=C_BOOL) :: time_stamp_name_tmp
933      LOGICAL, OPTIONAL, INTENT(OUT) :: time_units
934      LOGICAL(KIND=C_BOOL) :: time_units_tmp
935      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
936      LOGICAL(KIND=C_BOOL) :: timeseries_tmp
937      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
938      LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
939      LOGICAL, OPTIONAL, INTENT(OUT) :: type
940      LOGICAL(KIND=C_BOOL) :: type_tmp
941      LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2
942      LOGICAL(KIND=C_BOOL) :: using_server2_tmp
943      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format
944      LOGICAL(KIND=C_BOOL) :: uuid_format_tmp
945      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name
946      LOGICAL(KIND=C_BOOL) :: uuid_name_tmp
947      LOGICAL, OPTIONAL, INTENT(OUT) :: writer
948      LOGICAL(KIND=C_BOOL) :: writer_tmp
949
950      CALL xios(get_filegroup_handle) &
951      (filegroup_id,filegroup_hdl)
952      CALL xios(is_defined_filegroup_attr_hdl_)   &
953      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
954      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
955      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
956      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
957      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
958      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
959
960  END SUBROUTINE xios(is_defined_filegroup_attr)
961
962  SUBROUTINE xios(is_defined_filegroup_attr_hdl)  &
963    ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
964    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
965    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
966    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
967    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
968    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
969
970    IMPLICIT NONE
971      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
972      LOGICAL, OPTIONAL, INTENT(OUT) :: append
973      LOGICAL(KIND=C_BOOL) :: append_tmp
974      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
975      LOGICAL(KIND=C_BOOL) :: comment_tmp
976      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
977      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
978      LOGICAL, OPTIONAL, INTENT(OUT) :: convention
979      LOGICAL(KIND=C_BOOL) :: convention_tmp
980      LOGICAL, OPTIONAL, INTENT(OUT) :: convention_str
981      LOGICAL(KIND=C_BOOL) :: convention_str_tmp
982      LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic
983      LOGICAL(KIND=C_BOOL) :: cyclic_tmp
984      LOGICAL, OPTIONAL, INTENT(OUT) :: description
985      LOGICAL(KIND=C_BOOL) :: description_tmp
986      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
987      LOGICAL(KIND=C_BOOL) :: enabled_tmp
988      LOGICAL, OPTIONAL, INTENT(OUT) :: format
989      LOGICAL(KIND=C_BOOL) :: format_tmp
990      LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer
991      LOGICAL(KIND=C_BOOL) :: gatherer_tmp
992      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
993      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
994      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
995      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
996      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
997      LOGICAL(KIND=C_BOOL) :: mode_tmp
998      LOGICAL, OPTIONAL, INTENT(OUT) :: name
999      LOGICAL(KIND=C_BOOL) :: name_tmp
1000      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
1001      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
1002      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
1003      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
1004      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
1005      LOGICAL(KIND=C_BOOL) :: output_level_tmp
1006      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
1007      LOGICAL(KIND=C_BOOL) :: par_access_tmp
1008      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer
1009      LOGICAL(KIND=C_BOOL) :: pool_gatherer_tmp
1010      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader
1011      LOGICAL(KIND=C_BOOL) :: pool_reader_tmp
1012      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer
1013      LOGICAL(KIND=C_BOOL) :: pool_writer_tmp
1014      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par
1015      LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp
1016      LOGICAL, OPTIONAL, INTENT(OUT) :: reader
1017      LOGICAL(KIND=C_BOOL) :: reader_tmp
1018      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset
1019      LOGICAL(KIND=C_BOOL) :: record_offset_tmp
1020      LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset
1021      LOGICAL(KIND=C_BOOL) :: split_end_offset_tmp
1022      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
1023      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
1024      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
1025      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
1026      LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date
1027      LOGICAL(KIND=C_BOOL) :: split_last_date_tmp
1028      LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset
1029      LOGICAL(KIND=C_BOOL) :: split_start_offset_tmp
1030      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
1031      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
1032      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
1033      LOGICAL(KIND=C_BOOL) :: time_counter_tmp
1034      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name
1035      LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp
1036      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format
1037      LOGICAL(KIND=C_BOOL) :: time_stamp_format_tmp
1038      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name
1039      LOGICAL(KIND=C_BOOL) :: time_stamp_name_tmp
1040      LOGICAL, OPTIONAL, INTENT(OUT) :: time_units
1041      LOGICAL(KIND=C_BOOL) :: time_units_tmp
1042      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
1043      LOGICAL(KIND=C_BOOL) :: timeseries_tmp
1044      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
1045      LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
1046      LOGICAL, OPTIONAL, INTENT(OUT) :: type
1047      LOGICAL(KIND=C_BOOL) :: type_tmp
1048      LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2
1049      LOGICAL(KIND=C_BOOL) :: using_server2_tmp
1050      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format
1051      LOGICAL(KIND=C_BOOL) :: uuid_format_tmp
1052      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name
1053      LOGICAL(KIND=C_BOOL) :: uuid_name_tmp
1054      LOGICAL, OPTIONAL, INTENT(OUT) :: writer
1055      LOGICAL(KIND=C_BOOL) :: writer_tmp
1056
1057      CALL xios(is_defined_filegroup_attr_hdl_)  &
1058      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
1059      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
1060      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
1061      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
1062      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
1063      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
1064
1065  END SUBROUTINE xios(is_defined_filegroup_attr_hdl)
1066
1067  SUBROUTINE xios(is_defined_filegroup_attr_hdl_)   &
1068    ( filegroup_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_  &
1069    , description_, enabled_, format_, gatherer_, group_ref_, min_digits_, mode_, name_, name_suffix_  &
1070    , output_freq_, output_level_, par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_  &
1071    , reader_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_  &
1072    , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_  &
1073    , time_units_, timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_  &
1074     )
1075
1076    IMPLICIT NONE
1077      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
1078      LOGICAL, OPTIONAL, INTENT(OUT) :: append_
1079      LOGICAL(KIND=C_BOOL) :: append__tmp
1080      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
1081      LOGICAL(KIND=C_BOOL) :: comment__tmp
1082      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
1083      LOGICAL(KIND=C_BOOL) :: compression_level__tmp
1084      LOGICAL, OPTIONAL, INTENT(OUT) :: convention_
1085      LOGICAL(KIND=C_BOOL) :: convention__tmp
1086      LOGICAL, OPTIONAL, INTENT(OUT) :: convention_str_
1087      LOGICAL(KIND=C_BOOL) :: convention_str__tmp
1088      LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic_
1089      LOGICAL(KIND=C_BOOL) :: cyclic__tmp
1090      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
1091      LOGICAL(KIND=C_BOOL) :: description__tmp
1092      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
1093      LOGICAL(KIND=C_BOOL) :: enabled__tmp
1094      LOGICAL, OPTIONAL, INTENT(OUT) :: format_
1095      LOGICAL(KIND=C_BOOL) :: format__tmp
1096      LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer_
1097      LOGICAL(KIND=C_BOOL) :: gatherer__tmp
1098      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
1099      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
1100      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_
1101      LOGICAL(KIND=C_BOOL) :: min_digits__tmp
1102      LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
1103      LOGICAL(KIND=C_BOOL) :: mode__tmp
1104      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
1105      LOGICAL(KIND=C_BOOL) :: name__tmp
1106      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_
1107      LOGICAL(KIND=C_BOOL) :: name_suffix__tmp
1108      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_
1109      LOGICAL(KIND=C_BOOL) :: output_freq__tmp
1110      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_
1111      LOGICAL(KIND=C_BOOL) :: output_level__tmp
1112      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_
1113      LOGICAL(KIND=C_BOOL) :: par_access__tmp
1114      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer_
1115      LOGICAL(KIND=C_BOOL) :: pool_gatherer__tmp
1116      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader_
1117      LOGICAL(KIND=C_BOOL) :: pool_reader__tmp
1118      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer_
1119      LOGICAL(KIND=C_BOOL) :: pool_writer__tmp
1120      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par_
1121      LOGICAL(KIND=C_BOOL) :: read_metadata_par__tmp
1122      LOGICAL, OPTIONAL, INTENT(OUT) :: reader_
1123      LOGICAL(KIND=C_BOOL) :: reader__tmp
1124      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_
1125      LOGICAL(KIND=C_BOOL) :: record_offset__tmp
1126      LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset_
1127      LOGICAL(KIND=C_BOOL) :: split_end_offset__tmp
1128      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_
1129      LOGICAL(KIND=C_BOOL) :: split_freq__tmp
1130      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_
1131      LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp
1132      LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date_
1133      LOGICAL(KIND=C_BOOL) :: split_last_date__tmp
1134      LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset_
1135      LOGICAL(KIND=C_BOOL) :: split_start_offset__tmp
1136      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_
1137      LOGICAL(KIND=C_BOOL) :: sync_freq__tmp
1138      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_
1139      LOGICAL(KIND=C_BOOL) :: time_counter__tmp
1140      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name_
1141      LOGICAL(KIND=C_BOOL) :: time_counter_name__tmp
1142      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format_
1143      LOGICAL(KIND=C_BOOL) :: time_stamp_format__tmp
1144      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name_
1145      LOGICAL(KIND=C_BOOL) :: time_stamp_name__tmp
1146      LOGICAL, OPTIONAL, INTENT(OUT) :: time_units_
1147      LOGICAL(KIND=C_BOOL) :: time_units__tmp
1148      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries_
1149      LOGICAL(KIND=C_BOOL) :: timeseries__tmp
1150      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix_
1151      LOGICAL(KIND=C_BOOL) :: ts_prefix__tmp
1152      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
1153      LOGICAL(KIND=C_BOOL) :: type__tmp
1154      LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2_
1155      LOGICAL(KIND=C_BOOL) :: using_server2__tmp
1156      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format_
1157      LOGICAL(KIND=C_BOOL) :: uuid_format__tmp
1158      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name_
1159      LOGICAL(KIND=C_BOOL) :: uuid_name__tmp
1160      LOGICAL, OPTIONAL, INTENT(OUT) :: writer_
1161      LOGICAL(KIND=C_BOOL) :: writer__tmp
1162
1163      IF (PRESENT(append_)) THEN
1164        append__tmp = cxios_is_defined_filegroup_append &
1165      (filegroup_hdl%daddr)
1166        append_ = append__tmp
1167      ENDIF
1168
1169      IF (PRESENT(comment_)) THEN
1170        comment__tmp = cxios_is_defined_filegroup_comment &
1171      (filegroup_hdl%daddr)
1172        comment_ = comment__tmp
1173      ENDIF
1174
1175      IF (PRESENT(compression_level_)) THEN
1176        compression_level__tmp = cxios_is_defined_filegroup_compression_level &
1177      (filegroup_hdl%daddr)
1178        compression_level_ = compression_level__tmp
1179      ENDIF
1180
1181      IF (PRESENT(convention_)) THEN
1182        convention__tmp = cxios_is_defined_filegroup_convention &
1183      (filegroup_hdl%daddr)
1184        convention_ = convention__tmp
1185      ENDIF
1186
1187      IF (PRESENT(convention_str_)) THEN
1188        convention_str__tmp = cxios_is_defined_filegroup_convention_str &
1189      (filegroup_hdl%daddr)
1190        convention_str_ = convention_str__tmp
1191      ENDIF
1192
1193      IF (PRESENT(cyclic_)) THEN
1194        cyclic__tmp = cxios_is_defined_filegroup_cyclic &
1195      (filegroup_hdl%daddr)
1196        cyclic_ = cyclic__tmp
1197      ENDIF
1198
1199      IF (PRESENT(description_)) THEN
1200        description__tmp = cxios_is_defined_filegroup_description &
1201      (filegroup_hdl%daddr)
1202        description_ = description__tmp
1203      ENDIF
1204
1205      IF (PRESENT(enabled_)) THEN
1206        enabled__tmp = cxios_is_defined_filegroup_enabled &
1207      (filegroup_hdl%daddr)
1208        enabled_ = enabled__tmp
1209      ENDIF
1210
1211      IF (PRESENT(format_)) THEN
1212        format__tmp = cxios_is_defined_filegroup_format &
1213      (filegroup_hdl%daddr)
1214        format_ = format__tmp
1215      ENDIF
1216
1217      IF (PRESENT(gatherer_)) THEN
1218        gatherer__tmp = cxios_is_defined_filegroup_gatherer &
1219      (filegroup_hdl%daddr)
1220        gatherer_ = gatherer__tmp
1221      ENDIF
1222
1223      IF (PRESENT(group_ref_)) THEN
1224        group_ref__tmp = cxios_is_defined_filegroup_group_ref &
1225      (filegroup_hdl%daddr)
1226        group_ref_ = group_ref__tmp
1227      ENDIF
1228
1229      IF (PRESENT(min_digits_)) THEN
1230        min_digits__tmp = cxios_is_defined_filegroup_min_digits &
1231      (filegroup_hdl%daddr)
1232        min_digits_ = min_digits__tmp
1233      ENDIF
1234
1235      IF (PRESENT(mode_)) THEN
1236        mode__tmp = cxios_is_defined_filegroup_mode &
1237      (filegroup_hdl%daddr)
1238        mode_ = mode__tmp
1239      ENDIF
1240
1241      IF (PRESENT(name_)) THEN
1242        name__tmp = cxios_is_defined_filegroup_name &
1243      (filegroup_hdl%daddr)
1244        name_ = name__tmp
1245      ENDIF
1246
1247      IF (PRESENT(name_suffix_)) THEN
1248        name_suffix__tmp = cxios_is_defined_filegroup_name_suffix &
1249      (filegroup_hdl%daddr)
1250        name_suffix_ = name_suffix__tmp
1251      ENDIF
1252
1253      IF (PRESENT(output_freq_)) THEN
1254        output_freq__tmp = cxios_is_defined_filegroup_output_freq &
1255      (filegroup_hdl%daddr)
1256        output_freq_ = output_freq__tmp
1257      ENDIF
1258
1259      IF (PRESENT(output_level_)) THEN
1260        output_level__tmp = cxios_is_defined_filegroup_output_level &
1261      (filegroup_hdl%daddr)
1262        output_level_ = output_level__tmp
1263      ENDIF
1264
1265      IF (PRESENT(par_access_)) THEN
1266        par_access__tmp = cxios_is_defined_filegroup_par_access &
1267      (filegroup_hdl%daddr)
1268        par_access_ = par_access__tmp
1269      ENDIF
1270
1271      IF (PRESENT(pool_gatherer_)) THEN
1272        pool_gatherer__tmp = cxios_is_defined_filegroup_pool_gatherer &
1273      (filegroup_hdl%daddr)
1274        pool_gatherer_ = pool_gatherer__tmp
1275      ENDIF
1276
1277      IF (PRESENT(pool_reader_)) THEN
1278        pool_reader__tmp = cxios_is_defined_filegroup_pool_reader &
1279      (filegroup_hdl%daddr)
1280        pool_reader_ = pool_reader__tmp
1281      ENDIF
1282
1283      IF (PRESENT(pool_writer_)) THEN
1284        pool_writer__tmp = cxios_is_defined_filegroup_pool_writer &
1285      (filegroup_hdl%daddr)
1286        pool_writer_ = pool_writer__tmp
1287      ENDIF
1288
1289      IF (PRESENT(read_metadata_par_)) THEN
1290        read_metadata_par__tmp = cxios_is_defined_filegroup_read_metadata_par &
1291      (filegroup_hdl%daddr)
1292        read_metadata_par_ = read_metadata_par__tmp
1293      ENDIF
1294
1295      IF (PRESENT(reader_)) THEN
1296        reader__tmp = cxios_is_defined_filegroup_reader &
1297      (filegroup_hdl%daddr)
1298        reader_ = reader__tmp
1299      ENDIF
1300
1301      IF (PRESENT(record_offset_)) THEN
1302        record_offset__tmp = cxios_is_defined_filegroup_record_offset &
1303      (filegroup_hdl%daddr)
1304        record_offset_ = record_offset__tmp
1305      ENDIF
1306
1307      IF (PRESENT(split_end_offset_)) THEN
1308        split_end_offset__tmp = cxios_is_defined_filegroup_split_end_offset &
1309      (filegroup_hdl%daddr)
1310        split_end_offset_ = split_end_offset__tmp
1311      ENDIF
1312
1313      IF (PRESENT(split_freq_)) THEN
1314        split_freq__tmp = cxios_is_defined_filegroup_split_freq &
1315      (filegroup_hdl%daddr)
1316        split_freq_ = split_freq__tmp
1317      ENDIF
1318
1319      IF (PRESENT(split_freq_format_)) THEN
1320        split_freq_format__tmp = cxios_is_defined_filegroup_split_freq_format &
1321      (filegroup_hdl%daddr)
1322        split_freq_format_ = split_freq_format__tmp
1323      ENDIF
1324
1325      IF (PRESENT(split_last_date_)) THEN
1326        split_last_date__tmp = cxios_is_defined_filegroup_split_last_date &
1327      (filegroup_hdl%daddr)
1328        split_last_date_ = split_last_date__tmp
1329      ENDIF
1330
1331      IF (PRESENT(split_start_offset_)) THEN
1332        split_start_offset__tmp = cxios_is_defined_filegroup_split_start_offset &
1333      (filegroup_hdl%daddr)
1334        split_start_offset_ = split_start_offset__tmp
1335      ENDIF
1336
1337      IF (PRESENT(sync_freq_)) THEN
1338        sync_freq__tmp = cxios_is_defined_filegroup_sync_freq &
1339      (filegroup_hdl%daddr)
1340        sync_freq_ = sync_freq__tmp
1341      ENDIF
1342
1343      IF (PRESENT(time_counter_)) THEN
1344        time_counter__tmp = cxios_is_defined_filegroup_time_counter &
1345      (filegroup_hdl%daddr)
1346        time_counter_ = time_counter__tmp
1347      ENDIF
1348
1349      IF (PRESENT(time_counter_name_)) THEN
1350        time_counter_name__tmp = cxios_is_defined_filegroup_time_counter_name &
1351      (filegroup_hdl%daddr)
1352        time_counter_name_ = time_counter_name__tmp
1353      ENDIF
1354
1355      IF (PRESENT(time_stamp_format_)) THEN
1356        time_stamp_format__tmp = cxios_is_defined_filegroup_time_stamp_format &
1357      (filegroup_hdl%daddr)
1358        time_stamp_format_ = time_stamp_format__tmp
1359      ENDIF
1360
1361      IF (PRESENT(time_stamp_name_)) THEN
1362        time_stamp_name__tmp = cxios_is_defined_filegroup_time_stamp_name &
1363      (filegroup_hdl%daddr)
1364        time_stamp_name_ = time_stamp_name__tmp
1365      ENDIF
1366
1367      IF (PRESENT(time_units_)) THEN
1368        time_units__tmp = cxios_is_defined_filegroup_time_units &
1369      (filegroup_hdl%daddr)
1370        time_units_ = time_units__tmp
1371      ENDIF
1372
1373      IF (PRESENT(timeseries_)) THEN
1374        timeseries__tmp = cxios_is_defined_filegroup_timeseries &
1375      (filegroup_hdl%daddr)
1376        timeseries_ = timeseries__tmp
1377      ENDIF
1378
1379      IF (PRESENT(ts_prefix_)) THEN
1380        ts_prefix__tmp = cxios_is_defined_filegroup_ts_prefix &
1381      (filegroup_hdl%daddr)
1382        ts_prefix_ = ts_prefix__tmp
1383      ENDIF
1384
1385      IF (PRESENT(type_)) THEN
1386        type__tmp = cxios_is_defined_filegroup_type &
1387      (filegroup_hdl%daddr)
1388        type_ = type__tmp
1389      ENDIF
1390
1391      IF (PRESENT(using_server2_)) THEN
1392        using_server2__tmp = cxios_is_defined_filegroup_using_server2 &
1393      (filegroup_hdl%daddr)
1394        using_server2_ = using_server2__tmp
1395      ENDIF
1396
1397      IF (PRESENT(uuid_format_)) THEN
1398        uuid_format__tmp = cxios_is_defined_filegroup_uuid_format &
1399      (filegroup_hdl%daddr)
1400        uuid_format_ = uuid_format__tmp
1401      ENDIF
1402
1403      IF (PRESENT(uuid_name_)) THEN
1404        uuid_name__tmp = cxios_is_defined_filegroup_uuid_name &
1405      (filegroup_hdl%daddr)
1406        uuid_name_ = uuid_name__tmp
1407      ENDIF
1408
1409      IF (PRESENT(writer_)) THEN
1410        writer__tmp = cxios_is_defined_filegroup_writer &
1411      (filegroup_hdl%daddr)
1412        writer_ = writer__tmp
1413      ENDIF
1414
1415  END SUBROUTINE xios(is_defined_filegroup_attr_hdl_)
1416
1417END MODULE ifilegroup_attr
Note: See TracBrowser for help on using the repository browser.