find_guga_excit_lvl Function

public pure function find_guga_excit_lvl(ilutI, ilutJ)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(in) :: ilutI(0:GugaBits%len_tot)
integer(kind=n_int), intent(in) :: ilutJ(0:GugaBits%len_tot)

Return Value integer


Source Code

    pure integer function find_guga_excit_lvl(ilutI, ilutJ)
        ! general excit-level finder
        integer(n_int), intent(in) :: ilutI(0:GugaBits%len_tot), ilutJ(0:GugaBits%len_tot)

        type(ExcitationInformation_t) :: excitInfo

        excitInfo = identify_excitation(ilutI, ilutJ)

        find_guga_excit_lvl = excitInfo%excitLvl

    end function find_guga_excit_lvl