*** *SUPOL * - Routine to compute the Legendre polynomials
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer(kind=JPIM), | intent(in) | :: | KNSMAX | |||
| real(kind=JPRD), | intent(in) | :: | PDDMU | |||
| real(kind=JPRD), | intent(in) | :: | PFN(0:KNSMAX,0:KNSMAX) | |||
| real(kind=JPRD), | intent(out) | :: | PDDPOL(0:KNSMAX,0:KNSMAX) |