eval_repeat Function

private pure elemental function eval_repeat(this, pos) result(res)

Evaluation function for Repeat modifier.

Type Bound

repeat

Arguments

Type IntentOptional Attributes Name
class(repeat), intent(in) :: this
type(vector), intent(in) :: pos

Position to evaluate the modifier at

Return Value real(kind=wp)


Source Code

    pure elemental function eval_repeat(this, pos) result(res)
        !! Evaluation function for Repeat modifier.

        ! use utils, only : clamp

        class(repeat), intent(in) :: this
        !> Position to evaluate the modifier at
        type(vector), intent(IN) :: pos
        real(kind=wp) :: res

        type(vector) :: q

        error stop "Not implmented as no vector dependacny in utils yet!"
        ! q = pos - this%c*clamp(nint(pos/this%c), this%la, this%lb)
        res = this%prim%evaluate(q)

    end function eval_repeat