source: XIOS1/branches/xios-1.0/src/interface/fortran_attr/ifilegroup_attr.F90 @ 2428

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

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