      SUBROUTINE GLCN48
C     -------------------------------------------
C     SET CONSTANTS FOR GAUSS-LEGENDRE QUADRATURE
C     -------------------------------------------
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C6    IMPLICIT REAL*8 (A-H,O-Z)
      DIMENSION PL(48),WL(48)
      COMMON/LIST7/PL,WL
C
      PL( 1)= 0.998771007252426118600541491563D0
      PL( 2)= 0.993530172266350757547928750849D0
      PL( 3)= 0.984124583722826857744583600027D0
      PL( 4)= 0.970591592546247250461411983801D0
      PL( 5)= 0.952987703160430860722960666026D0
      PL( 6)= 0.931386690706554333114174380102D0
      PL( 7)= 0.905879136715569672822074835671D0
      PL( 8)= 0.876572020274247885905693554805D0
      PL( 9)= 0.843588261624393530711089844520D0
      PL(10)= 0.807066204029442627082553043025D0
      PL(11)= 0.767159032515740339253855437523D0
      PL(12)= 0.724034130923814654674482233494D0
      PL(13)= 0.677872379632663905211851280676D0
      PL(14)= 0.628867396776513623995164933070D0
      PL(15)= 0.577224726083972703817809238540D0
      PL(16)= 0.523160974722233033678225869138D0
      PL(17)= 0.466902904750958404544928861651D0
      PL(18)= 0.408686481990716729916225495815D0
      PL(19)= 0.348755886292160738159817937270D0
      PL(20)= 0.287362487355455576735886461317D0
      PL(21)= 0.224763790394689061224865440175D0
      PL(22)= 0.161222356068891718056437390783D0
      PL(23)= 0.970046992094626989300539558536D-1
      PL(24)= 0.323801709628693620333222431521D-1
C
      WL( 1)= 0.315334605230583863267731154389D-2
      WL( 2)= 0.732755390127626210238397962179D-2
      WL( 3)= 0.114772345792345394895926676091D-1
      WL( 4)= 0.155793157229438487281769558345D-1
      WL( 5)= 0.196161604573555278144607196522D-1
      WL( 6)= 0.235707608393243791405193013784D-1
      WL( 7)= 0.274265097083569482000738362625D-1
      WL( 8)= 0.311672278327980889020657568464D-1
      WL( 9)= 0.347772225647704388925485859638D-1
      WL(10)= 0.382413510658307063172172565237D-1
      WL(11)= 0.415450829434647492140588223611D-1
      WL(12)= 0.446745608566942804194485871259D-1
      WL(13)= 0.476166584924904748259066234789D-1
      WL(14)= 0.503590355538544749578076190879D-1
      WL(15)= 0.528901894851936670955050562647D-1
      WL(16)= 0.551995036999841628682034951916D-1
      WL(17)= 0.572772921004032157051502346847D-1
      WL(18)= 0.591148396983956357464748174335D-1
      WL(19)= 0.607044391658938800529692320278D-1
      WL(20)= 0.620394231598926639041977841376D-1
      WL(21)= 0.631141922862540256571260227502D-1
      WL(22)= 0.639242385846481866239062018255D-1
      WL(23)= 0.644661644359500822065041936577D-1
      WL(24)= 0.647376968126839225030249387366D-1
C
      DO 10 I=1,24
        PL(I+24)= -PL(I)
        WL(I+24)=  WL(I)
   10 CONTINUE
C
      RETURN
      END
C
