encode_excit_lvl_rdm Subroutine

private pure subroutine encode_excit_lvl_rdm(rdm_ind, excit_lvl)

Arguments

Type IntentOptional Attributes Name
integer(kind=int_rdm), intent(inout) :: rdm_ind
integer, intent(in) :: excit_lvl

Contents

Source Code

encode_excit_lvl_rdm

Source Code

    pure subroutine encode_excit_lvl_rdm(rdm_ind, excit_lvl)
        integer(int_rdm), intent(inout) :: rdm_ind
        integer, intent(in) :: excit_lvl

        ! i need to mv the bit-rep of excit_lvl to the corresponding
        ! position in rdm_ind
        call mvbits(int(excit_lvl, int_rdm), 0, n_excit_lvl_bits, &
                    rdm_ind, pos_excit_lvl_bits)

    end subroutine encode_excit_lvl_rdm