Context Navigation

source: XIOS/trunk/src/interface/fortran_attr/iinterpolate_domain_attr.F90 @ 932

Last change on this file since 932 was 891, checked in by mhnguyen, 8 years ago

Adding Fortran interface for reduce_axis_to_scalar

Test
+) On Curie
+) Only compilation

File size: 7.3 KB

Rev	Line
[786]	1	! * ************************************************************************** *
	2	! * Interface auto generated - do not modify *
	3	! * ************************************************************************** *
	4	#include "xios_fortran_prefix.hpp"
	5
	6	MODULE iinterpolate_domain_attr
	7	USE, INTRINSIC :: ISO_C_BINDING
	8	USE iinterpolate_domain
	9	USE interpolate_domain_interface_attr
	10
	11	CONTAINS
	12
	13	SUBROUTINE xios(set_interpolate_domain_attr) &
[891]	14	( interpolate_domain_id, file, order, renormalize )
[786]	15
	16	IMPLICIT NONE
	17	TYPE(txios(interpolate_domain)) :: interpolate_domain_hdl
	18	CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
	19	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file
	20	INTEGER , OPTIONAL, INTENT(IN) :: order
[891]	21	LOGICAL , OPTIONAL, INTENT(IN) :: renormalize
	22	LOGICAL (KIND=C_BOOL) :: renormalize_tmp
[786]	23
	24	CALL xios(get_interpolate_domain_handle)(interpolate_domain_id,interpolate_domain_hdl)
	25	CALL xios(set_interpolate_domain_attr_hdl_) &
[891]	26	( interpolate_domain_hdl, file, order, renormalize )
[786]	27
	28	END SUBROUTINE xios(set_interpolate_domain_attr)
	29
	30	SUBROUTINE xios(set_interpolate_domain_attr_hdl) &
[891]	31	( interpolate_domain_hdl, file, order, renormalize )
[786]	32
	33	IMPLICIT NONE
	34	TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
	35	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file
	36	INTEGER , OPTIONAL, INTENT(IN) :: order
[891]	37	LOGICAL , OPTIONAL, INTENT(IN) :: renormalize
	38	LOGICAL (KIND=C_BOOL) :: renormalize_tmp
[786]	39
	40	CALL xios(set_interpolate_domain_attr_hdl_) &
[891]	41	( interpolate_domain_hdl, file, order, renormalize )
[786]	42
	43	END SUBROUTINE xios(set_interpolate_domain_attr_hdl)
	44
	45	SUBROUTINE xios(set_interpolate_domain_attr_hdl_) &
[891]	46	( interpolate_domain_hdl, file_, order_, renormalize_ )
[786]	47
	48	IMPLICIT NONE
	49	TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
	50	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file_
	51	INTEGER , OPTIONAL, INTENT(IN) :: order_
[891]	52	LOGICAL , OPTIONAL, INTENT(IN) :: renormalize_
	53	LOGICAL (KIND=C_BOOL) :: renormalize__tmp
[786]	54
	55	IF (PRESENT(file_)) THEN
	56	CALL cxios_set_interpolate_domain_file(interpolate_domain_hdl%daddr, file_, len(file_))
	57	ENDIF
	58
	59	IF (PRESENT(order_)) THEN
	60	CALL cxios_set_interpolate_domain_order(interpolate_domain_hdl%daddr, order_)
	61	ENDIF
	62
[891]	63	IF (PRESENT(renormalize_)) THEN
	64	renormalize__tmp = renormalize_
	65	CALL cxios_set_interpolate_domain_renormalize(interpolate_domain_hdl%daddr, renormalize__tmp)
	66	ENDIF
	67
[786]	68	END SUBROUTINE xios(set_interpolate_domain_attr_hdl_)
	69
	70	SUBROUTINE xios(get_interpolate_domain_attr) &
[891]	71	( interpolate_domain_id, file, order, renormalize )
[786]	72
	73	IMPLICIT NONE
	74	TYPE(txios(interpolate_domain)) :: interpolate_domain_hdl
	75	CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
	76	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file
	77	INTEGER , OPTIONAL, INTENT(OUT) :: order
[891]	78	LOGICAL , OPTIONAL, INTENT(OUT) :: renormalize
	79	LOGICAL (KIND=C_BOOL) :: renormalize_tmp
[786]	80
	81	CALL xios(get_interpolate_domain_handle)(interpolate_domain_id,interpolate_domain_hdl)
	82	CALL xios(get_interpolate_domain_attr_hdl_) &
[891]	83	( interpolate_domain_hdl, file, order, renormalize )
[786]	84
	85	END SUBROUTINE xios(get_interpolate_domain_attr)
	86
	87	SUBROUTINE xios(get_interpolate_domain_attr_hdl) &
[891]	88	( interpolate_domain_hdl, file, order, renormalize )
[786]	89
	90	IMPLICIT NONE
	91	TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
	92	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file
	93	INTEGER , OPTIONAL, INTENT(OUT) :: order
[891]	94	LOGICAL , OPTIONAL, INTENT(OUT) :: renormalize
	95	LOGICAL (KIND=C_BOOL) :: renormalize_tmp
[786]	96
	97	CALL xios(get_interpolate_domain_attr_hdl_) &
[891]	98	( interpolate_domain_hdl, file, order, renormalize )
[786]	99
	100	END SUBROUTINE xios(get_interpolate_domain_attr_hdl)
	101
	102	SUBROUTINE xios(get_interpolate_domain_attr_hdl_) &
[891]	103	( interpolate_domain_hdl, file_, order_, renormalize_ )
[786]	104
	105	IMPLICIT NONE
	106	TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
	107	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file_
	108	INTEGER , OPTIONAL, INTENT(OUT) :: order_
[891]	109	LOGICAL , OPTIONAL, INTENT(OUT) :: renormalize_
	110	LOGICAL (KIND=C_BOOL) :: renormalize__tmp
[786]	111
	112	IF (PRESENT(file_)) THEN
	113	CALL cxios_get_interpolate_domain_file(interpolate_domain_hdl%daddr, file_, len(file_))
	114	ENDIF
	115
	116	IF (PRESENT(order_)) THEN
	117	CALL cxios_get_interpolate_domain_order(interpolate_domain_hdl%daddr, order_)
	118	ENDIF
	119
[891]	120	IF (PRESENT(renormalize_)) THEN
	121	CALL cxios_get_interpolate_domain_renormalize(interpolate_domain_hdl%daddr, renormalize__tmp)
	122	renormalize_ = renormalize__tmp
	123	ENDIF
	124
[786]	125	END SUBROUTINE xios(get_interpolate_domain_attr_hdl_)
	126
	127	SUBROUTINE xios(is_defined_interpolate_domain_attr) &
[891]	128	( interpolate_domain_id, file, order, renormalize )
[786]	129
	130	IMPLICIT NONE
	131	TYPE(txios(interpolate_domain)) :: interpolate_domain_hdl
	132	CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
	133	LOGICAL, OPTIONAL, INTENT(OUT) :: file
	134	LOGICAL(KIND=C_BOOL) :: file_tmp
	135	LOGICAL, OPTIONAL, INTENT(OUT) :: order
	136	LOGICAL(KIND=C_BOOL) :: order_tmp
[891]	137	LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
	138	LOGICAL(KIND=C_BOOL) :: renormalize_tmp
[786]	139
	140	CALL xios(get_interpolate_domain_handle)(interpolate_domain_id,interpolate_domain_hdl)
	141	CALL xios(is_defined_interpolate_domain_attr_hdl_) &
[891]	142	( interpolate_domain_hdl, file, order, renormalize )
[786]	143
	144	END SUBROUTINE xios(is_defined_interpolate_domain_attr)
	145
	146	SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl) &
[891]	147	( interpolate_domain_hdl, file, order, renormalize )
[786]	148
	149	IMPLICIT NONE
	150	TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
	151	LOGICAL, OPTIONAL, INTENT(OUT) :: file
	152	LOGICAL(KIND=C_BOOL) :: file_tmp
	153	LOGICAL, OPTIONAL, INTENT(OUT) :: order
	154	LOGICAL(KIND=C_BOOL) :: order_tmp
[891]	155	LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
	156	LOGICAL(KIND=C_BOOL) :: renormalize_tmp
[786]	157
	158	CALL xios(is_defined_interpolate_domain_attr_hdl_) &
[891]	159	( interpolate_domain_hdl, file, order, renormalize )
[786]	160
	161	END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)
	162
	163	SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_) &
[891]	164	( interpolate_domain_hdl, file_, order_, renormalize_ )
[786]	165
	166	IMPLICIT NONE
	167	TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
	168	LOGICAL, OPTIONAL, INTENT(OUT) :: file_
	169	LOGICAL(KIND=C_BOOL) :: file__tmp
	170	LOGICAL, OPTIONAL, INTENT(OUT) :: order_
	171	LOGICAL(KIND=C_BOOL) :: order__tmp
[891]	172	LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize_
	173	LOGICAL(KIND=C_BOOL) :: renormalize__tmp
[786]	174
	175	IF (PRESENT(file_)) THEN
	176	file__tmp = cxios_is_defined_interpolate_domain_file(interpolate_domain_hdl%daddr)
	177	file_ = file__tmp
	178	ENDIF
	179
	180	IF (PRESENT(order_)) THEN
	181	order__tmp = cxios_is_defined_interpolate_domain_order(interpolate_domain_hdl%daddr)
	182	order_ = order__tmp
	183	ENDIF
	184
[891]	185	IF (PRESENT(renormalize_)) THEN
	186	renormalize__tmp = cxios_is_defined_interpolate_domain_renormalize(interpolate_domain_hdl%daddr)
	187	renormalize_ = renormalize__tmp
	188	ENDIF
	189
[786]	190	END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)
	191
	192	END MODULE iinterpolate_domain_attr

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

Download in other formats: