kohonen_pattern_accessor Subroutine

public subroutine kohonen_pattern_accessor(current_pattern, pattern_value)

Kohonen pattern accessor

Type Bound

kohonen_pattern

Arguments

Type IntentOptional Attributes Name
class(kohonen_pattern) :: current_pattern

A kohonen_pattern object
type(kohonen_prototype), intent(inout) :: pattern_value

Called by

proc~~kohonen_pattern_accessor~~CalledByGraph proc~kohonen_pattern_accessor kohonen_pattern%kohonen_pattern_accessor proc~assign_input_to_clusters two_level_self_organizing_map%assign_input_to_clusters proc~assign_input_to_clusters->proc~kohonen_pattern_accessor proc~evaluate_2lsom two_level_self_organizing_map%evaluate_2lsom proc~evaluate_2lsom->proc~kohonen_pattern_accessor proc~find_bmu_grid self_organizing_map%find_bmu_grid proc~find_bmu_grid->proc~kohonen_pattern_accessor proc~predict_2lsom two_level_self_organizing_map%predict_2lsom proc~predict_2lsom->proc~kohonen_pattern_accessor proc~predict_som self_organizing_map%predict_som proc~predict_som->proc~kohonen_pattern_accessor proc~train_grid_layer two_level_self_organizing_map%train_grid_layer proc~train_grid_layer->proc~kohonen_pattern_accessor proc~train_som_data self_organizing_map%train_som_data proc~train_som_data->proc~kohonen_pattern_accessor proc~external_predict_map self_organizing_map%external_predict_map proc~external_predict_map->proc~predict_som proc~external_train_map self_organizing_map%external_train_map proc~external_train_map->proc~train_som_data proc~train_2lsom two_level_self_organizing_map%train_2lsom proc~train_2lsom->proc~assign_input_to_clusters proc~train_2lsom->proc~train_grid_layer proc~train_som train_som proc~train_som->proc~train_som_data proc~train_two_level_som train_two_level_som proc~train_two_level_som->proc~train_2lsom

Source Code

   subroutine kohonen_pattern_accessor(current_pattern,pattern_value)
!========================================================================================
!! Kohonen pattern accessor
      class(kohonen_pattern) :: current_pattern
!! A `kohonen_pattern` object
      type(kohonen_prototype),intent(inout) :: pattern_value
!
      pattern_value=current_pattern%pattern;
!
   end subroutine kohonen_pattern_accessor