source: XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/ifilegroup_attr.F90 @ 1205

Last change on this file since 1205 was 1205, checked in by yushan, 4 years ago

branch merged with trunk @1200

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