rint4pts Subroutine

public subroutine rint4pts(y, jtop, z)

Perform an integral via a 4-point integration formula. $$\begin{equation} Z\left(i\right)=\int_{R=0}^{R\left(i\right)} Y\left(i'\right)di' \end{equation}$$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in),		dimension(jtop)	::	y	Function to be integrated
integer,	intent(in)			::	jtop	Y is tabulated from 1 to JTOP
real(kind=dp),	intent(out),		dimension(jtop)	::	z	Integrated function