integrand_object

type, public, abstract :: integrand_object

Abstract type for building FOODIE ODE integrators.

Inherited By

Type-Bound Procedures

add_fast assign_integrand assign_real assignment(=) integrand_add_integrand integrand_add_integrand_fast integrand_add_real integrand_dimension integrand_multiply_integrand integrand_multiply_integrand_fast integrand_multiply_real integrand_multiply_real_scalar integrand_multiply_real_scalar_fast integrand_sub_integrand integrand_sub_real integrand_subtract_integrand_fast local_error multiply_fast operator(*) operator(+) operator(-) operator(.lterror.) real_add_integrand real_multiply_integrand real_scalar_multiply_integrand real_sub_integrand subtract_fast t t_fast

Source Code

integrand_object

Type-Bound Procedures

generic, public :: add_fast => integrand_add_integrand_fast

Overloading add_fast method.

private pure subroutine integrand_add_integrand_fast(opr, lhs, rhs)

+ fast operator.

Arguments

Type	Intent		Name
class(integrand_oscillation),	intent(inout)	::	opr	Operator result.
class(integrand_object),	intent(in)	::	lhs	Left hand side.
class(integrand_object),	intent(in)	::	rhs	Right hand side.

procedure(assignment_integrand), public, deferred, pass(lhs) :: assign_integrand

= operator.

subroutine assignment_integrand(lhs, rhs) Prototype

Symmetric assignment integrand = integrand.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_object),	intent(inout)			::	lhs	Left hand side.
class(integrand_object),	intent(in)			::	rhs	Right hand side.

procedure(assignment_real), public, deferred, pass(lhs) :: assign_real

= real operator.

pure subroutine assignment_real(lhs, rhs) Prototype

Symmetric assignment integrand = integrand.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_object),	intent(inout)			::	lhs	Left hand side.
real(kind=R_P),	intent(in)			::	rhs(1:)	Right hand side.

generic, public :: assignment(=) => assign_integrand, assign_real

Overloading = assignament.

private pure subroutine assign_integrand(lhs, rhs)

= operator.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_oscillation),	intent(inout)			::	lhs	Left hand side.
class(integrand_object),	intent(in)			::	rhs	Right hand side.

private pure subroutine assign_real(lhs, rhs)

= real operator.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_oscillation),	intent(inout)			::	lhs	Left hand side.
real(kind=R_P),	intent(in)			::	rhs(1:)	Right hand side.

procedure(symmetric_operator), public, deferred, pass(lhs) :: integrand_add_integrand

+ operator.

pure function symmetric_operator(lhs, rhs) result(operator_result) Prototype

Symmetric type operator integrand.op.integrand.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_object),	intent(in)			::	lhs	Left hand side.
class(integrand_object),	intent(in)			::	rhs	Right hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

procedure, public, pass(opr) :: integrand_add_integrand_fast

+ fast operator.

private pure subroutine integrand_add_integrand_fast(opr, lhs, rhs)

+ fast operator.

Arguments

Type	Intent		Name
class(integrand_object),	intent(inout)	::	opr	Operator result.
class(integrand_object),	intent(in)	::	lhs	Left hand side.
class(integrand_object),	intent(in)	::	rhs	Right hand side.

procedure(integrand_op_real), public, deferred, pass(lhs) :: integrand_add_real

+ real operator.

pure function integrand_op_real(lhs, rhs) result(operator_result) Prototype

Asymmetric type operator integrand.op.real.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_object),	intent(in)			::	lhs	Left hand side.
real(kind=R_P),	intent(in)			::	rhs(1:)	Right hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

procedure(integrand_dimension_interface), public, deferred, pass(self) :: integrand_dimension

Return integrand dimension.

pure function integrand_dimension_interface(self) result(integrand_dimension) Prototype

Return integrand dimension.

Arguments

Type Intent Optional Attributes Name

class(integrand_object), intent(in) :: self
Integrand.

Return Value integer(kind=I_P)

Integrand dimension.

Type	Intent	Optional	Attributes		Name
class(integrand_object),	intent(in)			::	self	Integrand.

procedure(symmetric_operator), public, deferred, pass(lhs) :: integrand_multiply_integrand

* operator.

pure function symmetric_operator(lhs, rhs) result(operator_result) Prototype

Symmetric type operator integrand.op.integrand.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_object),	intent(in)			::	lhs	Left hand side.
class(integrand_object),	intent(in)			::	rhs	Right hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

procedure, public, pass(opr) :: integrand_multiply_integrand_fast

* fast operator.

private pure subroutine integrand_multiply_integrand_fast(opr, lhs, rhs)

* fast operator.

Arguments

Type	Intent		Name
class(integrand_object),	intent(inout)	::	opr	Operator result.
class(integrand_object),	intent(in)	::	lhs	Left hand side.
class(integrand_object),	intent(in)	::	rhs	Right hand side.

procedure(integrand_op_real), public, deferred, pass(lhs) :: integrand_multiply_real

* real operator.

pure function integrand_op_real(lhs, rhs) result(operator_result) Prototype

Asymmetric type operator integrand.op.real.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_object),	intent(in)			::	lhs	Left hand side.
real(kind=R_P),	intent(in)			::	rhs(1:)	Right hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

procedure(integrand_op_real_scalar), public, deferred, pass(lhs) :: integrand_multiply_real_scalar

* real_scalar operator.

pure function integrand_op_real_scalar(lhs, rhs) result(operator_result) Prototype

Asymmetric type operator integrand.op.real.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_object),	intent(in)			::	lhs	Left hand side.
real(kind=R_P),	intent(in)			::	rhs	Right hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

procedure, public, pass(opr) :: integrand_multiply_real_scalar_fast

* real_scalar fast operator.

private pure subroutine integrand_multiply_real_scalar_fast(opr, lhs, rhs)

* real_scalar fast operator.

Arguments

Type	Intent		Name
class(integrand_object),	intent(inout)	::	opr	Operator result.
class(integrand_object),	intent(in)	::	lhs	Left hand side.
real(kind=R_P),	intent(in)	::	rhs	Right hand side.

procedure(symmetric_operator), public, deferred, pass(lhs) :: integrand_sub_integrand

- operator.

pure function symmetric_operator(lhs, rhs) result(operator_result) Prototype

Symmetric type operator integrand.op.integrand.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_object),	intent(in)			::	lhs	Left hand side.
class(integrand_object),	intent(in)			::	rhs	Right hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

procedure(integrand_op_real), public, deferred, pass(lhs) :: integrand_sub_real

- real operator.

pure function integrand_op_real(lhs, rhs) result(operator_result) Prototype

Asymmetric type operator integrand.op.real.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_object),	intent(in)			::	lhs	Left hand side.
real(kind=R_P),	intent(in)			::	rhs(1:)	Right hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

procedure, public, pass(opr) :: integrand_subtract_integrand_fast

- fast operator.

private pure subroutine integrand_subtract_integrand_fast(opr, lhs, rhs)

- fast operator.

Arguments

Type	Intent		Name
class(integrand_object),	intent(inout)	::	opr	Operator result.
class(integrand_object),	intent(in)	::	lhs	Left hand side.
class(integrand_object),	intent(in)	::	rhs	Right hand side.

procedure(local_error_operator), public, deferred, pass(lhs) :: local_error

||integrand - integrand|| operator.

function local_error_operator(lhs, rhs) result(error) Prototype

Estimate local truncation error between 2 solution approximations.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_object),	intent(in)			::	lhs	Left hand side.
class(integrand_object),	intent(in)			::	rhs	Right hand side.

Return Value real(kind=R_P)

Error estimation.

generic, public :: multiply_fast => integrand_multiply_integrand_fast, integrand_multiply_real_scalar_fast

Overloading multiply_fast method.

private pure subroutine integrand_multiply_integrand_fast(opr, lhs, rhs)

* fast operator.

Arguments

Type	Intent		Name
class(integrand_oscillation),	intent(inout)	::	opr	Operator result.
class(integrand_object),	intent(in)	::	lhs	Left hand side.
class(integrand_object),	intent(in)	::	rhs	Right hand side.

private pure subroutine integrand_multiply_real_scalar_fast(opr, lhs, rhs)

* real_scalar fast operator.

Arguments

Type	Intent		Name
class(integrand_oscillation),	intent(inout)	::	opr	Operator result.
class(integrand_object),	intent(in)	::	lhs	Left hand side.
real(kind=R_P),	intent(in)	::	rhs	Right hand side.

generic, public :: **operator(*)** => integrand_multiply_integrand, integrand_multiply_real, real_multiply_integrand, integrand_multiply_real_scalar, real_scalar_multiply_integrand

Overloading * operator.

private pure function integrand_multiply_integrand(lhs, rhs) result(opr)

* operator.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_oscillation),	intent(in)			::	lhs	Left hand side.
class(integrand_object),	intent(in)			::	rhs	Right hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

private pure function integrand_multiply_real(lhs, rhs) result(opr)

* real_scalar operator.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_oscillation),	intent(in)			::	lhs	Left hand side.
real(kind=R_P),	intent(in)			::	rhs(1:)	Right hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

private pure function real_multiply_integrand(lhs, rhs) result(opr)

real_scalar * operator.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=R_P),	intent(in)			::	lhs(1:)	Left hand side.
class(integrand_oscillation),	intent(in)			::	rhs	Right hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

private pure function integrand_multiply_real_scalar(lhs, rhs) result(opr)

* real_scalar operator.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_oscillation),	intent(in)			::	lhs	Left hand side.
real(kind=R_P),	intent(in)			::	rhs	Right hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

private pure function real_scalar_multiply_integrand(lhs, rhs) result(opr)

real_scalar * operator.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=R_P),	intent(in)			::	lhs	Left hand side.
class(integrand_oscillation),	intent(in)			::	rhs	Right hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

generic, public :: operator(+) => integrand_add_integrand, integrand_add_real, real_add_integrand

Overloading + operator.

private pure function integrand_add_integrand(lhs, rhs) result(opr)

+ operator.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_oscillation),	intent(in)			::	lhs	Left hand side.
class(integrand_object),	intent(in)			::	rhs	Right hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

private pure function integrand_add_real(lhs, rhs) result(opr)

+ real operator.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_oscillation),	intent(in)			::	lhs	Left hand side.
real(kind=R_P),	intent(in)			::	rhs(1:)	Right hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

private pure function real_add_integrand(lhs, rhs) result(opr)

real + operator.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=R_P),	intent(in)			::	lhs(1:)	Left hand side.
class(integrand_oscillation),	intent(in)			::	rhs	Left hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

generic, public :: operator(-) => integrand_sub_integrand, integrand_sub_real, real_sub_integrand

Overloading - operator.

private pure function integrand_sub_integrand(lhs, rhs) result(opr)

- operator.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_oscillation),	intent(in)			::	lhs	Left hand side.
class(integrand_object),	intent(in)			::	rhs	Right hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

private pure function integrand_sub_real(lhs, rhs) result(opr)

- real operator.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_oscillation),	intent(in)			::	lhs	Left hand side.
real(kind=R_P),	intent(in)			::	rhs(1:)	Right hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

private pure function real_sub_integrand(lhs, rhs) result(opr)

real - operator.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=R_P),	intent(in)			::	lhs(1:)	Left hand side.
class(integrand_oscillation),	intent(in)			::	rhs	Left hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

generic, public :: operator(.lterror.) => local_error

Estimate local truncation error.

private pure function local_error(lhs, rhs) result(error)

Estimate local truncation error between 2 oscillation approximations.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_oscillation),	intent(in)			::	lhs	Left hand side.
class(integrand_object),	intent(in)			::	rhs	Right hand side.

Return Value real(kind=R_P)

Error estimation.

procedure(real_op_integrand), public, deferred, pass(rhs) :: real_add_integrand

real + operator.

pure function real_op_integrand(lhs, rhs) result(operator_result) Prototype

Asymmetric type operator real.op.integrand.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=R_P),	intent(in)			::	lhs(1:)	Left hand side.
class(integrand_object),	intent(in)			::	rhs	Right hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

procedure(real_op_integrand), public, deferred, pass(rhs) :: real_multiply_integrand

real * operator.

pure function real_op_integrand(lhs, rhs) result(operator_result) Prototype

Asymmetric type operator real.op.integrand.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=R_P),	intent(in)			::	lhs(1:)	Left hand side.
class(integrand_object),	intent(in)			::	rhs	Right hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

procedure(real_scalar_op_integrand), public, deferred, pass(rhs) :: real_scalar_multiply_integrand

real_scalar * operator.

pure function real_scalar_op_integrand(lhs, rhs) result(operator_result) Prototype

Asymmetric type operator real.op.integrand.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=R_P),	intent(in)			::	lhs	Left hand side.
class(integrand_object),	intent(in)			::	rhs	Right hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

procedure(real_op_integrand), public, deferred, pass(rhs) :: real_sub_integrand

real - operator.

pure function real_op_integrand(lhs, rhs) result(operator_result) Prototype

Asymmetric type operator real.op.integrand.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=R_P),	intent(in)			::	lhs(1:)	Left hand side.
class(integrand_object),	intent(in)			::	rhs	Right hand side.

Return Value real(kind=R_P), allocatable, (:)

Operator result.

generic, public :: subtract_fast => integrand_subtract_integrand_fast

Overloading subtract_fast method.

private pure subroutine integrand_subtract_integrand_fast(opr, lhs, rhs)

- fast operator.

Arguments

Type	Intent		Name
class(integrand_oscillation),	intent(inout)	::	opr	Operator result.
class(integrand_object),	intent(in)	::	lhs	Left hand side.
class(integrand_object),	intent(in)	::	rhs	Right hand side.

procedure(time_derivative), public, deferred, pass(self) :: t

Time derivative, residuals.

function time_derivative(self, t) result(dState_dt) Prototype

Time derivative function of integrand class, i.e. the residuals function.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_object),	intent(in)			::	self	Integrand field.
real(kind=R_P),	intent(in),	optional		::	t	Time.

Return Value real(kind=R_P), allocatable, (:)

Result of the time derivative function of integrand field.

procedure, public, pass(self) :: t_fast

Time derivative, residuals, fast mode.

private subroutine t_fast(self, t)

Time derivative function of integrand class, i.e. the residuals function. Fast mode acting directly on self.

Arguments

Type	Intent	Optional	Attributes		Name
class(integrand_object),	intent(inout)			::	self	Integrand field.
real(kind=R_P),	intent(in),	optional		::	t	Time.

Source Code

type, abstract :: integrand_object
  !< Abstract type for building FOODIE ODE integrators.
#ifdef CAF
  class(*), allocatable :: dummy_to_allow_extensions[:] !< Dummy member to allow concrete extensions with coarray members.
#endif
  contains
    ! public deferred procedures that concrete integrand-field must implement
    procedure(integrand_dimension_interface), pass(self), deferred, public :: integrand_dimension !< Return integrand dimension.
    procedure(time_derivative),               pass(self), deferred, public :: t                   !< Time derivative, residuals.
    ! operators
    procedure(local_error_operator), pass(lhs), deferred, public :: local_error !< `||integrand - integrand||` operator.
    generic, public :: operator(.lterror.) => local_error !< Estimate local truncation error.
    ! +
    procedure(symmetric_operator), pass(lhs), deferred, public :: integrand_add_integrand !< `+` operator.
    procedure(integrand_op_real),  pass(lhs), deferred, public :: integrand_add_real      !< `+ real` operator.
    procedure(real_op_integrand),  pass(rhs), deferred, public :: real_add_integrand      !< `real +` operator.
    generic, public :: operator(+) => integrand_add_integrand, &
                                      integrand_add_real,      &
                                      real_add_integrand !< Overloading `+` operator.
    ! *
    procedure(symmetric_operator),       pass(lhs), deferred, public :: integrand_multiply_integrand   !< `*` operator.
    procedure(integrand_op_real),        pass(lhs), deferred, public :: integrand_multiply_real        !< `* real` operator.
    procedure(real_op_integrand),        pass(rhs), deferred, public :: real_multiply_integrand        !< `real *` operator.
    procedure(integrand_op_real_scalar), pass(lhs), deferred, public :: integrand_multiply_real_scalar !< `* real_scalar` operator.
    procedure(real_scalar_op_integrand), pass(rhs), deferred, public :: real_scalar_multiply_integrand !< `real_scalar *` operator.
    generic, public :: operator(*) => integrand_multiply_integrand,   &
                                      integrand_multiply_real,        &
                                      real_multiply_integrand,        &
                                      integrand_multiply_real_scalar, &
                                      real_scalar_multiply_integrand !< Overloading `*` operator.
    ! -
    procedure(symmetric_operator), pass(lhs), deferred, public :: integrand_sub_integrand !< `-` operator.
    procedure(integrand_op_real),  pass(lhs), deferred, public :: integrand_sub_real      !< `- real` operator.
    procedure(real_op_integrand),  pass(rhs), deferred, public :: real_sub_integrand      !< `real -` operator.
    generic, public :: operator(-) => integrand_sub_integrand, &
                                      integrand_sub_real,      &
                                      real_sub_integrand !< Overloading `-` operator.
    ! =
    procedure(assignment_integrand), pass(lhs), deferred, public :: assign_integrand !< `=` operator.
    procedure(assignment_real),      pass(lhs), deferred, public :: assign_real      !< `= real` operator.
    generic, public :: assignment(=) => assign_integrand, assign_real !< Overloading `=` assignament.
    ! public methods for fast operational mode, must be overridden
    procedure, pass(self), public :: t_fast !< Time derivative, residuals, fast mode.
    procedure, pass(opr), public :: integrand_add_integrand_fast !< `+` fast operator.
    generic, public :: add_fast => integrand_add_integrand_fast !< Overloading `add_fast` method.
    procedure, pass(opr), public :: integrand_multiply_integrand_fast   !< `*` fast operator.
    procedure, pass(opr), public :: integrand_multiply_real_scalar_fast !< `* real_scalar` fast operator.
    generic, public :: multiply_fast => integrand_multiply_integrand_fast, &
                                        integrand_multiply_real_scalar_fast !< Overloading `multiply_fast` method.
    procedure, pass(opr), public :: integrand_subtract_integrand_fast !< `-` fast operator.
    generic, public :: subtract_fast => integrand_subtract_integrand_fast !< Overloading `subtract_fast` method.
endtype integrand_object

integrand_object Derived Type

Type-Bound Procedures

Source Code

All Derived Types

type, public, abstract :: integrand_object

Inherited By

Type-Bound Procedures

Source Code

Type-Bound Procedures

generic, public :: add_fast => integrand_add_integrand_fast

private pure subroutine integrand_add_integrand_fast(opr, lhs, rhs)

Arguments

procedure(assignment_integrand), public, deferred, pass(lhs) :: assign_integrand

subroutine assignment_integrand(lhs, rhs) Prototype

Arguments

procedure(assignment_real), public, deferred, pass(lhs) :: assign_real

pure subroutine assignment_real(lhs, rhs) Prototype

Arguments

generic, public :: assignment(=) => assign_integrand, assign_real

private pure subroutine assign_integrand(lhs, rhs)

Arguments

private pure subroutine assign_real(lhs, rhs)

Arguments

procedure(symmetric_operator), public, deferred, pass(lhs) :: integrand_add_integrand

pure function symmetric_operator(lhs, rhs) result(operator_result) Prototype

Arguments

Return Value real(kind=R_P), allocatable, (:)

procedure, public, pass(opr) :: integrand_add_integrand_fast

private pure subroutine integrand_add_integrand_fast(opr, lhs, rhs)

Arguments

procedure(integrand_op_real), public, deferred, pass(lhs) :: integrand_add_real

pure function integrand_op_real(lhs, rhs) result(operator_result) Prototype

Arguments

Return Value real(kind=R_P), allocatable, (:)

procedure(integrand_dimension_interface), public, deferred, pass(self) :: integrand_dimension

pure function integrand_dimension_interface(self) result(integrand_dimension) Prototype

Arguments

Return Value integer(kind=I_P)

procedure(symmetric_operator), public, deferred, pass(lhs) :: integrand_multiply_integrand

pure function symmetric_operator(lhs, rhs) result(operator_result) Prototype

Arguments

Return Value real(kind=R_P), allocatable, (:)

procedure, public, pass(opr) :: integrand_multiply_integrand_fast

private pure subroutine integrand_multiply_integrand_fast(opr, lhs, rhs)

Arguments

procedure(integrand_op_real), public, deferred, pass(lhs) :: integrand_multiply_real

pure function integrand_op_real(lhs, rhs) result(operator_result) Prototype

Arguments

Return Value real(kind=R_P), allocatable, (:)

procedure(integrand_op_real_scalar), public, deferred, pass(lhs) :: integrand_multiply_real_scalar

pure function integrand_op_real_scalar(lhs, rhs) result(operator_result) Prototype

Arguments

Return Value real(kind=R_P), allocatable, (:)

procedure, public, pass(opr) :: integrand_multiply_real_scalar_fast

private pure subroutine integrand_multiply_real_scalar_fast(opr, lhs, rhs)

Arguments

procedure(symmetric_operator), public, deferred, pass(lhs) :: integrand_sub_integrand

pure function symmetric_operator(lhs, rhs) result(operator_result) Prototype

Arguments

Return Value real(kind=R_P), allocatable, (:)

procedure(integrand_op_real), public, deferred, pass(lhs) :: integrand_sub_real

pure function integrand_op_real(lhs, rhs) result(operator_result) Prototype

Arguments

Return Value real(kind=R_P), allocatable, (:)

procedure, public, pass(opr) :: integrand_subtract_integrand_fast

private pure subroutine integrand_subtract_integrand_fast(opr, lhs, rhs)

Arguments

procedure(local_error_operator), public, deferred, pass(lhs) :: local_error

function local_error_operator(lhs, rhs) result(error) Prototype

Arguments

Return Value real(kind=R_P)

generic, public :: multiply_fast => integrand_multiply_integrand_fast, integrand_multiply_real_scalar_fast

private pure subroutine integrand_multiply_integrand_fast(opr, lhs, rhs)

Arguments

private pure subroutine integrand_multiply_real_scalar_fast(opr, lhs, rhs)

Arguments

generic, public :: operator(*) => integrand_multiply_integrand, integrand_multiply_real, real_multiply_integrand, integrand_multiply_real_scalar, real_scalar_multiply_integrand

private pure function integrand_multiply_integrand(lhs, rhs) result(opr)

Arguments

Return Value real(kind=R_P), allocatable, (:)

generic, public :: **operator(*)** => integrand_multiply_integrand, integrand_multiply_real, real_multiply_integrand, integrand_multiply_real_scalar, real_scalar_multiply_integrand