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

Last change on this file since 598 was 598, checked in by rlacroix, 9 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.