ply_check_legToPnt_2D Subroutine

subroutine ply_check_legToPnt_2D(power, res)

do iDof = 1, (maxPolyDegree+1)2 write(,) 'Leg coeff ', iDof, ' has error: ', legVal(iDof) - legCoeffs(iDof) end do

Arguments

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