Context Navigation

source: XIOS/dev/dev_olga/src/interface/fortran_attr/ivariable_attr.F90 @ 1216

Last change on this file since 1216 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: 6.2 KB

Rev	Line
[472]	1	! * ************************************************************************** *
	2	! * Interface auto generated - do not modify *
	3	! * ************************************************************************** *
	4	#include "xios_fortran_prefix.hpp"
	5
	6	MODULE ivariable_attr
	7	USE, INTRINSIC :: ISO_C_BINDING
	8	USE ivariable
	9	USE variable_interface_attr
[581]	10
[472]	11	CONTAINS
[581]	12
[472]	13	SUBROUTINE xios(set_variable_attr) &
[1158]	14	( variable_id, name, ts_target, type )
[581]	15
[472]	16	IMPLICIT NONE
	17	TYPE(txios(variable)) :: variable_hdl
	18	CHARACTER(LEN=*), INTENT(IN) ::variable_id
	19	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[1158]	20	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_target
[472]	21	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]	22
[966]	23	CALL xios(get_variable_handle) &
	24	(variable_id,variable_hdl)
[472]	25	CALL xios(set_variable_attr_hdl_) &
[1158]	26	( variable_hdl, name, ts_target, type )
[581]	27
[472]	28	END SUBROUTINE xios(set_variable_attr)
[581]	29
[472]	30	SUBROUTINE xios(set_variable_attr_hdl) &
[1158]	31	( variable_hdl, name, ts_target, type )
[581]	32
[472]	33	IMPLICIT NONE
	34	TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
	35	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[1158]	36	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_target
[472]	37	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]	38
[472]	39	CALL xios(set_variable_attr_hdl_) &
[1158]	40	( variable_hdl, name, ts_target, type )
[581]	41
[472]	42	END SUBROUTINE xios(set_variable_attr_hdl)
[581]	43
[472]	44	SUBROUTINE xios(set_variable_attr_hdl_) &
[1158]	45	( variable_hdl, name_, ts_target_, type_ )
[581]	46
[472]	47	IMPLICIT NONE
	48	TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
	49	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
[1158]	50	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_target_
[472]	51	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
[581]	52
[472]	53	IF (PRESENT(name_)) THEN
[966]	54	CALL cxios_set_variable_name &
	55	(variable_hdl%daddr, name_, len(name_))
[472]	56	ENDIF
[581]	57
[1158]	58	IF (PRESENT(ts_target_)) THEN
	59	CALL cxios_set_variable_ts_target &
	60	(variable_hdl%daddr, ts_target_, len(ts_target_))
	61	ENDIF
	62
[472]	63	IF (PRESENT(type_)) THEN
[966]	64	CALL cxios_set_variable_type &
	65	(variable_hdl%daddr, type_, len(type_))
[472]	66	ENDIF
[581]	67
[472]	68	END SUBROUTINE xios(set_variable_attr_hdl_)
[581]	69
[472]	70	SUBROUTINE xios(get_variable_attr) &
[1158]	71	( variable_id, name, ts_target, type )
[581]	72
[472]	73	IMPLICIT NONE
	74	TYPE(txios(variable)) :: variable_hdl
	75	CHARACTER(LEN=*), INTENT(IN) ::variable_id
	76	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[1158]	77	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_target
[472]	78	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]	79
[966]	80	CALL xios(get_variable_handle) &
	81	(variable_id,variable_hdl)
[472]	82	CALL xios(get_variable_attr_hdl_) &
[1158]	83	( variable_hdl, name, ts_target, type )
[581]	84
[472]	85	END SUBROUTINE xios(get_variable_attr)
[581]	86
[472]	87	SUBROUTINE xios(get_variable_attr_hdl) &
[1158]	88	( variable_hdl, name, ts_target, type )
[581]	89
[472]	90	IMPLICIT NONE
	91	TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
	92	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[1158]	93	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_target
[472]	94	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]	95
[472]	96	CALL xios(get_variable_attr_hdl_) &
[1158]	97	( variable_hdl, name, ts_target, type )
[581]	98
[472]	99	END SUBROUTINE xios(get_variable_attr_hdl)
[581]	100
[472]	101	SUBROUTINE xios(get_variable_attr_hdl_) &
[1158]	102	( variable_hdl, name_, ts_target_, type_ )
[581]	103
[472]	104	IMPLICIT NONE
	105	TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
	106	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
[1158]	107	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_target_
[472]	108	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
[581]	109
[472]	110	IF (PRESENT(name_)) THEN
[966]	111	CALL cxios_get_variable_name &
	112	(variable_hdl%daddr, name_, len(name_))
[472]	113	ENDIF
[581]	114
[1158]	115	IF (PRESENT(ts_target_)) THEN
	116	CALL cxios_get_variable_ts_target &
	117	(variable_hdl%daddr, ts_target_, len(ts_target_))
	118	ENDIF
	119
[472]	120	IF (PRESENT(type_)) THEN
[966]	121	CALL cxios_get_variable_type &
	122	(variable_hdl%daddr, type_, len(type_))
[472]	123	ENDIF
[581]	124
[472]	125	END SUBROUTINE xios(get_variable_attr_hdl_)
[581]	126
[472]	127	SUBROUTINE xios(is_defined_variable_attr) &
[1158]	128	( variable_id, name, ts_target, type )
[581]	129
[472]	130	IMPLICIT NONE
	131	TYPE(txios(variable)) :: variable_hdl
	132	CHARACTER(LEN=*), INTENT(IN) ::variable_id
	133	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	134	LOGICAL(KIND=C_BOOL) :: name_tmp
[1158]	135	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_target
	136	LOGICAL(KIND=C_BOOL) :: ts_target_tmp
[472]	137	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	138	LOGICAL(KIND=C_BOOL) :: type_tmp
[581]	139
[966]	140	CALL xios(get_variable_handle) &
	141	(variable_id,variable_hdl)
[472]	142	CALL xios(is_defined_variable_attr_hdl_) &
[1158]	143	( variable_hdl, name, ts_target, type )
[581]	144
[472]	145	END SUBROUTINE xios(is_defined_variable_attr)
[581]	146
[472]	147	SUBROUTINE xios(is_defined_variable_attr_hdl) &
[1158]	148	( variable_hdl, name, ts_target, type )
[581]	149
[472]	150	IMPLICIT NONE
	151	TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
	152	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	153	LOGICAL(KIND=C_BOOL) :: name_tmp
[1158]	154	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_target
	155	LOGICAL(KIND=C_BOOL) :: ts_target_tmp
[472]	156	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	157	LOGICAL(KIND=C_BOOL) :: type_tmp
[581]	158
[472]	159	CALL xios(is_defined_variable_attr_hdl_) &
[1158]	160	( variable_hdl, name, ts_target, type )
[581]	161
[472]	162	END SUBROUTINE xios(is_defined_variable_attr_hdl)
[581]	163
[472]	164	SUBROUTINE xios(is_defined_variable_attr_hdl_) &
[1158]	165	( variable_hdl, name_, ts_target_, type_ )
[581]	166
[472]	167	IMPLICIT NONE
	168	TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
	169	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
	170	LOGICAL(KIND=C_BOOL) :: name__tmp
[1158]	171	LOGICAL, OPTIONAL, INTENT(OUT) :: ts_target_
	172	LOGICAL(KIND=C_BOOL) :: ts_target__tmp
[472]	173	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
	174	LOGICAL(KIND=C_BOOL) :: type__tmp
[581]	175
[472]	176	IF (PRESENT(name_)) THEN
[966]	177	name__tmp = cxios_is_defined_variable_name &
	178	(variable_hdl%daddr)
[581]	179	name_ = name__tmp
[472]	180	ENDIF
[581]	181
[1158]	182	IF (PRESENT(ts_target_)) THEN
	183	ts_target__tmp = cxios_is_defined_variable_ts_target &
	184	(variable_hdl%daddr)
	185	ts_target_ = ts_target__tmp
	186	ENDIF
	187
[472]	188	IF (PRESENT(type_)) THEN
[966]	189	type__tmp = cxios_is_defined_variable_type &
	190	(variable_hdl%daddr)
[581]	191	type_ = type__tmp
[472]	192	ENDIF
[581]	193
[472]	194	END SUBROUTINE xios(is_defined_variable_attr_hdl_)
[581]	195
[472]	196	END MODULE ivariable_attr

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

Download in other formats: