poly_rrv Function

  1. special_fun_modules.f90
  2. nrutil
  3. poly_rrv

public function poly_rrv(x, coeffs)

Arguments

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

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


Calls

proc~~poly_rrv~~CallsGraph proc~poly_rrv poly_rrv proc~poly_rr poly_rr proc~poly_rrv->proc~poly_rr

Called by

proc~~poly_rrv~~CalledByGraph proc~poly_rrv poly_rrv interface~poly poly interface~poly->proc~poly_rrv proc~poly_msk_rrv poly_msk_rrv interface~poly->proc~poly_msk_rrv proc~poly_msk_rrv->proc~poly_rrv

Contents

Source Code

poly_rrv

Source Code

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