pure_rdm_ind Function

public elemental function pure_rdm_ind(rdm_ind) result(pure_ind)

Arguments

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

Return Value integer(kind=int_rdm)


Contents

Source Code

pure_rdm_ind

Source Code

    elemental function pure_rdm_ind(rdm_ind) result(pure_ind)
        ! return 'just' the rdm index without the excit-level and type info
        integer(int_rdm), intent(in) :: rdm_ind
        integer(int_rdm) :: pure_ind

        pure_ind = iand(rdm_ind, rdm_ind_bitmask)

    end function pure_rdm_ind