regr1_lint_m Module

private function regr11_lint(vs, xs, xt) result(vt)

, polint

   call polint(xs(is_b:is_b+1), vs(is_b:is_b+1), xt(it), vt(it))

Arguments

Return Value real, (size(xt))

private function regr12_lint(vs, xs, xt) result(vt)

Arguments

Return Value real, (size(xt),size(vs,2))