poly_ddv Function

  1. special_fun_modules.f90
  2. nrutil
  3. poly_ddv

public function poly_ddv(x, coeffs)

Arguments

Type IntentOptional AttributesName
real(kind=DP), intent(in), DIMENSION(:):: x
real(kind=DP), intent(in), DIMENSION(:):: coeffs

Return Value real(kind=DP), DIMENSION(size(x))


Calls

proc~~poly_ddv~~CallsGraph proc~poly_ddv poly_ddv proc~poly_dd poly_dd proc~poly_ddv->proc~poly_dd

Called by

proc~~poly_ddv~~CalledByGraph proc~poly_ddv poly_ddv interface~poly poly interface~poly->proc~poly_ddv proc~poly_msk_ddv poly_msk_ddv interface~poly->proc~poly_msk_ddv proc~poly_msk_ddv->proc~poly_ddv

Contents

Source Code

poly_ddv

Source Code

	FUNCTION poly_ddv(x,coeffs)
	REAL(DP), DIMENSION(:), INTENT(IN) :: coeffs,x
	REAL(DP), DIMENSION(size(x)) :: poly_ddv
	INTEGER(I4B) :: i,n,m
	m=size(coeffs)
	n=size(x)
	if (m <= 0) then
		poly_ddv=0.0_dp
	else if (m < n .or. m < NPAR_POLY) then
		poly_ddv=coeffs(m)
		do i=m-1,1,-1
			poly_ddv=x*poly_ddv+coeffs(i)
		end do
	else
		do i=1,n
			poly_ddv(i)=poly_dd(x(i),coeffs)
		end do
	end if
	END FUNCTION poly_ddv