Context Navigation

source: XIOS/trunk/src/interface/fortran_attr/icalendar_wrapper_attr.F90 @ 674

Last change on this file since 674 was 674, checked in by rlacroix, 9 years ago

Fix Fortran interface generation to avoid generating long lines.

Long lines can cause compilation issues with some compilers.

File size: 17.0 KB

Rev	Line
[549]	1	! * ************************************************************************** *
	2	! * Interface auto generated - do not modify *
	3	! * ************************************************************************** *
	4	#include "xios_fortran_prefix.hpp"
	5
	6	MODULE icalendar_wrapper_attr
	7	USE, INTRINSIC :: ISO_C_BINDING
	8	USE icalendar_wrapper
	9	USE calendar_wrapper_interface_attr
[581]	10
[549]	11	CONTAINS
[581]	12
[549]	13	SUBROUTINE xios(set_calendar_wrapper_attr) &
[550]	14	( calendar_wrapper_id, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	15	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	16
[549]	17	IMPLICIT NONE
	18	TYPE(txios(calendar_wrapper)) :: calendar_wrapper_hdl
	19	CHARACTER(LEN=*), INTENT(IN) ::calendar_wrapper_id
[550]	20	INTEGER , OPTIONAL, INTENT(IN) :: day_length
	21	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: leap_year_drift
	22	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: leap_year_drift_offset
	23	INTEGER , OPTIONAL, INTENT(IN) :: leap_year_month
	24	INTEGER , OPTIONAL, INTENT(IN) :: month_lengths(:)
[549]	25	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: start_date
	26	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_origin
	27	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: timestep
	28	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[550]	29	INTEGER , OPTIONAL, INTENT(IN) :: year_length
[581]	30
[549]	31	CALL xios(get_calendar_wrapper_handle)(calendar_wrapper_id,calendar_wrapper_hdl)
	32	CALL xios(set_calendar_wrapper_attr_hdl_) &
[550]	33	( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	34	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	35
[549]	36	END SUBROUTINE xios(set_calendar_wrapper_attr)
[581]	37
[549]	38	SUBROUTINE xios(set_calendar_wrapper_attr_hdl) &
[550]	39	( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	40	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	41
[549]	42	IMPLICIT NONE
	43	TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl
[550]	44	INTEGER , OPTIONAL, INTENT(IN) :: day_length
	45	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: leap_year_drift
	46	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: leap_year_drift_offset
	47	INTEGER , OPTIONAL, INTENT(IN) :: leap_year_month
	48	INTEGER , OPTIONAL, INTENT(IN) :: month_lengths(:)
[549]	49	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: start_date
	50	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_origin
	51	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: timestep
	52	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[550]	53	INTEGER , OPTIONAL, INTENT(IN) :: year_length
[581]	54
[549]	55	CALL xios(set_calendar_wrapper_attr_hdl_) &
[550]	56	( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	57	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	58
[549]	59	END SUBROUTINE xios(set_calendar_wrapper_attr_hdl)
[581]	60
[549]	61	SUBROUTINE xios(set_calendar_wrapper_attr_hdl_) &
[550]	62	( calendar_wrapper_hdl, day_length_, leap_year_drift_, leap_year_drift_offset_, leap_year_month_ &
	63	, month_lengths_, start_date_, time_origin_, timestep_, type_, year_length_ )
[581]	64
[549]	65	IMPLICIT NONE
	66	TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl
[550]	67	INTEGER , OPTIONAL, INTENT(IN) :: day_length_
	68	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: leap_year_drift_
	69	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: leap_year_drift_offset_
	70	INTEGER , OPTIONAL, INTENT(IN) :: leap_year_month_
	71	INTEGER , OPTIONAL, INTENT(IN) :: month_lengths_(:)
[549]	72	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: start_date_
	73	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_origin_
	74	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: timestep_
	75	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
[550]	76	INTEGER , OPTIONAL, INTENT(IN) :: year_length_
[581]	77
[550]	78	IF (PRESENT(day_length_)) THEN
	79	CALL cxios_set_calendar_wrapper_day_length(calendar_wrapper_hdl%daddr, day_length_)
	80	ENDIF
[581]	81
[550]	82	IF (PRESENT(leap_year_drift_)) THEN
	83	CALL cxios_set_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl%daddr, leap_year_drift_)
	84	ENDIF
[581]	85
[550]	86	IF (PRESENT(leap_year_drift_offset_)) THEN
	87	CALL cxios_set_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl%daddr, leap_year_drift_offset_)
	88	ENDIF
[581]	89
[550]	90	IF (PRESENT(leap_year_month_)) THEN
	91	CALL cxios_set_calendar_wrapper_leap_year_month(calendar_wrapper_hdl%daddr, leap_year_month_)
	92	ENDIF
[581]	93
[550]	94	IF (PRESENT(month_lengths_)) THEN
[674]	95	CALL cxios_set_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr, month_lengths_, SHAPE(month_lengths_))
[550]	96	ENDIF
[581]	97
[549]	98	IF (PRESENT(start_date_)) THEN
	99	CALL cxios_set_calendar_wrapper_start_date(calendar_wrapper_hdl%daddr, start_date_, len(start_date_))
	100	ENDIF
[581]	101
[549]	102	IF (PRESENT(time_origin_)) THEN
	103	CALL cxios_set_calendar_wrapper_time_origin(calendar_wrapper_hdl%daddr, time_origin_, len(time_origin_))
	104	ENDIF
[581]	105
[549]	106	IF (PRESENT(timestep_)) THEN
	107	CALL cxios_set_calendar_wrapper_timestep(calendar_wrapper_hdl%daddr, timestep_)
	108	ENDIF
[581]	109
[549]	110	IF (PRESENT(type_)) THEN
	111	CALL cxios_set_calendar_wrapper_type(calendar_wrapper_hdl%daddr, type_, len(type_))
	112	ENDIF
[581]	113
[550]	114	IF (PRESENT(year_length_)) THEN
	115	CALL cxios_set_calendar_wrapper_year_length(calendar_wrapper_hdl%daddr, year_length_)
	116	ENDIF
[581]	117
[549]	118	END SUBROUTINE xios(set_calendar_wrapper_attr_hdl_)
[581]	119
[549]	120	SUBROUTINE xios(get_calendar_wrapper_attr) &
[550]	121	( calendar_wrapper_id, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	122	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	123
[549]	124	IMPLICIT NONE
	125	TYPE(txios(calendar_wrapper)) :: calendar_wrapper_hdl
	126	CHARACTER(LEN=*), INTENT(IN) ::calendar_wrapper_id
[550]	127	INTEGER , OPTIONAL, INTENT(OUT) :: day_length
	128	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: leap_year_drift
	129	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: leap_year_drift_offset
	130	INTEGER , OPTIONAL, INTENT(OUT) :: leap_year_month
	131	INTEGER , OPTIONAL, INTENT(OUT) :: month_lengths(:)
[549]	132	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: start_date
	133	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_origin
	134	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: timestep
	135	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[550]	136	INTEGER , OPTIONAL, INTENT(OUT) :: year_length
[581]	137
[549]	138	CALL xios(get_calendar_wrapper_handle)(calendar_wrapper_id,calendar_wrapper_hdl)
	139	CALL xios(get_calendar_wrapper_attr_hdl_) &
[550]	140	( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	141	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	142
[549]	143	END SUBROUTINE xios(get_calendar_wrapper_attr)
[581]	144
[549]	145	SUBROUTINE xios(get_calendar_wrapper_attr_hdl) &
[550]	146	( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	147	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	148
[549]	149	IMPLICIT NONE
	150	TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl
[550]	151	INTEGER , OPTIONAL, INTENT(OUT) :: day_length
	152	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: leap_year_drift
	153	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: leap_year_drift_offset
	154	INTEGER , OPTIONAL, INTENT(OUT) :: leap_year_month
	155	INTEGER , OPTIONAL, INTENT(OUT) :: month_lengths(:)
[549]	156	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: start_date
	157	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_origin
	158	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: timestep
	159	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[550]	160	INTEGER , OPTIONAL, INTENT(OUT) :: year_length
[581]	161
[549]	162	CALL xios(get_calendar_wrapper_attr_hdl_) &
[550]	163	( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	164	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	165
[549]	166	END SUBROUTINE xios(get_calendar_wrapper_attr_hdl)
[581]	167
[549]	168	SUBROUTINE xios(get_calendar_wrapper_attr_hdl_) &
[550]	169	( calendar_wrapper_hdl, day_length_, leap_year_drift_, leap_year_drift_offset_, leap_year_month_ &
	170	, month_lengths_, start_date_, time_origin_, timestep_, type_, year_length_ )
[581]	171
[549]	172	IMPLICIT NONE
	173	TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl
[550]	174	INTEGER , OPTIONAL, INTENT(OUT) :: day_length_
	175	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: leap_year_drift_
	176	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: leap_year_drift_offset_
	177	INTEGER , OPTIONAL, INTENT(OUT) :: leap_year_month_
	178	INTEGER , OPTIONAL, INTENT(OUT) :: month_lengths_(:)
[549]	179	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: start_date_
	180	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_origin_
	181	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: timestep_
	182	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
[550]	183	INTEGER , OPTIONAL, INTENT(OUT) :: year_length_
[581]	184
[550]	185	IF (PRESENT(day_length_)) THEN
	186	CALL cxios_get_calendar_wrapper_day_length(calendar_wrapper_hdl%daddr, day_length_)
	187	ENDIF
[581]	188
[550]	189	IF (PRESENT(leap_year_drift_)) THEN
	190	CALL cxios_get_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl%daddr, leap_year_drift_)
	191	ENDIF
[581]	192
[550]	193	IF (PRESENT(leap_year_drift_offset_)) THEN
	194	CALL cxios_get_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl%daddr, leap_year_drift_offset_)
	195	ENDIF
[581]	196
[550]	197	IF (PRESENT(leap_year_month_)) THEN
	198	CALL cxios_get_calendar_wrapper_leap_year_month(calendar_wrapper_hdl%daddr, leap_year_month_)
	199	ENDIF
[581]	200
[550]	201	IF (PRESENT(month_lengths_)) THEN
[674]	202	CALL cxios_get_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr, month_lengths_, SHAPE(month_lengths_))
[550]	203	ENDIF
[581]	204
[549]	205	IF (PRESENT(start_date_)) THEN
	206	CALL cxios_get_calendar_wrapper_start_date(calendar_wrapper_hdl%daddr, start_date_, len(start_date_))
	207	ENDIF
[581]	208
[549]	209	IF (PRESENT(time_origin_)) THEN
	210	CALL cxios_get_calendar_wrapper_time_origin(calendar_wrapper_hdl%daddr, time_origin_, len(time_origin_))
	211	ENDIF
[581]	212
[549]	213	IF (PRESENT(timestep_)) THEN
	214	CALL cxios_get_calendar_wrapper_timestep(calendar_wrapper_hdl%daddr, timestep_)
	215	ENDIF
[581]	216
[549]	217	IF (PRESENT(type_)) THEN
	218	CALL cxios_get_calendar_wrapper_type(calendar_wrapper_hdl%daddr, type_, len(type_))
	219	ENDIF
[581]	220
[550]	221	IF (PRESENT(year_length_)) THEN
	222	CALL cxios_get_calendar_wrapper_year_length(calendar_wrapper_hdl%daddr, year_length_)
	223	ENDIF
[581]	224
[549]	225	END SUBROUTINE xios(get_calendar_wrapper_attr_hdl_)
[581]	226
[549]	227	SUBROUTINE xios(is_defined_calendar_wrapper_attr) &
[550]	228	( calendar_wrapper_id, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	229	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	230
[549]	231	IMPLICIT NONE
	232	TYPE(txios(calendar_wrapper)) :: calendar_wrapper_hdl
	233	CHARACTER(LEN=*), INTENT(IN) ::calendar_wrapper_id
[550]	234	LOGICAL, OPTIONAL, INTENT(OUT) :: day_length
	235	LOGICAL(KIND=C_BOOL) :: day_length_tmp
	236	LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_drift
	237	LOGICAL(KIND=C_BOOL) :: leap_year_drift_tmp
	238	LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_drift_offset
	239	LOGICAL(KIND=C_BOOL) :: leap_year_drift_offset_tmp
	240	LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_month
	241	LOGICAL(KIND=C_BOOL) :: leap_year_month_tmp
	242	LOGICAL, OPTIONAL, INTENT(OUT) :: month_lengths
	243	LOGICAL(KIND=C_BOOL) :: month_lengths_tmp
[549]	244	LOGICAL, OPTIONAL, INTENT(OUT) :: start_date
	245	LOGICAL(KIND=C_BOOL) :: start_date_tmp
	246	LOGICAL, OPTIONAL, INTENT(OUT) :: time_origin
	247	LOGICAL(KIND=C_BOOL) :: time_origin_tmp
	248	LOGICAL, OPTIONAL, INTENT(OUT) :: timestep
	249	LOGICAL(KIND=C_BOOL) :: timestep_tmp
	250	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	251	LOGICAL(KIND=C_BOOL) :: type_tmp
[550]	252	LOGICAL, OPTIONAL, INTENT(OUT) :: year_length
	253	LOGICAL(KIND=C_BOOL) :: year_length_tmp
[581]	254
[549]	255	CALL xios(get_calendar_wrapper_handle)(calendar_wrapper_id,calendar_wrapper_hdl)
	256	CALL xios(is_defined_calendar_wrapper_attr_hdl_) &
[550]	257	( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	258	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	259
[549]	260	END SUBROUTINE xios(is_defined_calendar_wrapper_attr)
[581]	261
[549]	262	SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl) &
[550]	263	( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	264	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	265
[549]	266	IMPLICIT NONE
	267	TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl
[550]	268	LOGICAL, OPTIONAL, INTENT(OUT) :: day_length
	269	LOGICAL(KIND=C_BOOL) :: day_length_tmp
	270	LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_drift
	271	LOGICAL(KIND=C_BOOL) :: leap_year_drift_tmp
	272	LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_drift_offset
	273	LOGICAL(KIND=C_BOOL) :: leap_year_drift_offset_tmp
	274	LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_month
	275	LOGICAL(KIND=C_BOOL) :: leap_year_month_tmp
	276	LOGICAL, OPTIONAL, INTENT(OUT) :: month_lengths
	277	LOGICAL(KIND=C_BOOL) :: month_lengths_tmp
[549]	278	LOGICAL, OPTIONAL, INTENT(OUT) :: start_date
	279	LOGICAL(KIND=C_BOOL) :: start_date_tmp
	280	LOGICAL, OPTIONAL, INTENT(OUT) :: time_origin
	281	LOGICAL(KIND=C_BOOL) :: time_origin_tmp
	282	LOGICAL, OPTIONAL, INTENT(OUT) :: timestep
	283	LOGICAL(KIND=C_BOOL) :: timestep_tmp
	284	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	285	LOGICAL(KIND=C_BOOL) :: type_tmp
[550]	286	LOGICAL, OPTIONAL, INTENT(OUT) :: year_length
	287	LOGICAL(KIND=C_BOOL) :: year_length_tmp
[581]	288
[549]	289	CALL xios(is_defined_calendar_wrapper_attr_hdl_) &
[550]	290	( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	291	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	292
[549]	293	END SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl)
[581]	294
[549]	295	SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl_) &
[550]	296	( calendar_wrapper_hdl, day_length_, leap_year_drift_, leap_year_drift_offset_, leap_year_month_ &
	297	, month_lengths_, start_date_, time_origin_, timestep_, type_, year_length_ )
[581]	298
[549]	299	IMPLICIT NONE
	300	TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl
[550]	301	LOGICAL, OPTIONAL, INTENT(OUT) :: day_length_
	302	LOGICAL(KIND=C_BOOL) :: day_length__tmp
	303	LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_drift_
	304	LOGICAL(KIND=C_BOOL) :: leap_year_drift__tmp
	305	LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_drift_offset_
	306	LOGICAL(KIND=C_BOOL) :: leap_year_drift_offset__tmp
	307	LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_month_
	308	LOGICAL(KIND=C_BOOL) :: leap_year_month__tmp
	309	LOGICAL, OPTIONAL, INTENT(OUT) :: month_lengths_
	310	LOGICAL(KIND=C_BOOL) :: month_lengths__tmp
[549]	311	LOGICAL, OPTIONAL, INTENT(OUT) :: start_date_
	312	LOGICAL(KIND=C_BOOL) :: start_date__tmp
	313	LOGICAL, OPTIONAL, INTENT(OUT) :: time_origin_
	314	LOGICAL(KIND=C_BOOL) :: time_origin__tmp
	315	LOGICAL, OPTIONAL, INTENT(OUT) :: timestep_
	316	LOGICAL(KIND=C_BOOL) :: timestep__tmp
	317	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
	318	LOGICAL(KIND=C_BOOL) :: type__tmp
[550]	319	LOGICAL, OPTIONAL, INTENT(OUT) :: year_length_
	320	LOGICAL(KIND=C_BOOL) :: year_length__tmp
[581]	321
[550]	322	IF (PRESENT(day_length_)) THEN
[581]	323	day_length__tmp = cxios_is_defined_calendar_wrapper_day_length(calendar_wrapper_hdl%daddr)
	324	day_length_ = day_length__tmp
[550]	325	ENDIF
[581]	326
[550]	327	IF (PRESENT(leap_year_drift_)) THEN
[581]	328	leap_year_drift__tmp = cxios_is_defined_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl%daddr)
	329	leap_year_drift_ = leap_year_drift__tmp
[550]	330	ENDIF
[581]	331
[550]	332	IF (PRESENT(leap_year_drift_offset_)) THEN
[581]	333	leap_year_drift_offset__tmp = cxios_is_defined_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl%daddr)
	334	leap_year_drift_offset_ = leap_year_drift_offset__tmp
[550]	335	ENDIF
[581]	336
[550]	337	IF (PRESENT(leap_year_month_)) THEN
[581]	338	leap_year_month__tmp = cxios_is_defined_calendar_wrapper_leap_year_month(calendar_wrapper_hdl%daddr)
	339	leap_year_month_ = leap_year_month__tmp
[550]	340	ENDIF
[581]	341
[550]	342	IF (PRESENT(month_lengths_)) THEN
[581]	343	month_lengths__tmp = cxios_is_defined_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr)
	344	month_lengths_ = month_lengths__tmp
[550]	345	ENDIF
[581]	346
[549]	347	IF (PRESENT(start_date_)) THEN
[581]	348	start_date__tmp = cxios_is_defined_calendar_wrapper_start_date(calendar_wrapper_hdl%daddr)
	349	start_date_ = start_date__tmp
[549]	350	ENDIF
[581]	351
[549]	352	IF (PRESENT(time_origin_)) THEN
[581]	353	time_origin__tmp = cxios_is_defined_calendar_wrapper_time_origin(calendar_wrapper_hdl%daddr)
	354	time_origin_ = time_origin__tmp
[549]	355	ENDIF
[581]	356
[549]	357	IF (PRESENT(timestep_)) THEN
[581]	358	timestep__tmp = cxios_is_defined_calendar_wrapper_timestep(calendar_wrapper_hdl%daddr)
	359	timestep_ = timestep__tmp
[549]	360	ENDIF
[581]	361
[549]	362	IF (PRESENT(type_)) THEN
[581]	363	type__tmp = cxios_is_defined_calendar_wrapper_type(calendar_wrapper_hdl%daddr)
	364	type_ = type__tmp
[549]	365	ENDIF
[581]	366
[550]	367	IF (PRESENT(year_length_)) THEN
[581]	368	year_length__tmp = cxios_is_defined_calendar_wrapper_year_length(calendar_wrapper_hdl%daddr)
	369	year_length_ = year_length__tmp
[550]	370	ENDIF
[581]	371
[549]	372	END SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl_)
[581]	373
[549]	374	END MODULE icalendar_wrapper_attr

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

Download in other formats: