public function critical_interpol(Xnew, Xold, idx) result(a)

critical_interpol

Critical point interpolation

Description

This function calculates the parameter $a$ to interpolate the values of the variables at the critical point. The interpolation is done using the equation:

$$0 = a*X_{old}(ns) + (1-a)*X_{new}(ns)$$

Where $X_{old}$ is the old value of the variables and $X_{new}$ is the new value of the variables. The critical point is the point where the variables change sign, so the interpolation is done to find the value of the variables at the critical point.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=pr),	intent(in)			::	Xnew(:)	New value of the variables
real(kind=pr),	intent(in)			::	Xold(:)	Old value of the variables
integer,	intent(in)			::	idx(:)	Index of the variables to interpolate

Return Value real(kind=pr)

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public		::	ncomp