Context Navigation

source: XIOS/trunk/src/interface/fortran_attr/ivariablegroup_attr.F90 @ 1545

Last change on this file since 1545 was 1158, checked in by oabramkina, 7 years ago
Two server levels: merging with trunk r1137. There are bugs.
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: 8.0 KB

Rev	Line
[472]	1	! * ************************************************************************** *
	2	! * Interface auto generated - do not modify *
	3	! * ************************************************************************** *
	4	#include "xios_fortran_prefix.hpp"
	5
	6	MODULE ivariablegroup_attr
	7	USE, INTRINSIC :: ISO_C_BINDING
	8	USE ivariable
	9	USE variablegroup_interface_attr
[581]	10
[472]	11	CONTAINS
[581]	12
[472]	13	SUBROUTINE xios(set_variablegroup_attr) &
[1158]	14	( variablegroup_id, group_ref, name, ts_target, type )
[581]	15
[472]	16	IMPLICIT NONE
	17	TYPE(txios(variablegroup)) :: variablegroup_hdl
	18	CHARACTER(LEN=*), INTENT(IN) ::variablegroup_id
	19	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
	20	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[1158]	21	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_target
[472]	22	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]	23
[966]	24	CALL xios(get_variablegroup_handle) &
	25	(variablegroup_id,variablegroup_hdl)
[472]	26	CALL xios(set_variablegroup_attr_hdl_) &
[1158]	27	( variablegroup_hdl, group_ref, name, ts_target, type )
[581]	28
[472]	29	END SUBROUTINE xios(set_variablegroup_attr)
[581]	30
[472]	31	SUBROUTINE xios(set_variablegroup_attr_hdl) &
[1158]	32	( variablegroup_hdl, group_ref, name, ts_target, type )
[581]	33
[472]	34	IMPLICIT NONE
	35	TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
	36	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
	37	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[1158]	38	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_target
[472]	39	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]	40
[472]	41	CALL xios(set_variablegroup_attr_hdl_) &
[1158]	42	( variablegroup_hdl, group_ref, name, ts_target, type )
[581]	43
[472]	44	END SUBROUTINE xios(set_variablegroup_attr_hdl)
[581]	45
[472]	46	SUBROUTINE xios(set_variablegroup_attr_hdl_) &
[1158]	47	( variablegroup_hdl, group_ref_, name_, ts_target_, type_ )
[581]	48
[472]	49	IMPLICIT NONE
	50	TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
	51	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
	52	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
[1158]	53	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_target_
[472]	54	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
[581]	55
[472]	56	IF (PRESENT(group_ref_)) THEN
[966]	57	CALL cxios_set_variablegroup_group_ref &
	58	(variablegroup_hdl%daddr, group_ref_, len(group_ref_))
[472]	59	ENDIF
[581]	60
[472]	61	IF (PRESENT(name_)) THEN
[966]	62	CALL cxios_set_variablegroup_name &
	63	(variablegroup_hdl%daddr, name_, len(name_))
[472]	64	ENDIF
[581]	65
[1158]	66	IF (PRESENT(ts_target_)) THEN
	67	CALL cxios_set_variablegroup_ts_target &
	68	(variablegroup_hdl%daddr, ts_target_, len(ts_target_))
	69	ENDIF
	70
[472]	71	IF (PRESENT(type_)) THEN
[966]	72	CALL cxios_set_variablegroup_type &
	73	(variablegroup_hdl%daddr, type_, len(type_))
[472]	74	ENDIF
[581]	75
[472]	76	END SUBROUTINE xios(set_variablegroup_attr_hdl_)
[581]	77
[472]	78	SUBROUTINE xios(get_variablegroup_attr) &
[1158]	79	( variablegroup_id, group_ref, name, ts_target, type )
[581]	80
[472]	81	IMPLICIT NONE
	82	TYPE(txios(variablegroup)) :: variablegroup_hdl
	83	CHARACTER(LEN=*), INTENT(IN) ::variablegroup_id
	84	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
	85	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[1158]	86	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_target
[472]	87	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]	88
[966]	89	CALL xios(get_variablegroup_handle) &
	90	(variablegroup_id,variablegroup_hdl)
[472]	91	CALL xios(get_variablegroup_attr_hdl_) &
[1158]	92	( variablegroup_hdl, group_ref, name, ts_target, type )
[581]	93
[472]	94	END SUBROUTINE xios(get_variablegroup_attr)
[581]	95
[472]	96	SUBROUTINE xios(get_variablegroup_attr_hdl) &
[1158]	97	( variablegroup_hdl, group_ref, name, ts_target, type )
[581]	98
[472]	99	IMPLICIT NONE
	100	TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
	101	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
	102	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[1158]	103	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_target
[472]	104	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]	105
[472]	106	CALL xios(get_variablegroup_attr_hdl_) &
[1158]	107	( variablegroup_hdl, group_ref, name, ts_target, type )
[581]	108
[472]	109	END SUBROUTINE xios(get_variablegroup_attr_hdl)
[581]	110
[472]	111	SUBROUTINE xios(get_variablegroup_attr_hdl_) &
[1158]	112	( variablegroup_hdl, group_ref_, name_, ts_target_, type_ )
[581]	113
[472]	114	IMPLICIT NONE
	115	TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
	116	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
	117	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
[1158]	118	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_target_
[472]	119	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
[581]	120
[472]	121	IF (PRESENT(group_ref_)) THEN
[966]	122	CALL cxios_get_variablegroup_group_ref &
	123	(variablegroup_hdl%daddr, group_ref_, len(group_ref_))
[472]	124	ENDIF
[581]	125
[472]	126	IF (PRESENT(name_)) THEN
[966]	127	CALL cxios_get_variablegroup_name &
	128	(variablegroup_hdl%daddr, name_, len(name_))
[472]	129	ENDIF
[581]	130
[1158]	131	IF (PRESENT(ts_target_)) THEN
	132	CALL cxios_get_variablegroup_ts_target &
	133	(variablegroup_hdl%daddr, ts_target_, len(ts_target_))
	134	ENDIF
	135
[472]	136	IF (PRESENT(type_)) THEN
[966]	137	CALL cxios_get_variablegroup_type &
	138	(variablegroup_hdl%daddr, type_, len(type_))
[472]	139	ENDIF
[581]	140
[472]	141	END SUBROUTINE xios(get_variablegroup_attr_hdl_)
[581]	142
[472]	143	SUBROUTINE xios(is_defined_variablegroup_attr) &
[1158]	144	( variablegroup_id, group_ref, name, ts_target, type )
[581]	145
[472]	146	IMPLICIT NONE
	147	TYPE(txios(variablegroup)) :: variablegroup_hdl
	148	CHARACTER(LEN=*), INTENT(IN) ::variablegroup_id
	149	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	150	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
	151	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	152	LOGICAL(KIND=C_BOOL) :: name_tmp
[1158]	153	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_target
	154	LOGICAL(KIND=C_BOOL) :: ts_target_tmp
[472]	155	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	156	LOGICAL(KIND=C_BOOL) :: type_tmp
[581]	157
[966]	158	CALL xios(get_variablegroup_handle) &
	159	(variablegroup_id,variablegroup_hdl)
[472]	160	CALL xios(is_defined_variablegroup_attr_hdl_) &
[1158]	161	( variablegroup_hdl, group_ref, name, ts_target, type )
[581]	162
[472]	163	END SUBROUTINE xios(is_defined_variablegroup_attr)
[581]	164
[472]	165	SUBROUTINE xios(is_defined_variablegroup_attr_hdl) &
[1158]	166	( variablegroup_hdl, group_ref, name, ts_target, type )
[581]	167
[472]	168	IMPLICIT NONE
	169	TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
	170	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	171	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
	172	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	173	LOGICAL(KIND=C_BOOL) :: name_tmp
[1158]	174	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_target
	175	LOGICAL(KIND=C_BOOL) :: ts_target_tmp
[472]	176	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	177	LOGICAL(KIND=C_BOOL) :: type_tmp
[581]	178
[472]	179	CALL xios(is_defined_variablegroup_attr_hdl_) &
[1158]	180	( variablegroup_hdl, group_ref, name, ts_target, type )
[581]	181
[472]	182	END SUBROUTINE xios(is_defined_variablegroup_attr_hdl)
[581]	183
[472]	184	SUBROUTINE xios(is_defined_variablegroup_attr_hdl_) &
[1158]	185	( variablegroup_hdl, group_ref_, name_, ts_target_, type_ )
[581]	186
[472]	187	IMPLICIT NONE
	188	TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
	189	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
	190	LOGICAL(KIND=C_BOOL) :: group_ref__tmp
	191	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
	192	LOGICAL(KIND=C_BOOL) :: name__tmp
[1158]	193	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_target_
	194	LOGICAL(KIND=C_BOOL) :: ts_target__tmp
[472]	195	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
	196	LOGICAL(KIND=C_BOOL) :: type__tmp
[581]	197
[472]	198	IF (PRESENT(group_ref_)) THEN
[966]	199	group_ref__tmp = cxios_is_defined_variablegroup_group_ref &
	200	(variablegroup_hdl%daddr)
[581]	201	group_ref_ = group_ref__tmp
[472]	202	ENDIF
[581]	203
[472]	204	IF (PRESENT(name_)) THEN
[966]	205	name__tmp = cxios_is_defined_variablegroup_name &
	206	(variablegroup_hdl%daddr)
[581]	207	name_ = name__tmp
[472]	208	ENDIF
[581]	209
[1158]	210	IF (PRESENT(ts_target_)) THEN
	211	ts_target__tmp = cxios_is_defined_variablegroup_ts_target &
	212	(variablegroup_hdl%daddr)
	213	ts_target_ = ts_target__tmp
	214	ENDIF
	215
[472]	216	IF (PRESENT(type_)) THEN
[966]	217	type__tmp = cxios_is_defined_variablegroup_type &
	218	(variablegroup_hdl%daddr)
[581]	219	type_ = type__tmp
[472]	220	ENDIF
[581]	221
[472]	222	END SUBROUTINE xios(is_defined_variablegroup_attr_hdl_)
[581]	223
[472]	224	END MODULE ivariablegroup_attr

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

Download in other formats: