C =============================================================================
C SPEED POINTS & WEIGHTS

      BLOCK DATA SPEED04
      IMPLICIT REAL*8 (A-Z)
      COMMON /SPW04/ SWGT04(4),SPNT04(4)
      DATA SWGT04(1), SPNT04(1) / 0.3253029998D0,  0.1337764470D0  /
      DATA SWGT04(2), SPNT04(2) / 0.4211071019D0,  0.6243246902D0  /
      DATA SWGT04(3), SPNT04(3) / 0.1334425004D0,  1.3425378256D0  /
      DATA SWGT04(4), SPNT04(4) / 0.6374323486D-2, 2.2626644770D0  /
      END

      BLOCK DATA SPEED08
      IMPLICIT REAL*8 (A-Z)
      COMMON /SPW08/ SWGT08(8),SPNT08(8)
      DATA SWGT08(1), SPNT08(1) / 0.1341091885D0,  0.5297864393D-1 /
      DATA SWGT08(2), SPNT08(2) / 0.2683307545D0,  0.2673983722D0  /
      DATA SWGT08(3), SPNT08(3) / 0.2759533980D0,  0.6163028842D0  /
      DATA SWGT08(4), SPNT08(4) / 0.1574482826D0,  1.0642463121D0  /
      DATA SWGT08(5), SPNT08(5) / 0.4481410992D-1, 1.5888558623D0  /
      DATA SWGT08(6), SPNT08(6) / 0.5367935756D-2, 2.1839211531D0  /
      DATA SWGT08(7), SPNT08(7) / 0.2020636491D-3, 2.8631338837D0  /
      DATA SWGT08(8), SPNT08(8) / 0.1192596927D-5, 3.6860071627D0  /
      END

      BLOCK DATA SPEED16
      IMPLICIT REAL*8 (A-Z)
      COMMON /SPW16/ SWGT16(16),SPNT16(16)
      DATA SWGT16(1), SPNT16(1) / 0.5052463202D-1, 0.1975365846D-1 /
      DATA SWGT16(2), SPNT16(2) / 0.1136085569D0,  0.1028022452D0  /
      DATA SWGT16(3), SPNT16(3) / 0.1629212923D0,  0.2473976695D0  /
      DATA SWGT16(4), SPNT16(4) / 0.1835628011D0,  0.4466962260D0  /
      DATA SWGT16(5), SPNT16(5) / 0.1654386378D0,  0.6930737203D0  /
      DATA SWGT16(6), SPNT16(6) / 0.1165724906D0,  0.9794041703D0  /
      DATA SWGT16(7), SPNT16(7) / 0.6199969610D-1, 1.2997893213D0  /
      DATA SWGT16(8), SPNT16(8) / 0.2391970962D-1, 1.6498542404D0  /
      DATA SWGT16(9) ,SPNT16(9) / 0.6409914424D-2, 2.0268081522D0  /
      DATA SWGT16(10),SPNT16(10)/ 0.1135695311D-2, 2.4294504916D0  /
      DATA SWGT16(11),SPNT16(11)/ 0.1252862213D-3, 2.8582665285D0  /
      DATA SWGT16(12),SPNT16(12)/ 0.7950495720D-5, 3.3157692750D0  /
      DATA SWGT16(13),SPNT16(13)/ 0.2590007619D-6, 3.8073771168D0  /
      DATA SWGT16(14),SPNT16(14)/ 0.3611549140D-8, 4.3436063455D0  /
      DATA SWGT16(15),SPNT16(15)/ 0.1537677916D-10,4.9463772040D0  /
      DATA SWGT16(16),SPNT16(16)/ 0.8674204452D-14,5.6750179340D0  /
      END

C =============================================================================