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

Last change on this file since 608 was 608, checked in by rlacroix, 9 years ago

Add the Fortran interface for the "compression_level" attribute.

It had been forgotten in r606.
  • 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: 24.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
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, split_freq, split_freq_format  &
16    , sync_freq, 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      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
38      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
40
41      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl)
42      CALL xios(set_filegroup_attr_hdl_)   &
43      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
44      , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
45      , sync_freq, type )
46
47  END SUBROUTINE xios(set_filegroup_attr)
48
49  SUBROUTINE xios(set_filegroup_attr_hdl)  &
50    ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
51    , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
52    , sync_freq, type )
53
54    IMPLICIT NONE
55      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
56      LOGICAL  , OPTIONAL, INTENT(IN) :: append
57      LOGICAL (KIND=C_BOOL) :: append_tmp
58      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
60      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
61      LOGICAL (KIND=C_BOOL) :: enabled_tmp
62      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
63      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
64      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
65      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
66      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
67      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
68      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq
69      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
70      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
71      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
72      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
73      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq
74      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
75
76      CALL xios(set_filegroup_attr_hdl_)  &
77      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
78      , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
79      , sync_freq, type )
80
81  END SUBROUTINE xios(set_filegroup_attr_hdl)
82
83  SUBROUTINE xios(set_filegroup_attr_hdl_)   &
84    ( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_  &
85    , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_  &
86    , sync_freq_, type_ )
87
88    IMPLICIT NONE
89      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
90      LOGICAL  , OPTIONAL, INTENT(IN) :: append_
91      LOGICAL (KIND=C_BOOL) :: append__tmp
92      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_
93      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
94      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
95      LOGICAL (KIND=C_BOOL) :: enabled__tmp
96      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_
97      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
98      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits_
99      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
100      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
101      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_
102      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq_
103      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_
104      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_
105      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq_
106      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_
107      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq_
108      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
109
110      IF (PRESENT(append_)) THEN
111        append__tmp = append_
112        CALL cxios_set_filegroup_append(filegroup_hdl%daddr, append__tmp)
113      ENDIF
114
115      IF (PRESENT(compression_level_)) THEN
116        CALL cxios_set_filegroup_compression_level(filegroup_hdl%daddr, compression_level_)
117      ENDIF
118
119      IF (PRESENT(description_)) THEN
120        CALL cxios_set_filegroup_description(filegroup_hdl%daddr, description_, len(description_))
121      ENDIF
122
123      IF (PRESENT(enabled_)) THEN
124        enabled__tmp = enabled_
125        CALL cxios_set_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp)
126      ENDIF
127
128      IF (PRESENT(format_)) THEN
129        CALL cxios_set_filegroup_format(filegroup_hdl%daddr, format_, len(format_))
130      ENDIF
131
132      IF (PRESENT(group_ref_)) THEN
133        CALL cxios_set_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_))
134      ENDIF
135
136      IF (PRESENT(min_digits_)) THEN
137        CALL cxios_set_filegroup_min_digits(filegroup_hdl%daddr, min_digits_)
138      ENDIF
139
140      IF (PRESENT(mode_)) THEN
141        CALL cxios_set_filegroup_mode(filegroup_hdl%daddr, mode_, len(mode_))
142      ENDIF
143
144      IF (PRESENT(name_)) THEN
145        CALL cxios_set_filegroup_name(filegroup_hdl%daddr, name_, len(name_))
146      ENDIF
147
148      IF (PRESENT(name_suffix_)) THEN
149        CALL cxios_set_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_))
150      ENDIF
151
152      IF (PRESENT(output_freq_)) THEN
153        CALL cxios_set_filegroup_output_freq(filegroup_hdl%daddr, output_freq_)
154      ENDIF
155
156      IF (PRESENT(output_level_)) THEN
157        CALL cxios_set_filegroup_output_level(filegroup_hdl%daddr, output_level_)
158      ENDIF
159
160      IF (PRESENT(par_access_)) THEN
161        CALL cxios_set_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_))
162      ENDIF
163
164      IF (PRESENT(split_freq_)) THEN
165        CALL cxios_set_filegroup_split_freq(filegroup_hdl%daddr, split_freq_)
166      ENDIF
167
168      IF (PRESENT(split_freq_format_)) THEN
169        CALL cxios_set_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_))
170      ENDIF
171
172      IF (PRESENT(sync_freq_)) THEN
173        CALL cxios_set_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_)
174      ENDIF
175
176      IF (PRESENT(type_)) THEN
177        CALL cxios_set_filegroup_type(filegroup_hdl%daddr, type_, len(type_))
178      ENDIF
179
180  END SUBROUTINE xios(set_filegroup_attr_hdl_)
181
182  SUBROUTINE xios(get_filegroup_attr)  &
183    ( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits  &
184    , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
185    , sync_freq, type )
186
187    IMPLICIT NONE
188      TYPE(txios(filegroup))  :: filegroup_hdl
189      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
190      LOGICAL  , OPTIONAL, INTENT(OUT) :: append
191      LOGICAL (KIND=C_BOOL) :: append_tmp
192      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
193      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
194      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
195      LOGICAL (KIND=C_BOOL) :: enabled_tmp
196      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
197      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
198      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
199      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
200      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
201      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
202      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
203      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
204      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
205      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
206      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
207      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
208      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
209
210      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl)
211      CALL xios(get_filegroup_attr_hdl_)   &
212      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
213      , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
214      , sync_freq, type )
215
216  END SUBROUTINE xios(get_filegroup_attr)
217
218  SUBROUTINE xios(get_filegroup_attr_hdl)  &
219    ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
220    , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
221    , sync_freq, type )
222
223    IMPLICIT NONE
224      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
225      LOGICAL  , OPTIONAL, INTENT(OUT) :: append
226      LOGICAL (KIND=C_BOOL) :: append_tmp
227      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
228      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
229      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
230      LOGICAL (KIND=C_BOOL) :: enabled_tmp
231      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
232      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
233      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
234      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
235      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
236      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
237      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
238      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
239      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
240      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
241      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
242      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
243      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
244
245      CALL xios(get_filegroup_attr_hdl_)  &
246      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
247      , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
248      , sync_freq, type )
249
250  END SUBROUTINE xios(get_filegroup_attr_hdl)
251
252  SUBROUTINE xios(get_filegroup_attr_hdl_)   &
253    ( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_  &
254    , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_  &
255    , sync_freq_, type_ )
256
257    IMPLICIT NONE
258      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
259      LOGICAL  , OPTIONAL, INTENT(OUT) :: append_
260      LOGICAL (KIND=C_BOOL) :: append__tmp
261      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_
262      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
263      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
264      LOGICAL (KIND=C_BOOL) :: enabled__tmp
265      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_
266      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
267      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits_
268      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
269      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
270      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
271      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq_
272      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_
273      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_
274      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq_
275      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_
276      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq_
277      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
278
279      IF (PRESENT(append_)) THEN
280        CALL cxios_get_filegroup_append(filegroup_hdl%daddr, append__tmp)
281        append_ = append__tmp
282      ENDIF
283
284      IF (PRESENT(compression_level_)) THEN
285        CALL cxios_get_filegroup_compression_level(filegroup_hdl%daddr, compression_level_)
286      ENDIF
287
288      IF (PRESENT(description_)) THEN
289        CALL cxios_get_filegroup_description(filegroup_hdl%daddr, description_, len(description_))
290      ENDIF
291
292      IF (PRESENT(enabled_)) THEN
293        CALL cxios_get_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp)
294        enabled_ = enabled__tmp
295      ENDIF
296
297      IF (PRESENT(format_)) THEN
298        CALL cxios_get_filegroup_format(filegroup_hdl%daddr, format_, len(format_))
299      ENDIF
300
301      IF (PRESENT(group_ref_)) THEN
302        CALL cxios_get_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_))
303      ENDIF
304
305      IF (PRESENT(min_digits_)) THEN
306        CALL cxios_get_filegroup_min_digits(filegroup_hdl%daddr, min_digits_)
307      ENDIF
308
309      IF (PRESENT(mode_)) THEN
310        CALL cxios_get_filegroup_mode(filegroup_hdl%daddr, mode_, len(mode_))
311      ENDIF
312
313      IF (PRESENT(name_)) THEN
314        CALL cxios_get_filegroup_name(filegroup_hdl%daddr, name_, len(name_))
315      ENDIF
316
317      IF (PRESENT(name_suffix_)) THEN
318        CALL cxios_get_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_))
319      ENDIF
320
321      IF (PRESENT(output_freq_)) THEN
322        CALL cxios_get_filegroup_output_freq(filegroup_hdl%daddr, output_freq_)
323      ENDIF
324
325      IF (PRESENT(output_level_)) THEN
326        CALL cxios_get_filegroup_output_level(filegroup_hdl%daddr, output_level_)
327      ENDIF
328
329      IF (PRESENT(par_access_)) THEN
330        CALL cxios_get_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_))
331      ENDIF
332
333      IF (PRESENT(split_freq_)) THEN
334        CALL cxios_get_filegroup_split_freq(filegroup_hdl%daddr, split_freq_)
335      ENDIF
336
337      IF (PRESENT(split_freq_format_)) THEN
338        CALL cxios_get_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_))
339      ENDIF
340
341      IF (PRESENT(sync_freq_)) THEN
342        CALL cxios_get_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_)
343      ENDIF
344
345      IF (PRESENT(type_)) THEN
346        CALL cxios_get_filegroup_type(filegroup_hdl%daddr, type_, len(type_))
347      ENDIF
348
349  END SUBROUTINE xios(get_filegroup_attr_hdl_)
350
351  SUBROUTINE xios(is_defined_filegroup_attr)  &
352    ( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits  &
353    , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
354    , sync_freq, type )
355
356    IMPLICIT NONE
357      TYPE(txios(filegroup))  :: filegroup_hdl
358      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
359      LOGICAL, OPTIONAL, INTENT(OUT) :: append
360      LOGICAL(KIND=C_BOOL) :: append_tmp
361      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
362      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
363      LOGICAL, OPTIONAL, INTENT(OUT) :: description
364      LOGICAL(KIND=C_BOOL) :: description_tmp
365      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
366      LOGICAL(KIND=C_BOOL) :: enabled_tmp
367      LOGICAL, OPTIONAL, INTENT(OUT) :: format
368      LOGICAL(KIND=C_BOOL) :: format_tmp
369      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
370      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
371      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
372      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
373      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
374      LOGICAL(KIND=C_BOOL) :: mode_tmp
375      LOGICAL, OPTIONAL, INTENT(OUT) :: name
376      LOGICAL(KIND=C_BOOL) :: name_tmp
377      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
378      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
379      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
380      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
381      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
382      LOGICAL(KIND=C_BOOL) :: output_level_tmp
383      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
384      LOGICAL(KIND=C_BOOL) :: par_access_tmp
385      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
386      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
387      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
388      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
389      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
390      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
391      LOGICAL, OPTIONAL, INTENT(OUT) :: type
392      LOGICAL(KIND=C_BOOL) :: type_tmp
393
394      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl)
395      CALL xios(is_defined_filegroup_attr_hdl_)   &
396      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
397      , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
398      , sync_freq, type )
399
400  END SUBROUTINE xios(is_defined_filegroup_attr)
401
402  SUBROUTINE xios(is_defined_filegroup_attr_hdl)  &
403    ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
404    , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
405    , sync_freq, type )
406
407    IMPLICIT NONE
408      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
409      LOGICAL, OPTIONAL, INTENT(OUT) :: append
410      LOGICAL(KIND=C_BOOL) :: append_tmp
411      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
412      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
413      LOGICAL, OPTIONAL, INTENT(OUT) :: description
414      LOGICAL(KIND=C_BOOL) :: description_tmp
415      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
416      LOGICAL(KIND=C_BOOL) :: enabled_tmp
417      LOGICAL, OPTIONAL, INTENT(OUT) :: format
418      LOGICAL(KIND=C_BOOL) :: format_tmp
419      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
420      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
421      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
422      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
423      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
424      LOGICAL(KIND=C_BOOL) :: mode_tmp
425      LOGICAL, OPTIONAL, INTENT(OUT) :: name
426      LOGICAL(KIND=C_BOOL) :: name_tmp
427      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
428      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
429      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
430      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
431      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
432      LOGICAL(KIND=C_BOOL) :: output_level_tmp
433      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
434      LOGICAL(KIND=C_BOOL) :: par_access_tmp
435      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
436      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
437      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
438      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
439      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
440      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
441      LOGICAL, OPTIONAL, INTENT(OUT) :: type
442      LOGICAL(KIND=C_BOOL) :: type_tmp
443
444      CALL xios(is_defined_filegroup_attr_hdl_)  &
445      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
446      , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
447      , sync_freq, type )
448
449  END SUBROUTINE xios(is_defined_filegroup_attr_hdl)
450
451  SUBROUTINE xios(is_defined_filegroup_attr_hdl_)   &
452    ( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_  &
453    , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_  &
454    , sync_freq_, type_ )
455
456    IMPLICIT NONE
457      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
458      LOGICAL, OPTIONAL, INTENT(OUT) :: append_
459      LOGICAL(KIND=C_BOOL) :: append__tmp
460      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
461      LOGICAL(KIND=C_BOOL) :: compression_level__tmp
462      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
463      LOGICAL(KIND=C_BOOL) :: description__tmp
464      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
465      LOGICAL(KIND=C_BOOL) :: enabled__tmp
466      LOGICAL, OPTIONAL, INTENT(OUT) :: format_
467      LOGICAL(KIND=C_BOOL) :: format__tmp
468      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
469      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
470      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_
471      LOGICAL(KIND=C_BOOL) :: min_digits__tmp
472      LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
473      LOGICAL(KIND=C_BOOL) :: mode__tmp
474      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
475      LOGICAL(KIND=C_BOOL) :: name__tmp
476      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_
477      LOGICAL(KIND=C_BOOL) :: name_suffix__tmp
478      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_
479      LOGICAL(KIND=C_BOOL) :: output_freq__tmp
480      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_
481      LOGICAL(KIND=C_BOOL) :: output_level__tmp
482      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_
483      LOGICAL(KIND=C_BOOL) :: par_access__tmp
484      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_
485      LOGICAL(KIND=C_BOOL) :: split_freq__tmp
486      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_
487      LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp
488      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_
489      LOGICAL(KIND=C_BOOL) :: sync_freq__tmp
490      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
491      LOGICAL(KIND=C_BOOL) :: type__tmp
492
493      IF (PRESENT(append_)) THEN
494        append__tmp = cxios_is_defined_filegroup_append(filegroup_hdl%daddr)
495        append_ = append__tmp
496      ENDIF
497
498      IF (PRESENT(compression_level_)) THEN
499        compression_level__tmp = cxios_is_defined_filegroup_compression_level(filegroup_hdl%daddr)
500        compression_level_ = compression_level__tmp
501      ENDIF
502
503      IF (PRESENT(description_)) THEN
504        description__tmp = cxios_is_defined_filegroup_description(filegroup_hdl%daddr)
505        description_ = description__tmp
506      ENDIF
507
508      IF (PRESENT(enabled_)) THEN
509        enabled__tmp = cxios_is_defined_filegroup_enabled(filegroup_hdl%daddr)
510        enabled_ = enabled__tmp
511      ENDIF
512
513      IF (PRESENT(format_)) THEN
514        format__tmp = cxios_is_defined_filegroup_format(filegroup_hdl%daddr)
515        format_ = format__tmp
516      ENDIF
517
518      IF (PRESENT(group_ref_)) THEN
519        group_ref__tmp = cxios_is_defined_filegroup_group_ref(filegroup_hdl%daddr)
520        group_ref_ = group_ref__tmp
521      ENDIF
522
523      IF (PRESENT(min_digits_)) THEN
524        min_digits__tmp = cxios_is_defined_filegroup_min_digits(filegroup_hdl%daddr)
525        min_digits_ = min_digits__tmp
526      ENDIF
527
528      IF (PRESENT(mode_)) THEN
529        mode__tmp = cxios_is_defined_filegroup_mode(filegroup_hdl%daddr)
530        mode_ = mode__tmp
531      ENDIF
532
533      IF (PRESENT(name_)) THEN
534        name__tmp = cxios_is_defined_filegroup_name(filegroup_hdl%daddr)
535        name_ = name__tmp
536      ENDIF
537
538      IF (PRESENT(name_suffix_)) THEN
539        name_suffix__tmp = cxios_is_defined_filegroup_name_suffix(filegroup_hdl%daddr)
540        name_suffix_ = name_suffix__tmp
541      ENDIF
542
543      IF (PRESENT(output_freq_)) THEN
544        output_freq__tmp = cxios_is_defined_filegroup_output_freq(filegroup_hdl%daddr)
545        output_freq_ = output_freq__tmp
546      ENDIF
547
548      IF (PRESENT(output_level_)) THEN
549        output_level__tmp = cxios_is_defined_filegroup_output_level(filegroup_hdl%daddr)
550        output_level_ = output_level__tmp
551      ENDIF
552
553      IF (PRESENT(par_access_)) THEN
554        par_access__tmp = cxios_is_defined_filegroup_par_access(filegroup_hdl%daddr)
555        par_access_ = par_access__tmp
556      ENDIF
557
558      IF (PRESENT(split_freq_)) THEN
559        split_freq__tmp = cxios_is_defined_filegroup_split_freq(filegroup_hdl%daddr)
560        split_freq_ = split_freq__tmp
561      ENDIF
562
563      IF (PRESENT(split_freq_format_)) THEN
564        split_freq_format__tmp = cxios_is_defined_filegroup_split_freq_format(filegroup_hdl%daddr)
565        split_freq_format_ = split_freq_format__tmp
566      ENDIF
567
568      IF (PRESENT(sync_freq_)) THEN
569        sync_freq__tmp = cxios_is_defined_filegroup_sync_freq(filegroup_hdl%daddr)
570        sync_freq_ = sync_freq__tmp
571      ENDIF
572
573      IF (PRESENT(type_)) THEN
574        type__tmp = cxios_is_defined_filegroup_type(filegroup_hdl%daddr)
575        type_ = type__tmp
576      ENDIF
577
578  END SUBROUTINE xios(is_defined_filegroup_attr_hdl_)
579
580END MODULE ifilegroup_attr
Note: See TracBrowser for help on using the repository browser.