Unit test to check functionallity of fast polynomial transformations. \author{Jens Zudrop}
Type | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|
integer | :: | iPower | ||||
real(kind=rk) | :: | res | ||||
real(kind=rk) | :: | newRes | ||||
type(tem_general_type) | :: | general |
do iDof = 1, (maxPolyDegree+1)2 write(,) 'Leg coeff ', iDof, ' has error: ', legVal(iDof) - legCoeffs(iDof) end do
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | power | |||
real(kind=rk), | intent(out) | :: | res |