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

Last change on this file since 779 was 779, checked in by rlacroix, 8 years ago

Update the Fortran API.

It had been forgotten in recent changes.
  • 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: 29.8 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ifilegroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ifile
9  USE filegroup_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_filegroup_attr)  &
14    ( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits  &
15    , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  &
16    , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type )
17
18    IMPLICIT NONE
19      TYPE(txios(filegroup))  :: filegroup_hdl
20      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
21      LOGICAL  , OPTIONAL, INTENT(IN) :: append
22      LOGICAL (KIND=C_BOOL) :: append_tmp
23      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
25      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
26      LOGICAL (KIND=C_BOOL) :: enabled_tmp
27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
29      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
30      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
33      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq
34      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
36      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset
37      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
38      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
39      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
41      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
42      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
43      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
44
45      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl)
46      CALL xios(set_filegroup_attr_hdl_)   &
47      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
48      , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  &
49      , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type )
50
51  END SUBROUTINE xios(set_filegroup_attr)
52
53  SUBROUTINE xios(set_filegroup_attr_hdl)  &
54    ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
55    , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  &
56    , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type )
57
58    IMPLICIT NONE
59      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
60      LOGICAL  , OPTIONAL, INTENT(IN) :: append
61      LOGICAL (KIND=C_BOOL) :: append_tmp
62      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
63      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
64      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
65      LOGICAL (KIND=C_BOOL) :: enabled_tmp
66      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
67      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
68      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
69      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
70      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
71      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
72      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq
73      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
74      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
75      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset
76      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
77      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
78      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq
79      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
80      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
81      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
82      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
83
84      CALL xios(set_filegroup_attr_hdl_)  &
85      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
86      , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  &
87      , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type )
88
89  END SUBROUTINE xios(set_filegroup_attr_hdl)
90
91  SUBROUTINE xios(set_filegroup_attr_hdl_)   &
92    ( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_  &
93    , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_, split_freq_  &
94    , split_freq_format_, sync_freq_, time_counter_, timeseries_, ts_prefix_, type_ )
95
96    IMPLICIT NONE
97      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
98      LOGICAL  , OPTIONAL, INTENT(IN) :: append_
99      LOGICAL (KIND=C_BOOL) :: append__tmp
100      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_
101      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
102      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
103      LOGICAL (KIND=C_BOOL) :: enabled__tmp
104      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_
105      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
106      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits_
107      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
108      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
109      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_
110      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq_
111      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_
112      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_
113      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset_
114      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq_
115      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_
116      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq_
117      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_
118      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries_
119      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_
120      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
121
122      IF (PRESENT(append_)) THEN
123        append__tmp = append_
124        CALL cxios_set_filegroup_append(filegroup_hdl%daddr, append__tmp)
125      ENDIF
126
127      IF (PRESENT(compression_level_)) THEN
128        CALL cxios_set_filegroup_compression_level(filegroup_hdl%daddr, compression_level_)
129      ENDIF
130
131      IF (PRESENT(description_)) THEN
132        CALL cxios_set_filegroup_description(filegroup_hdl%daddr, description_, len(description_))
133      ENDIF
134
135      IF (PRESENT(enabled_)) THEN
136        enabled__tmp = enabled_
137        CALL cxios_set_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp)
138      ENDIF
139
140      IF (PRESENT(format_)) THEN
141        CALL cxios_set_filegroup_format(filegroup_hdl%daddr, format_, len(format_))
142      ENDIF
143
144      IF (PRESENT(group_ref_)) THEN
145        CALL cxios_set_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_))
146      ENDIF
147
148      IF (PRESENT(min_digits_)) THEN
149        CALL cxios_set_filegroup_min_digits(filegroup_hdl%daddr, min_digits_)
150      ENDIF
151
152      IF (PRESENT(mode_)) THEN
153        CALL cxios_set_filegroup_mode(filegroup_hdl%daddr, mode_, len(mode_))
154      ENDIF
155
156      IF (PRESENT(name_)) THEN
157        CALL cxios_set_filegroup_name(filegroup_hdl%daddr, name_, len(name_))
158      ENDIF
159
160      IF (PRESENT(name_suffix_)) THEN
161        CALL cxios_set_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_))
162      ENDIF
163
164      IF (PRESENT(output_freq_)) THEN
165        CALL cxios_set_filegroup_output_freq(filegroup_hdl%daddr, output_freq_)
166      ENDIF
167
168      IF (PRESENT(output_level_)) THEN
169        CALL cxios_set_filegroup_output_level(filegroup_hdl%daddr, output_level_)
170      ENDIF
171
172      IF (PRESENT(par_access_)) THEN
173        CALL cxios_set_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_))
174      ENDIF
175
176      IF (PRESENT(record_offset_)) THEN
177        CALL cxios_set_filegroup_record_offset(filegroup_hdl%daddr, record_offset_)
178      ENDIF
179
180      IF (PRESENT(split_freq_)) THEN
181        CALL cxios_set_filegroup_split_freq(filegroup_hdl%daddr, split_freq_)
182      ENDIF
183
184      IF (PRESENT(split_freq_format_)) THEN
185        CALL cxios_set_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_))
186      ENDIF
187
188      IF (PRESENT(sync_freq_)) THEN
189        CALL cxios_set_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_)
190      ENDIF
191
192      IF (PRESENT(time_counter_)) THEN
193        CALL cxios_set_filegroup_time_counter(filegroup_hdl%daddr, time_counter_, len(time_counter_))
194      ENDIF
195
196      IF (PRESENT(timeseries_)) THEN
197        CALL cxios_set_filegroup_timeseries(filegroup_hdl%daddr, timeseries_, len(timeseries_))
198      ENDIF
199
200      IF (PRESENT(ts_prefix_)) THEN
201        CALL cxios_set_filegroup_ts_prefix(filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_))
202      ENDIF
203
204      IF (PRESENT(type_)) THEN
205        CALL cxios_set_filegroup_type(filegroup_hdl%daddr, type_, len(type_))
206      ENDIF
207
208  END SUBROUTINE xios(set_filegroup_attr_hdl_)
209
210  SUBROUTINE xios(get_filegroup_attr)  &
211    ( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits  &
212    , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  &
213    , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type )
214
215    IMPLICIT NONE
216      TYPE(txios(filegroup))  :: filegroup_hdl
217      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
218      LOGICAL  , OPTIONAL, INTENT(OUT) :: append
219      LOGICAL (KIND=C_BOOL) :: append_tmp
220      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
221      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
222      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
223      LOGICAL (KIND=C_BOOL) :: enabled_tmp
224      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
225      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
226      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
227      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
228      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
229      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
230      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
231      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
232      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
233      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset
234      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
235      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
236      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
237      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
238      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
239      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
240      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
241
242      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl)
243      CALL xios(get_filegroup_attr_hdl_)   &
244      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
245      , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  &
246      , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type )
247
248  END SUBROUTINE xios(get_filegroup_attr)
249
250  SUBROUTINE xios(get_filegroup_attr_hdl)  &
251    ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
252    , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  &
253    , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type )
254
255    IMPLICIT NONE
256      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
257      LOGICAL  , OPTIONAL, INTENT(OUT) :: append
258      LOGICAL (KIND=C_BOOL) :: append_tmp
259      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
260      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
261      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
262      LOGICAL (KIND=C_BOOL) :: enabled_tmp
263      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
264      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
265      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
266      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
267      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
268      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
269      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
270      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
271      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
272      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset
273      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
274      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
275      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
276      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
277      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
278      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
279      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
280
281      CALL xios(get_filegroup_attr_hdl_)  &
282      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
283      , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  &
284      , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type )
285
286  END SUBROUTINE xios(get_filegroup_attr_hdl)
287
288  SUBROUTINE xios(get_filegroup_attr_hdl_)   &
289    ( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_  &
290    , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_, split_freq_  &
291    , split_freq_format_, sync_freq_, time_counter_, timeseries_, ts_prefix_, type_ )
292
293    IMPLICIT NONE
294      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
295      LOGICAL  , OPTIONAL, INTENT(OUT) :: append_
296      LOGICAL (KIND=C_BOOL) :: append__tmp
297      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_
298      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
299      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
300      LOGICAL (KIND=C_BOOL) :: enabled__tmp
301      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_
302      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
303      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits_
304      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
305      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
306      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
307      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq_
308      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_
309      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_
310      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset_
311      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq_
312      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_
313      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq_
314      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_
315      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries_
316      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_
317      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
318
319      IF (PRESENT(append_)) THEN
320        CALL cxios_get_filegroup_append(filegroup_hdl%daddr, append__tmp)
321        append_ = append__tmp
322      ENDIF
323
324      IF (PRESENT(compression_level_)) THEN
325        CALL cxios_get_filegroup_compression_level(filegroup_hdl%daddr, compression_level_)
326      ENDIF
327
328      IF (PRESENT(description_)) THEN
329        CALL cxios_get_filegroup_description(filegroup_hdl%daddr, description_, len(description_))
330      ENDIF
331
332      IF (PRESENT(enabled_)) THEN
333        CALL cxios_get_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp)
334        enabled_ = enabled__tmp
335      ENDIF
336
337      IF (PRESENT(format_)) THEN
338        CALL cxios_get_filegroup_format(filegroup_hdl%daddr, format_, len(format_))
339      ENDIF
340
341      IF (PRESENT(group_ref_)) THEN
342        CALL cxios_get_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_))
343      ENDIF
344
345      IF (PRESENT(min_digits_)) THEN
346        CALL cxios_get_filegroup_min_digits(filegroup_hdl%daddr, min_digits_)
347      ENDIF
348
349      IF (PRESENT(mode_)) THEN
350        CALL cxios_get_filegroup_mode(filegroup_hdl%daddr, mode_, len(mode_))
351      ENDIF
352
353      IF (PRESENT(name_)) THEN
354        CALL cxios_get_filegroup_name(filegroup_hdl%daddr, name_, len(name_))
355      ENDIF
356
357      IF (PRESENT(name_suffix_)) THEN
358        CALL cxios_get_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_))
359      ENDIF
360
361      IF (PRESENT(output_freq_)) THEN
362        CALL cxios_get_filegroup_output_freq(filegroup_hdl%daddr, output_freq_)
363      ENDIF
364
365      IF (PRESENT(output_level_)) THEN
366        CALL cxios_get_filegroup_output_level(filegroup_hdl%daddr, output_level_)
367      ENDIF
368
369      IF (PRESENT(par_access_)) THEN
370        CALL cxios_get_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_))
371      ENDIF
372
373      IF (PRESENT(record_offset_)) THEN
374        CALL cxios_get_filegroup_record_offset(filegroup_hdl%daddr, record_offset_)
375      ENDIF
376
377      IF (PRESENT(split_freq_)) THEN
378        CALL cxios_get_filegroup_split_freq(filegroup_hdl%daddr, split_freq_)
379      ENDIF
380
381      IF (PRESENT(split_freq_format_)) THEN
382        CALL cxios_get_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_))
383      ENDIF
384
385      IF (PRESENT(sync_freq_)) THEN
386        CALL cxios_get_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_)
387      ENDIF
388
389      IF (PRESENT(time_counter_)) THEN
390        CALL cxios_get_filegroup_time_counter(filegroup_hdl%daddr, time_counter_, len(time_counter_))
391      ENDIF
392
393      IF (PRESENT(timeseries_)) THEN
394        CALL cxios_get_filegroup_timeseries(filegroup_hdl%daddr, timeseries_, len(timeseries_))
395      ENDIF
396
397      IF (PRESENT(ts_prefix_)) THEN
398        CALL cxios_get_filegroup_ts_prefix(filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_))
399      ENDIF
400
401      IF (PRESENT(type_)) THEN
402        CALL cxios_get_filegroup_type(filegroup_hdl%daddr, type_, len(type_))
403      ENDIF
404
405  END SUBROUTINE xios(get_filegroup_attr_hdl_)
406
407  SUBROUTINE xios(is_defined_filegroup_attr)  &
408    ( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits  &
409    , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  &
410    , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type )
411
412    IMPLICIT NONE
413      TYPE(txios(filegroup))  :: filegroup_hdl
414      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
415      LOGICAL, OPTIONAL, INTENT(OUT) :: append
416      LOGICAL(KIND=C_BOOL) :: append_tmp
417      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
418      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
419      LOGICAL, OPTIONAL, INTENT(OUT) :: description
420      LOGICAL(KIND=C_BOOL) :: description_tmp
421      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
422      LOGICAL(KIND=C_BOOL) :: enabled_tmp
423      LOGICAL, OPTIONAL, INTENT(OUT) :: format
424      LOGICAL(KIND=C_BOOL) :: format_tmp
425      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
426      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
427      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
428      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
429      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
430      LOGICAL(KIND=C_BOOL) :: mode_tmp
431      LOGICAL, OPTIONAL, INTENT(OUT) :: name
432      LOGICAL(KIND=C_BOOL) :: name_tmp
433      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
434      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
435      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
436      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
437      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
438      LOGICAL(KIND=C_BOOL) :: output_level_tmp
439      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
440      LOGICAL(KIND=C_BOOL) :: par_access_tmp
441      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset
442      LOGICAL(KIND=C_BOOL) :: record_offset_tmp
443      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
444      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
445      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
446      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
447      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
448      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
449      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
450      LOGICAL(KIND=C_BOOL) :: time_counter_tmp
451      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
452      LOGICAL(KIND=C_BOOL) :: timeseries_tmp
453      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
454      LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
455      LOGICAL, OPTIONAL, INTENT(OUT) :: type
456      LOGICAL(KIND=C_BOOL) :: type_tmp
457
458      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl)
459      CALL xios(is_defined_filegroup_attr_hdl_)   &
460      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
461      , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  &
462      , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type )
463
464  END SUBROUTINE xios(is_defined_filegroup_attr)
465
466  SUBROUTINE xios(is_defined_filegroup_attr_hdl)  &
467    ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
468    , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  &
469    , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type )
470
471    IMPLICIT NONE
472      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
473      LOGICAL, OPTIONAL, INTENT(OUT) :: append
474      LOGICAL(KIND=C_BOOL) :: append_tmp
475      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
476      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
477      LOGICAL, OPTIONAL, INTENT(OUT) :: description
478      LOGICAL(KIND=C_BOOL) :: description_tmp
479      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
480      LOGICAL(KIND=C_BOOL) :: enabled_tmp
481      LOGICAL, OPTIONAL, INTENT(OUT) :: format
482      LOGICAL(KIND=C_BOOL) :: format_tmp
483      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
484      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
485      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
486      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
487      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
488      LOGICAL(KIND=C_BOOL) :: mode_tmp
489      LOGICAL, OPTIONAL, INTENT(OUT) :: name
490      LOGICAL(KIND=C_BOOL) :: name_tmp
491      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
492      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
493      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
494      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
495      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
496      LOGICAL(KIND=C_BOOL) :: output_level_tmp
497      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
498      LOGICAL(KIND=C_BOOL) :: par_access_tmp
499      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset
500      LOGICAL(KIND=C_BOOL) :: record_offset_tmp
501      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
502      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
503      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
504      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
505      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
506      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
507      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
508      LOGICAL(KIND=C_BOOL) :: time_counter_tmp
509      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
510      LOGICAL(KIND=C_BOOL) :: timeseries_tmp
511      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
512      LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
513      LOGICAL, OPTIONAL, INTENT(OUT) :: type
514      LOGICAL(KIND=C_BOOL) :: type_tmp
515
516      CALL xios(is_defined_filegroup_attr_hdl_)  &
517      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
518      , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  &
519      , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type )
520
521  END SUBROUTINE xios(is_defined_filegroup_attr_hdl)
522
523  SUBROUTINE xios(is_defined_filegroup_attr_hdl_)   &
524    ( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_  &
525    , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_, split_freq_  &
526    , split_freq_format_, sync_freq_, time_counter_, timeseries_, ts_prefix_, type_ )
527
528    IMPLICIT NONE
529      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
530      LOGICAL, OPTIONAL, INTENT(OUT) :: append_
531      LOGICAL(KIND=C_BOOL) :: append__tmp
532      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
533      LOGICAL(KIND=C_BOOL) :: compression_level__tmp
534      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
535      LOGICAL(KIND=C_BOOL) :: description__tmp
536      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
537      LOGICAL(KIND=C_BOOL) :: enabled__tmp
538      LOGICAL, OPTIONAL, INTENT(OUT) :: format_
539      LOGICAL(KIND=C_BOOL) :: format__tmp
540      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
541      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
542      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_
543      LOGICAL(KIND=C_BOOL) :: min_digits__tmp
544      LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
545      LOGICAL(KIND=C_BOOL) :: mode__tmp
546      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
547      LOGICAL(KIND=C_BOOL) :: name__tmp
548      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_
549      LOGICAL(KIND=C_BOOL) :: name_suffix__tmp
550      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_
551      LOGICAL(KIND=C_BOOL) :: output_freq__tmp
552      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_
553      LOGICAL(KIND=C_BOOL) :: output_level__tmp
554      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_
555      LOGICAL(KIND=C_BOOL) :: par_access__tmp
556      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_
557      LOGICAL(KIND=C_BOOL) :: record_offset__tmp
558      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_
559      LOGICAL(KIND=C_BOOL) :: split_freq__tmp
560      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_
561      LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp
562      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_
563      LOGICAL(KIND=C_BOOL) :: sync_freq__tmp
564      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_
565      LOGICAL(KIND=C_BOOL) :: time_counter__tmp
566      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries_
567      LOGICAL(KIND=C_BOOL) :: timeseries__tmp
568      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix_
569      LOGICAL(KIND=C_BOOL) :: ts_prefix__tmp
570      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
571      LOGICAL(KIND=C_BOOL) :: type__tmp
572
573      IF (PRESENT(append_)) THEN
574        append__tmp = cxios_is_defined_filegroup_append(filegroup_hdl%daddr)
575        append_ = append__tmp
576      ENDIF
577
578      IF (PRESENT(compression_level_)) THEN
579        compression_level__tmp = cxios_is_defined_filegroup_compression_level(filegroup_hdl%daddr)
580        compression_level_ = compression_level__tmp
581      ENDIF
582
583      IF (PRESENT(description_)) THEN
584        description__tmp = cxios_is_defined_filegroup_description(filegroup_hdl%daddr)
585        description_ = description__tmp
586      ENDIF
587
588      IF (PRESENT(enabled_)) THEN
589        enabled__tmp = cxios_is_defined_filegroup_enabled(filegroup_hdl%daddr)
590        enabled_ = enabled__tmp
591      ENDIF
592
593      IF (PRESENT(format_)) THEN
594        format__tmp = cxios_is_defined_filegroup_format(filegroup_hdl%daddr)
595        format_ = format__tmp
596      ENDIF
597
598      IF (PRESENT(group_ref_)) THEN
599        group_ref__tmp = cxios_is_defined_filegroup_group_ref(filegroup_hdl%daddr)
600        group_ref_ = group_ref__tmp
601      ENDIF
602
603      IF (PRESENT(min_digits_)) THEN
604        min_digits__tmp = cxios_is_defined_filegroup_min_digits(filegroup_hdl%daddr)
605        min_digits_ = min_digits__tmp
606      ENDIF
607
608      IF (PRESENT(mode_)) THEN
609        mode__tmp = cxios_is_defined_filegroup_mode(filegroup_hdl%daddr)
610        mode_ = mode__tmp
611      ENDIF
612
613      IF (PRESENT(name_)) THEN
614        name__tmp = cxios_is_defined_filegroup_name(filegroup_hdl%daddr)
615        name_ = name__tmp
616      ENDIF
617
618      IF (PRESENT(name_suffix_)) THEN
619        name_suffix__tmp = cxios_is_defined_filegroup_name_suffix(filegroup_hdl%daddr)
620        name_suffix_ = name_suffix__tmp
621      ENDIF
622
623      IF (PRESENT(output_freq_)) THEN
624        output_freq__tmp = cxios_is_defined_filegroup_output_freq(filegroup_hdl%daddr)
625        output_freq_ = output_freq__tmp
626      ENDIF
627
628      IF (PRESENT(output_level_)) THEN
629        output_level__tmp = cxios_is_defined_filegroup_output_level(filegroup_hdl%daddr)
630        output_level_ = output_level__tmp
631      ENDIF
632
633      IF (PRESENT(par_access_)) THEN
634        par_access__tmp = cxios_is_defined_filegroup_par_access(filegroup_hdl%daddr)
635        par_access_ = par_access__tmp
636      ENDIF
637
638      IF (PRESENT(record_offset_)) THEN
639        record_offset__tmp = cxios_is_defined_filegroup_record_offset(filegroup_hdl%daddr)
640        record_offset_ = record_offset__tmp
641      ENDIF
642
643      IF (PRESENT(split_freq_)) THEN
644        split_freq__tmp = cxios_is_defined_filegroup_split_freq(filegroup_hdl%daddr)
645        split_freq_ = split_freq__tmp
646      ENDIF
647
648      IF (PRESENT(split_freq_format_)) THEN
649        split_freq_format__tmp = cxios_is_defined_filegroup_split_freq_format(filegroup_hdl%daddr)
650        split_freq_format_ = split_freq_format__tmp
651      ENDIF
652
653      IF (PRESENT(sync_freq_)) THEN
654        sync_freq__tmp = cxios_is_defined_filegroup_sync_freq(filegroup_hdl%daddr)
655        sync_freq_ = sync_freq__tmp
656      ENDIF
657
658      IF (PRESENT(time_counter_)) THEN
659        time_counter__tmp = cxios_is_defined_filegroup_time_counter(filegroup_hdl%daddr)
660        time_counter_ = time_counter__tmp
661      ENDIF
662
663      IF (PRESENT(timeseries_)) THEN
664        timeseries__tmp = cxios_is_defined_filegroup_timeseries(filegroup_hdl%daddr)
665        timeseries_ = timeseries__tmp
666      ENDIF
667
668      IF (PRESENT(ts_prefix_)) THEN
669        ts_prefix__tmp = cxios_is_defined_filegroup_ts_prefix(filegroup_hdl%daddr)
670        ts_prefix_ = ts_prefix__tmp
671      ENDIF
672
673      IF (PRESENT(type_)) THEN
674        type__tmp = cxios_is_defined_filegroup_type(filegroup_hdl%daddr)
675        type_ = type__tmp
676      ENDIF
677
678  END SUBROUTINE xios(is_defined_filegroup_attr_hdl_)
679
680END MODULE ifilegroup_attr
Note: See TracBrowser for help on using the repository browser.