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

Last change on this file since 699 was 699, checked in by rlacroix, 7 years ago

Add the Fortran interface for the new "time_counter" file attribute.

It had been forgotten in r692.

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