state_vector_rsp Derived Type

type, public, extends(abstract_vector_rsp) :: state_vector_rsp


Components

Type Visibility Attributes Name Initial
real(kind=sp), public :: x = 0.0_sp
real(kind=sp), public :: y = 0.0_sp
real(kind=sp), public :: z = 0.0_sp

Type-Bound Procedures

procedure, public, pass(self) :: add => add_rsp

Adds two abstract_vector, i.e. .

  • private subroutine add_rsp(self, vec)

    Add two abstract_vector in-place.

    Arguments

    Type IntentOptional Attributes Name
    class(abstract_vector_rsp), intent(inout) :: self

    Input/Output vector.
    class(abstract_vector_rsp), intent(in) :: vec

    Vector to be added.

procedure, public, pass(self) :: axpby => axpby_state_rsp

  • private subroutine axpby_state_rsp(alpha, vec, beta, self)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=sp), intent(in) :: alpha
    class(abstract_vector_rsp), intent(in) :: vec
    real(kind=sp), intent(in) :: beta
    class(state_vector_rsp), intent(inout) :: self

procedure, public, pass(self) :: chsgn => chsgn_rsp

Change the sign of a vector, i.e. .

  • private subroutine chsgn_rsp(self)

    Changes the sign of the abstract_vector.

    Arguments

    Type IntentOptional Attributes Name
    class(abstract_vector_rsp), intent(inout) :: self

    Vector whose entries need to change sign.

procedure, public, pass(self) :: dot => dot_state_rsp

  • private function dot_state_rsp(self, vec) result(alpha)

    Arguments

    Type IntentOptional Attributes Name
    class(state_vector_rsp), intent(in) :: self
    class(abstract_vector_rsp), intent(in) :: vec

    Return Value real(kind=sp)

procedure, public, pass(self) :: get_size => get_size_state_rsp

  • private function get_size_state_rsp(self) result(N)

    Arguments

    Type IntentOptional Attributes Name
    class(state_vector_rsp), intent(in) :: self

    Return Value integer

procedure, public, pass(self) :: norm => norm_rsp

Computes the norm of the abstract_vector.

  • private function norm_rsp(self) result(alpha)

    Compute the norm of an abstract_vector.

    Arguments

    Type IntentOptional Attributes Name
    class(abstract_vector_rsp), intent(in) :: self

    Vector whose norm needs to be computed.

    Return Value real(kind=sp)

    Norm of the vector.

procedure, public, pass(self) :: rand => rand_state_rsp

  • private subroutine rand_state_rsp(self, ifnorm)

    Arguments

    Type IntentOptional Attributes Name
    class(state_vector_rsp), intent(inout) :: self
    logical, intent(in), optional :: ifnorm

procedure, public, pass(self) :: scal => scal_state_rsp

  • private subroutine scal_state_rsp(self, alpha)

    Arguments

    Type IntentOptional Attributes Name
    class(state_vector_rsp), intent(inout) :: self
    real(kind=sp), intent(in) :: alpha

procedure, public, pass(self) :: sub => sub_rsp

Subtracts two abstract_vector, i.e. .

  • private subroutine sub_rsp(self, vec)

    Subtract two abstract_vector in-place.

    Arguments

    Type IntentOptional Attributes Name
    class(abstract_vector_rsp), intent(inout) :: self

    Input/Output vector.
    class(abstract_vector_rsp), intent(in) :: vec

    Vector to be added.

procedure, public, pass(self) :: zero => zero_state_rsp

  • private subroutine zero_state_rsp(self)

    Arguments

    Type IntentOptional Attributes Name
    class(state_vector_rsp), intent(inout) :: self

Source Code

    type, extends(abstract_vector_rsp), public :: state_vector_rsp
       real(sp) :: x = 0.0_sp
       real(sp) :: y = 0.0_sp
       real(sp) :: z = 0.0_sp
    contains
       private
       procedure, pass(self), public :: zero => zero_state_rsp
       procedure, pass(self), public :: dot => dot_state_rsp
       procedure, pass(self), public :: scal => scal_state_rsp
       procedure, pass(self), public :: axpby => axpby_state_rsp
       procedure, pass(self), public :: rand => rand_state_rsp
       procedure, pass(self), public :: get_size => get_size_state_rsp
    end type state_vector_rsp