eval_disp Function

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

Evaluation function for displacement modifier.

Type Bound

displacement

Arguments

Type IntentOptional Attributes Name
class(displacement), 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_disp(this, pos) result(res)
        !! Evaluation function for displacement modifier.

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

        real(kind=wp) :: d1, d2

        d1 = this%prim%evaluate(pos)
        d2 = this%func(pos)

        res = d1 + d2

    end function eval_disp