Context Navigation

source: XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/ireduce_domain_to_scalar_attr.F90 @ 2338

Last change on this file since 2338 was 1492, checked in by oabramkina, 6 years ago

Updating fortran interface for attributes that have been recently introduced and the following filters:

duplicate_scalar_to_axis
reduce_axis_to_axis
reduce_scalar_to_scalar
reorder_domain
temporal_splitting.

File size: 6.7 KB

Rev	Line
[981]	1	! * ************************************************************************** *
	2	! * Interface auto generated - do not modify *
	3	! * ************************************************************************** *
	4	#include "xios_fortran_prefix.hpp"
	5
	6	MODULE ireduce_domain_to_scalar_attr
	7	USE, INTRINSIC :: ISO_C_BINDING
	8	USE ireduce_domain_to_scalar
	9	USE reduce_domain_to_scalar_interface_attr
	10
	11	CONTAINS
	12
	13	SUBROUTINE xios(set_reduce_domain_to_scalar_attr) &
[1492]	14	( reduce_domain_to_scalar_id, local, operation )
[981]	15
	16	IMPLICIT NONE
	17	TYPE(txios(reduce_domain_to_scalar)) :: reduce_domain_to_scalar_hdl
	18	CHARACTER(LEN=*), INTENT(IN) ::reduce_domain_to_scalar_id
[1492]	19	LOGICAL , OPTIONAL, INTENT(IN) :: local
	20	LOGICAL (KIND=C_BOOL) :: local_tmp
[981]	21	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
	22
	23	CALL xios(get_reduce_domain_to_scalar_handle) &
	24	(reduce_domain_to_scalar_id,reduce_domain_to_scalar_hdl)
	25	CALL xios(set_reduce_domain_to_scalar_attr_hdl_) &
[1492]	26	( reduce_domain_to_scalar_hdl, local, operation )
[981]	27
	28	END SUBROUTINE xios(set_reduce_domain_to_scalar_attr)
	29
	30	SUBROUTINE xios(set_reduce_domain_to_scalar_attr_hdl) &
[1492]	31	( reduce_domain_to_scalar_hdl, local, operation )
[981]	32
	33	IMPLICIT NONE
	34	TYPE(txios(reduce_domain_to_scalar)) , INTENT(IN) :: reduce_domain_to_scalar_hdl
[1492]	35	LOGICAL , OPTIONAL, INTENT(IN) :: local
	36	LOGICAL (KIND=C_BOOL) :: local_tmp
[981]	37	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
	38
	39	CALL xios(set_reduce_domain_to_scalar_attr_hdl_) &
[1492]	40	( reduce_domain_to_scalar_hdl, local, operation )
[981]	41
	42	END SUBROUTINE xios(set_reduce_domain_to_scalar_attr_hdl)
	43
	44	SUBROUTINE xios(set_reduce_domain_to_scalar_attr_hdl_) &
[1492]	45	( reduce_domain_to_scalar_hdl, local_, operation_ )
[981]	46
	47	IMPLICIT NONE
	48	TYPE(txios(reduce_domain_to_scalar)) , INTENT(IN) :: reduce_domain_to_scalar_hdl
[1492]	49	LOGICAL , OPTIONAL, INTENT(IN) :: local_
	50	LOGICAL (KIND=C_BOOL) :: local__tmp
[981]	51	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
	52
[1492]	53	IF (PRESENT(local_)) THEN
	54	local__tmp = local_
	55	CALL cxios_set_reduce_domain_to_scalar_local &
	56	(reduce_domain_to_scalar_hdl%daddr, local__tmp)
	57	ENDIF
	58
[981]	59	IF (PRESENT(operation_)) THEN
	60	CALL cxios_set_reduce_domain_to_scalar_operation &
	61	(reduce_domain_to_scalar_hdl%daddr, operation_, len(operation_))
	62	ENDIF
	63
	64	END SUBROUTINE xios(set_reduce_domain_to_scalar_attr_hdl_)
	65
	66	SUBROUTINE xios(get_reduce_domain_to_scalar_attr) &
[1492]	67	( reduce_domain_to_scalar_id, local, operation )
[981]	68
	69	IMPLICIT NONE
	70	TYPE(txios(reduce_domain_to_scalar)) :: reduce_domain_to_scalar_hdl
	71	CHARACTER(LEN=*), INTENT(IN) ::reduce_domain_to_scalar_id
[1492]	72	LOGICAL , OPTIONAL, INTENT(OUT) :: local
	73	LOGICAL (KIND=C_BOOL) :: local_tmp
[981]	74	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
	75
	76	CALL xios(get_reduce_domain_to_scalar_handle) &
	77	(reduce_domain_to_scalar_id,reduce_domain_to_scalar_hdl)
	78	CALL xios(get_reduce_domain_to_scalar_attr_hdl_) &
[1492]	79	( reduce_domain_to_scalar_hdl, local, operation )
[981]	80
	81	END SUBROUTINE xios(get_reduce_domain_to_scalar_attr)
	82
	83	SUBROUTINE xios(get_reduce_domain_to_scalar_attr_hdl) &
[1492]	84	( reduce_domain_to_scalar_hdl, local, operation )
[981]	85
	86	IMPLICIT NONE
	87	TYPE(txios(reduce_domain_to_scalar)) , INTENT(IN) :: reduce_domain_to_scalar_hdl
[1492]	88	LOGICAL , OPTIONAL, INTENT(OUT) :: local
	89	LOGICAL (KIND=C_BOOL) :: local_tmp
[981]	90	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
	91
	92	CALL xios(get_reduce_domain_to_scalar_attr_hdl_) &
[1492]	93	( reduce_domain_to_scalar_hdl, local, operation )
[981]	94
	95	END SUBROUTINE xios(get_reduce_domain_to_scalar_attr_hdl)
	96
	97	SUBROUTINE xios(get_reduce_domain_to_scalar_attr_hdl_) &
[1492]	98	( reduce_domain_to_scalar_hdl, local_, operation_ )
[981]	99
	100	IMPLICIT NONE
	101	TYPE(txios(reduce_domain_to_scalar)) , INTENT(IN) :: reduce_domain_to_scalar_hdl
[1492]	102	LOGICAL , OPTIONAL, INTENT(OUT) :: local_
	103	LOGICAL (KIND=C_BOOL) :: local__tmp
[981]	104	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
	105
[1492]	106	IF (PRESENT(local_)) THEN
	107	CALL cxios_get_reduce_domain_to_scalar_local &
	108	(reduce_domain_to_scalar_hdl%daddr, local__tmp)
	109	local_ = local__tmp
	110	ENDIF
	111
[981]	112	IF (PRESENT(operation_)) THEN
	113	CALL cxios_get_reduce_domain_to_scalar_operation &
	114	(reduce_domain_to_scalar_hdl%daddr, operation_, len(operation_))
	115	ENDIF
	116
	117	END SUBROUTINE xios(get_reduce_domain_to_scalar_attr_hdl_)
	118
	119	SUBROUTINE xios(is_defined_reduce_domain_to_scalar_attr) &
[1492]	120	( reduce_domain_to_scalar_id, local, operation )
[981]	121
	122	IMPLICIT NONE
	123	TYPE(txios(reduce_domain_to_scalar)) :: reduce_domain_to_scalar_hdl
	124	CHARACTER(LEN=*), INTENT(IN) ::reduce_domain_to_scalar_id
[1492]	125	LOGICAL, OPTIONAL, INTENT(OUT) :: local
	126	LOGICAL(KIND=C_BOOL) :: local_tmp
[981]	127	LOGICAL, OPTIONAL, INTENT(OUT) :: operation
	128	LOGICAL(KIND=C_BOOL) :: operation_tmp
	129
	130	CALL xios(get_reduce_domain_to_scalar_handle) &
	131	(reduce_domain_to_scalar_id,reduce_domain_to_scalar_hdl)
	132	CALL xios(is_defined_reduce_domain_to_scalar_attr_hdl_) &
[1492]	133	( reduce_domain_to_scalar_hdl, local, operation )
[981]	134
	135	END SUBROUTINE xios(is_defined_reduce_domain_to_scalar_attr)
	136
	137	SUBROUTINE xios(is_defined_reduce_domain_to_scalar_attr_hdl) &
[1492]	138	( reduce_domain_to_scalar_hdl, local, operation )
[981]	139
	140	IMPLICIT NONE
	141	TYPE(txios(reduce_domain_to_scalar)) , INTENT(IN) :: reduce_domain_to_scalar_hdl
[1492]	142	LOGICAL, OPTIONAL, INTENT(OUT) :: local
	143	LOGICAL(KIND=C_BOOL) :: local_tmp
[981]	144	LOGICAL, OPTIONAL, INTENT(OUT) :: operation
	145	LOGICAL(KIND=C_BOOL) :: operation_tmp
	146
	147	CALL xios(is_defined_reduce_domain_to_scalar_attr_hdl_) &
[1492]	148	( reduce_domain_to_scalar_hdl, local, operation )
[981]	149
	150	END SUBROUTINE xios(is_defined_reduce_domain_to_scalar_attr_hdl)
	151
	152	SUBROUTINE xios(is_defined_reduce_domain_to_scalar_attr_hdl_) &
[1492]	153	( reduce_domain_to_scalar_hdl, local_, operation_ )
[981]	154
	155	IMPLICIT NONE
	156	TYPE(txios(reduce_domain_to_scalar)) , INTENT(IN) :: reduce_domain_to_scalar_hdl
[1492]	157	LOGICAL, OPTIONAL, INTENT(OUT) :: local_
	158	LOGICAL(KIND=C_BOOL) :: local__tmp
[981]	159	LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
	160	LOGICAL(KIND=C_BOOL) :: operation__tmp
	161
[1492]	162	IF (PRESENT(local_)) THEN
	163	local__tmp = cxios_is_defined_reduce_domain_to_scalar_local &
	164	(reduce_domain_to_scalar_hdl%daddr)
	165	local_ = local__tmp
	166	ENDIF
	167
[981]	168	IF (PRESENT(operation_)) THEN
	169	operation__tmp = cxios_is_defined_reduce_domain_to_scalar_operation &
	170	(reduce_domain_to_scalar_hdl%daddr)
	171	operation_ = operation__tmp
	172	ENDIF
	173
	174	END SUBROUTINE xios(is_defined_reduce_domain_to_scalar_attr_hdl_)
	175
	176	END MODULE ireduce_domain_to_scalar_attr

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

Download in other formats: