source: XIOS/branchs/xios-1.0/src/interface/fortran_attr/ifilegroup_attr.F90 @ 703

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

XIOS 1.0: Add the Fortran interface for the new "time_counter" file attribute.

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