Context Navigation

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

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

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

Download in other formats: