source: XIOS2/trunk/src/interface/fortran_attr/ifilegroup_attr.F90

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