do iPoly = 1, maxPolyDegree+1 write(,) 'Poly degree: ', iPoly, & & ' iFPT: ', legVal(iPoly), & & ' Ref.: ', legCoeffs(iPoly), & & ' error: ', legVal(iPoly)-legCoeffs(iPoly) end do
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | power | |||
| real(kind=rk), | intent(out) | :: | res |