Kohonen/euclidean_distance_utilities [ Modules ]

[ Top ] [ Modules ]

NAME

  MODULE euclidean_distance_utilities

PURPOSE

  This module defines a class to calculate the Euclidean distance between kohonen prototypes

AUTHOR

 Oscar Garcia-Cabrejo
 NOTES

MODIFICATION HISTORY

euclidean_distance_utilities/calculate_euclidean_distance [ Functions ]

[ Top ] [ euclidean_distance_utilities ] [ Functions ]

NAME

   calculate_euclidean_distance

PURPOSE

   Function to calculate euclidean distance between vectors

SYNOPSIS

!========================================================================================
 function calculate_euclidean_distance(distance,vector1,vector2) result(d)
!========================================================================================
   class(euclidean_distance) :: distance
   real(kind=8),dimension(:,:),intent(inout) :: vector1,vector2
   real(kind=8) :: d

euclidean_distance_utilities/euclidean_distance [ Classes ]

[ Top ] [ euclidean_distance_utilities ] [ Classes ]

NAME

   euclidean_distance

PURPOSE

   Class to calculate the euclidean distance

METHODS

   procedure,public :: calculate => calculate_euclidean_distance