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

Last change on this file since 501 was 501, checked in by ymipsl, 10 years ago

Add licence copyright to all file ond directory src using the command :
svn propset -R copyright -F header_licence src

XIOS is now officialy under CeCILL licence

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