CPLEDN Subroutine

public subroutine CPLEDN(KN, KODD, PFN, PX, KFLAG, PW, PXN, PXMOD)

Uses

    • EC_PARKIND
  • proc~~cpledn~2~~UsesGraph proc~cpledn~2 CPLEDN EC_PARKIND EC_PARKIND proc~cpledn~2->EC_PARKIND

*** CPLEDN - Routine to perform a single Newton iteration step to find the zero of the ordinary Legendre polynomial of degree N

  • Interface. ---------- CALL CPLEDN(KN,KDBLE,PX,KFLAG,PW,PXN,PXMOD)
     2.    Computes weight.
        ----------------

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KN
integer(kind=JPIM), intent(in) :: KODD
real(kind=JPRD), intent(in) :: PFN(0:KN/2)
real(kind=JPRD), intent(in) :: PX
integer(kind=JPIM), intent(in) :: KFLAG
real(kind=JPRD), intent(out) :: PW
real(kind=JPRD), intent(inout) :: PXN
real(kind=JPRD), intent(out) :: PXMOD