get_excit_level_from_excitInfo Function

public function get_excit_level_from_excitInfo(excitInfo) result(ic)

Arguments

Type IntentOptional Attributes Name
type(ExcitationInformation_t), intent(in) :: excitInfo

Return Value integer


Contents

Source Code

get_excit_level_from_excitInfo

Source Code

    function get_excit_level_from_excitInfo(excitInfo) result(ic)
        type(ExcitationInformation_t), intent(in) :: excitInfo
        integer :: ic

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

        call stop_all(this_routine, "TODO")
        unused_var(excitInfo)
        ic = 0

    end function get_excit_level_from_excitInfo