train_som Subroutine

public subroutine train_som(parameter_file)

Subroutine to train the SOM

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(inout) :: parameter_file

A character variable with the name of the parameter file

Calls

proc~~train_som~~CallsGraph proc~train_som train_som error_stop error_stop proc~train_som->error_stop none~configure logger%configure proc~train_som->none~configure none~create logger%create proc~train_som->none~create none~delimiter logger%delimiter proc~train_som->none~delimiter none~is_initialized logger%is_initialized proc~train_som->none~is_initialized none~message logger%message proc~train_som->none~message none~shutdown logger%shutdown proc~train_som->none~shutdown none~startup logger%startup proc~train_som->none~startup proc~create_som self_organizing_map%create_som proc~train_som->proc~create_som proc~destroy_som self_organizing_map%destroy_som proc~train_som->proc~destroy_som proc~kohonen_pattern_destroy kohonen_pattern%kohonen_pattern_destroy proc~train_som->proc~kohonen_pattern_destroy proc~train_som_data self_organizing_map%train_som_data proc~train_som->proc~train_som_data none~error logger%error none~configure->none~error none~delimiter->none~message none~get_delimiter logger%get_delimiter none~delimiter->none~get_delimiter none~startup->none~error proc~create_som->error_stop none~create_distance factory_distance%create_distance proc~create_som->none~create_distance none~create~3 rkiss05_generator%create proc~create_som->none~create~3 proc~calculate_coordinates self_organizing_map%calculate_coordinates proc~create_som->proc~calculate_coordinates proc~calculate_distance_matrix self_organizing_map%calculate_distance_matrix proc~create_som->proc~calculate_distance_matrix proc~create_random_sample self_organizing_map%create_random_sample proc~create_som->proc~create_random_sample proc~position2index self_organizing_map%position2index proc~create_som->proc~position2index none~destroy~9 kohonen_prototype%destroy proc~destroy_som->none~destroy~9 proc~kohonen_pattern_destroy->none~destroy~9 none~get_prototype kohonen_prototype%get_prototype proc~train_som_data->none~get_prototype proc~calculate_distance_between_prototypes self_organizing_map%calculate_distance_between_prototypes proc~train_som_data->proc~calculate_distance_between_prototypes proc~calculate_u_matrix self_organizing_map%calculate_u_matrix proc~train_som_data->proc~calculate_u_matrix proc~find_best_match_unit self_organizing_map%find_best_match_unit proc~train_som_data->proc~find_best_match_unit proc~kohonen_pattern_accessor kohonen_pattern%kohonen_pattern_accessor proc~train_som_data->proc~kohonen_pattern_accessor proc~update_weights self_organizing_map%update_weights proc~train_som_data->proc~update_weights none~create_distance->error_stop proc~calculate_distance_between_prototypes->proc~position2index none~distance~8 kohonen_prototype%distance proc~calculate_u_matrix->none~distance~8 none~generate rkiss05_generator%generate proc~create_random_sample->none~generate float float proc~find_best_match_unit->float proc~find_best_match_unit->none~distance~8 proc~update_weights->none~get_prototype proc~update_weights->proc~position2index dexp dexp proc~update_weights->dexp none~set_prototype kohonen_prototype%set_prototype proc~update_weights->none~set_prototype proc~index2position self_organizing_map%index2position proc~update_weights->proc~index2position none~distance~8->none~get_prototype calculate calculate none~distance~8->calculate

Source Code

    subroutine train_som(parameter_file)    
    !==============================================================================
    !! Subroutine to train the SOM 
        character(len=*),intent(inout) :: parameter_file
    !! A character variable with the name of the parameter file
        call initialize_variables(parameter_file);
        !
        call my_som%create(som_parameters);
        !
        call my_som%train(input_patterns);
        !
        call my_som%destroy();
        !
        call release_variables();
        !
    end subroutine train_som