extract_rdm_ind Function

public pure function extract_rdm_ind(ilutG) result(rdm_ind)

Arguments

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

Return Value integer(kind=int_rdm)


Contents

Source Code

extract_rdm_ind

Source Code

    pure function extract_rdm_ind(ilutG) result(rdm_ind)
        integer(n_int), intent(in) :: ilutG(0:GugaBits%len_tot)
        integer(int_rdm) :: rdm_ind

        rdm_ind = ilutG(GugaBits%ind_rdm_ind)

    end function extract_rdm_ind