unique_quad_ind_3_1 Function

private function unique_quad_ind_3_1(ijk_abc, l_d)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ijk_abc(2,3)
integer, intent(in) :: l_d(2,1)

Return Value logical


Contents

Source Code

unique_quad_ind_3_1

Source Code

    logical function unique_quad_ind_3_1(ijk_abc, l_d)
        integer, intent(in) :: ijk_abc(2, 3), l_d(2, 1)

        unique_quad_ind_3_1 = all(l_d(1, 1) /= ijk_abc(1, :) .and. &
                                  l_d(2, 1) /= ijk_abc(2, :))

    end function unique_quad_ind_3_1