Context Navigation

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

Last change on this file since 891 was 891, checked in by mhnguyen, 8 years ago

Adding Fortran interface for reduce_axis_to_scalar

Test
+) On Curie
+) Only compilation

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

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

Download in other formats: