Context Navigation

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

Last change on this file since 1052 was 1052, checked in by ymipsl, 7 years ago

Generate fortran interface for new attributes from previous commit.

YM

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

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

Download in other formats: