extract_excit_info_indices_scalar Subroutine

  1. guga_bitRepOps.F90
  2. guga_bitRepOps
  3. extract_excit_info_indices_scalar

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

Arguments

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

Contents

Source Code

extract_excit_info_indices_scalar

Source Code

    subroutine extract_excit_info_indices_scalar(excit_info_int, a, i, b, j)
        integer(int64), intent(in) :: excit_info_int
        integer, intent(out) :: a, i, b, j

        a = extract_excit_info_index(excit_info_int, 1)
        i = extract_excit_info_index(excit_info_int, 2)
        b = extract_excit_info_index(excit_info_int, 3)
        j = extract_excit_info_index(excit_info_int, 4)

    end subroutine extract_excit_info_indices_scalar