*** *GAWL * - Routine to perform the Newton loop
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=JPRD), | intent(in) | :: | PFN(0:KN/2) | |||
| real(kind=JPRD), | intent(inout) | :: | PL | |||
| real(kind=JPRD), | intent(out) | :: | PW | |||
| real(kind=JPRD), | intent(in) | :: | PEPS | |||
| integer(kind=JPIM), | intent(in) | :: | KN | |||
| integer(kind=JPIM), | intent(out) | :: | KITER | |||
| real(kind=JPRD), | intent(inout) | :: | PMOD |