Context Navigation

ifieldgroup_attr.F90 @ 983

Last change on this file since 983 was 966, checked in by mhnguyen, 8 years ago

Reducing length of line of auto-generate Fortran interface

+) Break line into smaller ones to make sure each line is not longer than 132 character

Test
+) Local with gcc4.8
+) Compilation passed

Property copyright set to
Software name : XIOS (Xml I/O Server)
http://forge.ipsl.jussieu.fr/ioserver
Creation date : January 2009
Licence : CeCCIL version2
see license file in root directory : Licence_CeCILL_V2-en.txt
or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
CNRS/IPSL (Institut Pierre Simon Laplace)
Project Manager : Yann Meurdesoif
yann.meurdesoif@cea.fr

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

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

Context Navigation

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

Download in other formats: