fordot Module

Uses

- kinds
- fordot_opts
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.

Interfaces

public interface dot_product

private pure function dot_R0R1R1_rel(u, v, option) result(a)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in),		contiguous	::	u(:)
real(kind=rk),	intent(in),		contiguous	::	v(:)
character(len=*),	intent(in),	optional		::	option

Return Value real(kind=rk)

private pure function dot_R0R1R1_rel_block(u, v, option, nblock) result(a)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in),		contiguous	::	u(:)
real(kind=rk),	intent(in),		contiguous	::	v(:)
character(len=*),	intent(in),	optional		::	option
integer,	intent(in)			::	nblock

Return Value real(kind=rk)

private impure function dot_R0R1R1_rel_coarray(u, v, option, coarray) result(a)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in),		contiguous	::	u(:)
real(kind=rk),	intent(in),		contiguous	::	v(:)
character(len=*),	intent(in),	optional		::	option
logical,	intent(in)			::	coarray

Return Value real(kind=rk)

Functions

private pure function dot_R0R1R1_rel(u, v, option) result(a)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in),		contiguous	::	u(:)
real(kind=rk),	intent(in),		contiguous	::	v(:)
character(len=*),	intent(in),	optional		::	option

Return Value real(kind=rk)

private pure function dot_R0R1R1_rel_block(u, v, option, nblock) result(a)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in),		contiguous	::	u(:)
real(kind=rk),	intent(in),		contiguous	::	v(:)
character(len=*),	intent(in),	optional		::	option
integer,	intent(in)			::	nblock

Return Value real(kind=rk)

private impure function dot_R0R1R1_rel_coarray(u, v, option, coarray) result(a)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in),		contiguous	::	u(:)
real(kind=rk),	intent(in),		contiguous	::	v(:)
character(len=*),	intent(in),	optional		::	option
logical,	intent(in)			::	coarray

Return Value real(kind=rk)

Subroutines

private pure subroutine compute_block_ranges(d, nimg, block_size, start_elem, end_elem)

Calculate block sizes and ranges. author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	d
integer,	intent(in)			::	nimg
integer,	intent(out)			::	block_size(nimg)
integer,	intent(out)			::	start_elem(nimg)
integer,	intent(out)			::	end_elem(nimg)