*DECK DXPQNU SUBROUTINE DXPQNU (NU1, NU2, MU, THETA, ID, PQA, IPQA, IERROR) C***BEGIN PROLOGUE DXPQNU C***SUBSIDIARY C***PURPOSE To compute the values of Legendre functions for DXLEGF. 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 DOUBLE PRECISION (XPQNU-S, DXPQNU-D) C***KEYWORDS LEGENDRE FUNCTIONS C***AUTHOR Smith, John M., (NBS and George Mason University) C***ROUTINES CALLED DXADD, DXADJ, DXPSI C***COMMON BLOCKS DXBLK1 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 DXPQNU