next_combination_init Subroutine

public subroutine next_combination_init(combination, k)

Initialize combination to [1, 2, …, k]

Arguments

Type IntentOptional Attributes Name
integer, intent(inout) :: combination(:)
integer, intent(in) :: k

Called by

proc~~next_combination_init~~CalledByGraph proc~next_combination_init next_combination_init proc~generate_k_way_intersections_for_level generate_k_way_intersections_for_level proc~generate_k_way_intersections_for_level->proc~next_combination_init proc~generate_k_way_intersections_from_lists generate_k_way_intersections_from_lists proc~generate_k_way_intersections_from_lists->proc~next_combination_init proc~generate_intersections generate_intersections proc~generate_intersections->proc~generate_k_way_intersections_for_level proc~generate_intersections_from_atom_lists generate_intersections_from_atom_lists proc~generate_intersections_from_atom_lists->proc~generate_k_way_intersections_from_lists proc~generate_polymer_intersections generate_polymer_intersections proc~generate_polymer_intersections->proc~generate_intersections_from_atom_lists

Variables

Type Visibility Attributes Name Initial
integer, private :: i

Source Code

   subroutine next_combination_init(combination, k)
      !! Initialize combination to [1, 2, ..., k]
      integer, intent(inout) :: combination(:)
      integer, intent(in) :: k
      integer :: i
      do i = 1, k
         combination(i) = i
      end do
   end subroutine next_combination_init