co_reduce_s Submodule

Uses

- iso_c_binding
- Ancestors:
- prif
- :
- prif_private_s
Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Contents

Variables

dummy

Abstract Interfaces

c_bool_operation c_char_operation c_double_complex_operation c_double_operation c_float_complex_operation c_float_operation c_int32_t_operation c_int64_t_operation

Module Procedures

Variables

Type	Visibility	Attributes		Name		Initial
character(kind=c_char,len=5),	private,	parameter	::	dummy	=	" "

Abstract Interfaces

abstract interface

pure function c_bool_operation(lhs, rhs) result(lhs_op_rhs)

Arguments

Type Intent Optional Attributes Name

logical(kind=c_bool), intent(in) :: lhs

logical(kind=c_bool), intent(in) :: rhs

Return Value logical(kind=c_bool)

abstract interface

function c_char_operation(lhs, rhs) result(lhs_op_rhs)

Arguments

Type Intent Optional Attributes Name

character(kind=c_char,len=*), intent(in) :: lhs

character(kind=c_char,len=*), intent(in) :: rhs

Return Value character(kind=c_char,len=len)

abstract interface

pure function c_double_complex_operation(lhs, rhs) result(lhs_op_rhs)

Arguments

Type Intent Optional Attributes Name

complex(kind=c_double), intent(in) :: lhs

complex(kind=c_double), intent(in) :: rhs

Return Value complex(kind=c_double)

abstract interface

pure function c_double_operation(lhs, rhs) result(lhs_op_rhs)

Arguments

Type Intent Optional Attributes Name

real(kind=c_double), intent(in) :: lhs

real(kind=c_double), intent(in) :: rhs

Return Value real(kind=c_double)

abstract interface

pure function c_float_complex_operation(lhs, rhs) result(lhs_op_rhs)

Arguments

Type Intent Optional Attributes Name

complex(kind=c_float), intent(in) :: lhs

complex(kind=c_float), intent(in) :: rhs

Return Value complex(kind=c_float)

abstract interface

pure function c_float_operation(lhs, rhs) result(lhs_op_rhs)

Arguments

Type Intent Optional Attributes Name

real(kind=c_float), intent(in) :: lhs

real(kind=c_float), intent(in) :: rhs

Return Value real(kind=c_float)

abstract interface

pure function c_int32_t_operation(lhs, rhs) result(lhs_op_rhs)

Arguments

Type Intent Optional Attributes Name

integer(kind=c_int32_t), intent(in) :: lhs

integer(kind=c_int32_t), intent(in) :: rhs

Return Value integer(kind=c_int32_t)

abstract interface

pure function c_int64_t_operation(lhs, rhs) result(lhs_op_rhs)

Arguments

Type Intent Optional Attributes Name

integer(kind=c_int64_t), intent(in) :: lhs

integer(kind=c_int64_t), intent(in) :: rhs

Return Value integer(kind=c_int64_t)

Module Procedures

module procedure prif_co_reduce module module subroutine prif_co_reduce(a, operation, result_image, stat, errmsg, errmsg_alloc)

Arguments

Type	Intent	Optional	Attributes		Name
type(*),	intent(inout),		contiguous, target	::	a(..)
type(c_funptr),			value	::	operation
integer(kind=c_int),	intent(in),	optional		::	result_image
integer(kind=c_int),	intent(out),	optional		::	stat
character(len=*),	intent(inout),	optional		::	errmsg
character(len=:),	intent(inout),	optional	allocatable	::	errmsg_alloc