param_wrapper_1i1_derivation_class Module

Houses derivation wrapping a real function with one real array input and one integer parameter


Uses

Used by


Interfaces

interface

  • private module function calculateWrapper1I1(this, inputArray, indices) result(output)

    Arguments

    Type IntentOptional Attributes Name
    class(FunWrapperDerivation1I1), intent(inout) :: this
    type(RealArray), intent(in), dimension(:) :: inputArray
    integer(kind=ik), intent(in), dimension(:) :: indices

    Return Value real(kind=rk), allocatable, dimension(:)

interface

  • private module subroutine initWrapper1I1(this, fun, param, multConst, multConstInner)

    Initialize 1I1 function wrapper derivation

    Arguments

    Type IntentOptional Attributes Name
    class(FunWrapperDerivation1I1), intent(inout) :: this
    procedure(realArrayFunctionIntParam) :: fun
    integer(kind=ik), intent(in) :: param
    real(kind=rk), intent(in), optional :: multConst
    real(kind=rk), intent(in), optional :: multConstInner

interface

  • private elemental module subroutine finalizeWrapper1I1(this)

    Deallocate pointer component

    Arguments

    Type IntentOptional Attributes Name
    type(FunWrapperDerivation1I1), intent(inout) :: this

Derived Types

type, public, extends(Derivation) ::  FunWrapperDerivation1I1

Wraps single integer parameter and single real array function, passing first index variable as input, optionally multiplying it with a constant before passing

Components

Type Visibility Attributes Name Initial
logical, public :: userDefined = .false.

True only if user explicitly sets it to true
integer(kind=ik), private :: param

Integer parameter
real(kind=rk), private :: multConst

Multiplicative constant - default 1
real(kind=rk), private :: multConstInner

Multiplicative constant before applying function - default 1
procedure(realArrayFunctionIntParam), public, pointer, nopass :: funPtr => null()

Wrapped function pointer

Finalizations Procedures

final :: finalizeWrapper1I1

Type-Bound Procedures

procedure, public :: isDefined => isDefinedObject
procedure, public :: makeDefined => makeDefinedObject
procedure, public :: makeUndefined => makeUndefinedObject
procedure, public :: init => initWrapper1I1
procedure, public :: calculate => calculateWrapper1I1