Context Navigation

ifilegroup_attr.F90 @ 932

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

Adding Fortran interface for high-dimension grid (up to 7)

+) Add check mask for high-dimension grid
+) Add Fortran interface for send_field, recv_field

Test
+) On Curie
+) Work

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

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

Context Navigation

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

Download in other formats: