CSINWD Subroutine

public subroutine CSINWD(F, FINT, LMMSQD, IRMIND, IRMD, IPAN, IRCUT)

This subroutine does an inwards integration of llmax functions f with an extended 3-point-simpson :

$$\begin{equation} f_{int}\left(ll,i\right) = \int_{ir}^{ir_{max}}f\left(ll,i'\right)di' \end{equation}$$

The starting value for this integration at ist - 1 is determined by a 4 point lagrangian integration , coefficients given by m. abramowitz and i.a. stegun, handbook of mathematical functions, nbs applied mathematics series 55 (1968)

Arguments

Type	Intent	Optional	Attributes		Name
double complex				::	F(LMMSQD,IRMIND:IRMD)
double complex				::	FINT(LMMSQD,IRMIND:IRMD)
integer				::	LMMSQD
integer				::	IRMIND
integer				::	IRMD
integer				::	IPAN
integer				::	IRCUT(0:IPAN)