Context Navigation

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

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

Adding Fortran interface for reduce_axis_to_scalar

Test
+) On Curie
+) Only compilation

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

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

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

Download in other formats: