is_periodic_rect Function

private pure function is_periodic_rect(this, dimen)

Type Bound

rectangle

Arguments

Type IntentOptional Attributes Name
class(rectangle), intent(in) :: this
integer, intent(in), optional :: dimen

Return Value logical


Contents

Source Code

is_periodic_rect

Source Code

    logical pure function is_periodic_rect(this, dimen)
        class(rectangle), intent(in) :: this
        integer, intent(in), optional :: dimen
        debug_function_name("is_periodic_rect")
        if (present(dimen)) then
            ASSERT(1 <= dimen .and. dimen <= 3)
            is_periodic_rect = this%t_periodic(dimen)
        else
            is_periodic_rect = all(this%t_periodic)
        end if
    end function is_periodic_rect