Function to decide if the restriction of the nodes is pointwise, e.g. coarse nodes are every other fine node
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | flags(:) | |||
integer, | intent(in) | :: | node |
logical function not_proper(flags, node)
integer , intent(in) :: flags(:)
integer, intent(in) :: node
not_proper = .not. btest(flags(node), 0)
end function not_proper