get_orbs_from_excit_info Subroutine

private subroutine get_orbs_from_excit_info(excitInfo, a, b, c, d)

Arguments

Type IntentOptional Attributes Name
type(ExcitationInformation_t), intent(in) :: excitInfo
integer, intent(out) :: a
integer, intent(out) :: b
integer, intent(out), optional :: c
integer, intent(out), optional :: d

Contents

Source Code

get_orbs_from_excit_info

Source Code

    subroutine get_orbs_from_excit_info(excitInfo, a, b, c, d)
        ! routine to extract the orbitals from a excitation information
        ! c and d are optional for double excitations
        type(ExcitationInformation_t), intent(in) :: excitInfo
        integer, intent(out) :: a, b
        integer, intent(out), optional :: c, d

        character(*), parameter :: this_routine = "get_orbs_from_excit_info"

        call stop_all(this_routine, "TODO")
        a = 0
        b = 0
        c = 0
        d = 0
        unused_var(excitInfo)

    end subroutine get_orbs_from_excit_info