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

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

Add a new attribute to the file definition so that the output format can be controlled.

Currently the supported formats are "netcdf4" and "netcdf4_classic". The "format" attribute is optional. The "netcdf4" format will be used when no format is explicitly defined. Since "netcdf4" is the format which was previously used by XIOS, existing configuration files will not be affected by this change.

If "netcdf4_classic" is used, the output file(s) will be created using the classic NetCDF format. This format can be used with the attribute "type" set to "one_file" if the NetCDF4 library was compiled with Parallel NetCDF support (--enable-pnetcdf).

  • 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.0 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ifilegroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ifile
9  USE filegroup_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_filegroup_attr)  &
14    ( filegroup_id, description, enabled, format, 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) :: format
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, description, enabled, format, group_ref, min_digits, name, name_suffix, output_freq  &
39      , 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, description, enabled, format, group_ref, min_digits, name, name_suffix, output_freq  &
45    , 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      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
50      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
51      LOGICAL (KIND=C_BOOL) :: enabled_tmp
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
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, description, enabled, format, group_ref, min_digits, name, name_suffix, output_freq  &
67      , 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, description_, enabled_, format_, group_ref_, min_digits_, name_, name_suffix_  &
73    , output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_  &
74     )
75   
76    IMPLICIT NONE
77      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
79      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
80      LOGICAL (KIND=C_BOOL) :: enabled__tmp
81      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_
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(description_)) THEN
95        CALL cxios_set_filegroup_description(filegroup_hdl%daddr, description_, len(description_))
96      ENDIF
97     
98      IF (PRESENT(enabled_)) THEN
99        enabled__tmp=enabled_
100        CALL cxios_set_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp)
101      ENDIF
102     
103      IF (PRESENT(format_)) THEN
104        CALL cxios_set_filegroup_format(filegroup_hdl%daddr, format_, len(format_))
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, description, enabled, format, group_ref, min_digits, name, name_suffix, output_freq  &
157    , 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      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
163      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
164      LOGICAL (KIND=C_BOOL) :: enabled_tmp
165      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
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, description, enabled, format, group_ref, min_digits, name, name_suffix, output_freq  &
181      , 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, description, enabled, format, group_ref, min_digits, name, name_suffix, output_freq  &
187    , 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      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
192      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
193      LOGICAL (KIND=C_BOOL) :: enabled_tmp
194      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
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, description, enabled, format, group_ref, min_digits, name, name_suffix, output_freq  &
209      , 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, description_, enabled_, format_, group_ref_, min_digits_, name_, name_suffix_  &
215    , output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_  &
216     )
217   
218    IMPLICIT NONE
219      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
220      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
221      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
222      LOGICAL (KIND=C_BOOL) :: enabled__tmp
223      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_
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(description_)) THEN
237        CALL cxios_get_filegroup_description(filegroup_hdl%daddr, description_, len(description_))
238      ENDIF
239     
240      IF (PRESENT(enabled_)) THEN
241        CALL cxios_get_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp)
242        enabled_=enabled__tmp
243      ENDIF
244     
245      IF (PRESENT(format_)) THEN
246        CALL cxios_get_filegroup_format(filegroup_hdl%daddr, format_, len(format_))
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, description, enabled, format, group_ref, min_digits, name, name_suffix, output_freq  &
299    , 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) :: description
305      LOGICAL(KIND=C_BOOL) :: description_tmp
306      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
307      LOGICAL(KIND=C_BOOL) :: enabled_tmp
308      LOGICAL, OPTIONAL, INTENT(OUT) :: format
309      LOGICAL(KIND=C_BOOL) :: format_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, description, enabled, format, group_ref, min_digits, name, name_suffix, output_freq  &
336      , 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, description, enabled, format, group_ref, min_digits, name, name_suffix, output_freq  &
342    , 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) :: description
347      LOGICAL(KIND=C_BOOL) :: description_tmp
348      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
349      LOGICAL(KIND=C_BOOL) :: enabled_tmp
350      LOGICAL, OPTIONAL, INTENT(OUT) :: format
351      LOGICAL(KIND=C_BOOL) :: format_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, description, enabled, format, group_ref, min_digits, name, name_suffix, output_freq  &
377      , 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, description_, enabled_, format_, group_ref_, min_digits_, name_, name_suffix_  &
383    , output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_  &
384     )
385   
386    IMPLICIT NONE
387      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
388      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
389      LOGICAL(KIND=C_BOOL) :: description__tmp
390      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
391      LOGICAL(KIND=C_BOOL) :: enabled__tmp
392      LOGICAL, OPTIONAL, INTENT(OUT) :: format_
393      LOGICAL(KIND=C_BOOL) :: format__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(description_)) THEN
418        description__tmp=cxios_is_defined_filegroup_description(filegroup_hdl%daddr)
419        description_=description__tmp
420      ENDIF
421     
422      IF (PRESENT(enabled_)) THEN
423        enabled__tmp=cxios_is_defined_filegroup_enabled(filegroup_hdl%daddr)
424        enabled_=enabled__tmp
425      ENDIF
426     
427      IF (PRESENT(format_)) THEN
428        format__tmp=cxios_is_defined_filegroup_format(filegroup_hdl%daddr)
429        format_=format__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.