Context Navigation

iinterpolate_axis_attr.F90 @ 1005

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

Reducing length of line of auto-generate Fortran interface

+) Break line into smaller ones to make sure each line is not longer than 132 character

Test
+) Local with gcc4.8
+) Compilation passed

File size: 6.9 KB

Rev	Line
[786]	1	! * ************************************************************************** *
	2	! * Interface auto generated - do not modify *
	3	! * ************************************************************************** *
	4	#include "xios_fortran_prefix.hpp"
	5
	6	MODULE iinterpolate_axis_attr
	7	USE, INTRINSIC :: ISO_C_BINDING
	8	USE iinterpolate_axis
	9	USE interpolate_axis_interface_attr
	10
	11	CONTAINS
	12
	13	SUBROUTINE xios(set_interpolate_axis_attr) &
[891]	14	( interpolate_axis_id, coordinate, order, type )
[786]	15
	16	IMPLICIT NONE
	17	TYPE(txios(interpolate_axis)) :: interpolate_axis_hdl
	18	CHARACTER(LEN=*), INTENT(IN) ::interpolate_axis_id
[891]	19	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate
[786]	20	INTEGER , OPTIONAL, INTENT(IN) :: order
	21	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
	22
[966]	23	CALL xios(get_interpolate_axis_handle) &
	24	(interpolate_axis_id,interpolate_axis_hdl)
[786]	25	CALL xios(set_interpolate_axis_attr_hdl_) &
[891]	26	( interpolate_axis_hdl, coordinate, order, type )
[786]	27
	28	END SUBROUTINE xios(set_interpolate_axis_attr)
	29
	30	SUBROUTINE xios(set_interpolate_axis_attr_hdl) &
[891]	31	( interpolate_axis_hdl, coordinate, order, type )
[786]	32
	33	IMPLICIT NONE
	34	TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
[891]	35	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate
[786]	36	INTEGER , OPTIONAL, INTENT(IN) :: order
	37	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
	38
	39	CALL xios(set_interpolate_axis_attr_hdl_) &
[891]	40	( interpolate_axis_hdl, coordinate, order, type )
[786]	41
	42	END SUBROUTINE xios(set_interpolate_axis_attr_hdl)
	43
	44	SUBROUTINE xios(set_interpolate_axis_attr_hdl_) &
[891]	45	( interpolate_axis_hdl, coordinate_, order_, type_ )
[786]	46
	47	IMPLICIT NONE
	48	TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
[891]	49	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_
[786]	50	INTEGER , OPTIONAL, INTENT(IN) :: order_
	51	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
	52
[891]	53	IF (PRESENT(coordinate_)) THEN
[966]	54	CALL cxios_set_interpolate_axis_coordinate &
	55	(interpolate_axis_hdl%daddr, coordinate_, len(coordinate_))
[891]	56	ENDIF
	57
[786]	58	IF (PRESENT(order_)) THEN
[966]	59	CALL cxios_set_interpolate_axis_order &
	60	(interpolate_axis_hdl%daddr, order_)
[786]	61	ENDIF
	62
	63	IF (PRESENT(type_)) THEN
[966]	64	CALL cxios_set_interpolate_axis_type &
	65	(interpolate_axis_hdl%daddr, type_, len(type_))
[786]	66	ENDIF
	67
	68	END SUBROUTINE xios(set_interpolate_axis_attr_hdl_)
	69
	70	SUBROUTINE xios(get_interpolate_axis_attr) &
[891]	71	( interpolate_axis_id, coordinate, order, type )
[786]	72
	73	IMPLICIT NONE
	74	TYPE(txios(interpolate_axis)) :: interpolate_axis_hdl
	75	CHARACTER(LEN=*), INTENT(IN) ::interpolate_axis_id
[891]	76	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate
[786]	77	INTEGER , OPTIONAL, INTENT(OUT) :: order
	78	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
	79
[966]	80	CALL xios(get_interpolate_axis_handle) &
	81	(interpolate_axis_id,interpolate_axis_hdl)
[786]	82	CALL xios(get_interpolate_axis_attr_hdl_) &
[891]	83	( interpolate_axis_hdl, coordinate, order, type )
[786]	84
	85	END SUBROUTINE xios(get_interpolate_axis_attr)
	86
	87	SUBROUTINE xios(get_interpolate_axis_attr_hdl) &
[891]	88	( interpolate_axis_hdl, coordinate, order, type )
[786]	89
	90	IMPLICIT NONE
	91	TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
[891]	92	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate
[786]	93	INTEGER , OPTIONAL, INTENT(OUT) :: order
	94	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
	95
	96	CALL xios(get_interpolate_axis_attr_hdl_) &
[891]	97	( interpolate_axis_hdl, coordinate, order, type )
[786]	98
	99	END SUBROUTINE xios(get_interpolate_axis_attr_hdl)
	100
	101	SUBROUTINE xios(get_interpolate_axis_attr_hdl_) &
[891]	102	( interpolate_axis_hdl, coordinate_, order_, type_ )
[786]	103
	104	IMPLICIT NONE
	105	TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
[891]	106	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_
[786]	107	INTEGER , OPTIONAL, INTENT(OUT) :: order_
	108	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
	109
[891]	110	IF (PRESENT(coordinate_)) THEN
[966]	111	CALL cxios_get_interpolate_axis_coordinate &
	112	(interpolate_axis_hdl%daddr, coordinate_, len(coordinate_))
[891]	113	ENDIF
	114
[786]	115	IF (PRESENT(order_)) THEN
[966]	116	CALL cxios_get_interpolate_axis_order &
	117	(interpolate_axis_hdl%daddr, order_)
[786]	118	ENDIF
	119
	120	IF (PRESENT(type_)) THEN
[966]	121	CALL cxios_get_interpolate_axis_type &
	122	(interpolate_axis_hdl%daddr, type_, len(type_))
[786]	123	ENDIF
	124
	125	END SUBROUTINE xios(get_interpolate_axis_attr_hdl_)
	126
	127	SUBROUTINE xios(is_defined_interpolate_axis_attr) &
[891]	128	( interpolate_axis_id, coordinate, order, type )
[786]	129
	130	IMPLICIT NONE
	131	TYPE(txios(interpolate_axis)) :: interpolate_axis_hdl
	132	CHARACTER(LEN=*), INTENT(IN) ::interpolate_axis_id
[891]	133	LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate
	134	LOGICAL(KIND=C_BOOL) :: coordinate_tmp
[786]	135	LOGICAL, OPTIONAL, INTENT(OUT) :: order
	136	LOGICAL(KIND=C_BOOL) :: order_tmp
	137	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	138	LOGICAL(KIND=C_BOOL) :: type_tmp
	139
[966]	140	CALL xios(get_interpolate_axis_handle) &
	141	(interpolate_axis_id,interpolate_axis_hdl)
[786]	142	CALL xios(is_defined_interpolate_axis_attr_hdl_) &
[891]	143	( interpolate_axis_hdl, coordinate, order, type )
[786]	144
	145	END SUBROUTINE xios(is_defined_interpolate_axis_attr)
	146
	147	SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl) &
[891]	148	( interpolate_axis_hdl, coordinate, order, type )
[786]	149
	150	IMPLICIT NONE
	151	TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
[891]	152	LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate
	153	LOGICAL(KIND=C_BOOL) :: coordinate_tmp
[786]	154	LOGICAL, OPTIONAL, INTENT(OUT) :: order
	155	LOGICAL(KIND=C_BOOL) :: order_tmp
	156	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	157	LOGICAL(KIND=C_BOOL) :: type_tmp
	158
	159	CALL xios(is_defined_interpolate_axis_attr_hdl_) &
[891]	160	( interpolate_axis_hdl, coordinate, order, type )
[786]	161
	162	END SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl)
	163
	164	SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl_) &
[891]	165	( interpolate_axis_hdl, coordinate_, order_, type_ )
[786]	166
	167	IMPLICIT NONE
	168	TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
[891]	169	LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_
	170	LOGICAL(KIND=C_BOOL) :: coordinate__tmp
[786]	171	LOGICAL, OPTIONAL, INTENT(OUT) :: order_
	172	LOGICAL(KIND=C_BOOL) :: order__tmp
	173	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
	174	LOGICAL(KIND=C_BOOL) :: type__tmp
	175
[891]	176	IF (PRESENT(coordinate_)) THEN
[966]	177	coordinate__tmp = cxios_is_defined_interpolate_axis_coordinate &
	178	(interpolate_axis_hdl%daddr)
[891]	179	coordinate_ = coordinate__tmp
	180	ENDIF
	181
[786]	182	IF (PRESENT(order_)) THEN
[966]	183	order__tmp = cxios_is_defined_interpolate_axis_order &
	184	(interpolate_axis_hdl%daddr)
[786]	185	order_ = order__tmp
	186	ENDIF
	187
	188	IF (PRESENT(type_)) THEN
[966]	189	type__tmp = cxios_is_defined_interpolate_axis_type &
	190	(interpolate_axis_hdl%daddr)
[786]	191	type_ = type__tmp
	192	ENDIF
	193
	194	END SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl_)
	195
	196	END MODULE iinterpolate_axis_attr

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

Context Navigation

source: XIOS/trunk/src/interface/fortran_attr/iinterpolate_axis_attr.F90 @ 1005

Download in other formats: