do iPoint = 1, maxPolyDegree+1 write(,) 'Point: ', chebPnt(iPoint), & & ' FPT: ', pntVal(iPoint), & & ' Ref.: ', refVal(iPoint), & & ' error: ', pntVal(iPoint)-refVal(iPoint) end do
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | blocksize | |||
| integer, | intent(in) | :: | maxPolyDegree | |||
| real(kind=rk), | intent(out) | :: | res |