Context Navigation

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

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

Add a new file attribute time_counter_name.

Users can now modify the name of the time counter dimension and axis name.

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 ifilegroup_attr
7	USE, INTRINSIC :: ISO_C_BINDING
8	USE ifile
9	USE filegroup_interface_attr
10
11	CONTAINS
12
13	SUBROUTINE xios(set_filegroup_attr) &
14	( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits &
15	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
16	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
17	)
18
19	IMPLICIT NONE
20	TYPE(txios(filegroup)) :: filegroup_hdl
21	CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
22	LOGICAL , OPTIONAL, INTENT(IN) :: append
23	LOGICAL (KIND=C_BOOL) :: append_tmp
24	INTEGER , OPTIONAL, INTENT(IN) :: compression_level
25	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
26	LOGICAL , OPTIONAL, INTENT(IN) :: enabled
27	LOGICAL (KIND=C_BOOL) :: enabled_tmp
28	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
29	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
30	INTEGER , OPTIONAL, INTENT(IN) :: min_digits
31	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
32	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
33	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
34	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: output_freq
35	INTEGER , OPTIONAL, INTENT(IN) :: output_level
36	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
37	INTEGER , OPTIONAL, INTENT(IN) :: record_offset
38	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq
39	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
40	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq
41	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
42	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name
43	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
44	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
45	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
46
47	CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl)
48	CALL xios(set_filegroup_attr_hdl_) &
49	( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits &
50	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
51	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
52	)
53
54	END SUBROUTINE xios(set_filegroup_attr)
55
56	SUBROUTINE xios(set_filegroup_attr_hdl) &
57	( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits &
58	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
59	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
60	)
61
62	IMPLICIT NONE
63	TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
64	LOGICAL , OPTIONAL, INTENT(IN) :: append
65	LOGICAL (KIND=C_BOOL) :: append_tmp
66	INTEGER , OPTIONAL, INTENT(IN) :: compression_level
67	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
68	LOGICAL , OPTIONAL, INTENT(IN) :: enabled
69	LOGICAL (KIND=C_BOOL) :: enabled_tmp
70	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
71	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
72	INTEGER , OPTIONAL, INTENT(IN) :: min_digits
73	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
74	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
75	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
76	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: output_freq
77	INTEGER , OPTIONAL, INTENT(IN) :: output_level
78	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
79	INTEGER , OPTIONAL, INTENT(IN) :: record_offset
80	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq
81	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
82	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq
83	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
84	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name
85	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
86	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
87	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
88
89	CALL xios(set_filegroup_attr_hdl_) &
90	( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits &
91	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
92	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
93	)
94
95	END SUBROUTINE xios(set_filegroup_attr_hdl)
96
97	SUBROUTINE xios(set_filegroup_attr_hdl_) &
98	( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_ &
99	, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_, split_freq_ &
100	, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_, ts_prefix_ &
101	, type_ )
102
103	IMPLICIT NONE
104	TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
105	LOGICAL , OPTIONAL, INTENT(IN) :: append_
106	LOGICAL (KIND=C_BOOL) :: append__tmp
107	INTEGER , OPTIONAL, INTENT(IN) :: compression_level_
108	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
109	LOGICAL , OPTIONAL, INTENT(IN) :: enabled_
110	LOGICAL (KIND=C_BOOL) :: enabled__tmp
111	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_
112	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
113	INTEGER , OPTIONAL, INTENT(IN) :: min_digits_
114	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
115	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
116	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_
117	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: output_freq_
118	INTEGER , OPTIONAL, INTENT(IN) :: output_level_
119	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_
120	INTEGER , OPTIONAL, INTENT(IN) :: record_offset_
121	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq_
122	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_
123	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq_
124	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_
125	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name_
126	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries_
127	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_
128	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
129
130	IF (PRESENT(append_)) THEN
131	append__tmp = append_
132	CALL cxios_set_filegroup_append(filegroup_hdl%daddr, append__tmp)
133	ENDIF
134
135	IF (PRESENT(compression_level_)) THEN
136	CALL cxios_set_filegroup_compression_level(filegroup_hdl%daddr, compression_level_)
137	ENDIF
138
139	IF (PRESENT(description_)) THEN
140	CALL cxios_set_filegroup_description(filegroup_hdl%daddr, description_, len(description_))
141	ENDIF
142
143	IF (PRESENT(enabled_)) THEN
144	enabled__tmp = enabled_
145	CALL cxios_set_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp)
146	ENDIF
147
148	IF (PRESENT(format_)) THEN
149	CALL cxios_set_filegroup_format(filegroup_hdl%daddr, format_, len(format_))
150	ENDIF
151
152	IF (PRESENT(group_ref_)) THEN
153	CALL cxios_set_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_))
154	ENDIF
155
156	IF (PRESENT(min_digits_)) THEN
157	CALL cxios_set_filegroup_min_digits(filegroup_hdl%daddr, min_digits_)
158	ENDIF
159
160	IF (PRESENT(mode_)) THEN
161	CALL cxios_set_filegroup_mode(filegroup_hdl%daddr, mode_, len(mode_))
162	ENDIF
163
164	IF (PRESENT(name_)) THEN
165	CALL cxios_set_filegroup_name(filegroup_hdl%daddr, name_, len(name_))
166	ENDIF
167
168	IF (PRESENT(name_suffix_)) THEN
169	CALL cxios_set_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_))
170	ENDIF
171
172	IF (PRESENT(output_freq_)) THEN
173	CALL cxios_set_filegroup_output_freq(filegroup_hdl%daddr, output_freq_)
174	ENDIF
175
176	IF (PRESENT(output_level_)) THEN
177	CALL cxios_set_filegroup_output_level(filegroup_hdl%daddr, output_level_)
178	ENDIF
179
180	IF (PRESENT(par_access_)) THEN
181	CALL cxios_set_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_))
182	ENDIF
183
184	IF (PRESENT(record_offset_)) THEN
185	CALL cxios_set_filegroup_record_offset(filegroup_hdl%daddr, record_offset_)
186	ENDIF
187
188	IF (PRESENT(split_freq_)) THEN
189	CALL cxios_set_filegroup_split_freq(filegroup_hdl%daddr, split_freq_)
190	ENDIF
191
192	IF (PRESENT(split_freq_format_)) THEN
193	CALL cxios_set_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_))
194	ENDIF
195
196	IF (PRESENT(sync_freq_)) THEN
197	CALL cxios_set_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_)
198	ENDIF
199
200	IF (PRESENT(time_counter_)) THEN
201	CALL cxios_set_filegroup_time_counter(filegroup_hdl%daddr, time_counter_, len(time_counter_))
202	ENDIF
203
204	IF (PRESENT(time_counter_name_)) THEN
205	CALL cxios_set_filegroup_time_counter_name(filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_))
206	ENDIF
207
208	IF (PRESENT(timeseries_)) THEN
209	CALL cxios_set_filegroup_timeseries(filegroup_hdl%daddr, timeseries_, len(timeseries_))
210	ENDIF
211
212	IF (PRESENT(ts_prefix_)) THEN
213	CALL cxios_set_filegroup_ts_prefix(filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_))
214	ENDIF
215
216	IF (PRESENT(type_)) THEN
217	CALL cxios_set_filegroup_type(filegroup_hdl%daddr, type_, len(type_))
218	ENDIF
219
220	END SUBROUTINE xios(set_filegroup_attr_hdl_)
221
222	SUBROUTINE xios(get_filegroup_attr) &
223	( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits &
224	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
225	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
226	)
227
228	IMPLICIT NONE
229	TYPE(txios(filegroup)) :: filegroup_hdl
230	CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
231	LOGICAL , OPTIONAL, INTENT(OUT) :: append
232	LOGICAL (KIND=C_BOOL) :: append_tmp
233	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
234	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
235	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
236	LOGICAL (KIND=C_BOOL) :: enabled_tmp
237	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
238	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
239	INTEGER , OPTIONAL, INTENT(OUT) :: min_digits
240	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
241	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
242	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
243	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: output_freq
244	INTEGER , OPTIONAL, INTENT(OUT) :: output_level
245	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
246	INTEGER , OPTIONAL, INTENT(OUT) :: record_offset
247	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq
248	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
249	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq
250	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
251	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name
252	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
253	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
254	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
255
256	CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl)
257	CALL xios(get_filegroup_attr_hdl_) &
258	( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits &
259	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
260	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
261	)
262
263	END SUBROUTINE xios(get_filegroup_attr)
264
265	SUBROUTINE xios(get_filegroup_attr_hdl) &
266	( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits &
267	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
268	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
269	)
270
271	IMPLICIT NONE
272	TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
273	LOGICAL , OPTIONAL, INTENT(OUT) :: append
274	LOGICAL (KIND=C_BOOL) :: append_tmp
275	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
276	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
277	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
278	LOGICAL (KIND=C_BOOL) :: enabled_tmp
279	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
280	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
281	INTEGER , OPTIONAL, INTENT(OUT) :: min_digits
282	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
283	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
284	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
285	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: output_freq
286	INTEGER , OPTIONAL, INTENT(OUT) :: output_level
287	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
288	INTEGER , OPTIONAL, INTENT(OUT) :: record_offset
289	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq
290	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
291	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq
292	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
293	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name
294	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
295	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
296	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
297
298	CALL xios(get_filegroup_attr_hdl_) &
299	( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits &
300	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
301	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
302	)
303
304	END SUBROUTINE xios(get_filegroup_attr_hdl)
305
306	SUBROUTINE xios(get_filegroup_attr_hdl_) &
307	( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_ &
308	, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_, split_freq_ &
309	, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_, ts_prefix_ &
310	, type_ )
311
312	IMPLICIT NONE
313	TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
314	LOGICAL , OPTIONAL, INTENT(OUT) :: append_
315	LOGICAL (KIND=C_BOOL) :: append__tmp
316	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_
317	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
318	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled_
319	LOGICAL (KIND=C_BOOL) :: enabled__tmp
320	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_
321	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
322	INTEGER , OPTIONAL, INTENT(OUT) :: min_digits_
323	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
324	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
325	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
326	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: output_freq_
327	INTEGER , OPTIONAL, INTENT(OUT) :: output_level_
328	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_
329	INTEGER , OPTIONAL, INTENT(OUT) :: record_offset_
330	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq_
331	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_
332	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq_
333	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_
334	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name_
335	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries_
336	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_
337	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
338
339	IF (PRESENT(append_)) THEN
340	CALL cxios_get_filegroup_append(filegroup_hdl%daddr, append__tmp)
341	append_ = append__tmp
342	ENDIF
343
344	IF (PRESENT(compression_level_)) THEN
345	CALL cxios_get_filegroup_compression_level(filegroup_hdl%daddr, compression_level_)
346	ENDIF
347
348	IF (PRESENT(description_)) THEN
349	CALL cxios_get_filegroup_description(filegroup_hdl%daddr, description_, len(description_))
350	ENDIF
351
352	IF (PRESENT(enabled_)) THEN
353	CALL cxios_get_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp)
354	enabled_ = enabled__tmp
355	ENDIF
356
357	IF (PRESENT(format_)) THEN
358	CALL cxios_get_filegroup_format(filegroup_hdl%daddr, format_, len(format_))
359	ENDIF
360
361	IF (PRESENT(group_ref_)) THEN
362	CALL cxios_get_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_))
363	ENDIF
364
365	IF (PRESENT(min_digits_)) THEN
366	CALL cxios_get_filegroup_min_digits(filegroup_hdl%daddr, min_digits_)
367	ENDIF
368
369	IF (PRESENT(mode_)) THEN
370	CALL cxios_get_filegroup_mode(filegroup_hdl%daddr, mode_, len(mode_))
371	ENDIF
372
373	IF (PRESENT(name_)) THEN
374	CALL cxios_get_filegroup_name(filegroup_hdl%daddr, name_, len(name_))
375	ENDIF
376
377	IF (PRESENT(name_suffix_)) THEN
378	CALL cxios_get_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_))
379	ENDIF
380
381	IF (PRESENT(output_freq_)) THEN
382	CALL cxios_get_filegroup_output_freq(filegroup_hdl%daddr, output_freq_)
383	ENDIF
384
385	IF (PRESENT(output_level_)) THEN
386	CALL cxios_get_filegroup_output_level(filegroup_hdl%daddr, output_level_)
387	ENDIF
388
389	IF (PRESENT(par_access_)) THEN
390	CALL cxios_get_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_))
391	ENDIF
392
393	IF (PRESENT(record_offset_)) THEN
394	CALL cxios_get_filegroup_record_offset(filegroup_hdl%daddr, record_offset_)
395	ENDIF
396
397	IF (PRESENT(split_freq_)) THEN
398	CALL cxios_get_filegroup_split_freq(filegroup_hdl%daddr, split_freq_)
399	ENDIF
400
401	IF (PRESENT(split_freq_format_)) THEN
402	CALL cxios_get_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_))
403	ENDIF
404
405	IF (PRESENT(sync_freq_)) THEN
406	CALL cxios_get_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_)
407	ENDIF
408
409	IF (PRESENT(time_counter_)) THEN
410	CALL cxios_get_filegroup_time_counter(filegroup_hdl%daddr, time_counter_, len(time_counter_))
411	ENDIF
412
413	IF (PRESENT(time_counter_name_)) THEN
414	CALL cxios_get_filegroup_time_counter_name(filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_))
415	ENDIF
416
417	IF (PRESENT(timeseries_)) THEN
418	CALL cxios_get_filegroup_timeseries(filegroup_hdl%daddr, timeseries_, len(timeseries_))
419	ENDIF
420
421	IF (PRESENT(ts_prefix_)) THEN
422	CALL cxios_get_filegroup_ts_prefix(filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_))
423	ENDIF
424
425	IF (PRESENT(type_)) THEN
426	CALL cxios_get_filegroup_type(filegroup_hdl%daddr, type_, len(type_))
427	ENDIF
428
429	END SUBROUTINE xios(get_filegroup_attr_hdl_)
430
431	SUBROUTINE xios(is_defined_filegroup_attr) &
432	( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits &
433	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
434	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
435	)
436
437	IMPLICIT NONE
438	TYPE(txios(filegroup)) :: filegroup_hdl
439	CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
440	LOGICAL, OPTIONAL, INTENT(OUT) :: append
441	LOGICAL(KIND=C_BOOL) :: append_tmp
442	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
443	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
444	LOGICAL, OPTIONAL, INTENT(OUT) :: description
445	LOGICAL(KIND=C_BOOL) :: description_tmp
446	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
447	LOGICAL(KIND=C_BOOL) :: enabled_tmp
448	LOGICAL, OPTIONAL, INTENT(OUT) :: format
449	LOGICAL(KIND=C_BOOL) :: format_tmp
450	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
451	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
452	LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
453	LOGICAL(KIND=C_BOOL) :: min_digits_tmp
454	LOGICAL, OPTIONAL, INTENT(OUT) :: mode
455	LOGICAL(KIND=C_BOOL) :: mode_tmp
456	LOGICAL, OPTIONAL, INTENT(OUT) :: name
457	LOGICAL(KIND=C_BOOL) :: name_tmp
458	LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
459	LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
460	LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
461	LOGICAL(KIND=C_BOOL) :: output_freq_tmp
462	LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
463	LOGICAL(KIND=C_BOOL) :: output_level_tmp
464	LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
465	LOGICAL(KIND=C_BOOL) :: par_access_tmp
466	LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset
467	LOGICAL(KIND=C_BOOL) :: record_offset_tmp
468	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
469	LOGICAL(KIND=C_BOOL) :: split_freq_tmp
470	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
471	LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
472	LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
473	LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
474	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
475	LOGICAL(KIND=C_BOOL) :: time_counter_tmp
476	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name
477	LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp
478	LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
479	LOGICAL(KIND=C_BOOL) :: timeseries_tmp
480	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
481	LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
482	LOGICAL, OPTIONAL, INTENT(OUT) :: type
483	LOGICAL(KIND=C_BOOL) :: type_tmp
484
485	CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl)
486	CALL xios(is_defined_filegroup_attr_hdl_) &
487	( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits &
488	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
489	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
490	)
491
492	END SUBROUTINE xios(is_defined_filegroup_attr)
493
494	SUBROUTINE xios(is_defined_filegroup_attr_hdl) &
495	( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits &
496	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
497	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
498	)
499
500	IMPLICIT NONE
501	TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
502	LOGICAL, OPTIONAL, INTENT(OUT) :: append
503	LOGICAL(KIND=C_BOOL) :: append_tmp
504	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
505	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
506	LOGICAL, OPTIONAL, INTENT(OUT) :: description
507	LOGICAL(KIND=C_BOOL) :: description_tmp
508	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
509	LOGICAL(KIND=C_BOOL) :: enabled_tmp
510	LOGICAL, OPTIONAL, INTENT(OUT) :: format
511	LOGICAL(KIND=C_BOOL) :: format_tmp
512	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
513	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
514	LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
515	LOGICAL(KIND=C_BOOL) :: min_digits_tmp
516	LOGICAL, OPTIONAL, INTENT(OUT) :: mode
517	LOGICAL(KIND=C_BOOL) :: mode_tmp
518	LOGICAL, OPTIONAL, INTENT(OUT) :: name
519	LOGICAL(KIND=C_BOOL) :: name_tmp
520	LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
521	LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
522	LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
523	LOGICAL(KIND=C_BOOL) :: output_freq_tmp
524	LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
525	LOGICAL(KIND=C_BOOL) :: output_level_tmp
526	LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
527	LOGICAL(KIND=C_BOOL) :: par_access_tmp
528	LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset
529	LOGICAL(KIND=C_BOOL) :: record_offset_tmp
530	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
531	LOGICAL(KIND=C_BOOL) :: split_freq_tmp
532	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
533	LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
534	LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
535	LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
536	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
537	LOGICAL(KIND=C_BOOL) :: time_counter_tmp
538	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name
539	LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp
540	LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
541	LOGICAL(KIND=C_BOOL) :: timeseries_tmp
542	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
543	LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
544	LOGICAL, OPTIONAL, INTENT(OUT) :: type
545	LOGICAL(KIND=C_BOOL) :: type_tmp
546
547	CALL xios(is_defined_filegroup_attr_hdl_) &
548	( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits &
549	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
550	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
551	)
552
553	END SUBROUTINE xios(is_defined_filegroup_attr_hdl)
554
555	SUBROUTINE xios(is_defined_filegroup_attr_hdl_) &
556	( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_ &
557	, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_, split_freq_ &
558	, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_, ts_prefix_ &
559	, type_ )
560
561	IMPLICIT NONE
562	TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
563	LOGICAL, OPTIONAL, INTENT(OUT) :: append_
564	LOGICAL(KIND=C_BOOL) :: append__tmp
565	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
566	LOGICAL(KIND=C_BOOL) :: compression_level__tmp
567	LOGICAL, OPTIONAL, INTENT(OUT) :: description_
568	LOGICAL(KIND=C_BOOL) :: description__tmp
569	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
570	LOGICAL(KIND=C_BOOL) :: enabled__tmp
571	LOGICAL, OPTIONAL, INTENT(OUT) :: format_
572	LOGICAL(KIND=C_BOOL) :: format__tmp
573	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
574	LOGICAL(KIND=C_BOOL) :: group_ref__tmp
575	LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_
576	LOGICAL(KIND=C_BOOL) :: min_digits__tmp
577	LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
578	LOGICAL(KIND=C_BOOL) :: mode__tmp
579	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
580	LOGICAL(KIND=C_BOOL) :: name__tmp
581	LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_
582	LOGICAL(KIND=C_BOOL) :: name_suffix__tmp
583	LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_
584	LOGICAL(KIND=C_BOOL) :: output_freq__tmp
585	LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_
586	LOGICAL(KIND=C_BOOL) :: output_level__tmp
587	LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_
588	LOGICAL(KIND=C_BOOL) :: par_access__tmp
589	LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_
590	LOGICAL(KIND=C_BOOL) :: record_offset__tmp
591	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_
592	LOGICAL(KIND=C_BOOL) :: split_freq__tmp
593	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_
594	LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp
595	LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_
596	LOGICAL(KIND=C_BOOL) :: sync_freq__tmp
597	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_
598	LOGICAL(KIND=C_BOOL) :: time_counter__tmp
599	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name_
600	LOGICAL(KIND=C_BOOL) :: time_counter_name__tmp
601	LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries_
602	LOGICAL(KIND=C_BOOL) :: timeseries__tmp
603	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix_
604	LOGICAL(KIND=C_BOOL) :: ts_prefix__tmp
605	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
606	LOGICAL(KIND=C_BOOL) :: type__tmp
607
608	IF (PRESENT(append_)) THEN
609	append__tmp = cxios_is_defined_filegroup_append(filegroup_hdl%daddr)
610	append_ = append__tmp
611	ENDIF
612
613	IF (PRESENT(compression_level_)) THEN
614	compression_level__tmp = cxios_is_defined_filegroup_compression_level(filegroup_hdl%daddr)
615	compression_level_ = compression_level__tmp
616	ENDIF
617
618	IF (PRESENT(description_)) THEN
619	description__tmp = cxios_is_defined_filegroup_description(filegroup_hdl%daddr)
620	description_ = description__tmp
621	ENDIF
622
623	IF (PRESENT(enabled_)) THEN
624	enabled__tmp = cxios_is_defined_filegroup_enabled(filegroup_hdl%daddr)
625	enabled_ = enabled__tmp
626	ENDIF
627
628	IF (PRESENT(format_)) THEN
629	format__tmp = cxios_is_defined_filegroup_format(filegroup_hdl%daddr)
630	format_ = format__tmp
631	ENDIF
632
633	IF (PRESENT(group_ref_)) THEN
634	group_ref__tmp = cxios_is_defined_filegroup_group_ref(filegroup_hdl%daddr)
635	group_ref_ = group_ref__tmp
636	ENDIF
637
638	IF (PRESENT(min_digits_)) THEN
639	min_digits__tmp = cxios_is_defined_filegroup_min_digits(filegroup_hdl%daddr)
640	min_digits_ = min_digits__tmp
641	ENDIF
642
643	IF (PRESENT(mode_)) THEN
644	mode__tmp = cxios_is_defined_filegroup_mode(filegroup_hdl%daddr)
645	mode_ = mode__tmp
646	ENDIF
647
648	IF (PRESENT(name_)) THEN
649	name__tmp = cxios_is_defined_filegroup_name(filegroup_hdl%daddr)
650	name_ = name__tmp
651	ENDIF
652
653	IF (PRESENT(name_suffix_)) THEN
654	name_suffix__tmp = cxios_is_defined_filegroup_name_suffix(filegroup_hdl%daddr)
655	name_suffix_ = name_suffix__tmp
656	ENDIF
657
658	IF (PRESENT(output_freq_)) THEN
659	output_freq__tmp = cxios_is_defined_filegroup_output_freq(filegroup_hdl%daddr)
660	output_freq_ = output_freq__tmp
661	ENDIF
662
663	IF (PRESENT(output_level_)) THEN
664	output_level__tmp = cxios_is_defined_filegroup_output_level(filegroup_hdl%daddr)
665	output_level_ = output_level__tmp
666	ENDIF
667
668	IF (PRESENT(par_access_)) THEN
669	par_access__tmp = cxios_is_defined_filegroup_par_access(filegroup_hdl%daddr)
670	par_access_ = par_access__tmp
671	ENDIF
672
673	IF (PRESENT(record_offset_)) THEN
674	record_offset__tmp = cxios_is_defined_filegroup_record_offset(filegroup_hdl%daddr)
675	record_offset_ = record_offset__tmp
676	ENDIF
677
678	IF (PRESENT(split_freq_)) THEN
679	split_freq__tmp = cxios_is_defined_filegroup_split_freq(filegroup_hdl%daddr)
680	split_freq_ = split_freq__tmp
681	ENDIF
682
683	IF (PRESENT(split_freq_format_)) THEN
684	split_freq_format__tmp = cxios_is_defined_filegroup_split_freq_format(filegroup_hdl%daddr)
685	split_freq_format_ = split_freq_format__tmp
686	ENDIF
687
688	IF (PRESENT(sync_freq_)) THEN
689	sync_freq__tmp = cxios_is_defined_filegroup_sync_freq(filegroup_hdl%daddr)
690	sync_freq_ = sync_freq__tmp
691	ENDIF
692
693	IF (PRESENT(time_counter_)) THEN
694	time_counter__tmp = cxios_is_defined_filegroup_time_counter(filegroup_hdl%daddr)
695	time_counter_ = time_counter__tmp
696	ENDIF
697
698	IF (PRESENT(time_counter_name_)) THEN
699	time_counter_name__tmp = cxios_is_defined_filegroup_time_counter_name(filegroup_hdl%daddr)
700	time_counter_name_ = time_counter_name__tmp
701	ENDIF
702
703	IF (PRESENT(timeseries_)) THEN
704	timeseries__tmp = cxios_is_defined_filegroup_timeseries(filegroup_hdl%daddr)
705	timeseries_ = timeseries__tmp
706	ENDIF
707
708	IF (PRESENT(ts_prefix_)) THEN
709	ts_prefix__tmp = cxios_is_defined_filegroup_ts_prefix(filegroup_hdl%daddr)
710	ts_prefix_ = ts_prefix__tmp
711	ENDIF
712
713	IF (PRESENT(type_)) THEN
714	type__tmp = cxios_is_defined_filegroup_type(filegroup_hdl%daddr)
715	type_ = type__tmp
716	ENDIF
717
718	END SUBROUTINE xios(is_defined_filegroup_attr_hdl_)
719
720	END MODULE ifilegroup_attr

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

Download in other formats: