source: XIOS/trunk/src/interface/fortran_attr/ifieldgroup_attr.F90 @ 676

Last change on this file since 676 was 676, checked in by rlacroix, 6 years ago

Add support for indexed output.

If the new field attribute "indexed_output" is set to true and a mask is defined (either at grid, domain or axis level), the indexed data will be outputed instead of the full data with missing values.

See http://cfconventions.org/Data/cf-conventions/cf-conventions-1.5/build/cf-conventions.html#compression-by-gathering for more information.

  • 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: 34.5 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ifieldgroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ifield
9  USE fieldgroup_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_fieldgroup_attr)  &
14    ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
15    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
16    , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max  &
17    , valid_min )
18
19    IMPLICIT NONE
20      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
21      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
22      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
24      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
25      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
26      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
27      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
29      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
30      LOGICAL (KIND=C_BOOL) :: enabled_tmp
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
32      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset
33      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
36      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output
37      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
38      INTEGER  , OPTIONAL, INTENT(IN) :: level
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
41      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
42      INTEGER  , OPTIONAL, INTENT(IN) :: prec
43      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
44      LOGICAL (KIND=C_BOOL) :: read_access_tmp
45      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
48      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
49      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
50
51      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
52      CALL xios(set_fieldgroup_attr_hdl_)   &
53      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
54      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
55      , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max  &
56      , valid_min )
57
58  END SUBROUTINE xios(set_fieldgroup_attr)
59
60  SUBROUTINE xios(set_fieldgroup_attr_hdl)  &
61    ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
62    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
63    , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max  &
64    , valid_min )
65
66    IMPLICIT NONE
67      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
68      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
69      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
70      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
71      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
72      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
73      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
74      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
75      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
76      LOGICAL (KIND=C_BOOL) :: enabled_tmp
77      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
78      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset
79      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op
80      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
81      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
82      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output
83      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
84      INTEGER  , OPTIONAL, INTENT(IN) :: level
85      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
86      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
87      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
88      INTEGER  , OPTIONAL, INTENT(IN) :: prec
89      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
90      LOGICAL (KIND=C_BOOL) :: read_access_tmp
91      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
92      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
93      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
94      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
95      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
96
97      CALL xios(set_fieldgroup_attr_hdl_)  &
98      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
99      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
100      , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max  &
101      , valid_min )
102
103  END SUBROUTINE xios(set_fieldgroup_attr_hdl)
104
105  SUBROUTINE xios(set_fieldgroup_attr_hdl_)   &
106    ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  &
107    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, indexed_output_  &
108    , level_, long_name_, name_, operation_, prec_, read_access_, scale_factor_, standard_name_  &
109    , unit_, valid_max_, valid_min_ )
110
111    IMPLICIT NONE
112      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
113      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_
114      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
115      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_
116      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_
117      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value_
118      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
119      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
120      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
121      LOGICAL (KIND=C_BOOL) :: enabled__tmp
122      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_
123      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset_
124      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op_
125      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_
126      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
127      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output_
128      LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
129      INTEGER  , OPTIONAL, INTENT(IN) :: level_
130      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
131      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
132      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
133      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
134      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access_
135      LOGICAL (KIND=C_BOOL) :: read_access__tmp
136      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor_
137      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
138      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
139      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max_
140      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min_
141
142      IF (PRESENT(add_offset_)) THEN
143        CALL cxios_set_fieldgroup_add_offset(fieldgroup_hdl%daddr, add_offset_)
144      ENDIF
145
146      IF (PRESENT(axis_ref_)) THEN
147        CALL cxios_set_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
148      ENDIF
149
150      IF (PRESENT(compression_level_)) THEN
151        CALL cxios_set_fieldgroup_compression_level(fieldgroup_hdl%daddr, compression_level_)
152      ENDIF
153
154      IF (PRESENT(default_value_)) THEN
155        CALL cxios_set_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_)
156      ENDIF
157
158      IF (PRESENT(detect_missing_value_)) THEN
159        detect_missing_value__tmp = detect_missing_value_
160        CALL cxios_set_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr, detect_missing_value__tmp)
161      ENDIF
162
163      IF (PRESENT(domain_ref_)) THEN
164        CALL cxios_set_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
165      ENDIF
166
167      IF (PRESENT(enabled_)) THEN
168        enabled__tmp = enabled_
169        CALL cxios_set_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp)
170      ENDIF
171
172      IF (PRESENT(field_ref_)) THEN
173        CALL cxios_set_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
174      ENDIF
175
176      IF (PRESENT(freq_offset_)) THEN
177        CALL cxios_set_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_)
178      ENDIF
179
180      IF (PRESENT(freq_op_)) THEN
181        CALL cxios_set_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_)
182      ENDIF
183
184      IF (PRESENT(grid_ref_)) THEN
185        CALL cxios_set_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
186      ENDIF
187
188      IF (PRESENT(group_ref_)) THEN
189        CALL cxios_set_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
190      ENDIF
191
192      IF (PRESENT(indexed_output_)) THEN
193        indexed_output__tmp = indexed_output_
194        CALL cxios_set_fieldgroup_indexed_output(fieldgroup_hdl%daddr, indexed_output__tmp)
195      ENDIF
196
197      IF (PRESENT(level_)) THEN
198        CALL cxios_set_fieldgroup_level(fieldgroup_hdl%daddr, level_)
199      ENDIF
200
201      IF (PRESENT(long_name_)) THEN
202        CALL cxios_set_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_))
203      ENDIF
204
205      IF (PRESENT(name_)) THEN
206        CALL cxios_set_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_))
207      ENDIF
208
209      IF (PRESENT(operation_)) THEN
210        CALL cxios_set_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_))
211      ENDIF
212
213      IF (PRESENT(prec_)) THEN
214        CALL cxios_set_fieldgroup_prec(fieldgroup_hdl%daddr, prec_)
215      ENDIF
216
217      IF (PRESENT(read_access_)) THEN
218        read_access__tmp = read_access_
219        CALL cxios_set_fieldgroup_read_access(fieldgroup_hdl%daddr, read_access__tmp)
220      ENDIF
221
222      IF (PRESENT(scale_factor_)) THEN
223        CALL cxios_set_fieldgroup_scale_factor(fieldgroup_hdl%daddr, scale_factor_)
224      ENDIF
225
226      IF (PRESENT(standard_name_)) THEN
227        CALL cxios_set_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
228      ENDIF
229
230      IF (PRESENT(unit_)) THEN
231        CALL cxios_set_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_))
232      ENDIF
233
234      IF (PRESENT(valid_max_)) THEN
235        CALL cxios_set_fieldgroup_valid_max(fieldgroup_hdl%daddr, valid_max_)
236      ENDIF
237
238      IF (PRESENT(valid_min_)) THEN
239        CALL cxios_set_fieldgroup_valid_min(fieldgroup_hdl%daddr, valid_min_)
240      ENDIF
241
242  END SUBROUTINE xios(set_fieldgroup_attr_hdl_)
243
244  SUBROUTINE xios(get_fieldgroup_attr)  &
245    ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
246    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
247    , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max  &
248    , valid_min )
249
250    IMPLICIT NONE
251      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
252      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
253      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
254      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
255      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
256      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
257      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
258      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
259      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
260      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
261      LOGICAL (KIND=C_BOOL) :: enabled_tmp
262      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
263      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset
264      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op
265      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
266      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
267      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output
268      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
269      INTEGER  , OPTIONAL, INTENT(OUT) :: level
270      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
271      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
272      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
273      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
274      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access
275      LOGICAL (KIND=C_BOOL) :: read_access_tmp
276      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
277      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
278      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
279      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
280      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
281
282      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
283      CALL xios(get_fieldgroup_attr_hdl_)   &
284      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
285      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
286      , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max  &
287      , valid_min )
288
289  END SUBROUTINE xios(get_fieldgroup_attr)
290
291  SUBROUTINE xios(get_fieldgroup_attr_hdl)  &
292    ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
293    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
294    , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max  &
295    , valid_min )
296
297    IMPLICIT NONE
298      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
299      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
300      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
301      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
302      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
303      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
304      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
305      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
306      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
307      LOGICAL (KIND=C_BOOL) :: enabled_tmp
308      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
309      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset
310      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op
311      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
312      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
313      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output
314      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
315      INTEGER  , OPTIONAL, INTENT(OUT) :: level
316      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
317      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
318      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
319      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
320      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access
321      LOGICAL (KIND=C_BOOL) :: read_access_tmp
322      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
323      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
324      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
325      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
326      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
327
328      CALL xios(get_fieldgroup_attr_hdl_)  &
329      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
330      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
331      , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max  &
332      , valid_min )
333
334  END SUBROUTINE xios(get_fieldgroup_attr_hdl)
335
336  SUBROUTINE xios(get_fieldgroup_attr_hdl_)   &
337    ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  &
338    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, indexed_output_  &
339    , level_, long_name_, name_, operation_, prec_, read_access_, scale_factor_, standard_name_  &
340    , unit_, valid_max_, valid_min_ )
341
342    IMPLICIT NONE
343      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
344      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_
345      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
346      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_
347      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_
348      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value_
349      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
350      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
351      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
352      LOGICAL (KIND=C_BOOL) :: enabled__tmp
353      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_
354      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset_
355      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op_
356      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_
357      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
358      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output_
359      LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
360      INTEGER  , OPTIONAL, INTENT(OUT) :: level_
361      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
362      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
363      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
364      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
365      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access_
366      LOGICAL (KIND=C_BOOL) :: read_access__tmp
367      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor_
368      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
369      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
370      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_
371      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_
372
373      IF (PRESENT(add_offset_)) THEN
374        CALL cxios_get_fieldgroup_add_offset(fieldgroup_hdl%daddr, add_offset_)
375      ENDIF
376
377      IF (PRESENT(axis_ref_)) THEN
378        CALL cxios_get_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
379      ENDIF
380
381      IF (PRESENT(compression_level_)) THEN
382        CALL cxios_get_fieldgroup_compression_level(fieldgroup_hdl%daddr, compression_level_)
383      ENDIF
384
385      IF (PRESENT(default_value_)) THEN
386        CALL cxios_get_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_)
387      ENDIF
388
389      IF (PRESENT(detect_missing_value_)) THEN
390        CALL cxios_get_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr, detect_missing_value__tmp)
391        detect_missing_value_ = detect_missing_value__tmp
392      ENDIF
393
394      IF (PRESENT(domain_ref_)) THEN
395        CALL cxios_get_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
396      ENDIF
397
398      IF (PRESENT(enabled_)) THEN
399        CALL cxios_get_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp)
400        enabled_ = enabled__tmp
401      ENDIF
402
403      IF (PRESENT(field_ref_)) THEN
404        CALL cxios_get_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
405      ENDIF
406
407      IF (PRESENT(freq_offset_)) THEN
408        CALL cxios_get_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_)
409      ENDIF
410
411      IF (PRESENT(freq_op_)) THEN
412        CALL cxios_get_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_)
413      ENDIF
414
415      IF (PRESENT(grid_ref_)) THEN
416        CALL cxios_get_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
417      ENDIF
418
419      IF (PRESENT(group_ref_)) THEN
420        CALL cxios_get_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
421      ENDIF
422
423      IF (PRESENT(indexed_output_)) THEN
424        CALL cxios_get_fieldgroup_indexed_output(fieldgroup_hdl%daddr, indexed_output__tmp)
425        indexed_output_ = indexed_output__tmp
426      ENDIF
427
428      IF (PRESENT(level_)) THEN
429        CALL cxios_get_fieldgroup_level(fieldgroup_hdl%daddr, level_)
430      ENDIF
431
432      IF (PRESENT(long_name_)) THEN
433        CALL cxios_get_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_))
434      ENDIF
435
436      IF (PRESENT(name_)) THEN
437        CALL cxios_get_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_))
438      ENDIF
439
440      IF (PRESENT(operation_)) THEN
441        CALL cxios_get_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_))
442      ENDIF
443
444      IF (PRESENT(prec_)) THEN
445        CALL cxios_get_fieldgroup_prec(fieldgroup_hdl%daddr, prec_)
446      ENDIF
447
448      IF (PRESENT(read_access_)) THEN
449        CALL cxios_get_fieldgroup_read_access(fieldgroup_hdl%daddr, read_access__tmp)
450        read_access_ = read_access__tmp
451      ENDIF
452
453      IF (PRESENT(scale_factor_)) THEN
454        CALL cxios_get_fieldgroup_scale_factor(fieldgroup_hdl%daddr, scale_factor_)
455      ENDIF
456
457      IF (PRESENT(standard_name_)) THEN
458        CALL cxios_get_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
459      ENDIF
460
461      IF (PRESENT(unit_)) THEN
462        CALL cxios_get_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_))
463      ENDIF
464
465      IF (PRESENT(valid_max_)) THEN
466        CALL cxios_get_fieldgroup_valid_max(fieldgroup_hdl%daddr, valid_max_)
467      ENDIF
468
469      IF (PRESENT(valid_min_)) THEN
470        CALL cxios_get_fieldgroup_valid_min(fieldgroup_hdl%daddr, valid_min_)
471      ENDIF
472
473  END SUBROUTINE xios(get_fieldgroup_attr_hdl_)
474
475  SUBROUTINE xios(is_defined_fieldgroup_attr)  &
476    ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
477    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
478    , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max  &
479    , valid_min )
480
481    IMPLICIT NONE
482      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
483      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
484      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
485      LOGICAL(KIND=C_BOOL) :: add_offset_tmp
486      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
487      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
488      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
489      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
490      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
491      LOGICAL(KIND=C_BOOL) :: default_value_tmp
492      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
493      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
494      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
495      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
496      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
497      LOGICAL(KIND=C_BOOL) :: enabled_tmp
498      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
499      LOGICAL(KIND=C_BOOL) :: field_ref_tmp
500      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
501      LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
502      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
503      LOGICAL(KIND=C_BOOL) :: freq_op_tmp
504      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
505      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
506      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
507      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
508      LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
509      LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
510      LOGICAL, OPTIONAL, INTENT(OUT) :: level
511      LOGICAL(KIND=C_BOOL) :: level_tmp
512      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
513      LOGICAL(KIND=C_BOOL) :: long_name_tmp
514      LOGICAL, OPTIONAL, INTENT(OUT) :: name
515      LOGICAL(KIND=C_BOOL) :: name_tmp
516      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
517      LOGICAL(KIND=C_BOOL) :: operation_tmp
518      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
519      LOGICAL(KIND=C_BOOL) :: prec_tmp
520      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
521      LOGICAL(KIND=C_BOOL) :: read_access_tmp
522      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
523      LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
524      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
525      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
526      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
527      LOGICAL(KIND=C_BOOL) :: unit_tmp
528      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
529      LOGICAL(KIND=C_BOOL) :: valid_max_tmp
530      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
531      LOGICAL(KIND=C_BOOL) :: valid_min_tmp
532
533      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
534      CALL xios(is_defined_fieldgroup_attr_hdl_)   &
535      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
536      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
537      , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max  &
538      , valid_min )
539
540  END SUBROUTINE xios(is_defined_fieldgroup_attr)
541
542  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)  &
543    ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
544    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
545    , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max  &
546    , valid_min )
547
548    IMPLICIT NONE
549      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
550      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
551      LOGICAL(KIND=C_BOOL) :: add_offset_tmp
552      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
553      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
554      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
555      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
556      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
557      LOGICAL(KIND=C_BOOL) :: default_value_tmp
558      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
559      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
560      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
561      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
562      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
563      LOGICAL(KIND=C_BOOL) :: enabled_tmp
564      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
565      LOGICAL(KIND=C_BOOL) :: field_ref_tmp
566      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
567      LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
568      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
569      LOGICAL(KIND=C_BOOL) :: freq_op_tmp
570      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
571      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
572      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
573      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
574      LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
575      LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
576      LOGICAL, OPTIONAL, INTENT(OUT) :: level
577      LOGICAL(KIND=C_BOOL) :: level_tmp
578      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
579      LOGICAL(KIND=C_BOOL) :: long_name_tmp
580      LOGICAL, OPTIONAL, INTENT(OUT) :: name
581      LOGICAL(KIND=C_BOOL) :: name_tmp
582      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
583      LOGICAL(KIND=C_BOOL) :: operation_tmp
584      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
585      LOGICAL(KIND=C_BOOL) :: prec_tmp
586      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
587      LOGICAL(KIND=C_BOOL) :: read_access_tmp
588      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
589      LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
590      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
591      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
592      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
593      LOGICAL(KIND=C_BOOL) :: unit_tmp
594      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
595      LOGICAL(KIND=C_BOOL) :: valid_max_tmp
596      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
597      LOGICAL(KIND=C_BOOL) :: valid_min_tmp
598
599      CALL xios(is_defined_fieldgroup_attr_hdl_)  &
600      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
601      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
602      , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max  &
603      , valid_min )
604
605  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)
606
607  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)   &
608    ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  &
609    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, indexed_output_  &
610    , level_, long_name_, name_, operation_, prec_, read_access_, scale_factor_, standard_name_  &
611    , unit_, valid_max_, valid_min_ )
612
613    IMPLICIT NONE
614      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
615      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset_
616      LOGICAL(KIND=C_BOOL) :: add_offset__tmp
617      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
618      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
619      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
620      LOGICAL(KIND=C_BOOL) :: compression_level__tmp
621      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_
622      LOGICAL(KIND=C_BOOL) :: default_value__tmp
623      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value_
624      LOGICAL(KIND=C_BOOL) :: detect_missing_value__tmp
625      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
626      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
627      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
628      LOGICAL(KIND=C_BOOL) :: enabled__tmp
629      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_
630      LOGICAL(KIND=C_BOOL) :: field_ref__tmp
631      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_
632      LOGICAL(KIND=C_BOOL) :: freq_offset__tmp
633      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_
634      LOGICAL(KIND=C_BOOL) :: freq_op__tmp
635      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_
636      LOGICAL(KIND=C_BOOL) :: grid_ref__tmp
637      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
638      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
639      LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output_
640      LOGICAL(KIND=C_BOOL) :: indexed_output__tmp
641      LOGICAL, OPTIONAL, INTENT(OUT) :: level_
642      LOGICAL(KIND=C_BOOL) :: level__tmp
643      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
644      LOGICAL(KIND=C_BOOL) :: long_name__tmp
645      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
646      LOGICAL(KIND=C_BOOL) :: name__tmp
647      LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
648      LOGICAL(KIND=C_BOOL) :: operation__tmp
649      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
650      LOGICAL(KIND=C_BOOL) :: prec__tmp
651      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access_
652      LOGICAL(KIND=C_BOOL) :: read_access__tmp
653      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor_
654      LOGICAL(KIND=C_BOOL) :: scale_factor__tmp
655      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
656      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
657      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
658      LOGICAL(KIND=C_BOOL) :: unit__tmp
659      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max_
660      LOGICAL(KIND=C_BOOL) :: valid_max__tmp
661      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min_
662      LOGICAL(KIND=C_BOOL) :: valid_min__tmp
663
664      IF (PRESENT(add_offset_)) THEN
665        add_offset__tmp = cxios_is_defined_fieldgroup_add_offset(fieldgroup_hdl%daddr)
666        add_offset_ = add_offset__tmp
667      ENDIF
668
669      IF (PRESENT(axis_ref_)) THEN
670        axis_ref__tmp = cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl%daddr)
671        axis_ref_ = axis_ref__tmp
672      ENDIF
673
674      IF (PRESENT(compression_level_)) THEN
675        compression_level__tmp = cxios_is_defined_fieldgroup_compression_level(fieldgroup_hdl%daddr)
676        compression_level_ = compression_level__tmp
677      ENDIF
678
679      IF (PRESENT(default_value_)) THEN
680        default_value__tmp = cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl%daddr)
681        default_value_ = default_value__tmp
682      ENDIF
683
684      IF (PRESENT(detect_missing_value_)) THEN
685        detect_missing_value__tmp = cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr)
686        detect_missing_value_ = detect_missing_value__tmp
687      ENDIF
688
689      IF (PRESENT(domain_ref_)) THEN
690        domain_ref__tmp = cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl%daddr)
691        domain_ref_ = domain_ref__tmp
692      ENDIF
693
694      IF (PRESENT(enabled_)) THEN
695        enabled__tmp = cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl%daddr)
696        enabled_ = enabled__tmp
697      ENDIF
698
699      IF (PRESENT(field_ref_)) THEN
700        field_ref__tmp = cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl%daddr)
701        field_ref_ = field_ref__tmp
702      ENDIF
703
704      IF (PRESENT(freq_offset_)) THEN
705        freq_offset__tmp = cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl%daddr)
706        freq_offset_ = freq_offset__tmp
707      ENDIF
708
709      IF (PRESENT(freq_op_)) THEN
710        freq_op__tmp = cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl%daddr)
711        freq_op_ = freq_op__tmp
712      ENDIF
713
714      IF (PRESENT(grid_ref_)) THEN
715        grid_ref__tmp = cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl%daddr)
716        grid_ref_ = grid_ref__tmp
717      ENDIF
718
719      IF (PRESENT(group_ref_)) THEN
720        group_ref__tmp = cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl%daddr)
721        group_ref_ = group_ref__tmp
722      ENDIF
723
724      IF (PRESENT(indexed_output_)) THEN
725        indexed_output__tmp = cxios_is_defined_fieldgroup_indexed_output(fieldgroup_hdl%daddr)
726        indexed_output_ = indexed_output__tmp
727      ENDIF
728
729      IF (PRESENT(level_)) THEN
730        level__tmp = cxios_is_defined_fieldgroup_level(fieldgroup_hdl%daddr)
731        level_ = level__tmp
732      ENDIF
733
734      IF (PRESENT(long_name_)) THEN
735        long_name__tmp = cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl%daddr)
736        long_name_ = long_name__tmp
737      ENDIF
738
739      IF (PRESENT(name_)) THEN
740        name__tmp = cxios_is_defined_fieldgroup_name(fieldgroup_hdl%daddr)
741        name_ = name__tmp
742      ENDIF
743
744      IF (PRESENT(operation_)) THEN
745        operation__tmp = cxios_is_defined_fieldgroup_operation(fieldgroup_hdl%daddr)
746        operation_ = operation__tmp
747      ENDIF
748
749      IF (PRESENT(prec_)) THEN
750        prec__tmp = cxios_is_defined_fieldgroup_prec(fieldgroup_hdl%daddr)
751        prec_ = prec__tmp
752      ENDIF
753
754      IF (PRESENT(read_access_)) THEN
755        read_access__tmp = cxios_is_defined_fieldgroup_read_access(fieldgroup_hdl%daddr)
756        read_access_ = read_access__tmp
757      ENDIF
758
759      IF (PRESENT(scale_factor_)) THEN
760        scale_factor__tmp = cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl%daddr)
761        scale_factor_ = scale_factor__tmp
762      ENDIF
763
764      IF (PRESENT(standard_name_)) THEN
765        standard_name__tmp = cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl%daddr)
766        standard_name_ = standard_name__tmp
767      ENDIF
768
769      IF (PRESENT(unit_)) THEN
770        unit__tmp = cxios_is_defined_fieldgroup_unit(fieldgroup_hdl%daddr)
771        unit_ = unit__tmp
772      ENDIF
773
774      IF (PRESENT(valid_max_)) THEN
775        valid_max__tmp = cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl%daddr)
776        valid_max_ = valid_max__tmp
777      ENDIF
778
779      IF (PRESENT(valid_min_)) THEN
780        valid_min__tmp = cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl%daddr)
781        valid_min_ = valid_min__tmp
782      ENDIF
783
784  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)
785
786END MODULE ifieldgroup_attr
Note: See TracBrowser for help on using the repository browser.