Testing the integration of Legendre Polynomials.
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| real(kind=rk), | allocatable | :: | integrand(:) | |||
| real(kind=rk), | allocatable | :: | integral(:) | |||
| real(kind=rk), | allocatable | :: | evalatends(:,:) | |||
| real(kind=rk), | allocatable | :: | asserted_half(:) | |||
| real(kind=rk) | :: | halfint | ||||
| real(kind=rk) | :: | signfact | ||||
| integer, | parameter | :: | maxdegree | = | 10 | |
| integer | :: | iMode | ||||
| integer | :: | nEven | ||||
| logical | :: | check_ok |
Compute the binomial n over k
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| integer, | intent(in) | :: | k |