assign_output_ilut Subroutine

private subroutine assign_output_ilut(ilut, ilutnJ, i, j, k, l)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(in) :: ilut(0:NIfTot)
integer(kind=n_int), intent(out) :: ilutnJ(0:NIfTot)
integer, intent(in) :: i
integer, intent(in) :: j
integer, intent(in), optional :: k
integer, intent(in), optional :: l

Source Code

    subroutine assign_output_ilut(ilut, ilutnJ, i, j, k, l)
        integer, intent(in) :: i, j
        integer, intent(in), optional :: k, l
        integer(n_int), intent(in) :: ilut(0:NIfTot)
        integer(n_int), intent(out) :: ilutnJ(0:NIfTot)

        ilutnJ = ilut
        clr_orb(ilutnJ, i)
        set_orb(ilutnJ, j)
        if (present(k) .and. present(l)) then
            clr_orb(ilutnJ, k)
            set_orb(ilutnJ, l)
        end if
    end subroutine assign_output_ilut