encode_excit_info_indices_scalar Subroutine

private subroutine encode_excit_info_indices_scalar(excit_info_int, a, i, b, j)

Arguments

Type IntentOptional Attributes Name
integer(kind=int64), intent(inout) :: excit_info_int
integer, intent(in) :: a
integer, intent(in) :: i
integer, intent(in) :: b
integer, intent(in) :: j

Contents

Source Code

encode_excit_info_indices_scalar

Source Code

    subroutine encode_excit_info_indices_scalar(excit_info_int, a, i, b, j)
        integer(int64), intent(inout) :: excit_info_int
        integer, intent(in) :: a, i, b, j

        call encode_excit_info_indices_vec(excit_info_int, [a,i,b,j])

    end subroutine encode_excit_info_indices_scalar