optimal_weights Derived Type

type, public, extends(base_object) :: optimal_weights

type~~optimal_weights~~InheritsGraph type~optimal_weights optimal_weights type~base_object base_object type~base_object->type~optimal_weights
Help


Optimal weights object.

Inherited By

type~~optimal_weights~~InheritedByGraph type~optimal_weights optimal_weights type~interpolator interpolator type~optimal_weights->type~interpolator weights type~interpolator_js interpolator_js type~optimal_weights->type~interpolator_js weights type~optimal_weights_js optimal_weights_js type~optimal_weights->type~optimal_weights_js type~interpolator->type~interpolator_js
Help

Source Code


Components

TypeVisibility AttributesNameInitial
real(kind=R_P), public, allocatable:: opt(:,:)

Optimal weights [1:2,0:S-1].


Type-Bound Procedures

procedure, public, pass(self) :: compute

Compute weights.

  • private pure subroutine compute(self, S)

    Compute weights.

    Arguments

    Type IntentOptional AttributesName
    class(optimal_weights), intent(inout) :: self

    Optimal weights.

    integer(kind=I_P), intent(in) :: S

    Number of stencils used.

procedure, public, nopass :: description

Return weights string-description.

  • private pure function description() result(string)

    Return weights string-description.

    Arguments

    None

    Return Value character(len=:), allocatable

    String-description.

procedure, public, pass(self) :: create

Createte weights.

  • private pure subroutine create(self, constructor)

    Create weights.

    Arguments

    Type IntentOptional AttributesName
    class(optimal_weights), intent(inout) :: self

    Optimal weights.

    class(base_object_constructor), intent(in) :: constructor

    Optimal weights constructor.

procedure, public, pass(self) :: destroy

Destroy weights.

  • private elemental subroutine destroy(self)

    Destroy weights.

    Arguments

    Type IntentOptional AttributesName
    class(optimal_weights), intent(inout) :: self

    Optimial weights.

Source Code

type, extends(base_object) :: optimal_weights
  !< Optimal weights object.
  real(R_P), allocatable :: opt(:,:) !< Optimal weights [1:2,0:S-1].
  contains
    ! deferred public methods
    procedure, pass(self) :: compute     !< Compute weights.
    procedure, nopass     :: description !< Return weights string-description.
    ! public methods
    procedure, pass(self) :: create  !< Createte weights.
    procedure, pass(self) :: destroy !< Destroy weights.
endtype optimal_weights