least_val_old Subroutine

public subroutine least_val_old(x, ndeg, b, c, d, value)

LEAST_VAL_OLD evaluates a least squares polynomial defined by LEAST_SET_OLD.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	x
integer(kind=4)				::	ndeg
real(kind=8)				::	b(1:ndeg)
real(kind=8)				::	c(0:ndeg)
real(kind=8)				::	d(2:ndeg)
real(kind=8)				::	value