*** *SUPOL * - Routine to compute the Legendre polynomials
Interface. ---------- CALL *SUPOLF(KM,KNSMAX,DDMU,DDPOL,KCHEAP)
First two columns. ------------------
ordinary Legendre polynomials from series expansion
KM >= 2
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer(kind=JPIM), | intent(in) | :: | KM | |||
| integer(kind=JPIM), | intent(in) | :: | KNSMAX | |||
| real(kind=JPRD), | intent(in) | :: | DDMU | |||
| real(kind=JPRD), | intent(out) | :: | DDPOL(0:KNSMAX) | |||
| integer(kind=JPIM), | intent(in), | optional | :: | KCHEAP |