encode_det Subroutine

public subroutine encode_det(ilut, Det)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(inout) :: ilut(0:nIfTot)
integer(kind=n_int), intent(in) :: Det(0:nifd)

Source Code

    subroutine encode_det(ilut, Det)

        ! Add new det information to a packaged walker.

        integer(n_int), intent(inout) :: ilut(0:nIfTot)
        integer(n_int), intent(in) :: Det(0:nifd)

        iLut(0:nifd) = Det

    end subroutine encode_det