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

Last change on this file since 598 was 598, checked in by rlacroix, 10 years ago

Add the infrastructure to request fields from the server.

This will be used to read input files so add a new file attribute mode to define whether data is written or read from a file.

Currently the data is not actually read and random data is transfered for those fields in read mode.

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