Context Navigation

source: XIOS/trunk/src/interface/fortran_attr/ifile_attr.F90 @ 903

Last change on this file since 903 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: 30.5 KB

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

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

Download in other formats: