ply_prj_header_module

Uses

Interfaces

public interface assignment(=)

private pure subroutine Copy_poly_proj_header(left, right)

Arguments

Type	Intent	Optional	Attributes		Name
type(ply_prj_header_type),	intent(out)			::	left	fpt to copy to
type(ply_prj_header_type),	intent(in)			::	right	fpt to copy from

public interface operator(==)

private pure function isEqual(left, right) result(equality)

This function provides the test for equality of the header for two projections.

The headers are considered to be equal, if their kind and the corresponding headers are equal. For unknown kinds, the headers are not taken into consideration.

Arguments

Type	Intent	Optional	Attributes		Name
type(ply_prj_header_type),	intent(in)			::	left	projection to compare
type(ply_prj_header_type),	intent(in)			::	right	projection to compare against

Return Value logical

is equal??

public interface operator(/=)

private pure function isUnequal(left, right) result(unequality)

This function provides the test for unequality of the header of two projections.

Two projections are considered to be unequal, if their kind, their fpt-header or l2p_header are not equal.

Arguments

Type	Intent	Optional	Attributes		Name
type(ply_prj_header_type),	intent(in)			::	left	projection to compare
type(ply_prj_header_type),	intent(in)			::	right	projection to compare against

Return Value logical

is unequal??

public interface operator(<)

private pure function isSmaller(left, right) result(small)

This function provides a < comparison of the header of two projections.

Sorting of projections is given by the kind, fpt_header and last by l2p_header.

Arguments

Type	Intent	Optional	Attributes		Name
type(ply_prj_header_type),	intent(in)			::	left	projection to compare
type(ply_prj_header_type),	intent(in)			::	right	projection to compare against

Return Value logical

is smaller??

public interface operator(<=)

private pure function isSmallerOrEqual(left, right) result(small)

This function provides a <= comparison of the header of two projections.

Sorting of projections is given by kind, fpt_header and last by the l2p header.

Arguments

Type	Intent	Optional	Attributes		Name
type(ply_prj_header_type),	intent(in)			::	left	projection to compare
type(ply_prj_header_type),	intent(in)			::	right	projection to compare against

Return Value logical

is smaller??

public interface operator(>)

private pure function isGreater(left, right) result(great)

This function provides a > comparison of the header of two projections.

Sorting of projections is given by kind, fpt_header and last by l2p_header.

Arguments

Type	Intent	Optional	Attributes		Name
type(ply_prj_header_type),	intent(in)			::	left	projection to compare
type(ply_prj_header_type),	intent(in)			::	right	projection to compare against

Return Value logical

is greater??

public interface operator(>=)

private pure function isGreaterOrEqual(left, right) result(great)

This function provides a >= comparison of the header of two projections.

Sorting of projections is given by kind, fpt_header and last by l2p_header.

Arguments

Type	Intent	Optional	Attributes		Name
type(ply_prj_header_type),	intent(in)			::	left	projection to compare
type(ply_prj_header_type),	intent(in)			::	right	projection to compare against

Return Value logical

is greater??

Derived Types

type, public :: ply_prj_header_type

Configurable projection settings.

Components

Type	Visibility		Name
character(len=labelLen),	public	::	kind	Kind of projection. Currently available: - 'l2p', L2-Projection - 'fpt', Fast Polynomial Transformation. Requires the FFTW.
type(ply_fpt_header_type),	public	::	fpt_header
type(ply_l2p_header_type),	public	::	l2p_header
type(ply_fxt_header_type),	public	::	fxt_header

Functions

private pure function isEqual(left, right) result(equality)

This function provides the test for equality of the header for two projections.

Arguments

Type	Intent	Optional	Attributes		Name
type(ply_prj_header_type),	intent(in)			::	left	projection to compare
type(ply_prj_header_type),	intent(in)			::	right	projection to compare against

Return Value logical

is equal??

private pure function isUnequal(left, right) result(unequality)

This function provides the test for unequality of the header of two projections.

Arguments

Type	Intent	Optional	Attributes		Name
type(ply_prj_header_type),	intent(in)			::	left	projection to compare
type(ply_prj_header_type),	intent(in)			::	right	projection to compare against

Return Value logical

is unequal??

private pure function isSmaller(left, right) result(small)

This function provides a < comparison of the header of two projections.

Arguments

Type	Intent	Optional	Attributes		Name
type(ply_prj_header_type),	intent(in)			::	left	projection to compare
type(ply_prj_header_type),	intent(in)			::	right	projection to compare against

Return Value logical

is smaller??

private pure function isSmallerOrEqual(left, right) result(small)

This function provides a <= comparison of the header of two projections.

Arguments

Type	Intent	Optional	Attributes		Name
type(ply_prj_header_type),	intent(in)			::	left	projection to compare
type(ply_prj_header_type),	intent(in)			::	right	projection to compare against

Return Value logical

is smaller??

private pure function isGreater(left, right) result(great)

This function provides a > comparison of the header of two projections.

Arguments

Type	Intent	Optional	Attributes		Name
type(ply_prj_header_type),	intent(in)			::	left	projection to compare
type(ply_prj_header_type),	intent(in)			::	right	projection to compare against

Return Value logical

is greater??

private pure function isGreaterOrEqual(left, right) result(great)

This function provides a >= comparison of the header of two projections.

Arguments

Type	Intent	Optional	Attributes		Name
type(ply_prj_header_type),	intent(in)			::	left	projection to compare
type(ply_prj_header_type),	intent(in)			::	right	projection to compare against

Return Value logical

is greater??

Subroutines

public subroutine ply_prj_header_load(me, conf, parent)

Load settings to describe a projection method from a Lua table.

Arguments

Type	Intent		Name
type(ply_prj_header_type),	intent(out)	::	me
type(flu_State)		::	conf
integer,	intent(in)	::	parent	A parent Lua table, in which the boundary conditions are to be found.

public subroutine ply_prj_header_out(me, conf)

Load settings to describe a projection method from a Lua table.

Arguments

Type	Intent	Optional	Attributes		Name
type(ply_prj_header_type),	intent(in)			::	me
type(aot_out_type)				::	conf

private pure subroutine Copy_poly_proj_header(left, right)

Arguments

Type	Intent	Optional	Attributes		Name
type(ply_prj_header_type),	intent(out)			::	left	fpt to copy to
type(ply_prj_header_type),	intent(in)			::	right	fpt to copy from

ply_prj_header_module Module

Contents

Interfaces

Derived Types

Functions

Subroutines

Uses

Interfaces

public interface assignment(=)

private pure subroutine Copy_poly_proj_header(left, right)

Arguments

public interface operator(==)

private pure function isEqual(left, right) result(equality)

Arguments

Return Value logical

public interface operator(/=)

private pure function isUnequal(left, right) result(unequality)

Arguments

Return Value logical

public interface operator(<)

private pure function isSmaller(left, right) result(small)

Arguments

Return Value logical

public interface operator(<=)

private pure function isSmallerOrEqual(left, right) result(small)

Arguments

Return Value logical

public interface operator(>)

private pure function isGreater(left, right) result(great)

Arguments

Return Value logical

public interface operator(>=)

private pure function isGreaterOrEqual(left, right) result(great)

Arguments

Return Value logical

Derived Types

type, public :: ply_prj_header_type

Components

Functions

private pure function isEqual(left, right) result(equality)

Arguments

Return Value logical

private pure function isUnequal(left, right) result(unequality)

Arguments

Return Value logical

private pure function isSmaller(left, right) result(small)

Arguments

Return Value logical

private pure function isSmallerOrEqual(left, right) result(small)

Arguments

Return Value logical

private pure function isGreater(left, right) result(great)

Arguments

Return Value logical

private pure function isGreaterOrEqual(left, right) result(great)

Arguments

Return Value logical

Subroutines

public subroutine ply_prj_header_load(me, conf, parent)

Arguments

public subroutine ply_prj_header_out(me, conf)

Arguments

private pure subroutine Copy_poly_proj_header(left, right)

Arguments