Context Navigation

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

Last change on this file since 878 was 581, checked in by rlacroix, 9 years ago
Fix the Fortran interface generation to avoid generating dead code that caused a timer not to be stopped.
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: 6.6 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) &
	14	( variablegroup_id, group_ref, name, 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
	21	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]	22
[472]	23	CALL xios(get_variablegroup_handle)(variablegroup_id,variablegroup_hdl)
	24	CALL xios(set_variablegroup_attr_hdl_) &
	25	( variablegroup_hdl, group_ref, name, type )
[581]	26
[472]	27	END SUBROUTINE xios(set_variablegroup_attr)
[581]	28
[472]	29	SUBROUTINE xios(set_variablegroup_attr_hdl) &
	30	( variablegroup_hdl, group_ref, name, type )
[581]	31
[472]	32	IMPLICIT NONE
	33	TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
	34	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
	35	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	36	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]	37
[472]	38	CALL xios(set_variablegroup_attr_hdl_) &
	39	( variablegroup_hdl, group_ref, name, type )
[581]	40
[472]	41	END SUBROUTINE xios(set_variablegroup_attr_hdl)
[581]	42
[472]	43	SUBROUTINE xios(set_variablegroup_attr_hdl_) &
	44	( variablegroup_hdl, group_ref_, name_, type_ )
[581]	45
[472]	46	IMPLICIT NONE
	47	TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
	48	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
	49	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
	50	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
[581]	51
[472]	52	IF (PRESENT(group_ref_)) THEN
	53	CALL cxios_set_variablegroup_group_ref(variablegroup_hdl%daddr, group_ref_, len(group_ref_))
	54	ENDIF
[581]	55
[472]	56	IF (PRESENT(name_)) THEN
	57	CALL cxios_set_variablegroup_name(variablegroup_hdl%daddr, name_, len(name_))
	58	ENDIF
[581]	59
[472]	60	IF (PRESENT(type_)) THEN
	61	CALL cxios_set_variablegroup_type(variablegroup_hdl%daddr, type_, len(type_))
	62	ENDIF
[581]	63
[472]	64	END SUBROUTINE xios(set_variablegroup_attr_hdl_)
[581]	65
[472]	66	SUBROUTINE xios(get_variablegroup_attr) &
	67	( variablegroup_id, group_ref, name, type )
[581]	68
[472]	69	IMPLICIT NONE
	70	TYPE(txios(variablegroup)) :: variablegroup_hdl
	71	CHARACTER(LEN=*), INTENT(IN) ::variablegroup_id
	72	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
	73	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	74	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]	75
[472]	76	CALL xios(get_variablegroup_handle)(variablegroup_id,variablegroup_hdl)
	77	CALL xios(get_variablegroup_attr_hdl_) &
	78	( variablegroup_hdl, group_ref, name, type )
[581]	79
[472]	80	END SUBROUTINE xios(get_variablegroup_attr)
[581]	81
[472]	82	SUBROUTINE xios(get_variablegroup_attr_hdl) &
	83	( variablegroup_hdl, group_ref, name, type )
[581]	84
[472]	85	IMPLICIT NONE
	86	TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
	87	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
	88	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	89	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]	90
[472]	91	CALL xios(get_variablegroup_attr_hdl_) &
	92	( variablegroup_hdl, group_ref, name, type )
[581]	93
[472]	94	END SUBROUTINE xios(get_variablegroup_attr_hdl)
[581]	95
[472]	96	SUBROUTINE xios(get_variablegroup_attr_hdl_) &
	97	( variablegroup_hdl, group_ref_, name_, 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_
	103	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
[581]	104
[472]	105	IF (PRESENT(group_ref_)) THEN
	106	CALL cxios_get_variablegroup_group_ref(variablegroup_hdl%daddr, group_ref_, len(group_ref_))
	107	ENDIF
[581]	108
[472]	109	IF (PRESENT(name_)) THEN
	110	CALL cxios_get_variablegroup_name(variablegroup_hdl%daddr, name_, len(name_))
	111	ENDIF
[581]	112
[472]	113	IF (PRESENT(type_)) THEN
	114	CALL cxios_get_variablegroup_type(variablegroup_hdl%daddr, type_, len(type_))
	115	ENDIF
[581]	116
[472]	117	END SUBROUTINE xios(get_variablegroup_attr_hdl_)
[581]	118
[472]	119	SUBROUTINE xios(is_defined_variablegroup_attr) &
	120	( variablegroup_id, group_ref, name, type )
[581]	121
[472]	122	IMPLICIT NONE
	123	TYPE(txios(variablegroup)) :: variablegroup_hdl
	124	CHARACTER(LEN=*), INTENT(IN) ::variablegroup_id
	125	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	126	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
	127	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	128	LOGICAL(KIND=C_BOOL) :: name_tmp
	129	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	130	LOGICAL(KIND=C_BOOL) :: type_tmp
[581]	131
[472]	132	CALL xios(get_variablegroup_handle)(variablegroup_id,variablegroup_hdl)
	133	CALL xios(is_defined_variablegroup_attr_hdl_) &
	134	( variablegroup_hdl, group_ref, name, type )
[581]	135
[472]	136	END SUBROUTINE xios(is_defined_variablegroup_attr)
[581]	137
[472]	138	SUBROUTINE xios(is_defined_variablegroup_attr_hdl) &
	139	( variablegroup_hdl, group_ref, name, type )
[581]	140
[472]	141	IMPLICIT NONE
	142	TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
	143	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	144	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
	145	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	146	LOGICAL(KIND=C_BOOL) :: name_tmp
	147	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	148	LOGICAL(KIND=C_BOOL) :: type_tmp
[581]	149
[472]	150	CALL xios(is_defined_variablegroup_attr_hdl_) &
	151	( variablegroup_hdl, group_ref, name, type )
[581]	152
[472]	153	END SUBROUTINE xios(is_defined_variablegroup_attr_hdl)
[581]	154
[472]	155	SUBROUTINE xios(is_defined_variablegroup_attr_hdl_) &
	156	( variablegroup_hdl, group_ref_, name_, type_ )
[581]	157
[472]	158	IMPLICIT NONE
	159	TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
	160	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
	161	LOGICAL(KIND=C_BOOL) :: group_ref__tmp
	162	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
	163	LOGICAL(KIND=C_BOOL) :: name__tmp
	164	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
	165	LOGICAL(KIND=C_BOOL) :: type__tmp
[581]	166
[472]	167	IF (PRESENT(group_ref_)) THEN
[581]	168	group_ref__tmp = cxios_is_defined_variablegroup_group_ref(variablegroup_hdl%daddr)
	169	group_ref_ = group_ref__tmp
[472]	170	ENDIF
[581]	171
[472]	172	IF (PRESENT(name_)) THEN
[581]	173	name__tmp = cxios_is_defined_variablegroup_name(variablegroup_hdl%daddr)
	174	name_ = name__tmp
[472]	175	ENDIF
[581]	176
[472]	177	IF (PRESENT(type_)) THEN
[581]	178	type__tmp = cxios_is_defined_variablegroup_type(variablegroup_hdl%daddr)
	179	type_ = type__tmp
[472]	180	ENDIF
[581]	181
[472]	182	END SUBROUTINE xios(is_defined_variablegroup_attr_hdl_)
[581]	183
[472]	184	END MODULE ivariablegroup_attr

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

Download in other formats: