direction_cosine_distance Derived Type

type, public, extends(distance_base) :: direction_cosine_distance

Class to calculate the direction cosine distance


Inherits

type~~direction_cosine_distance~~InheritsGraph type~direction_cosine_distance direction_cosine_distance type~distance_base distance_base type~direction_cosine_distance->type~distance_base

Type-Bound Procedures

procedure, public :: calculate => calculate_direction_cosine_distance

  • private function calculate_direction_cosine_distance(distance, vector1, vector2) result(d)

    Function to calculate the Manhattan distance between vectors A real variable with the distance

    Arguments

    Type IntentOptional Attributes Name
    class(direction_cosine_distance) :: distance

    A Manhattan_distance object
    real(kind=wp), intent(inout), dimension(:,:) :: vector1

    A real vector
    real(kind=wp), intent(inout), dimension(:,:) :: vector2

    A real vector

    Return Value real(kind=wp)

    A real vector

Source Code

    type,extends(distance_base) :: direction_cosine_distance
    !! Class to calculate the direction cosine distance
        contains
            procedure,public :: calculate => calculate_direction_cosine_distance
    end type direction_cosine_distance