is_periodic_cube Function

private elemental function is_periodic_cube(this, dimen)

Type Bound

cube

Arguments

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

Return Value logical


Source Code

    logical elemental function is_periodic_cube(this, dimen)
        class(cube), intent(in) :: this
        integer, intent(in), optional :: dimen
        debug_function_name("is_periodic_cube")
        if (present(dimen)) then
            ASSERT(1 <= dimen .and. dimen <= 3)
            is_periodic_cube = this%t_periodic(dimen)

        else
            is_periodic_cube = all(this%t_periodic)
        end if
    end function is_periodic_cube