Context Navigation

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

Last change on this file since 699 was 699, checked in by rlacroix, 7 years ago

Add the Fortran interface for the new "time_counter" file attribute.

It had been forgotten in r692.

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

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

Download in other formats: