Unit test to check functionallity of fast polynomial transformations. \author{Jens Zudrop}
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| integer | :: | iDegree | ||||
| integer | :: | iBSize | ||||
| real(kind=rk) | :: | res | ||||
| real(kind=rk) | :: | newRes | ||||
| type(tem_general_type) | :: | general | ||||
| integer, | parameter | :: | nDegrees | = | 14 | |
| integer, | parameter | :: | degree(nDegrees) | = | [1, 2, 3, 4, 5, 9, 31, 63, 71, 72, 107, 127, 179, 255] | |
| integer, | parameter | :: | nBSizes | = | 3 | |
| integer, | parameter | :: | blocksize(nBSizes) | = | [36, 37, 64] |
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 |