Context Navigation

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

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

Adding Fortran interface for reduce_axis_to_scalar

Test
+) On Curie
+) Only compilation

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

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

Download in other formats: