extract_excit_info_obj Subroutine

private subroutine extract_excit_info_obj(excit_info_int, excitInfo)

Arguments

Type IntentOptional Attributes Name
integer(kind=int64), intent(in) :: excit_info_int
type(ExcitationInformation_t), intent(out) :: excitInfo

Contents

Source Code

extract_excit_info_obj

Source Code

    subroutine extract_excit_info_obj(excit_info_int, excitInfo)
        integer(int64), intent(in) :: excit_info_int
        type(ExcitationInformation_t), intent(out) :: excitInfo

        integer :: typ, a, i, b, j

        ! this function needs to do additional processing of the
        ! minimal info stored in excit_info_int

        typ = extract_excit_info_type(excit_info_int)

        call extract_excit_info_indices_scalar(excit_info_int, a, i, b, j)

        excitInfo = calc_remaining_excit_info(typ, a, i, b, j)

    end subroutine extract_excit_info_obj