Kohonen/distance_base_utilities [ Modules ]

[ Top ] [ Modules ]

NAME

  MODULE distance_base_utilities

PURPOSE

  This module defines an abstract class for distance

AUTHOR

 Oscar Garcia-Cabrejo
 NOTES

MODIFICATION HISTORY

distance_base_utilities/distance_base [ Classes ]

[ Top ] [ distance_base_utilities ] [ Classes ]

NAME

   distance_base

PURPOSE

   Abstract Class to represent an abstract function to calculate distance

METHODS

    procedure(distance_function1),deferred :: calculate
end type distance_base

distance_base_utilities/distance_function1 [ Functions ]

[ Top ] [ distance_base_utilities ] [ Functions ]

NAME

   distance_function1

PURPOSE

   Template for Function to calculate distance

SYNOPSIS

!========================================================================================
  function distance_function1(distance,vector1,vector2) result(d)
!========================================================================================
    import :: distance_base
    class(distance_base) :: distance
    real(kind=8),dimension(:,:),intent(inout) :: vector1,vector2
    real(kind=8) :: d