Context Navigation

source: XIOS/branchs/xios-1.0/src/interface/fortran_attr/ifieldgroup_attr.F90 @ 609

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

Add the Fortran interface for the "compression_level" attribute.

It had been forgotten in r606.

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: 31.5 KB

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

Note: See TracBrowser for help on using the repository browser.

Download in other formats: