ply_check_legToPnt Subroutine

subroutine ply_check_legToPnt(power, res)

do iPoint = 1, maxPolyDegree+1 write(,) 'Point: ', chebPnt(iPoint), & & ' FPT: ', pntVal(iPoint), & & ' Ref.: ', refVal(iPoint), & & ' error: ', pntVal(iPoint)-refVal(iPoint) end do

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	power
real(kind=rk),	intent(out)			::	res