set_parameters Subroutine

   subroutine set_parameters(kohonen_map,training_parameters)
   !========================================================================================  
!!   Subroutine to set parameters
   class(two_level_self_organizing_map) :: kohonen_map
!! A `two_level_self_organizing_map` object
   type(kohonen_layer_parameters),dimension(2) :: training_parameters
!A `kohonen_layer_parameters` object
   kohonen_map%parameters=training_parameters;
   !
   end subroutine set_parameters