lerp Function

private pure function lerp(self, r, value) result(val)

Type Bound

abst_mesh

Arguments

Type IntentOptional Attributes Name
class(abst_mesh), intent(in) :: self
type(type_dp_vector_3d), intent(in) :: r
real(kind=real64), intent(in) :: value(:)

Return Value real(kind=real64)


Calls

proc~~lerp~~CallsGraph proc~lerp abst_mesh%lerp psi psi proc~lerp->psi

Called by

proc~~lerp~~CalledByGraph proc~lerp abst_mesh%lerp proc~interpolate_observations_pw interpolate_observations_pw proc~interpolate_observations_pw->proc~lerp proc~interpolate_observations_si interpolate_observations_si proc~interpolate_observations_si->proc~lerp proc~interpolate_observations_temperature interpolate_observations_temperature proc~interpolate_observations_temperature->proc~lerp proc~interpolate_observations_thc interpolate_observations_thc proc~interpolate_observations_thc->proc~lerp proc~interpolate_observations_vhc interpolate_observations_vhc proc~interpolate_observations_vhc->proc~lerp proc~process_element_hydraulic_linear_1 process_element_hydraulic_linear_1 proc~process_element_hydraulic_linear_1->proc~lerp proc~hydraulic_assemble_system_linear_1 hydraulic_assemble_system_linear_1 proc~hydraulic_assemble_system_linear_1->proc~process_element_hydraulic_linear_1 proc~hydraulic_assemble_system_linear_1_parallel hydraulic_assemble_system_linear_1_parallel proc~hydraulic_assemble_system_linear_1_parallel->proc~process_element_hydraulic_linear_1

Source Code

    pure function lerp(self, r, value) result(val)
        implicit none
        class(abst_mesh), intent(in) :: self
        type(type_dp_vector_3d), intent(in) :: r
        real(real64), intent(in) :: value(:)
        real(real64) :: val

        integer(int32) :: i

        val = 0.0d0

        do i = 1, self%num_nodes
            val = val + self%psi(i, r) * value(self%connectivity(i))
        end do

    end function lerp