Context Navigation

source: XIOS/dev/dev_olga/src/interface/fortran_attr/ifile_attr.F90 @ 1201

Last change on this file since 1201 was 1201, checked in by oabramkina, 7 years ago
Two server levels: merging trunk r1200 (except for non-contiguous zoom) into dev. Tested on Curie. Todo: non-contiguous zoom.
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: 40.8 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) &
[1201]	14	( file_id, append, compression_level, convention, convention_str, cyclic, description, enabled &
	15	, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset &
	16	, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format &
	17	, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[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
[1201]	26	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str
[891]	27	LOGICAL , OPTIONAL, INTENT(IN) :: cyclic
	28	LOGICAL (KIND=C_BOOL) :: cyclic_tmp
[326]	29	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
	30	LOGICAL , OPTIONAL, INTENT(IN) :: enabled
	31	LOGICAL (KIND=C_BOOL) :: enabled_tmp
[517]	32	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
[415]	33	INTEGER , OPTIONAL, INTENT(IN) :: min_digits
[598]	34	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
[326]	35	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	36	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
[538]	37	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: output_freq
[326]	38	INTEGER , OPTIONAL, INTENT(IN) :: output_level
[369]	39	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
[779]	40	INTEGER , OPTIONAL, INTENT(IN) :: record_offset
[538]	41	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq
[432]	42	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
[538]	43	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq
[699]	44	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
[802]	45	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name
[1158]	46	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format
	47	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name
	48	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units
[711]	49	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
	50	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
[326]	51	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[1158]	52	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format
	53	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name
[581]	54
[966]	55	CALL xios(get_file_handle) &
	56	(file_id,file_hdl)
[326]	57	CALL xios(set_file_attr_hdl_) &
[1201]	58	( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled &
	59	, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset &
	60	, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format &
	61	, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]	62
[326]	63	END SUBROUTINE xios(set_file_attr)
[581]	64
[326]	65	SUBROUTINE xios(set_file_attr_hdl) &
[1201]	66	( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled &
	67	, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset &
	68	, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format &
	69	, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]	70
[326]	71	IMPLICIT NONE
	72	TYPE(txios(file)) , INTENT(IN) :: file_hdl
[528]	73	LOGICAL , OPTIONAL, INTENT(IN) :: append
	74	LOGICAL (KIND=C_BOOL) :: append_tmp
[608]	75	INTEGER , OPTIONAL, INTENT(IN) :: compression_level
[932]	76	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention
[1201]	77	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str
[891]	78	LOGICAL , OPTIONAL, INTENT(IN) :: cyclic
	79	LOGICAL (KIND=C_BOOL) :: cyclic_tmp
[326]	80	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
	81	LOGICAL , OPTIONAL, INTENT(IN) :: enabled
	82	LOGICAL (KIND=C_BOOL) :: enabled_tmp
[517]	83	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
[415]	84	INTEGER , OPTIONAL, INTENT(IN) :: min_digits
[598]	85	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
[326]	86	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	87	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
[538]	88	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: output_freq
[326]	89	INTEGER , OPTIONAL, INTENT(IN) :: output_level
[369]	90	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
[779]	91	INTEGER , OPTIONAL, INTENT(IN) :: record_offset
[538]	92	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq
[432]	93	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
[538]	94	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq
[699]	95	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
[802]	96	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name
[1158]	97	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format
	98	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name
	99	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units
[711]	100	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
	101	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
[326]	102	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[1158]	103	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format
	104	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name
[581]	105
[326]	106	CALL xios(set_file_attr_hdl_) &
[1201]	107	( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled &
	108	, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset &
	109	, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format &
	110	, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]	111
[326]	112	END SUBROUTINE xios(set_file_attr_hdl)
[581]	113
[326]	114	SUBROUTINE xios(set_file_attr_hdl_) &
[1201]	115	( file_hdl, append_, compression_level_, convention_, convention_str_, cyclic_, description_ &
	116	, enabled_, format_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_ &
	117	, record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_ &
	118	, time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_ &
	119	, uuid_name_ )
[581]	120
[326]	121	IMPLICIT NONE
	122	TYPE(txios(file)) , INTENT(IN) :: file_hdl
[528]	123	LOGICAL , OPTIONAL, INTENT(IN) :: append_
	124	LOGICAL (KIND=C_BOOL) :: append__tmp
[608]	125	INTEGER , OPTIONAL, INTENT(IN) :: compression_level_
[932]	126	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_
[1201]	127	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str_
[891]	128	LOGICAL , OPTIONAL, INTENT(IN) :: cyclic_
	129	LOGICAL (KIND=C_BOOL) :: cyclic__tmp
[326]	130	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
	131	LOGICAL , OPTIONAL, INTENT(IN) :: enabled_
	132	LOGICAL (KIND=C_BOOL) :: enabled__tmp
[517]	133	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_
[415]	134	INTEGER , OPTIONAL, INTENT(IN) :: min_digits_
[598]	135	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
[326]	136	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
	137	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_
[538]	138	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: output_freq_
[326]	139	INTEGER , OPTIONAL, INTENT(IN) :: output_level_
[369]	140	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_
[779]	141	INTEGER , OPTIONAL, INTENT(IN) :: record_offset_
[538]	142	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq_
[432]	143	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_
[538]	144	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq_
[699]	145	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_
[802]	146	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name_
[1158]	147	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format_
	148	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name_
	149	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units_
[711]	150	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries_
	151	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_
[326]	152	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
[1158]	153	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format_
	154	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name_
[581]	155
[528]	156	IF (PRESENT(append_)) THEN
[581]	157	append__tmp = append_
[966]	158	CALL cxios_set_file_append &
	159	(file_hdl%daddr, append__tmp)
[528]	160	ENDIF
[581]	161
[608]	162	IF (PRESENT(compression_level_)) THEN
[966]	163	CALL cxios_set_file_compression_level &
	164	(file_hdl%daddr, compression_level_)
[608]	165	ENDIF
	166
[932]	167	IF (PRESENT(convention_)) THEN
[966]	168	CALL cxios_set_file_convention &
	169	(file_hdl%daddr, convention_, len(convention_))
[932]	170	ENDIF
	171
[1201]	172	IF (PRESENT(convention_str_)) THEN
	173	CALL cxios_set_file_convention_str &
	174	(file_hdl%daddr, convention_str_, len(convention_str_))
	175	ENDIF
	176
[891]	177	IF (PRESENT(cyclic_)) THEN
	178	cyclic__tmp = cyclic_
[966]	179	CALL cxios_set_file_cyclic &
	180	(file_hdl%daddr, cyclic__tmp)
[891]	181	ENDIF
	182
[326]	183	IF (PRESENT(description_)) THEN
[966]	184	CALL cxios_set_file_description &
	185	(file_hdl%daddr, description_, len(description_))
[326]	186	ENDIF
[581]	187
[326]	188	IF (PRESENT(enabled_)) THEN
[581]	189	enabled__tmp = enabled_
[966]	190	CALL cxios_set_file_enabled &
	191	(file_hdl%daddr, enabled__tmp)
[326]	192	ENDIF
[581]	193
[517]	194	IF (PRESENT(format_)) THEN
[966]	195	CALL cxios_set_file_format &
	196	(file_hdl%daddr, format_, len(format_))
[517]	197	ENDIF
[581]	198
[415]	199	IF (PRESENT(min_digits_)) THEN
[966]	200	CALL cxios_set_file_min_digits &
	201	(file_hdl%daddr, min_digits_)
[415]	202	ENDIF
[581]	203
[598]	204	IF (PRESENT(mode_)) THEN
[966]	205	CALL cxios_set_file_mode &
	206	(file_hdl%daddr, mode_, len(mode_))
[598]	207	ENDIF
	208
[326]	209	IF (PRESENT(name_)) THEN
[966]	210	CALL cxios_set_file_name &
	211	(file_hdl%daddr, name_, len(name_))
[326]	212	ENDIF
[581]	213
[326]	214	IF (PRESENT(name_suffix_)) THEN
[966]	215	CALL cxios_set_file_name_suffix &
	216	(file_hdl%daddr, name_suffix_, len(name_suffix_))
[326]	217	ENDIF
[581]	218
[326]	219	IF (PRESENT(output_freq_)) THEN
[966]	220	CALL cxios_set_file_output_freq &
	221	(file_hdl%daddr, output_freq_)
[326]	222	ENDIF
[581]	223
[326]	224	IF (PRESENT(output_level_)) THEN
[966]	225	CALL cxios_set_file_output_level &
	226	(file_hdl%daddr, output_level_)
[326]	227	ENDIF
[581]	228
[369]	229	IF (PRESENT(par_access_)) THEN
[966]	230	CALL cxios_set_file_par_access &
	231	(file_hdl%daddr, par_access_, len(par_access_))
[369]	232	ENDIF
[581]	233
[779]	234	IF (PRESENT(record_offset_)) THEN
[966]	235	CALL cxios_set_file_record_offset &
	236	(file_hdl%daddr, record_offset_)
[779]	237	ENDIF
	238
[326]	239	IF (PRESENT(split_freq_)) THEN
[966]	240	CALL cxios_set_file_split_freq &
	241	(file_hdl%daddr, split_freq_)
[326]	242	ENDIF
[581]	243
[432]	244	IF (PRESENT(split_freq_format_)) THEN
[966]	245	CALL cxios_set_file_split_freq_format &
	246	(file_hdl%daddr, split_freq_format_, len(split_freq_format_))
[432]	247	ENDIF
[581]	248
[326]	249	IF (PRESENT(sync_freq_)) THEN
[966]	250	CALL cxios_set_file_sync_freq &
	251	(file_hdl%daddr, sync_freq_)
[326]	252	ENDIF
[581]	253
[699]	254	IF (PRESENT(time_counter_)) THEN
[966]	255	CALL cxios_set_file_time_counter &
	256	(file_hdl%daddr, time_counter_, len(time_counter_))
[699]	257	ENDIF
	258
[802]	259	IF (PRESENT(time_counter_name_)) THEN
[966]	260	CALL cxios_set_file_time_counter_name &
	261	(file_hdl%daddr, time_counter_name_, len(time_counter_name_))
[802]	262	ENDIF
	263
[1158]	264	IF (PRESENT(time_stamp_format_)) THEN
	265	CALL cxios_set_file_time_stamp_format &
	266	(file_hdl%daddr, time_stamp_format_, len(time_stamp_format_))
	267	ENDIF
	268
	269	IF (PRESENT(time_stamp_name_)) THEN
	270	CALL cxios_set_file_time_stamp_name &
	271	(file_hdl%daddr, time_stamp_name_, len(time_stamp_name_))
	272	ENDIF
	273
	274	IF (PRESENT(time_units_)) THEN
	275	CALL cxios_set_file_time_units &
	276	(file_hdl%daddr, time_units_, len(time_units_))
	277	ENDIF
	278
[711]	279	IF (PRESENT(timeseries_)) THEN
[966]	280	CALL cxios_set_file_timeseries &
	281	(file_hdl%daddr, timeseries_, len(timeseries_))
[711]	282	ENDIF
	283
	284	IF (PRESENT(ts_prefix_)) THEN
[966]	285	CALL cxios_set_file_ts_prefix &
	286	(file_hdl%daddr, ts_prefix_, len(ts_prefix_))
[711]	287	ENDIF
	288
[326]	289	IF (PRESENT(type_)) THEN
[966]	290	CALL cxios_set_file_type &
	291	(file_hdl%daddr, type_, len(type_))
[326]	292	ENDIF
[581]	293
[1158]	294	IF (PRESENT(uuid_format_)) THEN
	295	CALL cxios_set_file_uuid_format &
	296	(file_hdl%daddr, uuid_format_, len(uuid_format_))
	297	ENDIF
	298
	299	IF (PRESENT(uuid_name_)) THEN
	300	CALL cxios_set_file_uuid_name &
	301	(file_hdl%daddr, uuid_name_, len(uuid_name_))
	302	ENDIF
	303
[326]	304	END SUBROUTINE xios(set_file_attr_hdl_)
[581]	305
[326]	306	SUBROUTINE xios(get_file_attr) &
[1201]	307	( file_id, append, compression_level, convention, convention_str, cyclic, description, enabled &
	308	, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset &
	309	, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format &
	310	, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]	311
[326]	312	IMPLICIT NONE
	313	TYPE(txios(file)) :: file_hdl
	314	CHARACTER(LEN=*), INTENT(IN) ::file_id
[528]	315	LOGICAL , OPTIONAL, INTENT(OUT) :: append
	316	LOGICAL (KIND=C_BOOL) :: append_tmp
[608]	317	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
[932]	318	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention
[1201]	319	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_str
[891]	320	LOGICAL , OPTIONAL, INTENT(OUT) :: cyclic
	321	LOGICAL (KIND=C_BOOL) :: cyclic_tmp
[326]	322	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
	323	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
	324	LOGICAL (KIND=C_BOOL) :: enabled_tmp
[517]	325	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
[415]	326	INTEGER , OPTIONAL, INTENT(OUT) :: min_digits
[598]	327	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
[326]	328	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	329	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
[538]	330	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: output_freq
[326]	331	INTEGER , OPTIONAL, INTENT(OUT) :: output_level
[369]	332	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
[779]	333	INTEGER , OPTIONAL, INTENT(OUT) :: record_offset
[538]	334	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq
[432]	335	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
[538]	336	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq
[699]	337	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
[802]	338	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name
[1158]	339	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format
	340	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name
	341	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units
[711]	342	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
	343	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
[326]	344	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[1158]	345	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format
	346	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name
[581]	347
[966]	348	CALL xios(get_file_handle) &
	349	(file_id,file_hdl)
[326]	350	CALL xios(get_file_attr_hdl_) &
[1201]	351	( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled &
	352	, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset &
	353	, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format &
	354	, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]	355
[326]	356	END SUBROUTINE xios(get_file_attr)
[581]	357
[326]	358	SUBROUTINE xios(get_file_attr_hdl) &
[1201]	359	( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled &
	360	, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset &
	361	, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format &
	362	, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]	363
[326]	364	IMPLICIT NONE
	365	TYPE(txios(file)) , INTENT(IN) :: file_hdl
[528]	366	LOGICAL , OPTIONAL, INTENT(OUT) :: append
	367	LOGICAL (KIND=C_BOOL) :: append_tmp
[608]	368	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
[932]	369	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention
[1201]	370	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_str
[891]	371	LOGICAL , OPTIONAL, INTENT(OUT) :: cyclic
	372	LOGICAL (KIND=C_BOOL) :: cyclic_tmp
[326]	373	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
	374	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
	375	LOGICAL (KIND=C_BOOL) :: enabled_tmp
[517]	376	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
[415]	377	INTEGER , OPTIONAL, INTENT(OUT) :: min_digits
[598]	378	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
[326]	379	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	380	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
[538]	381	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: output_freq
[326]	382	INTEGER , OPTIONAL, INTENT(OUT) :: output_level
[369]	383	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
[779]	384	INTEGER , OPTIONAL, INTENT(OUT) :: record_offset
[538]	385	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq
[432]	386	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
[538]	387	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq
[699]	388	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
[802]	389	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name
[1158]	390	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format
	391	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name
	392	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units
[711]	393	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
	394	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
[326]	395	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[1158]	396	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format
	397	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name
[581]	398
[326]	399	CALL xios(get_file_attr_hdl_) &
[1201]	400	( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled &
	401	, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset &
	402	, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format &
	403	, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]	404
[326]	405	END SUBROUTINE xios(get_file_attr_hdl)
[581]	406
[326]	407	SUBROUTINE xios(get_file_attr_hdl_) &
[1201]	408	( file_hdl, append_, compression_level_, convention_, convention_str_, cyclic_, description_ &
	409	, enabled_, format_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_ &
	410	, record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_ &
	411	, time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_ &
	412	, uuid_name_ )
[581]	413
[326]	414	IMPLICIT NONE
	415	TYPE(txios(file)) , INTENT(IN) :: file_hdl
[528]	416	LOGICAL , OPTIONAL, INTENT(OUT) :: append_
	417	LOGICAL (KIND=C_BOOL) :: append__tmp
[608]	418	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_
[932]	419	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_
[1201]	420	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_str_
[891]	421	LOGICAL , OPTIONAL, INTENT(OUT) :: cyclic_
	422	LOGICAL (KIND=C_BOOL) :: cyclic__tmp
[326]	423	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
	424	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled_
	425	LOGICAL (KIND=C_BOOL) :: enabled__tmp
[517]	426	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_
[415]	427	INTEGER , OPTIONAL, INTENT(OUT) :: min_digits_
[598]	428	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
[326]	429	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
	430	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
[538]	431	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: output_freq_
[326]	432	INTEGER , OPTIONAL, INTENT(OUT) :: output_level_
[369]	433	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_
[779]	434	INTEGER , OPTIONAL, INTENT(OUT) :: record_offset_
[538]	435	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq_
[432]	436	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_
[538]	437	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq_
[699]	438	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_
[802]	439	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name_
[1158]	440	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format_
	441	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name_
	442	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units_
[711]	443	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries_
	444	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_
[326]	445	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
[1158]	446	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format_
	447	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name_
[581]	448
[528]	449	IF (PRESENT(append_)) THEN
[966]	450	CALL cxios_get_file_append &
	451	(file_hdl%daddr, append__tmp)
[581]	452	append_ = append__tmp
[528]	453	ENDIF
[581]	454
[608]	455	IF (PRESENT(compression_level_)) THEN
[966]	456	CALL cxios_get_file_compression_level &
	457	(file_hdl%daddr, compression_level_)
[608]	458	ENDIF
	459
[932]	460	IF (PRESENT(convention_)) THEN
[966]	461	CALL cxios_get_file_convention &
	462	(file_hdl%daddr, convention_, len(convention_))
[932]	463	ENDIF
	464
[1201]	465	IF (PRESENT(convention_str_)) THEN
	466	CALL cxios_get_file_convention_str &
	467	(file_hdl%daddr, convention_str_, len(convention_str_))
	468	ENDIF
	469
[891]	470	IF (PRESENT(cyclic_)) THEN
[966]	471	CALL cxios_get_file_cyclic &
	472	(file_hdl%daddr, cyclic__tmp)
[891]	473	cyclic_ = cyclic__tmp
	474	ENDIF
	475
[326]	476	IF (PRESENT(description_)) THEN
[966]	477	CALL cxios_get_file_description &
	478	(file_hdl%daddr, description_, len(description_))
[326]	479	ENDIF
[581]	480
[326]	481	IF (PRESENT(enabled_)) THEN
[966]	482	CALL cxios_get_file_enabled &
	483	(file_hdl%daddr, enabled__tmp)
[581]	484	enabled_ = enabled__tmp
[326]	485	ENDIF
[581]	486
[517]	487	IF (PRESENT(format_)) THEN
[966]	488	CALL cxios_get_file_format &
	489	(file_hdl%daddr, format_, len(format_))
[517]	490	ENDIF
[581]	491
[415]	492	IF (PRESENT(min_digits_)) THEN
[966]	493	CALL cxios_get_file_min_digits &
	494	(file_hdl%daddr, min_digits_)
[415]	495	ENDIF
[581]	496
[598]	497	IF (PRESENT(mode_)) THEN
[966]	498	CALL cxios_get_file_mode &
	499	(file_hdl%daddr, mode_, len(mode_))
[598]	500	ENDIF
	501
[326]	502	IF (PRESENT(name_)) THEN
[966]	503	CALL cxios_get_file_name &
	504	(file_hdl%daddr, name_, len(name_))
[326]	505	ENDIF
[581]	506
[326]	507	IF (PRESENT(name_suffix_)) THEN
[966]	508	CALL cxios_get_file_name_suffix &
	509	(file_hdl%daddr, name_suffix_, len(name_suffix_))
[326]	510	ENDIF
[581]	511
[326]	512	IF (PRESENT(output_freq_)) THEN
[966]	513	CALL cxios_get_file_output_freq &
	514	(file_hdl%daddr, output_freq_)
[326]	515	ENDIF
[581]	516
[326]	517	IF (PRESENT(output_level_)) THEN
[966]	518	CALL cxios_get_file_output_level &
	519	(file_hdl%daddr, output_level_)
[326]	520	ENDIF
[581]	521
[369]	522	IF (PRESENT(par_access_)) THEN
[966]	523	CALL cxios_get_file_par_access &
	524	(file_hdl%daddr, par_access_, len(par_access_))
[369]	525	ENDIF
[581]	526
[779]	527	IF (PRESENT(record_offset_)) THEN
[966]	528	CALL cxios_get_file_record_offset &
	529	(file_hdl%daddr, record_offset_)
[779]	530	ENDIF
	531
[326]	532	IF (PRESENT(split_freq_)) THEN
[966]	533	CALL cxios_get_file_split_freq &
	534	(file_hdl%daddr, split_freq_)
[326]	535	ENDIF
[581]	536
[432]	537	IF (PRESENT(split_freq_format_)) THEN
[966]	538	CALL cxios_get_file_split_freq_format &
	539	(file_hdl%daddr, split_freq_format_, len(split_freq_format_))
[432]	540	ENDIF
[581]	541
[326]	542	IF (PRESENT(sync_freq_)) THEN
[966]	543	CALL cxios_get_file_sync_freq &
	544	(file_hdl%daddr, sync_freq_)
[326]	545	ENDIF
[581]	546
[699]	547	IF (PRESENT(time_counter_)) THEN
[966]	548	CALL cxios_get_file_time_counter &
	549	(file_hdl%daddr, time_counter_, len(time_counter_))
[699]	550	ENDIF
	551
[802]	552	IF (PRESENT(time_counter_name_)) THEN
[966]	553	CALL cxios_get_file_time_counter_name &
	554	(file_hdl%daddr, time_counter_name_, len(time_counter_name_))
[802]	555	ENDIF
	556
[1158]	557	IF (PRESENT(time_stamp_format_)) THEN
	558	CALL cxios_get_file_time_stamp_format &
	559	(file_hdl%daddr, time_stamp_format_, len(time_stamp_format_))
	560	ENDIF
	561
	562	IF (PRESENT(time_stamp_name_)) THEN
	563	CALL cxios_get_file_time_stamp_name &
	564	(file_hdl%daddr, time_stamp_name_, len(time_stamp_name_))
	565	ENDIF
	566
	567	IF (PRESENT(time_units_)) THEN
	568	CALL cxios_get_file_time_units &
	569	(file_hdl%daddr, time_units_, len(time_units_))
	570	ENDIF
	571
[711]	572	IF (PRESENT(timeseries_)) THEN
[966]	573	CALL cxios_get_file_timeseries &
	574	(file_hdl%daddr, timeseries_, len(timeseries_))
[711]	575	ENDIF
	576
	577	IF (PRESENT(ts_prefix_)) THEN
[966]	578	CALL cxios_get_file_ts_prefix &
	579	(file_hdl%daddr, ts_prefix_, len(ts_prefix_))
[711]	580	ENDIF
	581
[326]	582	IF (PRESENT(type_)) THEN
[966]	583	CALL cxios_get_file_type &
	584	(file_hdl%daddr, type_, len(type_))
[326]	585	ENDIF
[581]	586
[1158]	587	IF (PRESENT(uuid_format_)) THEN
	588	CALL cxios_get_file_uuid_format &
	589	(file_hdl%daddr, uuid_format_, len(uuid_format_))
	590	ENDIF
	591
	592	IF (PRESENT(uuid_name_)) THEN
	593	CALL cxios_get_file_uuid_name &
	594	(file_hdl%daddr, uuid_name_, len(uuid_name_))
	595	ENDIF
	596
[326]	597	END SUBROUTINE xios(get_file_attr_hdl_)
[581]	598
[432]	599	SUBROUTINE xios(is_defined_file_attr) &
[1201]	600	( file_id, append, compression_level, convention, convention_str, cyclic, description, enabled &
	601	, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset &
	602	, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format &
	603	, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]	604
[432]	605	IMPLICIT NONE
	606	TYPE(txios(file)) :: file_hdl
	607	CHARACTER(LEN=*), INTENT(IN) ::file_id
[528]	608	LOGICAL, OPTIONAL, INTENT(OUT) :: append
	609	LOGICAL(KIND=C_BOOL) :: append_tmp
[608]	610	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
	611	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[932]	612	LOGICAL, OPTIONAL, INTENT(OUT) :: convention
	613	LOGICAL(KIND=C_BOOL) :: convention_tmp
[1201]	614	LOGICAL, OPTIONAL, INTENT(OUT) :: convention_str
	615	LOGICAL(KIND=C_BOOL) :: convention_str_tmp
[891]	616	LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic
	617	LOGICAL(KIND=C_BOOL) :: cyclic_tmp
[432]	618	LOGICAL, OPTIONAL, INTENT(OUT) :: description
	619	LOGICAL(KIND=C_BOOL) :: description_tmp
	620	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
	621	LOGICAL(KIND=C_BOOL) :: enabled_tmp
[517]	622	LOGICAL, OPTIONAL, INTENT(OUT) :: format
	623	LOGICAL(KIND=C_BOOL) :: format_tmp
[432]	624	LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
	625	LOGICAL(KIND=C_BOOL) :: min_digits_tmp
[598]	626	LOGICAL, OPTIONAL, INTENT(OUT) :: mode
	627	LOGICAL(KIND=C_BOOL) :: mode_tmp
[432]	628	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	629	LOGICAL(KIND=C_BOOL) :: name_tmp
	630	LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
	631	LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
	632	LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
	633	LOGICAL(KIND=C_BOOL) :: output_freq_tmp
	634	LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
	635	LOGICAL(KIND=C_BOOL) :: output_level_tmp
	636	LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
	637	LOGICAL(KIND=C_BOOL) :: par_access_tmp
[779]	638	LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset
	639	LOGICAL(KIND=C_BOOL) :: record_offset_tmp
[432]	640	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
	641	LOGICAL(KIND=C_BOOL) :: split_freq_tmp
	642	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
	643	LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
	644	LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
	645	LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
[699]	646	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
	647	LOGICAL(KIND=C_BOOL) :: time_counter_tmp
[802]	648	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name
	649	LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp
[1158]	650	LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format
	651	LOGICAL(KIND=C_BOOL) :: time_stamp_format_tmp
	652	LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name
	653	LOGICAL(KIND=C_BOOL) :: time_stamp_name_tmp
	654	LOGICAL, OPTIONAL, INTENT(OUT) :: time_units
	655	LOGICAL(KIND=C_BOOL) :: time_units_tmp
[711]	656	LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
	657	LOGICAL(KIND=C_BOOL) :: timeseries_tmp
	658	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
	659	LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
[432]	660	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	661	LOGICAL(KIND=C_BOOL) :: type_tmp
[1158]	662	LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format
	663	LOGICAL(KIND=C_BOOL) :: uuid_format_tmp
	664	LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name
	665	LOGICAL(KIND=C_BOOL) :: uuid_name_tmp
[581]	666
[966]	667	CALL xios(get_file_handle) &
	668	(file_id,file_hdl)
[432]	669	CALL xios(is_defined_file_attr_hdl_) &
[1201]	670	( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled &
	671	, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset &
	672	, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format &
	673	, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]	674
[432]	675	END SUBROUTINE xios(is_defined_file_attr)
[581]	676
[432]	677	SUBROUTINE xios(is_defined_file_attr_hdl) &
[1201]	678	( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled &
	679	, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset &
	680	, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format &
	681	, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]	682
[432]	683	IMPLICIT NONE
	684	TYPE(txios(file)) , INTENT(IN) :: file_hdl
[528]	685	LOGICAL, OPTIONAL, INTENT(OUT) :: append
	686	LOGICAL(KIND=C_BOOL) :: append_tmp
[608]	687	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
	688	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[932]	689	LOGICAL, OPTIONAL, INTENT(OUT) :: convention
	690	LOGICAL(KIND=C_BOOL) :: convention_tmp
[1201]	691	LOGICAL, OPTIONAL, INTENT(OUT) :: convention_str
	692	LOGICAL(KIND=C_BOOL) :: convention_str_tmp
[891]	693	LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic
	694	LOGICAL(KIND=C_BOOL) :: cyclic_tmp
[432]	695	LOGICAL, OPTIONAL, INTENT(OUT) :: description
	696	LOGICAL(KIND=C_BOOL) :: description_tmp
	697	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
	698	LOGICAL(KIND=C_BOOL) :: enabled_tmp
[517]	699	LOGICAL, OPTIONAL, INTENT(OUT) :: format
	700	LOGICAL(KIND=C_BOOL) :: format_tmp
[432]	701	LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
	702	LOGICAL(KIND=C_BOOL) :: min_digits_tmp
[598]	703	LOGICAL, OPTIONAL, INTENT(OUT) :: mode
	704	LOGICAL(KIND=C_BOOL) :: mode_tmp
[432]	705	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	706	LOGICAL(KIND=C_BOOL) :: name_tmp
	707	LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
	708	LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
	709	LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
	710	LOGICAL(KIND=C_BOOL) :: output_freq_tmp
	711	LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
	712	LOGICAL(KIND=C_BOOL) :: output_level_tmp
	713	LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
	714	LOGICAL(KIND=C_BOOL) :: par_access_tmp
[779]	715	LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset
	716	LOGICAL(KIND=C_BOOL) :: record_offset_tmp
[432]	717	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
	718	LOGICAL(KIND=C_BOOL) :: split_freq_tmp
	719	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
	720	LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
	721	LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
	722	LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
[699]	723	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
	724	LOGICAL(KIND=C_BOOL) :: time_counter_tmp
[802]	725	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name
	726	LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp
[1158]	727	LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format
	728	LOGICAL(KIND=C_BOOL) :: time_stamp_format_tmp
	729	LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name
	730	LOGICAL(KIND=C_BOOL) :: time_stamp_name_tmp
	731	LOGICAL, OPTIONAL, INTENT(OUT) :: time_units
	732	LOGICAL(KIND=C_BOOL) :: time_units_tmp
[711]	733	LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
	734	LOGICAL(KIND=C_BOOL) :: timeseries_tmp
	735	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
	736	LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
[432]	737	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	738	LOGICAL(KIND=C_BOOL) :: type_tmp
[1158]	739	LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format
	740	LOGICAL(KIND=C_BOOL) :: uuid_format_tmp
	741	LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name
	742	LOGICAL(KIND=C_BOOL) :: uuid_name_tmp
[581]	743
[432]	744	CALL xios(is_defined_file_attr_hdl_) &
[1201]	745	( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled &
	746	, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset &
	747	, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format &
	748	, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]	749
[432]	750	END SUBROUTINE xios(is_defined_file_attr_hdl)
[581]	751
[432]	752	SUBROUTINE xios(is_defined_file_attr_hdl_) &
[1201]	753	( file_hdl, append_, compression_level_, convention_, convention_str_, cyclic_, description_ &
	754	, enabled_, format_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_ &
	755	, record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_ &
	756	, time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_ &
	757	, uuid_name_ )
[581]	758
[432]	759	IMPLICIT NONE
	760	TYPE(txios(file)) , INTENT(IN) :: file_hdl
[528]	761	LOGICAL, OPTIONAL, INTENT(OUT) :: append_
	762	LOGICAL(KIND=C_BOOL) :: append__tmp
[608]	763	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
	764	LOGICAL(KIND=C_BOOL) :: compression_level__tmp
[932]	765	LOGICAL, OPTIONAL, INTENT(OUT) :: convention_
	766	LOGICAL(KIND=C_BOOL) :: convention__tmp
[1201]	767	LOGICAL, OPTIONAL, INTENT(OUT) :: convention_str_
	768	LOGICAL(KIND=C_BOOL) :: convention_str__tmp
[891]	769	LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic_
	770	LOGICAL(KIND=C_BOOL) :: cyclic__tmp
[432]	771	LOGICAL, OPTIONAL, INTENT(OUT) :: description_
	772	LOGICAL(KIND=C_BOOL) :: description__tmp
	773	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
	774	LOGICAL(KIND=C_BOOL) :: enabled__tmp
[517]	775	LOGICAL, OPTIONAL, INTENT(OUT) :: format_
	776	LOGICAL(KIND=C_BOOL) :: format__tmp
[432]	777	LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_
	778	LOGICAL(KIND=C_BOOL) :: min_digits__tmp
[598]	779	LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
	780	LOGICAL(KIND=C_BOOL) :: mode__tmp
[432]	781	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
	782	LOGICAL(KIND=C_BOOL) :: name__tmp
	783	LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_
	784	LOGICAL(KIND=C_BOOL) :: name_suffix__tmp
	785	LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_
	786	LOGICAL(KIND=C_BOOL) :: output_freq__tmp
	787	LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_
	788	LOGICAL(KIND=C_BOOL) :: output_level__tmp
	789	LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_
	790	LOGICAL(KIND=C_BOOL) :: par_access__tmp
[779]	791	LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_
	792	LOGICAL(KIND=C_BOOL) :: record_offset__tmp
[432]	793	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_
	794	LOGICAL(KIND=C_BOOL) :: split_freq__tmp
	795	LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_
	796	LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp
	797	LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_
	798	LOGICAL(KIND=C_BOOL) :: sync_freq__tmp
[699]	799	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_
	800	LOGICAL(KIND=C_BOOL) :: time_counter__tmp
[802]	801	LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name_
	802	LOGICAL(KIND=C_BOOL) :: time_counter_name__tmp
[1158]	803	LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format_
	804	LOGICAL(KIND=C_BOOL) :: time_stamp_format__tmp
	805	LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name_
	806	LOGICAL(KIND=C_BOOL) :: time_stamp_name__tmp
	807	LOGICAL, OPTIONAL, INTENT(OUT) :: time_units_
	808	LOGICAL(KIND=C_BOOL) :: time_units__tmp
[711]	809	LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries_
	810	LOGICAL(KIND=C_BOOL) :: timeseries__tmp
	811	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix_
	812	LOGICAL(KIND=C_BOOL) :: ts_prefix__tmp
[432]	813	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
	814	LOGICAL(KIND=C_BOOL) :: type__tmp
[1158]	815	LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format_
	816	LOGICAL(KIND=C_BOOL) :: uuid_format__tmp
	817	LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name_
	818	LOGICAL(KIND=C_BOOL) :: uuid_name__tmp
[581]	819
[528]	820	IF (PRESENT(append_)) THEN
[966]	821	append__tmp = cxios_is_defined_file_append &
	822	(file_hdl%daddr)
[581]	823	append_ = append__tmp
[528]	824	ENDIF
[581]	825
[608]	826	IF (PRESENT(compression_level_)) THEN
[966]	827	compression_level__tmp = cxios_is_defined_file_compression_level &
	828	(file_hdl%daddr)
[608]	829	compression_level_ = compression_level__tmp
	830	ENDIF
	831
[932]	832	IF (PRESENT(convention_)) THEN
[966]	833	convention__tmp = cxios_is_defined_file_convention &
	834	(file_hdl%daddr)
[932]	835	convention_ = convention__tmp
	836	ENDIF
	837
[1201]	838	IF (PRESENT(convention_str_)) THEN
	839	convention_str__tmp = cxios_is_defined_file_convention_str &
	840	(file_hdl%daddr)
	841	convention_str_ = convention_str__tmp
	842	ENDIF
	843
[891]	844	IF (PRESENT(cyclic_)) THEN
[966]	845	cyclic__tmp = cxios_is_defined_file_cyclic &
	846	(file_hdl%daddr)
[891]	847	cyclic_ = cyclic__tmp
	848	ENDIF
	849
[432]	850	IF (PRESENT(description_)) THEN
[966]	851	description__tmp = cxios_is_defined_file_description &
	852	(file_hdl%daddr)
[581]	853	description_ = description__tmp
[432]	854	ENDIF
[581]	855
[432]	856	IF (PRESENT(enabled_)) THEN
[966]	857	enabled__tmp = cxios_is_defined_file_enabled &
	858	(file_hdl%daddr)
[581]	859	enabled_ = enabled__tmp
[432]	860	ENDIF
[581]	861
[517]	862	IF (PRESENT(format_)) THEN
[966]	863	format__tmp = cxios_is_defined_file_format &
	864	(file_hdl%daddr)
[581]	865	format_ = format__tmp
[517]	866	ENDIF
[581]	867
[432]	868	IF (PRESENT(min_digits_)) THEN
[966]	869	min_digits__tmp = cxios_is_defined_file_min_digits &
	870	(file_hdl%daddr)
[581]	871	min_digits_ = min_digits__tmp
[432]	872	ENDIF
[581]	873
[598]	874	IF (PRESENT(mode_)) THEN
[966]	875	mode__tmp = cxios_is_defined_file_mode &
	876	(file_hdl%daddr)
[598]	877	mode_ = mode__tmp
	878	ENDIF
	879
[432]	880	IF (PRESENT(name_)) THEN
[966]	881	name__tmp = cxios_is_defined_file_name &
	882	(file_hdl%daddr)
[581]	883	name_ = name__tmp
[432]	884	ENDIF
[581]	885
[432]	886	IF (PRESENT(name_suffix_)) THEN
[966]	887	name_suffix__tmp = cxios_is_defined_file_name_suffix &
	888	(file_hdl%daddr)
[581]	889	name_suffix_ = name_suffix__tmp
[432]	890	ENDIF
[581]	891
[432]	892	IF (PRESENT(output_freq_)) THEN
[966]	893	output_freq__tmp = cxios_is_defined_file_output_freq &
	894	(file_hdl%daddr)
[581]	895	output_freq_ = output_freq__tmp
[432]	896	ENDIF
[581]	897
[432]	898	IF (PRESENT(output_level_)) THEN
[966]	899	output_level__tmp = cxios_is_defined_file_output_level &
	900	(file_hdl%daddr)
[581]	901	output_level_ = output_level__tmp
[432]	902	ENDIF
[581]	903
[432]	904	IF (PRESENT(par_access_)) THEN
[966]	905	par_access__tmp = cxios_is_defined_file_par_access &
	906	(file_hdl%daddr)
[581]	907	par_access_ = par_access__tmp
[432]	908	ENDIF
[581]	909
[779]	910	IF (PRESENT(record_offset_)) THEN
[966]	911	record_offset__tmp = cxios_is_defined_file_record_offset &
	912	(file_hdl%daddr)
[779]	913	record_offset_ = record_offset__tmp
	914	ENDIF
	915
[432]	916	IF (PRESENT(split_freq_)) THEN
[966]	917	split_freq__tmp = cxios_is_defined_file_split_freq &
	918	(file_hdl%daddr)
[581]	919	split_freq_ = split_freq__tmp
[432]	920	ENDIF
[581]	921
[432]	922	IF (PRESENT(split_freq_format_)) THEN
[966]	923	split_freq_format__tmp = cxios_is_defined_file_split_freq_format &
	924	(file_hdl%daddr)
[581]	925	split_freq_format_ = split_freq_format__tmp
[432]	926	ENDIF
[581]	927
[432]	928	IF (PRESENT(sync_freq_)) THEN
[966]	929	sync_freq__tmp = cxios_is_defined_file_sync_freq &
	930	(file_hdl%daddr)
[581]	931	sync_freq_ = sync_freq__tmp
[432]	932	ENDIF
[581]	933
[699]	934	IF (PRESENT(time_counter_)) THEN
[966]	935	time_counter__tmp = cxios_is_defined_file_time_counter &
	936	(file_hdl%daddr)
[699]	937	time_counter_ = time_counter__tmp
	938	ENDIF
	939
[802]	940	IF (PRESENT(time_counter_name_)) THEN
[966]	941	time_counter_name__tmp = cxios_is_defined_file_time_counter_name &
	942	(file_hdl%daddr)
[802]	943	time_counter_name_ = time_counter_name__tmp
	944	ENDIF
	945
[1158]	946	IF (PRESENT(time_stamp_format_)) THEN
	947	time_stamp_format__tmp = cxios_is_defined_file_time_stamp_format &
	948	(file_hdl%daddr)
	949	time_stamp_format_ = time_stamp_format__tmp
	950	ENDIF
	951
	952	IF (PRESENT(time_stamp_name_)) THEN
	953	time_stamp_name__tmp = cxios_is_defined_file_time_stamp_name &
	954	(file_hdl%daddr)
	955	time_stamp_name_ = time_stamp_name__tmp
	956	ENDIF
	957
	958	IF (PRESENT(time_units_)) THEN
	959	time_units__tmp = cxios_is_defined_file_time_units &
	960	(file_hdl%daddr)
	961	time_units_ = time_units__tmp
	962	ENDIF
	963
[711]	964	IF (PRESENT(timeseries_)) THEN
[966]	965	timeseries__tmp = cxios_is_defined_file_timeseries &
	966	(file_hdl%daddr)
[711]	967	timeseries_ = timeseries__tmp
	968	ENDIF
	969
	970	IF (PRESENT(ts_prefix_)) THEN
[966]	971	ts_prefix__tmp = cxios_is_defined_file_ts_prefix &
	972	(file_hdl%daddr)
[711]	973	ts_prefix_ = ts_prefix__tmp
	974	ENDIF
	975
[432]	976	IF (PRESENT(type_)) THEN
[966]	977	type__tmp = cxios_is_defined_file_type &
	978	(file_hdl%daddr)
[581]	979	type_ = type__tmp
[432]	980	ENDIF
[581]	981
[1158]	982	IF (PRESENT(uuid_format_)) THEN
	983	uuid_format__tmp = cxios_is_defined_file_uuid_format &
	984	(file_hdl%daddr)
	985	uuid_format_ = uuid_format__tmp
	986	ENDIF
	987
	988	IF (PRESENT(uuid_name_)) THEN
	989	uuid_name__tmp = cxios_is_defined_file_uuid_name &
	990	(file_hdl%daddr)
	991	uuid_name_ = uuid_name__tmp
	992	ENDIF
	993
[432]	994	END SUBROUTINE xios(is_defined_file_attr_hdl_)
[581]	995
[326]	996	END MODULE ifile_attr

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

Download in other formats: