CPLEDN Subroutine

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

Uses

    • EC_PARKIND
  • proc~~cpledn~~UsesGraph proc~cpledn CPLEDN EC_PARKIND EC_PARKIND proc~cpledn->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

Called by

proc~~cpledn~~CalledByGraph proc~cpledn CPLEDN proc~gawl GAWL proc~gawl->proc~cpledn proc~gawl~2 GAWL proc~gawl~2->proc~cpledn proc~sugaw SUGAW proc~sugaw->proc~gawl proc~sugaw~2 SUGAW proc~sugaw~2->proc~gawl proc~sugawc SUGAWC proc~sugawc->proc~sugaw proc~sugawc~2 SUGAWC proc~sugawc~2->proc~sugaw proc~suleg SULEG proc~suleg->proc~sugaw proc~suleg~2 SULEG proc~suleg~2->proc~sugaw proc~setup_trans SETUP_TRANS proc~setup_trans->proc~suleg proc~setup_trans~2 SETUP_TRANS proc~setup_trans~2->proc~suleg