Eval1DPoly_deriv Function

public pure function Eval1DPoly_deriv(nCoefs, Coefs, x)

evalute first derivative monomial polynomial (c_1+c_2x+c_3x^2) -> (c_2+2c_3x+3c_4x^2 ...

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nCoefs

number of coefficients
real(kind=wp), intent(in) :: Coefs(nCoefs)

coefficients
real(kind=wp), intent(in) :: x

evaluation position

Return Value real(kind=wp)


Called by

proc~~eval1dpoly_deriv~~CalledByGraph proc~eval1dpoly_deriv Eval1DPoly_deriv proc~polyprofile_eval_at_rho2 t_rProfile_poly%polyProfile_eval_at_rho2 proc~polyprofile_eval_at_rho2->proc~eval1dpoly_deriv

Source Code

PURE FUNCTION Eval1DPoly_deriv(nCoefs,Coefs,x)
! MODULES
IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
INTEGER,  INTENT(IN)  :: nCoefs                   !! number of coefficients
REAL(wp), INTENT(IN)  :: Coefs(nCoefs)            !! coefficients
REAL(wp), INTENT(IN)  :: x                        !! evaluation position
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
REAL(wp)              :: Eval1DPoly_deriv
!-----------------------------------------------------------------------------------------------------------------------------------
! LOCAL VARIABLES
INTEGER               :: i
!===================================================================================================================================
Eval1DPoly_deriv=0.
DO i=nCoefs,2,-1
  Eval1DPoly_deriv=Eval1DPoly_deriv*x+REAL(i-1,wp)*Coefs(i)
END DO

END FUNCTION Eval1DPoly_deriv