# xpqnu.f

          SUBROUTINE XPQNU (NU1, NU2, MU, THETA, ID, PQA, IPQA, IERROR)
    C***BEGIN PROLOGUE  XPQNU
    ....
    ....
    Warning:   this routine is not intended to be user-callable.
    ....
    ....
    C***SUBSIDIARY
    C***PURPOSE  To compute the values of Legendre functions for XLEGF.
    C            This subroutine calculates initial values of P or Q using
    C            power series, then performs forward nu-wise recurrence to
    C            obtain P(-MU,NU,X), Q(0,NU,X), or Q(1,NU,X). The nu-wise
    C            recurrence is stable for P for all mu and for Q for mu=0,1.
    C***LIBRARY   SLATEC
    C***CATEGORY  C3A2, C9
    C***TYPE      SINGLE PRECISION (XPQNU-S, DXPQNU-D)
    C***KEYWORDS  LEGENDRE FUNCTIONS
    C***AUTHOR  Smith, John M., (NBS and George Mason University)
    C***ROUTINES CALLED  XADD, XADJ, XPSI
    C***COMMON BLOCKS    XBLK1
    C***REVISION HISTORY  (YYMMDD)
    C   820728  DATE WRITTEN
    C   890126  Revised to meet SLATEC CML recommendations.  (DWL and JMS)
    C   901019  Revisions to prologue.  (DWL and WRB)
    C   901106  Changed all specific intrinsics to generic.  (WRB)
    C           Corrected order of sections in prologue and added TYPE
    C           section.  (WRB)
    C   920127  Revised PURPOSE section of prologue.  (DWL)
    C***END PROLOGUE  XPQNU