Context Navigation

ifile_attr.F90 @ 966

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

Reducing length of line of auto-generate Fortran interface

+) Break line into smaller ones to make sure each line is not longer than 132 character

Test
+) Local with gcc4.8
+) Compilation passed

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.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, convention, cyclic, description, enabled, format, 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(file)) :: file_hdl
21	CHARACTER(LEN=*), INTENT(IN) ::file_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	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_file_handle) &
50	(file_id,file_hdl)
51	CALL xios(set_file_attr_hdl_) &
52	( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits &
53	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
54	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
55	)
56
57	END SUBROUTINE xios(set_file_attr)
58
59	SUBROUTINE xios(set_file_attr_hdl) &
60	( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits &
61	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
62	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
63	)
64
65	IMPLICIT NONE
66	TYPE(txios(file)) , INTENT(IN) :: file_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	INTEGER , OPTIONAL, INTENT(IN) :: min_digits
78	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
79	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
80	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
81	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: output_freq
82	INTEGER , OPTIONAL, INTENT(IN) :: output_level
83	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
84	INTEGER , OPTIONAL, INTENT(IN) :: record_offset
85	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq
86	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
87	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq
88	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
89	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name
90	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
91	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
92	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
93
94	CALL xios(set_file_attr_hdl_) &
95	( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits &
96	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
97	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
98	)
99
100	END SUBROUTINE xios(set_file_attr_hdl)
101
102	SUBROUTINE xios(set_file_attr_hdl_) &
103	( file_hdl, append_, compression_level_, convention_, cyclic_, description_, enabled_, format_ &
104	, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_ &
105	, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_ &
106	, ts_prefix_, type_ )
107
108	IMPLICIT NONE
109	TYPE(txios(file)) , INTENT(IN) :: file_hdl
110	LOGICAL , OPTIONAL, INTENT(IN) :: append_
111	LOGICAL (KIND=C_BOOL) :: append__tmp
112	INTEGER , OPTIONAL, INTENT(IN) :: compression_level_
113	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_
114	LOGICAL , OPTIONAL, INTENT(IN) :: cyclic_
115	LOGICAL (KIND=C_BOOL) :: cyclic__tmp
116	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
117	LOGICAL , OPTIONAL, INTENT(IN) :: enabled_
118	LOGICAL (KIND=C_BOOL) :: enabled__tmp
119	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_
120	INTEGER , OPTIONAL, INTENT(IN) :: min_digits_
121	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
122	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
123	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_
124	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: output_freq_
125	INTEGER , OPTIONAL, INTENT(IN) :: output_level_
126	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_
127	INTEGER , OPTIONAL, INTENT(IN) :: record_offset_
128	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq_
129	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_
130	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq_
131	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_
132	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name_
133	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries_
134	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_
135	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
136
137	IF (PRESENT(append_)) THEN
138	append__tmp = append_
139	CALL cxios_set_file_append &
140	(file_hdl%daddr, append__tmp)
141	ENDIF
142
143	IF (PRESENT(compression_level_)) THEN
144	CALL cxios_set_file_compression_level &
145	(file_hdl%daddr, compression_level_)
146	ENDIF
147
148	IF (PRESENT(convention_)) THEN
149	CALL cxios_set_file_convention &
150	(file_hdl%daddr, convention_, len(convention_))
151	ENDIF
152
153	IF (PRESENT(cyclic_)) THEN
154	cyclic__tmp = cyclic_
155	CALL cxios_set_file_cyclic &
156	(file_hdl%daddr, cyclic__tmp)
157	ENDIF
158
159	IF (PRESENT(description_)) THEN
160	CALL cxios_set_file_description &
161	(file_hdl%daddr, description_, len(description_))
162	ENDIF
163
164	IF (PRESENT(enabled_)) THEN
165	enabled__tmp = enabled_
166	CALL cxios_set_file_enabled &
167	(file_hdl%daddr, enabled__tmp)
168	ENDIF
169
170	IF (PRESENT(format_)) THEN
171	CALL cxios_set_file_format &
172	(file_hdl%daddr, format_, len(format_))
173	ENDIF
174
175	IF (PRESENT(min_digits_)) THEN
176	CALL cxios_set_file_min_digits &
177	(file_hdl%daddr, min_digits_)
178	ENDIF
179
180	IF (PRESENT(mode_)) THEN
181	CALL cxios_set_file_mode &
182	(file_hdl%daddr, mode_, len(mode_))
183	ENDIF
184
185	IF (PRESENT(name_)) THEN
186	CALL cxios_set_file_name &
187	(file_hdl%daddr, name_, len(name_))
188	ENDIF
189
190	IF (PRESENT(name_suffix_)) THEN
191	CALL cxios_set_file_name_suffix &
192	(file_hdl%daddr, name_suffix_, len(name_suffix_))
193	ENDIF
194
195	IF (PRESENT(output_freq_)) THEN
196	CALL cxios_set_file_output_freq &
197	(file_hdl%daddr, output_freq_)
198	ENDIF
199
200	IF (PRESENT(output_level_)) THEN
201	CALL cxios_set_file_output_level &
202	(file_hdl%daddr, output_level_)
203	ENDIF
204
205	IF (PRESENT(par_access_)) THEN
206	CALL cxios_set_file_par_access &
207	(file_hdl%daddr, par_access_, len(par_access_))
208	ENDIF
209
210	IF (PRESENT(record_offset_)) THEN
211	CALL cxios_set_file_record_offset &
212	(file_hdl%daddr, record_offset_)
213	ENDIF
214
215	IF (PRESENT(split_freq_)) THEN
216	CALL cxios_set_file_split_freq &
217	(file_hdl%daddr, split_freq_)
218	ENDIF
219
220	IF (PRESENT(split_freq_format_)) THEN
221	CALL cxios_set_file_split_freq_format &
222	(file_hdl%daddr, split_freq_format_, len(split_freq_format_))
223	ENDIF
224
225	IF (PRESENT(sync_freq_)) THEN
226	CALL cxios_set_file_sync_freq &
227	(file_hdl%daddr, sync_freq_)
228	ENDIF
229
230	IF (PRESENT(time_counter_)) THEN
231	CALL cxios_set_file_time_counter &
232	(file_hdl%daddr, time_counter_, len(time_counter_))
233	ENDIF
234
235	IF (PRESENT(time_counter_name_)) THEN
236	CALL cxios_set_file_time_counter_name &
237	(file_hdl%daddr, time_counter_name_, len(time_counter_name_))
238	ENDIF
239
240	IF (PRESENT(timeseries_)) THEN
241	CALL cxios_set_file_timeseries &
242	(file_hdl%daddr, timeseries_, len(timeseries_))
243	ENDIF
244
245	IF (PRESENT(ts_prefix_)) THEN
246	CALL cxios_set_file_ts_prefix &
247	(file_hdl%daddr, ts_prefix_, len(ts_prefix_))
248	ENDIF
249
250	IF (PRESENT(type_)) THEN
251	CALL cxios_set_file_type &
252	(file_hdl%daddr, type_, len(type_))
253	ENDIF
254
255	END SUBROUTINE xios(set_file_attr_hdl_)
256
257	SUBROUTINE xios(get_file_attr) &
258	( file_id, append, compression_level, convention, cyclic, description, enabled, format, min_digits &
259	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
260	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
261	)
262
263	IMPLICIT NONE
264	TYPE(txios(file)) :: file_hdl
265	CHARACTER(LEN=*), INTENT(IN) ::file_id
266	LOGICAL , OPTIONAL, INTENT(OUT) :: append
267	LOGICAL (KIND=C_BOOL) :: append_tmp
268	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
269	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention
270	LOGICAL , OPTIONAL, INTENT(OUT) :: cyclic
271	LOGICAL (KIND=C_BOOL) :: cyclic_tmp
272	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
273	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
274	LOGICAL (KIND=C_BOOL) :: enabled_tmp
275	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
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	INTEGER , OPTIONAL, INTENT(OUT) :: record_offset
284	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq
285	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
286	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq
287	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
288	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name
289	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
290	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
291	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
292
293	CALL xios(get_file_handle) &
294	(file_id,file_hdl)
295	CALL xios(get_file_attr_hdl_) &
296	( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits &
297	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
298	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
299	)
300
301	END SUBROUTINE xios(get_file_attr)
302
303	SUBROUTINE xios(get_file_attr_hdl) &
304	( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits &
305	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
306	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
307	)
308
309	IMPLICIT NONE
310	TYPE(txios(file)) , INTENT(IN) :: file_hdl
311	LOGICAL , OPTIONAL, INTENT(OUT) :: append
312	LOGICAL (KIND=C_BOOL) :: append_tmp
313	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
314	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention
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	CALL xios(get_file_attr_hdl_) &
339	( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits &
340	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
341	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
342	)
343
344	END SUBROUTINE xios(get_file_attr_hdl)
345
346	SUBROUTINE xios(get_file_attr_hdl_) &
347	( file_hdl, append_, compression_level_, convention_, cyclic_, description_, enabled_, format_ &
348	, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_ &
349	, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_ &
350	, ts_prefix_, type_ )
351
352	IMPLICIT NONE
353	TYPE(txios(file)) , INTENT(IN) :: file_hdl
354	LOGICAL , OPTIONAL, INTENT(OUT) :: append_
355	LOGICAL (KIND=C_BOOL) :: append__tmp
356	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_
357	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_
358	LOGICAL , OPTIONAL, INTENT(OUT) :: cyclic_
359	LOGICAL (KIND=C_BOOL) :: cyclic__tmp
360	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
361	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled_
362	LOGICAL (KIND=C_BOOL) :: enabled__tmp
363	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_
364	INTEGER , OPTIONAL, INTENT(OUT) :: min_digits_
365	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
366	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
367	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
368	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: output_freq_
369	INTEGER , OPTIONAL, INTENT(OUT) :: output_level_
370	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_
371	INTEGER , OPTIONAL, INTENT(OUT) :: record_offset_
372	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq_
373	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_
374	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq_
375	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_
376	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name_
377	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries_
378	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_
379	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
380
381	IF (PRESENT(append_)) THEN
382	CALL cxios_get_file_append &
383	(file_hdl%daddr, append__tmp)
384	append_ = append__tmp
385	ENDIF
386
387	IF (PRESENT(compression_level_)) THEN
388	CALL cxios_get_file_compression_level &
389	(file_hdl%daddr, compression_level_)
390	ENDIF
391
392	IF (PRESENT(convention_)) THEN
393	CALL cxios_get_file_convention &
394	(file_hdl%daddr, convention_, len(convention_))
395	ENDIF
396
397	IF (PRESENT(cyclic_)) THEN
398	CALL cxios_get_file_cyclic &
399	(file_hdl%daddr, cyclic__tmp)
400	cyclic_ = cyclic__tmp
401	ENDIF
402
403	IF (PRESENT(description_)) THEN
404	CALL cxios_get_file_description &
405	(file_hdl%daddr, description_, len(description_))
406	ENDIF
407
408	IF (PRESENT(enabled_)) THEN
409	CALL cxios_get_file_enabled &
410	(file_hdl%daddr, enabled__tmp)
411	enabled_ = enabled__tmp
412	ENDIF
413
414	IF (PRESENT(format_)) THEN
415	CALL cxios_get_file_format &
416	(file_hdl%daddr, format_, len(format_))
417	ENDIF
418
419	IF (PRESENT(min_digits_)) THEN
420	CALL cxios_get_file_min_digits &
421	(file_hdl%daddr, min_digits_)
422	ENDIF
423
424	IF (PRESENT(mode_)) THEN
425	CALL cxios_get_file_mode &
426	(file_hdl%daddr, mode_, len(mode_))
427	ENDIF
428
429	IF (PRESENT(name_)) THEN
430	CALL cxios_get_file_name &
431	(file_hdl%daddr, name_, len(name_))
432	ENDIF
433
434	IF (PRESENT(name_suffix_)) THEN
435	CALL cxios_get_file_name_suffix &
436	(file_hdl%daddr, name_suffix_, len(name_suffix_))
437	ENDIF
438
439	IF (PRESENT(output_freq_)) THEN
440	CALL cxios_get_file_output_freq &
441	(file_hdl%daddr, output_freq_)
442	ENDIF
443
444	IF (PRESENT(output_level_)) THEN
445	CALL cxios_get_file_output_level &
446	(file_hdl%daddr, output_level_)
447	ENDIF
448
449	IF (PRESENT(par_access_)) THEN
450	CALL cxios_get_file_par_access &
451	(file_hdl%daddr, par_access_, len(par_access_))
452	ENDIF
453
454	IF (PRESENT(record_offset_)) THEN
455	CALL cxios_get_file_record_offset &
456	(file_hdl%daddr, record_offset_)
457	ENDIF
458
459	IF (PRESENT(split_freq_)) THEN
460	CALL cxios_get_file_split_freq &
461	(file_hdl%daddr, split_freq_)
462	ENDIF
463
464	IF (PRESENT(split_freq_format_)) THEN
465	CALL cxios_get_file_split_freq_format &
466	(file_hdl%daddr, split_freq_format_, len(split_freq_format_))
467	ENDIF
468
469	IF (PRESENT(sync_freq_)) THEN
470	CALL cxios_get_file_sync_freq &
471	(file_hdl%daddr, sync_freq_)
472	ENDIF
473
474	IF (PRESENT(time_counter_)) THEN
475	CALL cxios_get_file_time_counter &
476	(file_hdl%daddr, time_counter_, len(time_counter_))
477	ENDIF
478
479	IF (PRESENT(time_counter_name_)) THEN
480	CALL cxios_get_file_time_counter_name &
481	(file_hdl%daddr, time_counter_name_, len(time_counter_name_))
482	ENDIF
483
484	IF (PRESENT(timeseries_)) THEN
485	CALL cxios_get_file_timeseries &
486	(file_hdl%daddr, timeseries_, len(timeseries_))
487	ENDIF
488
489	IF (PRESENT(ts_prefix_)) THEN
490	CALL cxios_get_file_ts_prefix &
491	(file_hdl%daddr, ts_prefix_, len(ts_prefix_))
492	ENDIF
493
494	IF (PRESENT(type_)) THEN
495	CALL cxios_get_file_type &
496	(file_hdl%daddr, type_, len(type_))
497	ENDIF
498
499	END SUBROUTINE xios(get_file_attr_hdl_)
500
501	SUBROUTINE xios(is_defined_file_attr) &
502	( file_id, append, compression_level, convention, cyclic, description, enabled, format, min_digits &
503	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
504	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
505	)
506
507	IMPLICIT NONE
508	TYPE(txios(file)) :: file_hdl
509	CHARACTER(LEN=*), INTENT(IN) ::file_id
510	LOGICAL, OPTIONAL, INTENT(OUT) :: append
511	LOGICAL(KIND=C_BOOL) :: append_tmp
512	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
513	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
514	LOGICAL, OPTIONAL, INTENT(OUT) :: convention
515	LOGICAL(KIND=C_BOOL) :: convention_tmp
516	LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic
517	LOGICAL(KIND=C_BOOL) :: cyclic_tmp
518	LOGICAL, OPTIONAL, INTENT(OUT) :: description
519	LOGICAL(KIND=C_BOOL) :: description_tmp
520	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
521	LOGICAL(KIND=C_BOOL) :: enabled_tmp
522	LOGICAL, OPTIONAL, INTENT(OUT) :: format
523	LOGICAL(KIND=C_BOOL) :: format_tmp
524	LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
525	LOGICAL(KIND=C_BOOL) :: min_digits_tmp
526	LOGICAL, OPTIONAL, INTENT(OUT) :: mode
527	LOGICAL(KIND=C_BOOL) :: mode_tmp
528	LOGICAL, OPTIONAL, INTENT(OUT) :: name
529	LOGICAL(KIND=C_BOOL) :: name_tmp
530	LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
531	LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
532	LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
533	LOGICAL(KIND=C_BOOL) :: output_freq_tmp
534	LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
535	LOGICAL(KIND=C_BOOL) :: output_level_tmp
536	LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
537	LOGICAL(KIND=C_BOOL) :: par_access_tmp
538	LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset
539	LOGICAL(KIND=C_BOOL) :: record_offset_tmp
540	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
541	LOGICAL(KIND=C_BOOL) :: split_freq_tmp
542	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
543	LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
544	LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
545	LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
546	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
547	LOGICAL(KIND=C_BOOL) :: time_counter_tmp
548	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name
549	LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp
550	LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
551	LOGICAL(KIND=C_BOOL) :: timeseries_tmp
552	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
553	LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
554	LOGICAL, OPTIONAL, INTENT(OUT) :: type
555	LOGICAL(KIND=C_BOOL) :: type_tmp
556
557	CALL xios(get_file_handle) &
558	(file_id,file_hdl)
559	CALL xios(is_defined_file_attr_hdl_) &
560	( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits &
561	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
562	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
563	)
564
565	END SUBROUTINE xios(is_defined_file_attr)
566
567	SUBROUTINE xios(is_defined_file_attr_hdl) &
568	( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits &
569	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
570	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
571	)
572
573	IMPLICIT NONE
574	TYPE(txios(file)) , INTENT(IN) :: file_hdl
575	LOGICAL, OPTIONAL, INTENT(OUT) :: append
576	LOGICAL(KIND=C_BOOL) :: append_tmp
577	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
578	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
579	LOGICAL, OPTIONAL, INTENT(OUT) :: convention
580	LOGICAL(KIND=C_BOOL) :: convention_tmp
581	LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic
582	LOGICAL(KIND=C_BOOL) :: cyclic_tmp
583	LOGICAL, OPTIONAL, INTENT(OUT) :: description
584	LOGICAL(KIND=C_BOOL) :: description_tmp
585	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
586	LOGICAL(KIND=C_BOOL) :: enabled_tmp
587	LOGICAL, OPTIONAL, INTENT(OUT) :: format
588	LOGICAL(KIND=C_BOOL) :: format_tmp
589	LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
590	LOGICAL(KIND=C_BOOL) :: min_digits_tmp
591	LOGICAL, OPTIONAL, INTENT(OUT) :: mode
592	LOGICAL(KIND=C_BOOL) :: mode_tmp
593	LOGICAL, OPTIONAL, INTENT(OUT) :: name
594	LOGICAL(KIND=C_BOOL) :: name_tmp
595	LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
596	LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
597	LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
598	LOGICAL(KIND=C_BOOL) :: output_freq_tmp
599	LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
600	LOGICAL(KIND=C_BOOL) :: output_level_tmp
601	LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
602	LOGICAL(KIND=C_BOOL) :: par_access_tmp
603	LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset
604	LOGICAL(KIND=C_BOOL) :: record_offset_tmp
605	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
606	LOGICAL(KIND=C_BOOL) :: split_freq_tmp
607	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
608	LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
609	LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
610	LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
611	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
612	LOGICAL(KIND=C_BOOL) :: time_counter_tmp
613	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name
614	LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp
615	LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
616	LOGICAL(KIND=C_BOOL) :: timeseries_tmp
617	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
618	LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
619	LOGICAL, OPTIONAL, INTENT(OUT) :: type
620	LOGICAL(KIND=C_BOOL) :: type_tmp
621
622	CALL xios(is_defined_file_attr_hdl_) &
623	( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits &
624	, mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq &
625	, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type &
626	)
627
628	END SUBROUTINE xios(is_defined_file_attr_hdl)
629
630	SUBROUTINE xios(is_defined_file_attr_hdl_) &
631	( file_hdl, append_, compression_level_, convention_, cyclic_, description_, enabled_, format_ &
632	, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_ &
633	, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_ &
634	, ts_prefix_, type_ )
635
636	IMPLICIT NONE
637	TYPE(txios(file)) , INTENT(IN) :: file_hdl
638	LOGICAL, OPTIONAL, INTENT(OUT) :: append_
639	LOGICAL(KIND=C_BOOL) :: append__tmp
640	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
641	LOGICAL(KIND=C_BOOL) :: compression_level__tmp
642	LOGICAL, OPTIONAL, INTENT(OUT) :: convention_
643	LOGICAL(KIND=C_BOOL) :: convention__tmp
644	LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic_
645	LOGICAL(KIND=C_BOOL) :: cyclic__tmp
646	LOGICAL, OPTIONAL, INTENT(OUT) :: description_
647	LOGICAL(KIND=C_BOOL) :: description__tmp
648	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
649	LOGICAL(KIND=C_BOOL) :: enabled__tmp
650	LOGICAL, OPTIONAL, INTENT(OUT) :: format_
651	LOGICAL(KIND=C_BOOL) :: format__tmp
652	LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_
653	LOGICAL(KIND=C_BOOL) :: min_digits__tmp
654	LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
655	LOGICAL(KIND=C_BOOL) :: mode__tmp
656	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
657	LOGICAL(KIND=C_BOOL) :: name__tmp
658	LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_
659	LOGICAL(KIND=C_BOOL) :: name_suffix__tmp
660	LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_
661	LOGICAL(KIND=C_BOOL) :: output_freq__tmp
662	LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_
663	LOGICAL(KIND=C_BOOL) :: output_level__tmp
664	LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_
665	LOGICAL(KIND=C_BOOL) :: par_access__tmp
666	LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_
667	LOGICAL(KIND=C_BOOL) :: record_offset__tmp
668	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_
669	LOGICAL(KIND=C_BOOL) :: split_freq__tmp
670	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_
671	LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp
672	LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_
673	LOGICAL(KIND=C_BOOL) :: sync_freq__tmp
674	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_
675	LOGICAL(KIND=C_BOOL) :: time_counter__tmp
676	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name_
677	LOGICAL(KIND=C_BOOL) :: time_counter_name__tmp
678	LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries_
679	LOGICAL(KIND=C_BOOL) :: timeseries__tmp
680	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix_
681	LOGICAL(KIND=C_BOOL) :: ts_prefix__tmp
682	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
683	LOGICAL(KIND=C_BOOL) :: type__tmp
684
685	IF (PRESENT(append_)) THEN
686	append__tmp = cxios_is_defined_file_append &
687	(file_hdl%daddr)
688	append_ = append__tmp
689	ENDIF
690
691	IF (PRESENT(compression_level_)) THEN
692	compression_level__tmp = cxios_is_defined_file_compression_level &
693	(file_hdl%daddr)
694	compression_level_ = compression_level__tmp
695	ENDIF
696
697	IF (PRESENT(convention_)) THEN
698	convention__tmp = cxios_is_defined_file_convention &
699	(file_hdl%daddr)
700	convention_ = convention__tmp
701	ENDIF
702
703	IF (PRESENT(cyclic_)) THEN
704	cyclic__tmp = cxios_is_defined_file_cyclic &
705	(file_hdl%daddr)
706	cyclic_ = cyclic__tmp
707	ENDIF
708
709	IF (PRESENT(description_)) THEN
710	description__tmp = cxios_is_defined_file_description &
711	(file_hdl%daddr)
712	description_ = description__tmp
713	ENDIF
714
715	IF (PRESENT(enabled_)) THEN
716	enabled__tmp = cxios_is_defined_file_enabled &
717	(file_hdl%daddr)
718	enabled_ = enabled__tmp
719	ENDIF
720
721	IF (PRESENT(format_)) THEN
722	format__tmp = cxios_is_defined_file_format &
723	(file_hdl%daddr)
724	format_ = format__tmp
725	ENDIF
726
727	IF (PRESENT(min_digits_)) THEN
728	min_digits__tmp = cxios_is_defined_file_min_digits &
729	(file_hdl%daddr)
730	min_digits_ = min_digits__tmp
731	ENDIF
732
733	IF (PRESENT(mode_)) THEN
734	mode__tmp = cxios_is_defined_file_mode &
735	(file_hdl%daddr)
736	mode_ = mode__tmp
737	ENDIF
738
739	IF (PRESENT(name_)) THEN
740	name__tmp = cxios_is_defined_file_name &
741	(file_hdl%daddr)
742	name_ = name__tmp
743	ENDIF
744
745	IF (PRESENT(name_suffix_)) THEN
746	name_suffix__tmp = cxios_is_defined_file_name_suffix &
747	(file_hdl%daddr)
748	name_suffix_ = name_suffix__tmp
749	ENDIF
750
751	IF (PRESENT(output_freq_)) THEN
752	output_freq__tmp = cxios_is_defined_file_output_freq &
753	(file_hdl%daddr)
754	output_freq_ = output_freq__tmp
755	ENDIF
756
757	IF (PRESENT(output_level_)) THEN
758	output_level__tmp = cxios_is_defined_file_output_level &
759	(file_hdl%daddr)
760	output_level_ = output_level__tmp
761	ENDIF
762
763	IF (PRESENT(par_access_)) THEN
764	par_access__tmp = cxios_is_defined_file_par_access &
765	(file_hdl%daddr)
766	par_access_ = par_access__tmp
767	ENDIF
768
769	IF (PRESENT(record_offset_)) THEN
770	record_offset__tmp = cxios_is_defined_file_record_offset &
771	(file_hdl%daddr)
772	record_offset_ = record_offset__tmp
773	ENDIF
774
775	IF (PRESENT(split_freq_)) THEN
776	split_freq__tmp = cxios_is_defined_file_split_freq &
777	(file_hdl%daddr)
778	split_freq_ = split_freq__tmp
779	ENDIF
780
781	IF (PRESENT(split_freq_format_)) THEN
782	split_freq_format__tmp = cxios_is_defined_file_split_freq_format &
783	(file_hdl%daddr)
784	split_freq_format_ = split_freq_format__tmp
785	ENDIF
786
787	IF (PRESENT(sync_freq_)) THEN
788	sync_freq__tmp = cxios_is_defined_file_sync_freq &
789	(file_hdl%daddr)
790	sync_freq_ = sync_freq__tmp
791	ENDIF
792
793	IF (PRESENT(time_counter_)) THEN
794	time_counter__tmp = cxios_is_defined_file_time_counter &
795	(file_hdl%daddr)
796	time_counter_ = time_counter__tmp
797	ENDIF
798
799	IF (PRESENT(time_counter_name_)) THEN
800	time_counter_name__tmp = cxios_is_defined_file_time_counter_name &
801	(file_hdl%daddr)
802	time_counter_name_ = time_counter_name__tmp
803	ENDIF
804
805	IF (PRESENT(timeseries_)) THEN
806	timeseries__tmp = cxios_is_defined_file_timeseries &
807	(file_hdl%daddr)
808	timeseries_ = timeseries__tmp
809	ENDIF
810
811	IF (PRESENT(ts_prefix_)) THEN
812	ts_prefix__tmp = cxios_is_defined_file_ts_prefix &
813	(file_hdl%daddr)
814	ts_prefix_ = ts_prefix__tmp
815	ENDIF
816
817	IF (PRESENT(type_)) THEN
818	type__tmp = cxios_is_defined_file_type &
819	(file_hdl%daddr)
820	type_ = type__tmp
821	ENDIF
822
823	END SUBROUTINE xios(is_defined_file_attr_hdl_)
824
825	END MODULE ifile_attr

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

Context Navigation

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

Download in other formats: