Context Navigation

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

Download in other formats: