extract_excit_info_indices_vec Subroutine

private subroutine extract_excit_info_indices_vec(excit_info_int, inds)

Arguments

Type IntentOptional Attributes Name
integer(kind=int64), intent(in) :: excit_info_int
integer, intent(out) :: inds(4)

Contents

Source Code

extract_excit_info_indices_vec

Source Code

    subroutine extract_excit_info_indices_vec(excit_info_int, inds)
        integer(int64), intent(in) :: excit_info_int
        integer, intent(out) :: inds(4)

        integer :: i

        inds = 0
        do i = 1, 4
            inds(i) = extract_excit_info_index(excit_info_int, i)
        end do

    end subroutine extract_excit_info_indices_vec