is_node Function

pure function is_node(i, j)

returns true if a node is at these coordinates

Arguments

Type IntentOptional Attributes Name
integer(kind=ip), intent(in) :: i
integer(kind=ip), intent(in) :: j

Return Value logical


Source Code

    pure logical function is_node(i,j)
        !! returns true if a node is at these coordinates
        integer(ip),intent(in) :: i,j
        is_node = any(inodes==i .and. jnodes==j)
    end function is_node