manhattan_distance Derived Type

type, public, extends(distance_base) :: manhattan_distance

Class to calculate the Manhattan distance


Inherits

type~~manhattan_distance~~InheritsGraph type~manhattan_distance manhattan_distance type~distance_base distance_base type~manhattan_distance->type~distance_base

Type-Bound Procedures

procedure, public :: calculate => calculate_manhattan_distance

  • private function calculate_manhattan_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(manhattan_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) :: manhattan_distance
!! Class to calculate the Manhattan distance
    contains
        procedure,public :: calculate => calculate_manhattan_distance
end type manhattan_distance