interpolate Function

public function interpolate(self, xi, eta, value) result(interpolated_value)

Arguments

Type IntentOptional Attributes Name
class(abst_element), intent(in) :: self
real(kind=real64), intent(in) :: xi
real(kind=real64), intent(in) :: eta
real(kind=real64), intent(in) :: value(:)

Return Value real(kind=real64)


Calls

proc~~interpolate~~CallsGraph proc~interpolate interpolate psi psi proc~interpolate->psi

Source Code

    function interpolate(self, xi, eta, value) result(interpolated_value)
        implicit none
        class(abst_element), intent(in) :: self
        real(real64), intent(in) :: xi, eta
        real(real64), intent(in) :: value(:)
        real(real64) :: interpolated_value
        integer(int32) :: i

        interpolated_value = 0.0d0
        do i = 1, self%num_nodes
            interpolated_value = interpolated_value + self%psi(i, xi, eta) * value(self%connectivity(i))
        end do
    end function interpolate