get_cluster_samples Subroutine

   subroutine get_cluster_samples(kohonen_map,clusters)
   !========================================================================================
!! Accessor to cluster results obtained using a two-level self_organized_map
   class(two_level_self_organizing_map) :: kohonen_map
!! A `two_level_self_organizing_map` object
   integer,dimension(:),intent(inout) :: clusters
!! An integer array
   write(*,*) 'size_cluster= ',size(clusters)
   if(size(clusters) .eq. size(kohonen_map%cluster_samples)) then
      clusters=kohonen_map%cluster_samples;
   endif
   !
   end subroutine get_cluster_samples