Context Navigation

source: XIOS/trunk/src/interface/fortran_attr/ifieldgroup_attr.F90 @ 1005

Last change on this file since 1005 was 1005, checked in by mhnguyen, 7 years ago
Updating Fortran interfaces
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: 44.9 KB

Rev	Line
[326]	1	! * ************************************************************************** *
	2	! * Interface auto generated - do not modify *
	3	! * ************************************************************************** *
	4	#include "xios_fortran_prefix.hpp"
	5
	6	MODULE ifieldgroup_attr
	7	USE, INTRINSIC :: ISO_C_BINDING
	8	USE ifield
	9	USE fieldgroup_interface_attr
[581]	10
[326]	11	CONTAINS
[581]	12
[326]	13	SUBROUTINE xios(set_fieldgroup_attr) &
[991]	14	( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value &
[1005]	15	, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path &
	16	, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access &
	17	, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min &
	18	)
[581]	19
[326]	20	IMPLICIT NONE
	21	TYPE(txios(fieldgroup)) :: fieldgroup_hdl
	22	CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
[464]	23	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
[326]	24	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[991]	25	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods
	26	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode
[608]	27	INTEGER , OPTIONAL, INTENT(IN) :: compression_level
[326]	28	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
[472]	29	LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value
	30	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]	31	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
	32	LOGICAL , OPTIONAL, INTENT(IN) :: enabled
	33	LOGICAL (KIND=C_BOOL) :: enabled_tmp
[1005]	34	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr
[326]	35	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
[538]	36	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset
	37	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_op
[790]	38	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path
[326]	39	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
	40	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[676]	41	LOGICAL , OPTIONAL, INTENT(IN) :: indexed_output
	42	LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]	43	INTEGER , OPTIONAL, INTENT(IN) :: level
	44	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
	45	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	46	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
	47	INTEGER , OPTIONAL, INTENT(IN) :: prec
[593]	48	LOGICAL , OPTIONAL, INTENT(IN) :: read_access
	49	LOGICAL (KIND=C_BOOL) :: read_access_tmp
[891]	50	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
[464]	51	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
[326]	52	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[711]	53	LOGICAL , OPTIONAL, INTENT(IN) :: ts_enabled
	54	LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
	55	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: ts_split_freq
[326]	56	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
[463]	57	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
	58	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
[581]	59
[966]	60	CALL xios(get_fieldgroup_handle) &
	61	(fieldgroup_id,fieldgroup_hdl)
[326]	62	CALL xios(set_fieldgroup_attr_hdl_) &
[991]	63	( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value &
[1005]	64	, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path &
	65	, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access &
	66	, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min &
	67	)
[581]	68
[326]	69	END SUBROUTINE xios(set_fieldgroup_attr)
[581]	70
[326]	71	SUBROUTINE xios(set_fieldgroup_attr_hdl) &
[991]	72	( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value &
[1005]	73	, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path &
	74	, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access &
	75	, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min &
	76	)
[581]	77
[326]	78	IMPLICIT NONE
	79	TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]	80	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
[326]	81	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[991]	82	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods
	83	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode
[608]	84	INTEGER , OPTIONAL, INTENT(IN) :: compression_level
[326]	85	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
[472]	86	LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value
	87	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]	88	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
	89	LOGICAL , OPTIONAL, INTENT(IN) :: enabled
	90	LOGICAL (KIND=C_BOOL) :: enabled_tmp
[1005]	91	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr
[326]	92	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
[538]	93	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset
	94	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_op
[790]	95	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path
[326]	96	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
	97	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[676]	98	LOGICAL , OPTIONAL, INTENT(IN) :: indexed_output
	99	LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]	100	INTEGER , OPTIONAL, INTENT(IN) :: level
	101	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
	102	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	103	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
	104	INTEGER , OPTIONAL, INTENT(IN) :: prec
[593]	105	LOGICAL , OPTIONAL, INTENT(IN) :: read_access
	106	LOGICAL (KIND=C_BOOL) :: read_access_tmp
[891]	107	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
[464]	108	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
[326]	109	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[711]	110	LOGICAL , OPTIONAL, INTENT(IN) :: ts_enabled
	111	LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
	112	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: ts_split_freq
[326]	113	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
[463]	114	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
	115	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
[581]	116
[326]	117	CALL xios(set_fieldgroup_attr_hdl_) &
[991]	118	( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value &
[1005]	119	, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path &
	120	, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access &
	121	, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min &
	122	)
[581]	123
[326]	124	END SUBROUTINE xios(set_fieldgroup_attr_hdl)
[581]	125
[326]	126	SUBROUTINE xios(set_fieldgroup_attr_hdl_) &
[991]	127	( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, compression_level_ &
[1005]	128	, default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_ &
	129	, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_, level_, long_name_, name_, operation_ &
[991]	130	, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_ &
	131	, unit_, valid_max_, valid_min_ )
[581]	132
[326]	133	IMPLICIT NONE
	134	TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]	135	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_
[326]	136	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
[991]	137	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_
	138	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode_
[608]	139	INTEGER , OPTIONAL, INTENT(IN) :: compression_level_
[326]	140	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_
[472]	141	LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value_
	142	LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
[326]	143	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
	144	LOGICAL , OPTIONAL, INTENT(IN) :: enabled_
	145	LOGICAL (KIND=C_BOOL) :: enabled__tmp
[1005]	146	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr_
[326]	147	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_
[538]	148	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset_
	149	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_op_
[790]	150	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path_
[326]	151	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_
	152	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
[676]	153	LOGICAL , OPTIONAL, INTENT(IN) :: indexed_output_
	154	LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
[326]	155	INTEGER , OPTIONAL, INTENT(IN) :: level_
	156	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
	157	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
	158	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
	159	INTEGER , OPTIONAL, INTENT(IN) :: prec_
[593]	160	LOGICAL , OPTIONAL, INTENT(IN) :: read_access_
	161	LOGICAL (KIND=C_BOOL) :: read_access__tmp
[891]	162	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref_
[464]	163	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor_
[326]	164	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
[711]	165	LOGICAL , OPTIONAL, INTENT(IN) :: ts_enabled_
	166	LOGICAL (KIND=C_BOOL) :: ts_enabled__tmp
	167	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: ts_split_freq_
[326]	168	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
[463]	169	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max_
	170	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min_
[581]	171
[464]	172	IF (PRESENT(add_offset_)) THEN
[966]	173	CALL cxios_set_fieldgroup_add_offset &
	174	(fieldgroup_hdl%daddr, add_offset_)
[464]	175	ENDIF
[581]	176
[326]	177	IF (PRESENT(axis_ref_)) THEN
[966]	178	CALL cxios_set_fieldgroup_axis_ref &
	179	(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
[326]	180	ENDIF
[581]	181
[991]	182	IF (PRESENT(cell_methods_)) THEN
	183	CALL cxios_set_fieldgroup_cell_methods &
	184	(fieldgroup_hdl%daddr, cell_methods_, len(cell_methods_))
	185	ENDIF
	186
	187	IF (PRESENT(cell_methods_mode_)) THEN
	188	CALL cxios_set_fieldgroup_cell_methods_mode &
	189	(fieldgroup_hdl%daddr, cell_methods_mode_, len(cell_methods_mode_))
	190	ENDIF
	191
[608]	192	IF (PRESENT(compression_level_)) THEN
[966]	193	CALL cxios_set_fieldgroup_compression_level &
	194	(fieldgroup_hdl%daddr, compression_level_)
[608]	195	ENDIF
	196
[326]	197	IF (PRESENT(default_value_)) THEN
[966]	198	CALL cxios_set_fieldgroup_default_value &
	199	(fieldgroup_hdl%daddr, default_value_)
[326]	200	ENDIF
[581]	201
[472]	202	IF (PRESENT(detect_missing_value_)) THEN
[581]	203	detect_missing_value__tmp = detect_missing_value_
[966]	204	CALL cxios_set_fieldgroup_detect_missing_value &
	205	(fieldgroup_hdl%daddr, detect_missing_value__tmp)
[472]	206	ENDIF
[581]	207
[326]	208	IF (PRESENT(domain_ref_)) THEN
[966]	209	CALL cxios_set_fieldgroup_domain_ref &
	210	(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
[326]	211	ENDIF
[581]	212
[326]	213	IF (PRESENT(enabled_)) THEN
[581]	214	enabled__tmp = enabled_
[966]	215	CALL cxios_set_fieldgroup_enabled &
	216	(fieldgroup_hdl%daddr, enabled__tmp)
[326]	217	ENDIF
[581]	218
[1005]	219	IF (PRESENT(expr_)) THEN
	220	CALL cxios_set_fieldgroup_expr &
	221	(fieldgroup_hdl%daddr, expr_, len(expr_))
	222	ENDIF
	223
[326]	224	IF (PRESENT(field_ref_)) THEN
[966]	225	CALL cxios_set_fieldgroup_field_ref &
	226	(fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
[326]	227	ENDIF
[581]	228
[326]	229	IF (PRESENT(freq_offset_)) THEN
[966]	230	CALL cxios_set_fieldgroup_freq_offset &
	231	(fieldgroup_hdl%daddr, freq_offset_)
[326]	232	ENDIF
[581]	233
[326]	234	IF (PRESENT(freq_op_)) THEN
[966]	235	CALL cxios_set_fieldgroup_freq_op &
	236	(fieldgroup_hdl%daddr, freq_op_)
[326]	237	ENDIF
[581]	238
[790]	239	IF (PRESENT(grid_path_)) THEN
[966]	240	CALL cxios_set_fieldgroup_grid_path &
	241	(fieldgroup_hdl%daddr, grid_path_, len(grid_path_))
[790]	242	ENDIF
	243
[326]	244	IF (PRESENT(grid_ref_)) THEN
[966]	245	CALL cxios_set_fieldgroup_grid_ref &
	246	(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
[326]	247	ENDIF
[581]	248
[326]	249	IF (PRESENT(group_ref_)) THEN
[966]	250	CALL cxios_set_fieldgroup_group_ref &
	251	(fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
[326]	252	ENDIF
[581]	253
[676]	254	IF (PRESENT(indexed_output_)) THEN
	255	indexed_output__tmp = indexed_output_
[966]	256	CALL cxios_set_fieldgroup_indexed_output &
	257	(fieldgroup_hdl%daddr, indexed_output__tmp)
[676]	258	ENDIF
	259
[326]	260	IF (PRESENT(level_)) THEN
[966]	261	CALL cxios_set_fieldgroup_level &
	262	(fieldgroup_hdl%daddr, level_)
[326]	263	ENDIF
[581]	264
[326]	265	IF (PRESENT(long_name_)) THEN
[966]	266	CALL cxios_set_fieldgroup_long_name &
	267	(fieldgroup_hdl%daddr, long_name_, len(long_name_))
[326]	268	ENDIF
[581]	269
[326]	270	IF (PRESENT(name_)) THEN
[966]	271	CALL cxios_set_fieldgroup_name &
	272	(fieldgroup_hdl%daddr, name_, len(name_))
[326]	273	ENDIF
[581]	274
[326]	275	IF (PRESENT(operation_)) THEN
[966]	276	CALL cxios_set_fieldgroup_operation &
	277	(fieldgroup_hdl%daddr, operation_, len(operation_))
[326]	278	ENDIF
[581]	279
[326]	280	IF (PRESENT(prec_)) THEN
[966]	281	CALL cxios_set_fieldgroup_prec &
	282	(fieldgroup_hdl%daddr, prec_)
[326]	283	ENDIF
[581]	284
[593]	285	IF (PRESENT(read_access_)) THEN
	286	read_access__tmp = read_access_
[966]	287	CALL cxios_set_fieldgroup_read_access &
	288	(fieldgroup_hdl%daddr, read_access__tmp)
[593]	289	ENDIF
	290
[891]	291	IF (PRESENT(scalar_ref_)) THEN
[966]	292	CALL cxios_set_fieldgroup_scalar_ref &
	293	(fieldgroup_hdl%daddr, scalar_ref_, len(scalar_ref_))
[891]	294	ENDIF
	295
[464]	296	IF (PRESENT(scale_factor_)) THEN
[966]	297	CALL cxios_set_fieldgroup_scale_factor &
	298	(fieldgroup_hdl%daddr, scale_factor_)
[464]	299	ENDIF
[581]	300
[326]	301	IF (PRESENT(standard_name_)) THEN
[966]	302	CALL cxios_set_fieldgroup_standard_name &
	303	(fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
[326]	304	ENDIF
[581]	305
[711]	306	IF (PRESENT(ts_enabled_)) THEN
	307	ts_enabled__tmp = ts_enabled_
[966]	308	CALL cxios_set_fieldgroup_ts_enabled &
	309	(fieldgroup_hdl%daddr, ts_enabled__tmp)
[711]	310	ENDIF
	311
	312	IF (PRESENT(ts_split_freq_)) THEN
[966]	313	CALL cxios_set_fieldgroup_ts_split_freq &
	314	(fieldgroup_hdl%daddr, ts_split_freq_)
[711]	315	ENDIF
	316
[326]	317	IF (PRESENT(unit_)) THEN
[966]	318	CALL cxios_set_fieldgroup_unit &
	319	(fieldgroup_hdl%daddr, unit_, len(unit_))
[326]	320	ENDIF
[581]	321
[463]	322	IF (PRESENT(valid_max_)) THEN
[966]	323	CALL cxios_set_fieldgroup_valid_max &
	324	(fieldgroup_hdl%daddr, valid_max_)
[463]	325	ENDIF
[581]	326
[463]	327	IF (PRESENT(valid_min_)) THEN
[966]	328	CALL cxios_set_fieldgroup_valid_min &
	329	(fieldgroup_hdl%daddr, valid_min_)
[463]	330	ENDIF
[581]	331
[326]	332	END SUBROUTINE xios(set_fieldgroup_attr_hdl_)
[581]	333
[326]	334	SUBROUTINE xios(get_fieldgroup_attr) &
[991]	335	( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value &
[1005]	336	, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path &
	337	, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access &
	338	, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min &
	339	)
[581]	340
[326]	341	IMPLICIT NONE
	342	TYPE(txios(fieldgroup)) :: fieldgroup_hdl
	343	CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
[464]	344	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
[326]	345	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[991]	346	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods
	347	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode
[608]	348	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
[326]	349	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
[472]	350	LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value
	351	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]	352	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
	353	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
	354	LOGICAL (KIND=C_BOOL) :: enabled_tmp
[1005]	355	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr
[326]	356	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
[538]	357	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset
	358	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_op
[790]	359	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path
[326]	360	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
	361	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[676]	362	LOGICAL , OPTIONAL, INTENT(OUT) :: indexed_output
	363	LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]	364	INTEGER , OPTIONAL, INTENT(OUT) :: level
	365	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
	366	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	367	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
	368	INTEGER , OPTIONAL, INTENT(OUT) :: prec
[593]	369	LOGICAL , OPTIONAL, INTENT(OUT) :: read_access
	370	LOGICAL (KIND=C_BOOL) :: read_access_tmp
[891]	371	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
[464]	372	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
[326]	373	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[711]	374	LOGICAL , OPTIONAL, INTENT(OUT) :: ts_enabled
	375	LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
	376	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: ts_split_freq
[326]	377	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
[463]	378	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
	379	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
[581]	380
[966]	381	CALL xios(get_fieldgroup_handle) &
	382	(fieldgroup_id,fieldgroup_hdl)
[326]	383	CALL xios(get_fieldgroup_attr_hdl_) &
[991]	384	( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value &
[1005]	385	, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path &
	386	, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access &
	387	, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min &
	388	)
[581]	389
[326]	390	END SUBROUTINE xios(get_fieldgroup_attr)
[581]	391
[326]	392	SUBROUTINE xios(get_fieldgroup_attr_hdl) &
[991]	393	( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value &
[1005]	394	, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path &
	395	, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access &
	396	, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min &
	397	)
[581]	398
[326]	399	IMPLICIT NONE
	400	TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]	401	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
[326]	402	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[991]	403	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods
	404	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode
[608]	405	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level
[326]	406	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
[472]	407	LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value
	408	LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]	409	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
	410	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled
	411	LOGICAL (KIND=C_BOOL) :: enabled_tmp
[1005]	412	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr
[326]	413	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
[538]	414	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset
	415	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_op
[790]	416	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path
[326]	417	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
	418	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[676]	419	LOGICAL , OPTIONAL, INTENT(OUT) :: indexed_output
	420	LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]	421	INTEGER , OPTIONAL, INTENT(OUT) :: level
	422	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
	423	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	424	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
	425	INTEGER , OPTIONAL, INTENT(OUT) :: prec
[593]	426	LOGICAL , OPTIONAL, INTENT(OUT) :: read_access
	427	LOGICAL (KIND=C_BOOL) :: read_access_tmp
[891]	428	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
[464]	429	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
[326]	430	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[711]	431	LOGICAL , OPTIONAL, INTENT(OUT) :: ts_enabled
	432	LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
	433	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: ts_split_freq
[326]	434	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
[463]	435	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
	436	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
[581]	437
[326]	438	CALL xios(get_fieldgroup_attr_hdl_) &
[991]	439	( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value &
[1005]	440	, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path &
	441	, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access &
	442	, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min &
	443	)
[581]	444
[326]	445	END SUBROUTINE xios(get_fieldgroup_attr_hdl)
[581]	446
[326]	447	SUBROUTINE xios(get_fieldgroup_attr_hdl_) &
[991]	448	( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, compression_level_ &
[1005]	449	, default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_ &
	450	, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_, level_, long_name_, name_, operation_ &
[991]	451	, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_ &
	452	, unit_, valid_max_, valid_min_ )
[581]	453
[326]	454	IMPLICIT NONE
	455	TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]	456	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_
[326]	457	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
[991]	458	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_
	459	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode_
[608]	460	INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_
[326]	461	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_
[472]	462	LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value_
	463	LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
[326]	464	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
	465	LOGICAL , OPTIONAL, INTENT(OUT) :: enabled_
	466	LOGICAL (KIND=C_BOOL) :: enabled__tmp
[1005]	467	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr_
[326]	468	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_
[538]	469	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset_
	470	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_op_
[790]	471	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path_
[326]	472	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_
	473	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
[676]	474	LOGICAL , OPTIONAL, INTENT(OUT) :: indexed_output_
	475	LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
[326]	476	INTEGER , OPTIONAL, INTENT(OUT) :: level_
	477	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
	478	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
	479	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
	480	INTEGER , OPTIONAL, INTENT(OUT) :: prec_
[593]	481	LOGICAL , OPTIONAL, INTENT(OUT) :: read_access_
	482	LOGICAL (KIND=C_BOOL) :: read_access__tmp
[891]	483	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref_
[464]	484	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor_
[326]	485	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
[711]	486	LOGICAL , OPTIONAL, INTENT(OUT) :: ts_enabled_
	487	LOGICAL (KIND=C_BOOL) :: ts_enabled__tmp
	488	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: ts_split_freq_
[326]	489	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
[463]	490	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_
	491	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_
[581]	492
[464]	493	IF (PRESENT(add_offset_)) THEN
[966]	494	CALL cxios_get_fieldgroup_add_offset &
	495	(fieldgroup_hdl%daddr, add_offset_)
[464]	496	ENDIF
[581]	497
[326]	498	IF (PRESENT(axis_ref_)) THEN
[966]	499	CALL cxios_get_fieldgroup_axis_ref &
	500	(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
[326]	501	ENDIF
[581]	502
[991]	503	IF (PRESENT(cell_methods_)) THEN
	504	CALL cxios_get_fieldgroup_cell_methods &
	505	(fieldgroup_hdl%daddr, cell_methods_, len(cell_methods_))
	506	ENDIF
	507
	508	IF (PRESENT(cell_methods_mode_)) THEN
	509	CALL cxios_get_fieldgroup_cell_methods_mode &
	510	(fieldgroup_hdl%daddr, cell_methods_mode_, len(cell_methods_mode_))
	511	ENDIF
	512
[608]	513	IF (PRESENT(compression_level_)) THEN
[966]	514	CALL cxios_get_fieldgroup_compression_level &
	515	(fieldgroup_hdl%daddr, compression_level_)
[608]	516	ENDIF
	517
[326]	518	IF (PRESENT(default_value_)) THEN
[966]	519	CALL cxios_get_fieldgroup_default_value &
	520	(fieldgroup_hdl%daddr, default_value_)
[326]	521	ENDIF
[581]	522
[472]	523	IF (PRESENT(detect_missing_value_)) THEN
[966]	524	CALL cxios_get_fieldgroup_detect_missing_value &
	525	(fieldgroup_hdl%daddr, detect_missing_value__tmp)
[581]	526	detect_missing_value_ = detect_missing_value__tmp
[472]	527	ENDIF
[581]	528
[326]	529	IF (PRESENT(domain_ref_)) THEN
[966]	530	CALL cxios_get_fieldgroup_domain_ref &
	531	(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
[326]	532	ENDIF
[581]	533
[326]	534	IF (PRESENT(enabled_)) THEN
[966]	535	CALL cxios_get_fieldgroup_enabled &
	536	(fieldgroup_hdl%daddr, enabled__tmp)
[581]	537	enabled_ = enabled__tmp
[326]	538	ENDIF
[581]	539
[1005]	540	IF (PRESENT(expr_)) THEN
	541	CALL cxios_get_fieldgroup_expr &
	542	(fieldgroup_hdl%daddr, expr_, len(expr_))
	543	ENDIF
	544
[326]	545	IF (PRESENT(field_ref_)) THEN
[966]	546	CALL cxios_get_fieldgroup_field_ref &
	547	(fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
[326]	548	ENDIF
[581]	549
[326]	550	IF (PRESENT(freq_offset_)) THEN
[966]	551	CALL cxios_get_fieldgroup_freq_offset &
	552	(fieldgroup_hdl%daddr, freq_offset_)
[326]	553	ENDIF
[581]	554
[326]	555	IF (PRESENT(freq_op_)) THEN
[966]	556	CALL cxios_get_fieldgroup_freq_op &
	557	(fieldgroup_hdl%daddr, freq_op_)
[326]	558	ENDIF
[581]	559
[790]	560	IF (PRESENT(grid_path_)) THEN
[966]	561	CALL cxios_get_fieldgroup_grid_path &
	562	(fieldgroup_hdl%daddr, grid_path_, len(grid_path_))
[790]	563	ENDIF
	564
[326]	565	IF (PRESENT(grid_ref_)) THEN
[966]	566	CALL cxios_get_fieldgroup_grid_ref &
	567	(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
[326]	568	ENDIF
[581]	569
[326]	570	IF (PRESENT(group_ref_)) THEN
[966]	571	CALL cxios_get_fieldgroup_group_ref &
	572	(fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
[326]	573	ENDIF
[581]	574
[676]	575	IF (PRESENT(indexed_output_)) THEN
[966]	576	CALL cxios_get_fieldgroup_indexed_output &
	577	(fieldgroup_hdl%daddr, indexed_output__tmp)
[676]	578	indexed_output_ = indexed_output__tmp
	579	ENDIF
	580
[326]	581	IF (PRESENT(level_)) THEN
[966]	582	CALL cxios_get_fieldgroup_level &
	583	(fieldgroup_hdl%daddr, level_)
[326]	584	ENDIF
[581]	585
[326]	586	IF (PRESENT(long_name_)) THEN
[966]	587	CALL cxios_get_fieldgroup_long_name &
	588	(fieldgroup_hdl%daddr, long_name_, len(long_name_))
[326]	589	ENDIF
[581]	590
[326]	591	IF (PRESENT(name_)) THEN
[966]	592	CALL cxios_get_fieldgroup_name &
	593	(fieldgroup_hdl%daddr, name_, len(name_))
[326]	594	ENDIF
[581]	595
[326]	596	IF (PRESENT(operation_)) THEN
[966]	597	CALL cxios_get_fieldgroup_operation &
	598	(fieldgroup_hdl%daddr, operation_, len(operation_))
[326]	599	ENDIF
[581]	600
[326]	601	IF (PRESENT(prec_)) THEN
[966]	602	CALL cxios_get_fieldgroup_prec &
	603	(fieldgroup_hdl%daddr, prec_)
[326]	604	ENDIF
[581]	605
[593]	606	IF (PRESENT(read_access_)) THEN
[966]	607	CALL cxios_get_fieldgroup_read_access &
	608	(fieldgroup_hdl%daddr, read_access__tmp)
[593]	609	read_access_ = read_access__tmp
	610	ENDIF
	611
[891]	612	IF (PRESENT(scalar_ref_)) THEN
[966]	613	CALL cxios_get_fieldgroup_scalar_ref &
	614	(fieldgroup_hdl%daddr, scalar_ref_, len(scalar_ref_))
[891]	615	ENDIF
	616
[464]	617	IF (PRESENT(scale_factor_)) THEN
[966]	618	CALL cxios_get_fieldgroup_scale_factor &
	619	(fieldgroup_hdl%daddr, scale_factor_)
[464]	620	ENDIF
[581]	621
[326]	622	IF (PRESENT(standard_name_)) THEN
[966]	623	CALL cxios_get_fieldgroup_standard_name &
	624	(fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
[326]	625	ENDIF
[581]	626
[711]	627	IF (PRESENT(ts_enabled_)) THEN
[966]	628	CALL cxios_get_fieldgroup_ts_enabled &
	629	(fieldgroup_hdl%daddr, ts_enabled__tmp)
[711]	630	ts_enabled_ = ts_enabled__tmp
	631	ENDIF
	632
	633	IF (PRESENT(ts_split_freq_)) THEN
[966]	634	CALL cxios_get_fieldgroup_ts_split_freq &
	635	(fieldgroup_hdl%daddr, ts_split_freq_)
[711]	636	ENDIF
	637
[326]	638	IF (PRESENT(unit_)) THEN
[966]	639	CALL cxios_get_fieldgroup_unit &
	640	(fieldgroup_hdl%daddr, unit_, len(unit_))
[326]	641	ENDIF
[581]	642
[463]	643	IF (PRESENT(valid_max_)) THEN
[966]	644	CALL cxios_get_fieldgroup_valid_max &
	645	(fieldgroup_hdl%daddr, valid_max_)
[463]	646	ENDIF
[581]	647
[463]	648	IF (PRESENT(valid_min_)) THEN
[966]	649	CALL cxios_get_fieldgroup_valid_min &
	650	(fieldgroup_hdl%daddr, valid_min_)
[463]	651	ENDIF
[581]	652
[326]	653	END SUBROUTINE xios(get_fieldgroup_attr_hdl_)
[581]	654
[432]	655	SUBROUTINE xios(is_defined_fieldgroup_attr) &
[991]	656	( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value &
[1005]	657	, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path &
	658	, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access &
	659	, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min &
	660	)
[581]	661
[432]	662	IMPLICIT NONE
	663	TYPE(txios(fieldgroup)) :: fieldgroup_hdl
	664	CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
[464]	665	LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
	666	LOGICAL(KIND=C_BOOL) :: add_offset_tmp
[432]	667	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
	668	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[991]	669	LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods
	670	LOGICAL(KIND=C_BOOL) :: cell_methods_tmp
	671	LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode
	672	LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp
[608]	673	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
	674	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[432]	675	LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
	676	LOGICAL(KIND=C_BOOL) :: default_value_tmp
[472]	677	LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
	678	LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
[432]	679	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
	680	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
	681	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
	682	LOGICAL(KIND=C_BOOL) :: enabled_tmp
[1005]	683	LOGICAL, OPTIONAL, INTENT(OUT) :: expr
	684	LOGICAL(KIND=C_BOOL) :: expr_tmp
[432]	685	LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
	686	LOGICAL(KIND=C_BOOL) :: field_ref_tmp
	687	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
	688	LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
	689	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
	690	LOGICAL(KIND=C_BOOL) :: freq_op_tmp
[790]	691	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path
	692	LOGICAL(KIND=C_BOOL) :: grid_path_tmp
[432]	693	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
	694	LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
	695	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	696	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[676]	697	LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
	698	LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
[432]	699	LOGICAL, OPTIONAL, INTENT(OUT) :: level
	700	LOGICAL(KIND=C_BOOL) :: level_tmp
	701	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	702	LOGICAL(KIND=C_BOOL) :: long_name_tmp
	703	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	704	LOGICAL(KIND=C_BOOL) :: name_tmp
	705	LOGICAL, OPTIONAL, INTENT(OUT) :: operation
	706	LOGICAL(KIND=C_BOOL) :: operation_tmp
	707	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
	708	LOGICAL(KIND=C_BOOL) :: prec_tmp
[593]	709	LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
	710	LOGICAL(KIND=C_BOOL) :: read_access_tmp
[891]	711	LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
	712	LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
[464]	713	LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
	714	LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
[432]	715	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	716	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[711]	717	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled
	718	LOGICAL(KIND=C_BOOL) :: ts_enabled_tmp
	719	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq
	720	LOGICAL(KIND=C_BOOL) :: ts_split_freq_tmp
[432]	721	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
	722	LOGICAL(KIND=C_BOOL) :: unit_tmp
[463]	723	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
	724	LOGICAL(KIND=C_BOOL) :: valid_max_tmp
	725	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
	726	LOGICAL(KIND=C_BOOL) :: valid_min_tmp
[581]	727
[966]	728	CALL xios(get_fieldgroup_handle) &
	729	(fieldgroup_id,fieldgroup_hdl)
[432]	730	CALL xios(is_defined_fieldgroup_attr_hdl_) &
[991]	731	( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value &
[1005]	732	, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path &
	733	, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access &
	734	, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min &
	735	)
[581]	736
[432]	737	END SUBROUTINE xios(is_defined_fieldgroup_attr)
[581]	738
[432]	739	SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) &
[991]	740	( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value &
[1005]	741	, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path &
	742	, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access &
	743	, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min &
	744	)
[581]	745
[432]	746	IMPLICIT NONE
	747	TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]	748	LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
	749	LOGICAL(KIND=C_BOOL) :: add_offset_tmp
[432]	750	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
	751	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[991]	752	LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods
	753	LOGICAL(KIND=C_BOOL) :: cell_methods_tmp
	754	LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode
	755	LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp
[608]	756	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
	757	LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[432]	758	LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
	759	LOGICAL(KIND=C_BOOL) :: default_value_tmp
[472]	760	LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
	761	LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
[432]	762	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
	763	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
	764	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
	765	LOGICAL(KIND=C_BOOL) :: enabled_tmp
[1005]	766	LOGICAL, OPTIONAL, INTENT(OUT) :: expr
	767	LOGICAL(KIND=C_BOOL) :: expr_tmp
[432]	768	LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
	769	LOGICAL(KIND=C_BOOL) :: field_ref_tmp
	770	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
	771	LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
	772	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
	773	LOGICAL(KIND=C_BOOL) :: freq_op_tmp
[790]	774	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path
	775	LOGICAL(KIND=C_BOOL) :: grid_path_tmp
[432]	776	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
	777	LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
	778	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	779	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[676]	780	LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
	781	LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
[432]	782	LOGICAL, OPTIONAL, INTENT(OUT) :: level
	783	LOGICAL(KIND=C_BOOL) :: level_tmp
	784	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	785	LOGICAL(KIND=C_BOOL) :: long_name_tmp
	786	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	787	LOGICAL(KIND=C_BOOL) :: name_tmp
	788	LOGICAL, OPTIONAL, INTENT(OUT) :: operation
	789	LOGICAL(KIND=C_BOOL) :: operation_tmp
	790	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
	791	LOGICAL(KIND=C_BOOL) :: prec_tmp
[593]	792	LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
	793	LOGICAL(KIND=C_BOOL) :: read_access_tmp
[891]	794	LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
	795	LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
[464]	796	LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
	797	LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
[432]	798	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	799	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[711]	800	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled
	801	LOGICAL(KIND=C_BOOL) :: ts_enabled_tmp
	802	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq
	803	LOGICAL(KIND=C_BOOL) :: ts_split_freq_tmp
[432]	804	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
	805	LOGICAL(KIND=C_BOOL) :: unit_tmp
[463]	806	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
	807	LOGICAL(KIND=C_BOOL) :: valid_max_tmp
	808	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
	809	LOGICAL(KIND=C_BOOL) :: valid_min_tmp
[581]	810
[432]	811	CALL xios(is_defined_fieldgroup_attr_hdl_) &
[991]	812	( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value &
[1005]	813	, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path &
	814	, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access &
	815	, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min &
	816	)
[581]	817
[432]	818	END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)
[581]	819
[432]	820	SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_) &
[991]	821	( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, compression_level_ &
[1005]	822	, default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_ &
	823	, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_, level_, long_name_, name_, operation_ &
[991]	824	, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_ &
	825	, unit_, valid_max_, valid_min_ )
[581]	826
[432]	827	IMPLICIT NONE
	828	TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]	829	LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset_
	830	LOGICAL(KIND=C_BOOL) :: add_offset__tmp
[432]	831	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
	832	LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
[991]	833	LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_
	834	LOGICAL(KIND=C_BOOL) :: cell_methods__tmp
	835	LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode_
	836	LOGICAL(KIND=C_BOOL) :: cell_methods_mode__tmp
[608]	837	LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
	838	LOGICAL(KIND=C_BOOL) :: compression_level__tmp
[432]	839	LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_
	840	LOGICAL(KIND=C_BOOL) :: default_value__tmp
[472]	841	LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value_
	842	LOGICAL(KIND=C_BOOL) :: detect_missing_value__tmp
[432]	843	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
	844	LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
	845	LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
	846	LOGICAL(KIND=C_BOOL) :: enabled__tmp
[1005]	847	LOGICAL, OPTIONAL, INTENT(OUT) :: expr_
	848	LOGICAL(KIND=C_BOOL) :: expr__tmp
[432]	849	LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_
	850	LOGICAL(KIND=C_BOOL) :: field_ref__tmp
	851	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_
	852	LOGICAL(KIND=C_BOOL) :: freq_offset__tmp
	853	LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_
	854	LOGICAL(KIND=C_BOOL) :: freq_op__tmp
[790]	855	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path_
	856	LOGICAL(KIND=C_BOOL) :: grid_path__tmp
[432]	857	LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_
	858	LOGICAL(KIND=C_BOOL) :: grid_ref__tmp
	859	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
	860	LOGICAL(KIND=C_BOOL) :: group_ref__tmp
[676]	861	LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output_
	862	LOGICAL(KIND=C_BOOL) :: indexed_output__tmp
[432]	863	LOGICAL, OPTIONAL, INTENT(OUT) :: level_
	864	LOGICAL(KIND=C_BOOL) :: level__tmp
	865	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
	866	LOGICAL(KIND=C_BOOL) :: long_name__tmp
	867	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
	868	LOGICAL(KIND=C_BOOL) :: name__tmp
	869	LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
	870	LOGICAL(KIND=C_BOOL) :: operation__tmp
	871	LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
	872	LOGICAL(KIND=C_BOOL) :: prec__tmp
[593]	873	LOGICAL, OPTIONAL, INTENT(OUT) :: read_access_
	874	LOGICAL(KIND=C_BOOL) :: read_access__tmp
[891]	875	LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref_
	876	LOGICAL(KIND=C_BOOL) :: scalar_ref__tmp
[464]	877	LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor_
	878	LOGICAL(KIND=C_BOOL) :: scale_factor__tmp
[432]	879	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
	880	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
[711]	881	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled_
	882	LOGICAL(KIND=C_BOOL) :: ts_enabled__tmp
	883	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq_
	884	LOGICAL(KIND=C_BOOL) :: ts_split_freq__tmp
[432]	885	LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
	886	LOGICAL(KIND=C_BOOL) :: unit__tmp
[463]	887	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max_
	888	LOGICAL(KIND=C_BOOL) :: valid_max__tmp
	889	LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min_
	890	LOGICAL(KIND=C_BOOL) :: valid_min__tmp
[581]	891
[464]	892	IF (PRESENT(add_offset_)) THEN
[966]	893	add_offset__tmp = cxios_is_defined_fieldgroup_add_offset &
	894	(fieldgroup_hdl%daddr)
[581]	895	add_offset_ = add_offset__tmp
[464]	896	ENDIF
[581]	897
[432]	898	IF (PRESENT(axis_ref_)) THEN
[966]	899	axis_ref__tmp = cxios_is_defined_fieldgroup_axis_ref &
	900	(fieldgroup_hdl%daddr)
[581]	901	axis_ref_ = axis_ref__tmp
[432]	902	ENDIF
[581]	903
[991]	904	IF (PRESENT(cell_methods_)) THEN
	905	cell_methods__tmp = cxios_is_defined_fieldgroup_cell_methods &
	906	(fieldgroup_hdl%daddr)
	907	cell_methods_ = cell_methods__tmp
	908	ENDIF
	909
	910	IF (PRESENT(cell_methods_mode_)) THEN
	911	cell_methods_mode__tmp = cxios_is_defined_fieldgroup_cell_methods_mode &
	912	(fieldgroup_hdl%daddr)
	913	cell_methods_mode_ = cell_methods_mode__tmp
	914	ENDIF
	915
[608]	916	IF (PRESENT(compression_level_)) THEN
[966]	917	compression_level__tmp = cxios_is_defined_fieldgroup_compression_level &
	918	(fieldgroup_hdl%daddr)
[608]	919	compression_level_ = compression_level__tmp
	920	ENDIF
	921
[432]	922	IF (PRESENT(default_value_)) THEN
[966]	923	default_value__tmp = cxios_is_defined_fieldgroup_default_value &
	924	(fieldgroup_hdl%daddr)
[581]	925	default_value_ = default_value__tmp
[432]	926	ENDIF
[581]	927
[472]	928	IF (PRESENT(detect_missing_value_)) THEN
[966]	929	detect_missing_value__tmp = cxios_is_defined_fieldgroup_detect_missing_value &
	930	(fieldgroup_hdl%daddr)
[581]	931	detect_missing_value_ = detect_missing_value__tmp
[472]	932	ENDIF
[581]	933
[432]	934	IF (PRESENT(domain_ref_)) THEN
[966]	935	domain_ref__tmp = cxios_is_defined_fieldgroup_domain_ref &
	936	(fieldgroup_hdl%daddr)
[581]	937	domain_ref_ = domain_ref__tmp
[432]	938	ENDIF
[581]	939
[432]	940	IF (PRESENT(enabled_)) THEN
[966]	941	enabled__tmp = cxios_is_defined_fieldgroup_enabled &
	942	(fieldgroup_hdl%daddr)
[581]	943	enabled_ = enabled__tmp
[432]	944	ENDIF
[581]	945
[1005]	946	IF (PRESENT(expr_)) THEN
	947	expr__tmp = cxios_is_defined_fieldgroup_expr &
	948	(fieldgroup_hdl%daddr)
	949	expr_ = expr__tmp
	950	ENDIF
	951
[432]	952	IF (PRESENT(field_ref_)) THEN
[966]	953	field_ref__tmp = cxios_is_defined_fieldgroup_field_ref &
	954	(fieldgroup_hdl%daddr)
[581]	955	field_ref_ = field_ref__tmp
[432]	956	ENDIF
[581]	957
[432]	958	IF (PRESENT(freq_offset_)) THEN
[966]	959	freq_offset__tmp = cxios_is_defined_fieldgroup_freq_offset &
	960	(fieldgroup_hdl%daddr)
[581]	961	freq_offset_ = freq_offset__tmp
[432]	962	ENDIF
[581]	963
[432]	964	IF (PRESENT(freq_op_)) THEN
[966]	965	freq_op__tmp = cxios_is_defined_fieldgroup_freq_op &
	966	(fieldgroup_hdl%daddr)
[581]	967	freq_op_ = freq_op__tmp
[432]	968	ENDIF
[581]	969
[790]	970	IF (PRESENT(grid_path_)) THEN
[966]	971	grid_path__tmp = cxios_is_defined_fieldgroup_grid_path &
	972	(fieldgroup_hdl%daddr)
[790]	973	grid_path_ = grid_path__tmp
	974	ENDIF
	975
[432]	976	IF (PRESENT(grid_ref_)) THEN
[966]	977	grid_ref__tmp = cxios_is_defined_fieldgroup_grid_ref &
	978	(fieldgroup_hdl%daddr)
[581]	979	grid_ref_ = grid_ref__tmp
[432]	980	ENDIF
[581]	981
[432]	982	IF (PRESENT(group_ref_)) THEN
[966]	983	group_ref__tmp = cxios_is_defined_fieldgroup_group_ref &
	984	(fieldgroup_hdl%daddr)
[581]	985	group_ref_ = group_ref__tmp
[432]	986	ENDIF
[581]	987
[676]	988	IF (PRESENT(indexed_output_)) THEN
[966]	989	indexed_output__tmp = cxios_is_defined_fieldgroup_indexed_output &
	990	(fieldgroup_hdl%daddr)
[676]	991	indexed_output_ = indexed_output__tmp
	992	ENDIF
	993
[432]	994	IF (PRESENT(level_)) THEN
[966]	995	level__tmp = cxios_is_defined_fieldgroup_level &
	996	(fieldgroup_hdl%daddr)
[581]	997	level_ = level__tmp
[432]	998	ENDIF
[581]	999
[432]	1000	IF (PRESENT(long_name_)) THEN
[966]	1001	long_name__tmp = cxios_is_defined_fieldgroup_long_name &
	1002	(fieldgroup_hdl%daddr)
[581]	1003	long_name_ = long_name__tmp
[432]	1004	ENDIF
[581]	1005
[432]	1006	IF (PRESENT(name_)) THEN
[966]	1007	name__tmp = cxios_is_defined_fieldgroup_name &
	1008	(fieldgroup_hdl%daddr)
[581]	1009	name_ = name__tmp
[432]	1010	ENDIF
[581]	1011
[432]	1012	IF (PRESENT(operation_)) THEN
[966]	1013	operation__tmp = cxios_is_defined_fieldgroup_operation &
	1014	(fieldgroup_hdl%daddr)
[581]	1015	operation_ = operation__tmp
[432]	1016	ENDIF
[581]	1017
[432]	1018	IF (PRESENT(prec_)) THEN
[966]	1019	prec__tmp = cxios_is_defined_fieldgroup_prec &
	1020	(fieldgroup_hdl%daddr)
[581]	1021	prec_ = prec__tmp
[432]	1022	ENDIF
[581]	1023
[593]	1024	IF (PRESENT(read_access_)) THEN
[966]	1025	read_access__tmp = cxios_is_defined_fieldgroup_read_access &
	1026	(fieldgroup_hdl%daddr)
[593]	1027	read_access_ = read_access__tmp
	1028	ENDIF
	1029
[891]	1030	IF (PRESENT(scalar_ref_)) THEN
[966]	1031	scalar_ref__tmp = cxios_is_defined_fieldgroup_scalar_ref &
	1032	(fieldgroup_hdl%daddr)
[891]	1033	scalar_ref_ = scalar_ref__tmp
	1034	ENDIF
	1035
[464]	1036	IF (PRESENT(scale_factor_)) THEN
[966]	1037	scale_factor__tmp = cxios_is_defined_fieldgroup_scale_factor &
	1038	(fieldgroup_hdl%daddr)
[581]	1039	scale_factor_ = scale_factor__tmp
[464]	1040	ENDIF
[581]	1041
[432]	1042	IF (PRESENT(standard_name_)) THEN
[966]	1043	standard_name__tmp = cxios_is_defined_fieldgroup_standard_name &
	1044	(fieldgroup_hdl%daddr)
[581]	1045	standard_name_ = standard_name__tmp
[432]	1046	ENDIF
[581]	1047
[711]	1048	IF (PRESENT(ts_enabled_)) THEN
[966]	1049	ts_enabled__tmp = cxios_is_defined_fieldgroup_ts_enabled &
	1050	(fieldgroup_hdl%daddr)
[711]	1051	ts_enabled_ = ts_enabled__tmp
	1052	ENDIF
	1053
	1054	IF (PRESENT(ts_split_freq_)) THEN
[966]	1055	ts_split_freq__tmp = cxios_is_defined_fieldgroup_ts_split_freq &
	1056	(fieldgroup_hdl%daddr)
[711]	1057	ts_split_freq_ = ts_split_freq__tmp
	1058	ENDIF
	1059
[432]	1060	IF (PRESENT(unit_)) THEN
[966]	1061	unit__tmp = cxios_is_defined_fieldgroup_unit &
	1062	(fieldgroup_hdl%daddr)
[581]	1063	unit_ = unit__tmp
[432]	1064	ENDIF
[581]	1065
[463]	1066	IF (PRESENT(valid_max_)) THEN
[966]	1067	valid_max__tmp = cxios_is_defined_fieldgroup_valid_max &
	1068	(fieldgroup_hdl%daddr)
[581]	1069	valid_max_ = valid_max__tmp
[463]	1070	ENDIF
[581]	1071
[463]	1072	IF (PRESENT(valid_min_)) THEN
[966]	1073	valid_min__tmp = cxios_is_defined_fieldgroup_valid_min &
	1074	(fieldgroup_hdl%daddr)
[581]	1075	valid_min_ = valid_min__tmp
[463]	1076	ENDIF
[581]	1077
[432]	1078	END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)
[581]	1079
[326]	1080	END MODULE ifieldgroup_attr

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

Download in other formats: