SUPOL Subroutine

public subroutine SUPOL(KNSMAX, PDDMU, PFN, PDDPOL)

Uses

- EC_PARKIND
- TPM_POL
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

*** *SUPOL * - Routine to compute the Legendre polynomials

Interface. ---------- CALL *SUPOL(...)
```
  ordinary Legendre polynomials from series expansion
   ---------------------------------------------------
```
1. Diagonal (the terms 0,0 and 1,1 have already been computed) Belousov, equation (23) -----------------------------------------------------------
2. General recurrence (Belousov, equation 17) -----------------------------------------

Arguments

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)