dense_vector_cdp Derived Type

type, public, extends(abstract_vector_cdp) :: dense_vector_cdp


Components

Type Visibility Attributes Name Initial
complex(kind=dp), public, allocatable :: data(:)
integer, public :: n

Type-Bound Procedures

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

Adds two abstract_vector, i.e. .

  • private subroutine add_cdp(self, vec)

    Add two abstract_vector in-place.

    Arguments

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

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

    Vector to be added.

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

In-place computation of .

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

    Arguments

    Type IntentOptional Attributes Name
    complex(kind=dp), intent(in) :: alpha
    class(abstract_vector_cdp), intent(in) :: vec
    complex(kind=dp), intent(in) :: beta
    class(dense_vector_cdp), intent(inout) :: self

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

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

  • private subroutine chsgn_cdp(self)

    Changes the sign of the abstract_vector.

    Arguments

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

    Vector whose entries need to change sign.

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

Computes the dot product between two abstract_vector_cdp.

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

    Arguments

    Type IntentOptional Attributes Name
    class(dense_vector_cdp), intent(in) :: self
    class(abstract_vector_cdp), intent(in) :: vec

    Return Value complex(kind=dp)

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

Return size of specific abstract vector

  • private function dense_get_size_cdp(self) result(n)

    Arguments

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

    Return Value integer

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

Computes the norm of the abstract_vector.

  • private function norm_cdp(self) result(alpha)

    Compute the norm of an abstract_vector.

    Arguments

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

    Vector whose norm needs to be computed.

    Return Value real(kind=dp)

    Norm of the vector.

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

Creates a random abstract_vector_cdp.

  • private subroutine dense_rand_cdp(self, ifnorm)

    Arguments

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

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

Compute the scalar-vector product.

  • private subroutine dense_scal_cdp(self, alpha)

    Arguments

    Type IntentOptional Attributes Name
    class(dense_vector_cdp), intent(inout) :: self
    complex(kind=dp), intent(in) :: alpha

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

Subtracts two abstract_vector, i.e. .

  • private subroutine sub_cdp(self, vec)

    Subtract two abstract_vector in-place.

    Arguments

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

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

    Vector to be subtracted.

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

Sets an abstract_vector_cdp to zero.

  • private subroutine dense_zero_cdp(self)

    Arguments

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

Source Code

    type, extends(abstract_vector_cdp), public :: dense_vector_cdp
        integer :: n
        complex(dp), allocatable :: data(:)
    contains
        private
        procedure, pass(self), public :: zero => dense_zero_cdp
        !! Sets an `abstract_vector_cdp` to zero.
        procedure, pass(self), public :: rand => dense_rand_cdp
        !! Creates a random `abstract_vector_cdp`.
        procedure, pass(self), public :: scal => dense_scal_cdp
        !! Compute the scalar-vector product.
        procedure, pass(self), public :: axpby => dense_axpby_cdp
        !! In-place computation of \( \mathbf{y} \leftarrow \alpha \mathbf{x} + \beta \mathbf{y} \).
        procedure, pass(self), public :: dot => dense_dot_cdp
        !! Computes the dot product between two `abstract_vector_cdp`.
        procedure, pass(self), public :: get_size => dense_get_size_cdp
        !! Return size of specific abstract vector
    end type dense_vector_cdp