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

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