init_blocklist_hashtable Subroutine

private subroutine init_blocklist_hashtable(blocklist, blocklist_ht)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(in) :: blocklist(0:,:)
type(ll_node), intent(out), pointer :: blocklist_ht(:)

Source Code

    subroutine init_blocklist_hashtable(blocklist, blocklist_ht)
        integer(kind=n_int), intent(in) :: blocklist(0:,:)
        type(ll_node), pointer, intent(out) :: blocklist_ht(:)

        allocate(blocklist_ht(size(blocklist, 2)))

        call init_hash_table(blocklist_ht)

        call fill_in_hash_table(&
            blocklist_ht, size(blocklist, 2), blocklist, size(blocklist, 2), &
            .false.)

    end subroutine init_blocklist_hashtable