Kohonen/kohonen_pattern_utilities [ Modules ]
NAME
MODULE kohonen_pattern_utilities
PURPOSE
This module defines a class for kohonen patterns (input data)
AUTHOR
Oscar Garcia-Cabrejo NOTES
MODIFICATION HISTORY
kohonen_pattern_utilities/kohonen_pattern [ Classes ]
[ Top ] [ kohonen_pattern_utilities ] [ Classes ]
NAME
kohonen_pattern
PURPOSE
Class to represent a container for input data to a kohonen map
ATTRIBUTES
private
type(kohonen_prototype) :: pattern
character(len=50) :: pattern_name
contains
METHODS
procedure,public :: create => kohonen_pattern_create procedure,public :: destroy => kohonen_pattern_destroy procedure,public :: get => kohonen_pattern_accessor procedure,public :: set => kohonen_pattern_mutator procedure,public :: print => kohonen_pattern_print procedure,public :: get_nrow => kohonen_pattern_nrow procedure,public :: get_ncol => kohonen_pattern_ncol ! end type kohonen_pattern
kohonen_pattern_utilities/kohonen_pattern_accessor [ Functions ]
[ Top ] [ kohonen_pattern_utilities ] [ Functions ]
NAME
kohonen_pattern_accessor
PURPOSE
Kohonen pattern accessor
SYNOPSIS
!======================================================================================== subroutine kohonen_pattern_accessor(current_pattern,pattern_value) !======================================================================================== class(kohonen_pattern) :: current_pattern type(kohonen_prototype),intent(inout) :: pattern_value
kohonen_pattern_utilities/kohonen_pattern_create [ Functions ]
[ Top ] [ kohonen_pattern_utilities ] [ Functions ]
NAME
kohonen_pattern_create
PURPOSE
Kohonen pattern constructor
SYNOPSIS
!======================================================================================== subroutine kohonen_pattern_create(current_pattern,input,name) !======================================================================================== class(kohonen_pattern) :: current_pattern real(kind=8),dimension(:,:),intent(inout) :: input character(len=*),optional :: name
kohonen_pattern_utilities/kohonen_pattern_destroy [ Functions ]
[ Top ] [ kohonen_pattern_utilities ] [ Functions ]
NAME
kohonen_pattern_destroy
PURPOSE
Kohonen pattern destructor
SYNOPSIS
!======================================================================================== subroutine kohonen_pattern_destroy(current_pattern) !======================================================================================== class(kohonen_pattern) :: current_pattern
kohonen_pattern_utilities/kohonen_pattern_mutator [ Functions ]
[ Top ] [ kohonen_pattern_utilities ] [ Functions ]
NAME
kohonen_pattern_mutator
PURPOSE
Kohonen pattern mutator
SYNOPSIS
!======================================================================================== subroutine kohonen_pattern_mutator(current_pattern,pattern_value) !======================================================================================== class(kohonen_pattern) :: current_pattern type(kohonen_prototype),intent(inout) :: pattern_value
kohonen_pattern_utilities/kohonen_pattern_print [ Functions ]
[ Top ] [ kohonen_pattern_utilities ] [ Functions ]
NAME
kohonen_pattern_print
PURPOSE
Function to print a Kohonen pattern
SYNOPSIS
!======================================================================================== subroutine kohonen_pattern_print(current_pattern,unit_) !======================================================================================== class(kohonen_pattern) :: current_pattern integer,intent(inout),optional :: unit_