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

Rev	Line
[326]	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
[581]	10
[326]	11	CONTAINS
[581]	12
[326]	13	SUBROUTINE xios(set_file_attr) &
[932]	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	)
[581]	18
[326]	19	IMPLICIT NONE
	20	TYPE(txios(file)) :: file_hdl
	21	CHARACTER(LEN=*), INTENT(IN) ::file_id
[528]	22	LOGICAL , OPTIONAL, INTENT(IN) :: append
	23	LOGICAL (KIND=C_BOOL) :: append_tmp
[608]	24	INTEGER , OPTIONAL, INTENT(IN) :: compression_level
[932]	25	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention
[891]	26	LOGICAL , OPTIONAL, INTENT(IN) :: cyclic
	27	LOGICAL (KIND=C_BOOL) :: cyclic_tmp
[326]	28	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
	29	LOGICAL , OPTIONAL, INTENT(IN) :: enabled
	30	LOGICAL (KIND=C_BOOL) :: enabled_tmp
[517]	31	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
[415]	32	INTEGER , OPTIONAL, INTENT(IN) :: min_digits
[598]	33	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
[326]	34	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	35	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
[538]	36	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: output_freq
[326]	37	INTEGER , OPTIONAL, INTENT(IN) :: output_level
[369]	38	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
[779]	39	INTEGER , OPTIONAL, INTENT(IN) :: record_offset
[538]	40	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq
[432]	41	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
[538]	42	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq
[699]	43	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
[802]	44	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name
[711]	45	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
	46	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
[326]	47	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]	48
[966]	49	CALL xios(get_file_handle) &
	50	(file_id,file_hdl)
[326]	51	CALL xios(set_file_attr_hdl_) &
[932]	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	)
[581]	56
[326]	57	END SUBROUTINE xios(set_file_attr)
[581]	58
[326]	59	SUBROUTINE xios(set_file_attr_hdl) &
[932]	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	)
[581]	64
[326]	65	IMPLICIT NONE
	66	TYPE(txios(file)) , INTENT(IN) :: file_hdl
[528]	67	LOGICAL , OPTIONAL, INTENT(IN) :: append
	68	LOGICAL (KIND=C_BOOL) :: append_tmp
[608]	69	INTEGER , OPTIONAL, INTENT(IN) :: compression_level
[932]	70	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention
[891]	71	LOGICAL , OPTIONAL, INTENT(IN) :: cyclic
	72	LOGICAL (KIND=C_BOOL) :: cyclic_tmp
[326]	73	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
	74	LOGICAL , OPTIONAL, INTENT(IN) :: enabled
	75	LOGICAL (KIND=C_BOOL) :: enabled_tmp
[517]	76	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
[415]	77	INTEGER , OPTIONAL, INTENT(IN) :: min_digits
[598]	78	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
[326]	79	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	80	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
[538]	81	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: output_freq
[326]	82	INTEGER , OPTIONAL, INTENT(IN) :: output_level
[369]	83	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
[779]	84	INTEGER , OPTIONAL, INTENT(IN) :: record_offset
[538]	85	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq
[432]	86	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
[538]	87	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq
[699]	88	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
[802]	89	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name
[711]	90	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
	91	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
[326]	92	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]	93
[326]	94	CALL xios(set_file_attr_hdl_) &
[932]	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	)
[581]	99
[326]	100	END SUBROUTINE xios(set_file_attr_hdl)
[581]	101
[326]	102	SUBROUTINE xios(set_file_attr_hdl_) &
[932]	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_ )
[581]	107
[326]	108	IMPLICIT NONE
	109	TYPE(txios(file)) , INTENT(IN) :: file_hdl
[528]	110	LOGICAL , OPTIONAL, INTENT(IN) :: append_
	111	LOGICAL (KIND=C_BOOL) :: append__tmp
[608]	112	INTEGER , OPTIONAL, INTENT(IN) :: compression_level_
[932]	113	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_
[891]	114	LOGICAL , OPTIONAL, INTENT(IN) :: cyclic_
	115	LOGICAL (KIND=C_BOOL) :: cyclic__tmp
[326]	116	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
	117	LOGICAL , OPTIONAL, INTENT(IN) :: enabled_
	118	LOGICAL (KIND=C_BOOL) :: enabled__tmp
[517]	119	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_
[415]	120	INTEGER , OPTIONAL, INTENT(IN) :: min_digits_
[598]	121	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
[326]	122	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
	123	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_
[538]	124	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: output_freq_
[326]	125	INTEGER , OPTIONAL, INTENT(IN) :: output_level_
[369]	126	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_
[779]	127	INTEGER , OPTIONAL, INTENT(IN) :: record_offset_
[538]	128	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq_
[432]	129	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_
[538]	130	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq_
[699]	131	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_
[802]	132	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name_
[711]	133	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries_
	134	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_
[326]	135	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
[581]	136
[528]	137	IF (PRESENT(append_)) THEN
[581]	138	append__tmp = append_
[966]	139	CALL cxios_set_file_append &
	140	(file_hdl%daddr, append__tmp)
[528]	141	ENDIF
[581]	142
[608]	143	IF (PRESENT(compression_level_)) THEN
[966]	144	CALL cxios_set_file_compression_level &
	145	(file_hdl%daddr, compression_level_)
[608]	146	ENDIF
	147
[932]	148	IF (PRESENT(convention_)) THEN
[966]	149	CALL cxios_set_file_convention &
	150	(file_hdl%daddr, convention_, len(convention_))
[932]	151	ENDIF
	152
[891]	153	IF (PRESENT(cyclic_)) THEN
	154	cyclic__tmp = cyclic_
[966]	155	CALL cxios_set_file_cyclic &
	156	(file_hdl%daddr, cyclic__tmp)
[891]	157	ENDIF
	158
[326]	159	IF (PRESENT(description_)) THEN
[966]	160	CALL cxios_set_file_description &
	161	(file_hdl%daddr, description_, len(description_))
[326]	162	ENDIF
[581]	163
[326]	164	IF (PRESENT(enabled_)) THEN
[581]	165	enabled__tmp = enabled_
[966]	166	CALL cxios_set_file_enabled &
	167	(file_hdl%daddr, enabled__tmp)
[326]	168	ENDIF
[581]	169
[517]	170	IF (PRESENT(format_)) THEN
[966]	171	CALL cxios_set_file_format &
	172	(file_hdl%daddr, format_, len(format_))
[517]	173	ENDIF
[581]	174
[415]	175	IF (PRESENT(min_digits_)) THEN
[966]	176	CALL cxios_set_file_min_digits &
	177	(file_hdl%daddr, min_digits_)
[415]	178	ENDIF
[581]	179
[598]	180	IF (PRESENT(mode_)) THEN
[966]	181	CALL cxios_set_file_mode &
	182	(file_hdl%daddr, mode_, len(mode_))
[598]	183	ENDIF
	184
[326]	185	IF (PRESENT(name_)) THEN
[966]	186	CALL cxios_set_file_name &
	187	(file_hdl%daddr, name_, len(name_))
[326]	188	ENDIF
[581]	189
[326]	190	IF (PRESENT(name_suffix_)) THEN
[966]	191	CALL cxios_set_file_name_suffix &
	192	(file_hdl%daddr, name_suffix_, len(name_suffix_))
[326]	193	ENDIF
[581]	194
[326]	195	IF (PRESENT(output_freq_)) THEN
[966]	196	CALL cxios_set_file_output_freq &
	197	(file_hdl%daddr, output_freq_)
[326]	198	ENDIF
[581]	199
[326]	200	IF (PRESENT(output_level_)) THEN
[966]	201	CALL cxios_set_file_output_level &
	202	(file_hdl%daddr, output_level_)
[326]	203	ENDIF
[581]	204
[369]	205	IF (PRESENT(par_access_)) THEN
[966]	206	CALL cxios_set_file_par_access &
	207	(file_hdl%daddr, par_access_, len(par_access_))
[369]	208	ENDIF
[581]	209
[779]	210	IF (PRESENT(record_offset_)) THEN
[966]	211	CALL cxios_set_file_record_offset &
	212	(file_hdl%daddr, record_offset_)
[779]	213	ENDIF
	214
[326]	215	IF (PRESENT(split_freq_)) THEN
[966]	216	CALL cxios_set_file_split_freq &
	217	(file_hdl%daddr, split_freq_)
[326]	218	ENDIF
[581]	219
[432]	220	IF (PRESENT(split_freq_format_)) THEN
[966]	221	CALL cxios_set_file_split_freq_format &
	222	(file_hdl%daddr, split_freq_format_, len(split_freq_format_))
[432]	223	ENDIF
[581]	224
[326]	225	IF (PRESENT(sync_freq_)) THEN
[966]	226	CALL cxios_set_file_sync_freq &
	227	(file_hdl%daddr, sync_freq_)
[326]	228	ENDIF
[581]	229
[699]	230	IF (PRESENT(time_counter_)) THEN
[966]	231	CALL cxios_set_file_time_counter &
	232	(file_hdl%daddr, time_counter_, len(time_counter_))
[699]	233	ENDIF
	234
[802]	235	IF (PRESENT(time_counter_name_)) THEN
[966]	236	CALL cxios_set_file_time_counter_name &
	237	(file_hdl%daddr, time_counter_name_, len(time_counter_name_))
[802]	238	ENDIF
	239
[711]	240	IF (PRESENT(timeseries_)) THEN
[966]	241	CALL cxios_set_file_timeseries &
	242	(file_hdl%daddr, timeseries_, len(timeseries_))
[711]	243	ENDIF
	244
	245	IF (PRESENT(ts_prefix_)) THEN
[966]	246	CALL cxios_set_file_ts_prefix &
	247	(file_hdl%daddr, ts_prefix_, len(ts_prefix_))
[711]	248	ENDIF
	249
[326]	250	IF (PRESENT(type_)) THEN
[966]	251	CALL cxios_set_file_type &
	252	(file_hdl%daddr, type_, len(type_))
[326]	253	ENDIF
[581]	254
[326]	255	END SUBROUTINE xios(set_file_attr_hdl_)
[581]	256
[326]	257	SUBROUTINE xios(get_file_attr) &
[932]	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	)
[581]	262
[326]	263	IMPLICIT NONE
	264	TYPE(txios(file)) :: file_hdl
	265	CHARACTER(LEN=*), INTENT(IN) ::file_id
[528]	266	LOGICAL , OPTIONAL, INTENT(OUT) :: append
	267	LOGICAL (KIND=C_BOOL) :: append_tmp
[608]	268	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
[932]	269	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention
[891]	270	LOGICAL , OPTIONAL, INTENT(OUT) :: cyclic
	271	LOGICAL (KIND=C_BOOL) :: cyclic_tmp
[326]	272	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
	273	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
	274	LOGICAL (KIND=C_BOOL) :: enabled_tmp
[517]	275	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
[415]	276	INTEGER , OPTIONAL, INTENT(OUT) :: min_digits
[598]	277	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
[326]	278	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	279	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
[538]	280	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: output_freq
[326]	281	INTEGER , OPTIONAL, INTENT(OUT) :: output_level
[369]	282	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
[779]	283	INTEGER , OPTIONAL, INTENT(OUT) :: record_offset
[538]	284	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq
[432]	285	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
[538]	286	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq
[699]	287	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
[802]	288	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name
[711]	289	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
	290	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
[326]	291	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]	292
[966]	293	CALL xios(get_file_handle) &
	294	(file_id,file_hdl)
[326]	295	CALL xios(get_file_attr_hdl_) &
[932]	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	)
[581]	300
[326]	301	END SUBROUTINE xios(get_file_attr)
[581]	302
[326]	303	SUBROUTINE xios(get_file_attr_hdl) &
[932]	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	)
[581]	308
[326]	309	IMPLICIT NONE
	310	TYPE(txios(file)) , INTENT(IN) :: file_hdl
[528]	311	LOGICAL , OPTIONAL, INTENT(OUT) :: append
	312	LOGICAL (KIND=C_BOOL) :: append_tmp
[608]	313	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
[932]	314	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention
[891]	315	LOGICAL , OPTIONAL, INTENT(OUT) :: cyclic
	316	LOGICAL (KIND=C_BOOL) :: cyclic_tmp
[326]	317	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
	318	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
	319	LOGICAL (KIND=C_BOOL) :: enabled_tmp
[517]	320	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
[415]	321	INTEGER , OPTIONAL, INTENT(OUT) :: min_digits
[598]	322	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
[326]	323	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	324	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
[538]	325	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: output_freq
[326]	326	INTEGER , OPTIONAL, INTENT(OUT) :: output_level
[369]	327	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
[779]	328	INTEGER , OPTIONAL, INTENT(OUT) :: record_offset
[538]	329	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq
[432]	330	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
[538]	331	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq
[699]	332	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
[802]	333	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name
[711]	334	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
	335	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
[326]	336	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]	337
[326]	338	CALL xios(get_file_attr_hdl_) &
[932]	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	)
[581]	343
[326]	344	END SUBROUTINE xios(get_file_attr_hdl)
[581]	345
[326]	346	SUBROUTINE xios(get_file_attr_hdl_) &
[932]	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_ )
[581]	351
[326]	352	IMPLICIT NONE
	353	TYPE(txios(file)) , INTENT(IN) :: file_hdl
[528]	354	LOGICAL , OPTIONAL, INTENT(OUT) :: append_
	355	LOGICAL (KIND=C_BOOL) :: append__tmp
[608]	356	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_
[932]	357	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_
[891]	358	LOGICAL , OPTIONAL, INTENT(OUT) :: cyclic_
	359	LOGICAL (KIND=C_BOOL) :: cyclic__tmp
[326]	360	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
	361	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled_
	362	LOGICAL (KIND=C_BOOL) :: enabled__tmp
[517]	363	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_
[415]	364	INTEGER , OPTIONAL, INTENT(OUT) :: min_digits_
[598]	365	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
[326]	366	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
	367	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
[538]	368	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: output_freq_
[326]	369	INTEGER , OPTIONAL, INTENT(OUT) :: output_level_
[369]	370	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_
[779]	371	INTEGER , OPTIONAL, INTENT(OUT) :: record_offset_
[538]	372	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq_
[432]	373	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_
[538]	374	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq_
[699]	375	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_
[802]	376	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name_
[711]	377	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries_
	378	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_
[326]	379	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
[581]	380
[528]	381	IF (PRESENT(append_)) THEN
[966]	382	CALL cxios_get_file_append &
	383	(file_hdl%daddr, append__tmp)
[581]	384	append_ = append__tmp
[528]	385	ENDIF
[581]	386
[608]	387	IF (PRESENT(compression_level_)) THEN
[966]	388	CALL cxios_get_file_compression_level &
	389	(file_hdl%daddr, compression_level_)
[608]	390	ENDIF
	391
[932]	392	IF (PRESENT(convention_)) THEN
[966]	393	CALL cxios_get_file_convention &
	394	(file_hdl%daddr, convention_, len(convention_))
[932]	395	ENDIF
	396
[891]	397	IF (PRESENT(cyclic_)) THEN
[966]	398	CALL cxios_get_file_cyclic &
	399	(file_hdl%daddr, cyclic__tmp)
[891]	400	cyclic_ = cyclic__tmp
	401	ENDIF
	402
[326]	403	IF (PRESENT(description_)) THEN
[966]	404	CALL cxios_get_file_description &
	405	(file_hdl%daddr, description_, len(description_))
[326]	406	ENDIF
[581]	407
[326]	408	IF (PRESENT(enabled_)) THEN
[966]	409	CALL cxios_get_file_enabled &
	410	(file_hdl%daddr, enabled__tmp)
[581]	411	enabled_ = enabled__tmp
[326]	412	ENDIF
[581]	413
[517]	414	IF (PRESENT(format_)) THEN
[966]	415	CALL cxios_get_file_format &
	416	(file_hdl%daddr, format_, len(format_))
[517]	417	ENDIF
[581]	418
[415]	419	IF (PRESENT(min_digits_)) THEN
[966]	420	CALL cxios_get_file_min_digits &
	421	(file_hdl%daddr, min_digits_)
[415]	422	ENDIF
[581]	423
[598]	424	IF (PRESENT(mode_)) THEN
[966]	425	CALL cxios_get_file_mode &
	426	(file_hdl%daddr, mode_, len(mode_))
[598]	427	ENDIF
	428
[326]	429	IF (PRESENT(name_)) THEN
[966]	430	CALL cxios_get_file_name &
	431	(file_hdl%daddr, name_, len(name_))
[326]	432	ENDIF
[581]	433
[326]	434	IF (PRESENT(name_suffix_)) THEN
[966]	435	CALL cxios_get_file_name_suffix &
	436	(file_hdl%daddr, name_suffix_, len(name_suffix_))
[326]	437	ENDIF
[581]	438
[326]	439	IF (PRESENT(output_freq_)) THEN
[966]	440	CALL cxios_get_file_output_freq &
	441	(file_hdl%daddr, output_freq_)
[326]	442	ENDIF
[581]	443
[326]	444	IF (PRESENT(output_level_)) THEN
[966]	445	CALL cxios_get_file_output_level &
	446	(file_hdl%daddr, output_level_)
[326]	447	ENDIF
[581]	448
[369]	449	IF (PRESENT(par_access_)) THEN
[966]	450	CALL cxios_get_file_par_access &
	451	(file_hdl%daddr, par_access_, len(par_access_))
[369]	452	ENDIF
[581]	453
[779]	454	IF (PRESENT(record_offset_)) THEN
[966]	455	CALL cxios_get_file_record_offset &
	456	(file_hdl%daddr, record_offset_)
[779]	457	ENDIF
	458
[326]	459	IF (PRESENT(split_freq_)) THEN
[966]	460	CALL cxios_get_file_split_freq &
	461	(file_hdl%daddr, split_freq_)
[326]	462	ENDIF
[581]	463
[432]	464	IF (PRESENT(split_freq_format_)) THEN
[966]	465	CALL cxios_get_file_split_freq_format &
	466	(file_hdl%daddr, split_freq_format_, len(split_freq_format_))
[432]	467	ENDIF
[581]	468
[326]	469	IF (PRESENT(sync_freq_)) THEN
[966]	470	CALL cxios_get_file_sync_freq &
	471	(file_hdl%daddr, sync_freq_)
[326]	472	ENDIF
[581]	473
[699]	474	IF (PRESENT(time_counter_)) THEN
[966]	475	CALL cxios_get_file_time_counter &
	476	(file_hdl%daddr, time_counter_, len(time_counter_))
[699]	477	ENDIF
	478
[802]	479	IF (PRESENT(time_counter_name_)) THEN
[966]	480	CALL cxios_get_file_time_counter_name &
	481	(file_hdl%daddr, time_counter_name_, len(time_counter_name_))
[802]	482	ENDIF
	483
[711]	484	IF (PRESENT(timeseries_)) THEN
[966]	485	CALL cxios_get_file_timeseries &
	486	(file_hdl%daddr, timeseries_, len(timeseries_))
[711]	487	ENDIF
	488
	489	IF (PRESENT(ts_prefix_)) THEN
[966]	490	CALL cxios_get_file_ts_prefix &
	491	(file_hdl%daddr, ts_prefix_, len(ts_prefix_))
[711]	492	ENDIF
	493
[326]	494	IF (PRESENT(type_)) THEN
[966]	495	CALL cxios_get_file_type &
	496	(file_hdl%daddr, type_, len(type_))
[326]	497	ENDIF
[581]	498
[326]	499	END SUBROUTINE xios(get_file_attr_hdl_)
[581]	500
[432]	501	SUBROUTINE xios(is_defined_file_attr) &
[932]	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	)
[581]	506
[432]	507	IMPLICIT NONE
	508	TYPE(txios(file)) :: file_hdl
	509	CHARACTER(LEN=*), INTENT(IN) ::file_id
[528]	510	LOGICAL, OPTIONAL, INTENT(OUT) :: append
	511	LOGICAL(KIND=C_BOOL) :: append_tmp
[608]	512	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
	513	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[932]	514	LOGICAL, OPTIONAL, INTENT(OUT) :: convention
	515	LOGICAL(KIND=C_BOOL) :: convention_tmp
[891]	516	LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic
	517	LOGICAL(KIND=C_BOOL) :: cyclic_tmp
[432]	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
[517]	522	LOGICAL, OPTIONAL, INTENT(OUT) :: format
	523	LOGICAL(KIND=C_BOOL) :: format_tmp
[432]	524	LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
	525	LOGICAL(KIND=C_BOOL) :: min_digits_tmp
[598]	526	LOGICAL, OPTIONAL, INTENT(OUT) :: mode
	527	LOGICAL(KIND=C_BOOL) :: mode_tmp
[432]	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
[779]	538	LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset
	539	LOGICAL(KIND=C_BOOL) :: record_offset_tmp
[432]	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
[699]	546	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
	547	LOGICAL(KIND=C_BOOL) :: time_counter_tmp
[802]	548	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name
	549	LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp
[711]	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
[432]	554	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	555	LOGICAL(KIND=C_BOOL) :: type_tmp
[581]	556
[966]	557	CALL xios(get_file_handle) &
	558	(file_id,file_hdl)
[432]	559	CALL xios(is_defined_file_attr_hdl_) &
[932]	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	)
[581]	564
[432]	565	END SUBROUTINE xios(is_defined_file_attr)
[581]	566
[432]	567	SUBROUTINE xios(is_defined_file_attr_hdl) &
[932]	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	)
[581]	572
[432]	573	IMPLICIT NONE
	574	TYPE(txios(file)) , INTENT(IN) :: file_hdl
[528]	575	LOGICAL, OPTIONAL, INTENT(OUT) :: append
	576	LOGICAL(KIND=C_BOOL) :: append_tmp
[608]	577	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
	578	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[932]	579	LOGICAL, OPTIONAL, INTENT(OUT) :: convention
	580	LOGICAL(KIND=C_BOOL) :: convention_tmp
[891]	581	LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic
	582	LOGICAL(KIND=C_BOOL) :: cyclic_tmp
[432]	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
[517]	587	LOGICAL, OPTIONAL, INTENT(OUT) :: format
	588	LOGICAL(KIND=C_BOOL) :: format_tmp
[432]	589	LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
	590	LOGICAL(KIND=C_BOOL) :: min_digits_tmp
[598]	591	LOGICAL, OPTIONAL, INTENT(OUT) :: mode
	592	LOGICAL(KIND=C_BOOL) :: mode_tmp
[432]	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
[779]	603	LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset
	604	LOGICAL(KIND=C_BOOL) :: record_offset_tmp
[432]	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
[699]	611	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
	612	LOGICAL(KIND=C_BOOL) :: time_counter_tmp
[802]	613	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name
	614	LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp
[711]	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
[432]	619	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	620	LOGICAL(KIND=C_BOOL) :: type_tmp
[581]	621
[432]	622	CALL xios(is_defined_file_attr_hdl_) &
[932]	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	)
[581]	627
[432]	628	END SUBROUTINE xios(is_defined_file_attr_hdl)
[581]	629
[432]	630	SUBROUTINE xios(is_defined_file_attr_hdl_) &
[932]	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_ )
[581]	635
[432]	636	IMPLICIT NONE
	637	TYPE(txios(file)) , INTENT(IN) :: file_hdl
[528]	638	LOGICAL, OPTIONAL, INTENT(OUT) :: append_
	639	LOGICAL(KIND=C_BOOL) :: append__tmp
[608]	640	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
	641	LOGICAL(KIND=C_BOOL) :: compression_level__tmp
[932]	642	LOGICAL, OPTIONAL, INTENT(OUT) :: convention_
	643	LOGICAL(KIND=C_BOOL) :: convention__tmp
[891]	644	LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic_
	645	LOGICAL(KIND=C_BOOL) :: cyclic__tmp
[432]	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
[517]	650	LOGICAL, OPTIONAL, INTENT(OUT) :: format_
	651	LOGICAL(KIND=C_BOOL) :: format__tmp
[432]	652	LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_
	653	LOGICAL(KIND=C_BOOL) :: min_digits__tmp
[598]	654	LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
	655	LOGICAL(KIND=C_BOOL) :: mode__tmp
[432]	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
[779]	666	LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_
	667	LOGICAL(KIND=C_BOOL) :: record_offset__tmp
[432]	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
[699]	674	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_
	675	LOGICAL(KIND=C_BOOL) :: time_counter__tmp
[802]	676	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name_
	677	LOGICAL(KIND=C_BOOL) :: time_counter_name__tmp
[711]	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
[432]	682	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
	683	LOGICAL(KIND=C_BOOL) :: type__tmp
[581]	684
[528]	685	IF (PRESENT(append_)) THEN
[966]	686	append__tmp = cxios_is_defined_file_append &
	687	(file_hdl%daddr)
[581]	688	append_ = append__tmp
[528]	689	ENDIF
[581]	690
[608]	691	IF (PRESENT(compression_level_)) THEN
[966]	692	compression_level__tmp = cxios_is_defined_file_compression_level &
	693	(file_hdl%daddr)
[608]	694	compression_level_ = compression_level__tmp
	695	ENDIF
	696
[932]	697	IF (PRESENT(convention_)) THEN
[966]	698	convention__tmp = cxios_is_defined_file_convention &
	699	(file_hdl%daddr)
[932]	700	convention_ = convention__tmp
	701	ENDIF
	702
[891]	703	IF (PRESENT(cyclic_)) THEN
[966]	704	cyclic__tmp = cxios_is_defined_file_cyclic &
	705	(file_hdl%daddr)
[891]	706	cyclic_ = cyclic__tmp
	707	ENDIF
	708
[432]	709	IF (PRESENT(description_)) THEN
[966]	710	description__tmp = cxios_is_defined_file_description &
	711	(file_hdl%daddr)
[581]	712	description_ = description__tmp
[432]	713	ENDIF
[581]	714
[432]	715	IF (PRESENT(enabled_)) THEN
[966]	716	enabled__tmp = cxios_is_defined_file_enabled &
	717	(file_hdl%daddr)
[581]	718	enabled_ = enabled__tmp
[432]	719	ENDIF
[581]	720
[517]	721	IF (PRESENT(format_)) THEN
[966]	722	format__tmp = cxios_is_defined_file_format &
	723	(file_hdl%daddr)
[581]	724	format_ = format__tmp
[517]	725	ENDIF
[581]	726
[432]	727	IF (PRESENT(min_digits_)) THEN
[966]	728	min_digits__tmp = cxios_is_defined_file_min_digits &
	729	(file_hdl%daddr)
[581]	730	min_digits_ = min_digits__tmp
[432]	731	ENDIF
[581]	732
[598]	733	IF (PRESENT(mode_)) THEN
[966]	734	mode__tmp = cxios_is_defined_file_mode &
	735	(file_hdl%daddr)
[598]	736	mode_ = mode__tmp
	737	ENDIF
	738
[432]	739	IF (PRESENT(name_)) THEN
[966]	740	name__tmp = cxios_is_defined_file_name &
	741	(file_hdl%daddr)
[581]	742	name_ = name__tmp
[432]	743	ENDIF
[581]	744
[432]	745	IF (PRESENT(name_suffix_)) THEN
[966]	746	name_suffix__tmp = cxios_is_defined_file_name_suffix &
	747	(file_hdl%daddr)
[581]	748	name_suffix_ = name_suffix__tmp
[432]	749	ENDIF
[581]	750
[432]	751	IF (PRESENT(output_freq_)) THEN
[966]	752	output_freq__tmp = cxios_is_defined_file_output_freq &
	753	(file_hdl%daddr)
[581]	754	output_freq_ = output_freq__tmp
[432]	755	ENDIF
[581]	756
[432]	757	IF (PRESENT(output_level_)) THEN
[966]	758	output_level__tmp = cxios_is_defined_file_output_level &
	759	(file_hdl%daddr)
[581]	760	output_level_ = output_level__tmp
[432]	761	ENDIF
[581]	762
[432]	763	IF (PRESENT(par_access_)) THEN
[966]	764	par_access__tmp = cxios_is_defined_file_par_access &
	765	(file_hdl%daddr)
[581]	766	par_access_ = par_access__tmp
[432]	767	ENDIF
[581]	768
[779]	769	IF (PRESENT(record_offset_)) THEN
[966]	770	record_offset__tmp = cxios_is_defined_file_record_offset &
	771	(file_hdl%daddr)
[779]	772	record_offset_ = record_offset__tmp
	773	ENDIF
	774
[432]	775	IF (PRESENT(split_freq_)) THEN
[966]	776	split_freq__tmp = cxios_is_defined_file_split_freq &
	777	(file_hdl%daddr)
[581]	778	split_freq_ = split_freq__tmp
[432]	779	ENDIF
[581]	780
[432]	781	IF (PRESENT(split_freq_format_)) THEN
[966]	782	split_freq_format__tmp = cxios_is_defined_file_split_freq_format &
	783	(file_hdl%daddr)
[581]	784	split_freq_format_ = split_freq_format__tmp
[432]	785	ENDIF
[581]	786
[432]	787	IF (PRESENT(sync_freq_)) THEN
[966]	788	sync_freq__tmp = cxios_is_defined_file_sync_freq &
	789	(file_hdl%daddr)
[581]	790	sync_freq_ = sync_freq__tmp
[432]	791	ENDIF
[581]	792
[699]	793	IF (PRESENT(time_counter_)) THEN
[966]	794	time_counter__tmp = cxios_is_defined_file_time_counter &
	795	(file_hdl%daddr)
[699]	796	time_counter_ = time_counter__tmp
	797	ENDIF
	798
[802]	799	IF (PRESENT(time_counter_name_)) THEN
[966]	800	time_counter_name__tmp = cxios_is_defined_file_time_counter_name &
	801	(file_hdl%daddr)
[802]	802	time_counter_name_ = time_counter_name__tmp
	803	ENDIF
	804
[711]	805	IF (PRESENT(timeseries_)) THEN
[966]	806	timeseries__tmp = cxios_is_defined_file_timeseries &
	807	(file_hdl%daddr)
[711]	808	timeseries_ = timeseries__tmp
	809	ENDIF
	810
	811	IF (PRESENT(ts_prefix_)) THEN
[966]	812	ts_prefix__tmp = cxios_is_defined_file_ts_prefix &
	813	(file_hdl%daddr)
[711]	814	ts_prefix_ = ts_prefix__tmp
	815	ENDIF
	816
[432]	817	IF (PRESENT(type_)) THEN
[966]	818	type__tmp = cxios_is_defined_file_type &
	819	(file_hdl%daddr)
[581]	820	type_ = type__tmp
[432]	821	ENDIF
[581]	822
[432]	823	END SUBROUTINE xios(is_defined_file_attr_hdl_)
[581]	824
[326]	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: