extract_excit_info_index Function

private function extract_excit_info_index(excit_info_int, pos) result(ind)

Arguments

Type IntentOptional Attributes Name
integer(kind=int64), intent(in) :: excit_info_int
integer, intent(in) :: pos

Return Value integer


Source Code

    function extract_excit_info_index(excit_info_int, pos) result(ind)
        debug_function_name("extract_excit_info_index")
        integer(int64), intent(in) :: excit_info_int
        integer, intent(in) :: pos
        integer :: ind

        ASSERT(pos > 0 .and. pos <= 4)

        ind = int(ibits(excit_info_int, n_excit_type_bits &
            + (pos - 1) * n_excit_index_bits, n_excit_index_bits))

    end function extract_excit_info_index