unique_quad_ind_2_2 Function

private function unique_quad_ind_2_2(ij_ab, kl_cd)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ij_ab(2,2)
integer, intent(in) :: kl_cd(2,2)

Return Value logical


Contents

Source Code

unique_quad_ind_2_2

Source Code

    logical function unique_quad_ind_2_2(ij_ab, kl_cd)
        integer, intent(in) :: ij_ab(2, 2), kl_cd(2, 2)

        unique_quad_ind_2_2 = all(ij_ab(1, 1) /= kl_cd(1, :) .and. ij_ab(1, 2) /= kl_cd(1, :) &
                                  .and. ij_ab(2, 1) /= kl_cd(2, :) .and. ij_ab(2, 2) /= kl_cd(2, :))

    end function unique_quad_ind_2_2