exciteIlut Function

public function exciteIlut(ilut, src, orbs) result(ilutJ)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(in) :: ilut(0:NIfTot)
integer, intent(in) :: src(2)
integer, intent(in) :: orbs(2)

Return Value integer(kind=n_int), (0:NIfTot)


Source Code

    function exciteIlut(ilut, src, orbs) result(ilutJ)
        implicit none
        integer(n_int), intent(in) :: ilut(0:NIfTot)
        integer, intent(in) :: src(2), orbs(2)
        integer(n_int) :: ilutJ(0:NIfTot)

        ilutJ = ilut
        clr_orb(ilutJ, src(1))
        clr_orb(ilutJ, src(2))
        set_orb(ilutJ, orbs(1))
        set_orb(ilutJ, orbs(2))

    end function exciteIlut