LCOV - code coverage report
Current view: top level - eels - corespec_eval.f90 (source / functions) Hit Total Coverage
Test: combined.info Lines: 0 5564 0.0 %
Date: 2019-09-08 04:53:50 Functions: 0 40 0.0 %

          Line data    Source code
       1             : !--------------------------------------------------------------------------------
       2             : ! Copyright (c) 2017 Peter Grünberg Institut, Forschungszentrum Jülich, Germany
       3             : ! This file is part of FLEUR and available as free software under the conditions
       4             : ! of the MIT license as expressed in the LICENSE file in more detail.
       5             : !--------------------------------------------------------------------------------
       6             : 
       7             : MODULE m_corespec_eval
       8             : 
       9             :   USE m_types_setup
      10             :   USE m_types_usdus       
      11             :   USE m_types_cdnval, ONLY: t_eigVecCoeffs        
      12             :   USE m_constants        
      13             :   USE m_corespec
      14             : 
      15             :   IMPLICIT NONE
      16             : 
      17             :   CONTAINS
      18             : 
      19             : !===============================================================================
      20             : !
      21             : !  S U B R O U T I N E   C O R E S P E C _ G A U N T
      22             : !
      23             : !-------------------------------------------------------------------------------
      24             : !
      25           0 :   SUBROUTINE corespec_gaunt()
      26             : 
      27             : !    use factorials
      28             :     
      29             :     use m_clebsch
      30             : 
      31             :     implicit none
      32             : 
      33             : !    real :: threejsymbol
      34             : 
      35             :     logical :: cmsum,clevn,ctiq1,ctiq2,ctiq3
      36             :     real :: twol1p1,twola1p1,twolip1
      37             : 
      38           0 :     smeno = "corespec_gaunt"
      39             : 
      40           0 :     write(*,'(/,a)') trim(smeno)//ssep
      41             : 
      42             : !    call init_factorials(6*(lmaxd+1)+1)
      43             : 
      44           0 :     ln = min(0,minval(csv%lc)-1)
      45           0 :     lx = max(csi%lx,maxval(csv%lc)+1)
      46             : 
      47           0 :     lan = 0
      48           0 :     lax = csi%lx+maxval(csv%lc)+1
      49             : 
      50           0 :     lin = minval(csv%lc)-1
      51           0 :     lix = maxval(csv%lc)+1
      52             : 
      53             : !!$    print*,"ln,lx,lan,lax,lin,lix"
      54             : !!$    print*,ln,lx,lan,lax,lin,lix
      55             : 
      56           0 :     if(.not.allocated(csv%gaunt)) &
      57           0 :          &allocate(csv%gaunt(ln:lx,-lx:lx,lan:lax,-lax:lax,lin:lix,-lix:lix))
      58           0 :     csv%gaunt = 0.0
      59             : 
      60             : ! m<=l condition fulfilled by looping m within l value interval {-l,...,+l}
      61             : 
      62           0 :     csv%gaunt = 0.0
      63           0 :     do l1 = ln,lx
      64           0 :       do m1 = -l1,l1
      65           0 :         do la1 = lan,lax
      66           0 :           do mu1 = -la1,la1
      67           0 :             do li = lin,lix
      68           0 :               do mi = -li,li
      69           0 :                 cmsum = (m1+mu1-mi).eq.0  ! sum of m q-nos. = 0
      70           0 :                 clevn = mod((l1+la1+li),2).eq.0  ! sum of l q-nos. is even
      71           0 :                 ctiq1 = (la1+li-l1).ge.0  ! triangle inequality 1
      72           0 :                 ctiq2 = (l1+li-la1).ge.0  ! triangle inequality 2
      73           0 :                 ctiq3 = (l1+la1-li).ge.0  ! triangle inequality 3
      74           0 :                 twol1p1 = dble(2*l1+1)
      75           0 :                 twola1p1 = dble(2*la1+1)
      76           0 :                 twolip1 = dble(2*li+1)
      77           0 :                 if(cmsum.and.clevn.and.ctiq1.and.ctiq2.and.ctiq3) then
      78             :                   csv%gaunt(l1,m1,la1,mu1,li,mi) = &
      79             : !                       &threejsymbol((l1),(la1),0,0,(li),0)*&
      80             : !                       &threejsymbol((l1),(la1),(m1),(mu1),(li),-(mi)))&
      81             :                        &clebsch(real(l1),real(la1),0.0,0.0,real(li),0.0)*&
      82             :                        &clebsch(real(l1),real(la1),real(m1),real(mu1),real(li),real(mi))*&
      83             :                        &sqrt(twol1p1*twola1p1/(4.0*pi_const*twolip1))*&
      84           0 :                        &(-1)**(mi)
      85           0 :                   if(csv%gaunt(l1,m1,la1,mu1,li,mi).ne.0.0) &
      86           0 :                        &write(53,'(6i5,f12.6)') l1,m1,la1,mu1,li,-mi,csv%gaunt(l1,m1,la1,mu1,li,mi)
      87             : !!$                  if(abs(csv%gaunt(l1,m1,la1,mu1,li,mi)).lt.1.d-6) &
      88             : !!$                       &write(*,'(6i5,f24.20)') l1,m1,la1,mu1,li,-mi,csv%gaunt(l1,m1,la1,mu1,li,mi)
      89             :                 endif
      90             :               enddo
      91             :             enddo
      92             :           enddo
      93             :         enddo
      94             :       enddo
      95             :     enddo
      96             : 
      97           0 :     if(csi%verb.eq.1) write(*,*) ""
      98             : 
      99           0 :   end subroutine corespec_gaunt
     100             : !
     101             : !===============================================================================
     102             : !===============================================================================
     103             : !
     104             : !  S U B R O U T I N E   C O R E S P E C _ R M E
     105             : !
     106             : !-------------------------------------------------------------------------------
     107             : !
     108           0 :   subroutine corespec_rme(atoms,input,itype,nstd,&
     109             :                           jspins,jspin,efermi,&
     110           0 :                           msh,vr,f,g)
     111             : 
     112             :     USE m_constants, ONLY : c_light
     113             :     USE m_setcor
     114             :     USE m_differ
     115             :     USE m_intgr, ONLY : intgr3
     116             :     USE m_dr2fdr
     117             :     USE m_sphbes
     118             :     USE m_intgr, ONLY : intgr3
     119             : 
     120             :     implicit none
     121             : 
     122             :     TYPE(t_atoms),INTENT(IN)   :: atoms
     123             :     TYPE(t_input),INTENT(IN)   :: input
     124             : 
     125             :     integer, intent(in) :: itype  ! call in ntype loop with itype = n
     126             :     integer, intent(in) :: nstd
     127             :     integer, intent(in) :: jspins,jspin
     128             :     real, intent(in) :: efermi
     129             :     integer, intent(in) :: msh
     130             :     real, intent    (in) :: vr(atoms%jmtd,atoms%ntype,jspins)
     131             :     real, intent (in) :: f(atoms%jmtd,2,0:atoms%lmaxd,jspin:jspin)
     132             :     real, intent (in) :: g(atoms%jmtd,2,0:atoms%lmaxd,jspin:jspin)
     133             : 
     134             :     integer :: nr,lx,lax,lin,lix,nqv,nen,nex
     135             : 
     136             :     integer :: ir,id,iljc,ic,il,ila,iqv,ie,ierr
     137           0 :     integer :: nst,kappa(nstd),nprnc(nstd)
     138             :     real :: nc,nlc,njc
     139             :     real :: c,bmu,t2,weight,e,d,rn,res,qr
     140           0 :     real :: vrd(msh),occ(nstd,jspins),a(msh),b(msh)
     141             :     real :: resd
     142             : 
     143           0 :     real, allocatable :: fpd(:)
     144           0 :     real, allocatable :: fp(:),fc(:),fsb(:)
     145             :     real :: sum1,sum2,sum3,sum1d,sum2d
     146             : 
     147           0 :     smeno = "corespec_rme"
     148             : 
     149           0 :     if(itype.ne.csi%atomType) return
     150             : 
     151           0 :     write(*,'(/,a)') trim(smeno)//ssep
     152             : 
     153           0 :     c = c_light(1.0)
     154             : 
     155           0 :     nr = atoms%jri(itype)
     156             : 
     157           0 :     allocate(fp(nr),fpd(nr),fc(nr))
     158             : 
     159             :   ! CORE functions
     160             :   ! csv%fc(ir,:,:,:) : ir = 1:nr
     161             :   ! csv%fc(:,id,:,:) : id = 1 { r*fc(r) } or 2 { r*[dfc(r)/dr] }
     162             :   ! csv%fc(:,:,iljc,:) : iljc = 1:csv%nljc
     163             :   ! csv%fc(:,:,:,ic) : ic = 1 { large component } or 2 { small component }
     164           0 :     if(.not.allocated(csv%fc)) allocate(csv%fc(nr,2,csv%nljc,2))
     165           0 :     csv%fc = 0.0
     166             : 
     167             :   ! core setup
     168           0 :     bmu = 0.0
     169             : 
     170           0 :     CALL setcor(itype,jspins,atoms,input,bmu,nst,kappa,nprnc,occ)
     171             : 
     172             :   ! extend core potential
     173           0 :     vrd(1:nr) = vr(1:nr,itype,jspin)
     174           0 :     t2 = vrd(nr)/(nr-msh)
     175           0 :     do ir = nr+1,msh
     176           0 :       vrd(ir) = vrd(nr)+t2*(ir-nr)
     177             :     enddo
     178             : 
     179             :   ! calculate core radial functions
     180           0 :     nc = real(csv%nc)
     181           0 :     do iljc = 1,csv%nljc
     182           0 :       njc = real(edgej(csi%edgeidx(iljc)))/2.0
     183           0 :       nlc = real(edgel(csi%edgeidx(iljc)))
     184           0 :       weight = 2*njc+1.0
     185           0 :       csv%eedge(iljc) = -2*(atoms%zatom(itype)/(nc+nlc))**2
     186           0 :       d = exp(atoms%dx(itype))
     187           0 :       rn = atoms%rmsh(1,itype)*(d**(msh-1))
     188             : 
     189             :       CALL differ(nc,nlc,njc,c,atoms%zatom(itype),atoms%dx(itype),&
     190             :                   atoms%rmsh(1,itype),rn,d,msh,vrd,&
     191             :                   e,&
     192           0 :                   a,b,ierr)
     193             : 
     194           0 :       csv%eedge(iljc)=dble(e)
     195           0 :       csv%fc(:,1,iljc,1) = a(1:nr)  ! large component
     196           0 :       csv%fc(:,1,iljc,2) = b(1:nr)  ! small component
     197           0 :       do ic = 1,2
     198           0 :         fp(:) = real(csv%fc(:,1,iljc,ic)*atoms%rmsh(1:nr,itype))
     199           0 :         CALL dr2fdr(fp,atoms%rmsh(1,itype),nr,fc)
     200           0 :         csv%fc(:,2,iljc,ic)=dble(fc(:)/atoms%rmsh(1:nr,itype))
     201             : 
     202           0 :         if(ic.eq.1) then
     203           0 :         do ir=1,nr
     204           0 :         write(90,'(2i5,16e12.4)') iljc,ir,atoms%rmsh(ir,itype),csv%fc(ir,1,iljc,ic),csv%fc(ir,2,iljc,ic)
     205             :         enddo
     206           0 :         write(90,*) ''
     207           0 :         write(90,*) ''
     208             :         endif
     209             : 
     210             :       enddo
     211             :       
     212           0 :       fp = csv%fc(:,1,iljc,1)**2
     213           0 :       CALL intgr3(fp,atoms%rmsh(1,itype),atoms%dx(itype),nr,sum1)
     214           0 :       fp = csv%fc(:,1,iljc,2)**2
     215           0 :       CALL intgr3(fp,atoms%rmsh(1,itype),atoms%dx(itype),nr,sum2)
     216           0 :       write(*,'(a,i5,3f8.4)') "ui",0,sum1,sum2,sum1+sum2
     217             : 
     218           0 :       fp = csv%fc(:,2,iljc,1)**2
     219           0 :       CALL intgr3(fp,atoms%rmsh(1,itype),atoms%dx(itype),nr,sum1)
     220           0 :       fp = csv%fc(:,2,iljc,2)**2
     221           0 :       CALL intgr3(fp,atoms%rmsh(1,itype),atoms%dx(itype),nr,sum2)
     222           0 :       write(*,'(a,i5,3f8.4)') "ui",0,sum1,sum2,sum1+sum2
     223             : 
     224           0 :       write(60,*) ""
     225           0 :       csv%occ(iljc) = dble(occ((csv%nc-1)**2+csi%edgeidx(iljc),jspin))
     226           0 :       write(*,"(a,2(a,i2),a,f3.1,2(a,i2),a,f16.8,a)") trim(smeno)//ssep,&
     227           0 :            &"core state: iljc = ",iljc,&
     228           0 :            &", nc = ",nint(nc),&
     229           0 :            &", njc = ",njc,&
     230           0 :            &", nlc = ",nint(nlc),&
     231           0 :            &", occ. csv%occ = ",nint(csv%occ(iljc)),&
     232           0 :            &", energy csv%eedge(iljc) = ",csv%eedge(iljc)," Ha found"
     233           0 :       if(efermi-csv%eedge(iljc).lt.ecoredeep) then
     234           0 :         write(*,csmsgsfs)  trim(smeno),&
     235           0 :              &"core state energy found not very deep: ",&
     236           0 :              &"efermi-csv%eedge(iljc) = ",&
     237           0 :              &(efermi-csv%eedge(iljc))*hartree_to_ev_const,"eV ; are you sure ? "//csmsgwar
     238             :       endif
     239             :     enddo
     240             : 
     241           0 :     CALL corespec_eloss_qv(efermi)  ! set-up csv%eloss and csv%qv arrays
     242             : 
     243           0 :     lx = csi%lx  ! lmax for l index
     244           0 :     lax = lx+maxval(csv%lc)+1  ! lmax for la index
     245             :     lin = minval(csv%lc)  ! minimum lc q-no.
     246           0 :     lix = maxval(csv%lc)  ! maximum lc q-no.
     247           0 :     nqv = csv%nqv
     248           0 :     nen = csv%nen
     249           0 :     nex = csv%nex
     250             : 
     251           0 :     allocate(fsb(0:lax))
     252             : 
     253             :   ! VALENCE functions
     254             :   ! csv%fv(ir,:,:,:) : ir = 1:nr
     255             :   ! csv%fv(:,il,:,:) : il = 0:csi%lx
     256             :   ! csv%fv(:,:,id,:) : id = 1 { a.u } or 2 { b.u' }
     257             :   ! csv%fv(:,:,:,ic) : ic = 1 { large component } or 2 { small component }
     258           0 :     if(.not.allocated(csv%fv)) allocate(csv%fv(nr,0:lx,2,2))
     259           0 :     csv%fv = 0.0
     260             : 
     261           0 :     do ic = 1,2
     262           0 :       do il = 0,lx
     263           0 :         csv%fv(:,il,1,ic) = f(1:nr,ic,il,jspin)
     264           0 :         csv%fv(:,il,2,ic) = g(1:nr,ic,il,jspin)
     265             : 
     266           0 :         if(ic.eq.1) then
     267           0 :         do ir=1,nr
     268           0 :         write(70,'(3i5,16e12.4)') ic,il,ir,atoms%rmsh(ir,itype),csv%fv(ir,il,1,ic),csv%fv(ir,il,2,ic)
     269             :         enddo
     270           0 :         write(70,*) ''
     271           0 :         write(70,*) ''
     272             :         endif
     273             : 
     274           0 :        fp(:) = csv%fv(:,il,1,ic)**2
     275           0 :         CALL intgr3(fp,atoms%rmsh(1,itype),atoms%dx(itype),nr,sum1)
     276           0 :         fp(:) = csv%fv(:,il,2,ic)**2
     277           0 :         CALL intgr3(fp,atoms%rmsh(1,itype),atoms%dx(itype),nr,sum2)
     278           0 :         fp(:) = csv%fv(:,il,1,ic)*csv%fv(:,il,2,ic)
     279           0 :         CALL intgr3(fp,atoms%rmsh(1,itype),atoms%dx(itype),nr,sum3)
     280           0 :         write(*,'(a,i5,3f8.4)') "u ",il,sum1,sum2,sum3
     281             : 
     282             :       enddo
     283             :     enddo
     284             : 
     285             :   ! BESSEL functions
     286             :   ! csv%fb(ir,:,:,:,:) : ir = 1:nr
     287             :   ! csv%fb(:,il,:,:,:) : il = 0:lax
     288             :   ! csv%fb(:,,:,iljc,:,:) : iljc = 1:csv%nljc
     289             :   ! csv%fb(:,:,:,iqv,:) : iqv = 1:nqv
     290             :   ! csv%fb(:,:,:,:,ie) : ie = nen:nex
     291           0 :     if(.not.allocated(csv%fb)) allocate(csv%fb(nr,0:lax,csv%nljc,nqv,nen:nex))
     292           0 :     csv%fb = 0.0
     293             : 
     294           0 :     do ie = nen,nex
     295           0 :       do iqv = 1,nqv
     296           0 :         do iljc = 1,csv%nljc
     297           0 :           do ir = 1,nr
     298           0 :             fsb=0.0
     299           0 :             qr = real(csv%qv(0,iljc,iqv,ie)*atoms%rmsh(ir,itype))
     300           0 :             CALL sphbes(lax,qr,fsb)
     301           0 :             csv%fb(ir,:,iljc,iqv,ie) = dble(fsb)
     302             : !            write(70,'(4i5,16e12.4)') ie,iqv,iljc,ir,atoms%rmsh(ir,itype),fsb
     303             :           enddo
     304             : !          write(70,*) ''
     305             :         enddo
     306             :       enddo
     307             :     enddo
     308             : 
     309           0 :     if(.NOT.ALLOCATED(csv%rmeA)) THEN
     310           0 :        ALLOCATE(csv%rmeA(2,0:lx,0:lax,csv%nljc,2,nqv,nen:nex))
     311           0 :        ALLOCATE(csv%rmeB(2,0:lx,0:lax,csv%nljc,2,nqv,nen:nex))
     312           0 :        ALLOCATE(csv%rmeC(2,0:lx,0:lax,csv%nljc,2,nqv,nen:nex))
     313             :     END IF
     314           0 :     csv%rmeA = 0.0
     315           0 :     csv%rmeB = 0.0
     316           0 :     csv%rmeC = 0.0
     317             : 
     318           0 :     do ie = nen,nex
     319           0 :       do iqv = 1,nqv
     320           0 :         do ic = 1,2
     321           0 :           do iljc = 1,csv%nljc
     322           0 :             do ila = 0,lax
     323           0 :               do il = 0,lx
     324           0 :                 do id = 1,2
     325             :                   fp(:)=csv%fc(1:nr,1,iljc,ic)*&
     326             :                        &csv%fv(1:nr,il,id,ic)*&
     327           0 :                        &csv%fb(1:nr,ila,iljc,iqv,ie)
     328           0 :                   CALL intgr3(fp,atoms%rmsh(1,itype),atoms%dx(itype),nr,res)
     329           0 :                   csv%rmeA(id,il,ila,iljc,ic,iqv,ie)=dble(res)
     330           0 :                   fp(:)=fp(:)/atoms%rmsh(1:nr,itype)
     331           0 :                   CALL intgr3(fp,atoms%rmsh(1,itype),atoms%dx(itype),nr,res)
     332           0 :                   csv%rmeC(id,il,ila,iljc,ic,iqv,ie)=dble(res)
     333             :                   fp(:)=csv%fc(1:nr,2,iljc,ic)*&
     334             :                        &csv%fv(1:nr,il,id,ic)*&
     335           0 :                        &csv%fb(1:nr,ila,iljc,iqv,ie)!/atoms%rmsh(1:nr,itype)
     336           0 :                   CALL intgr3(fp,atoms%rmsh(1,itype),atoms%dx(itype),nr,res)
     337           0 :                   csv%rmeB(id,il,ila,iljc,ic,iqv,ie)=dble(res)
     338           0 :                   write(41,'(7(a,i5),3f12.6)') 'ie=',ie,' iqv=',iqv,' ic=',ic,&
     339           0 :                         ' iljc=',iljc,' id=',id,' ila=',ila,' il=',il,&
     340           0 :                         csv%rmeA(id,il,ila,iljc,ic,iqv,ie),&
     341           0 :                         csv%rmeB(id,il,ila,iljc,ic,iqv,ie),&
     342           0 :                         csv%rmeC(id,il,ila,iljc,ic,iqv,ie)
     343             :                 enddo  ! id
     344             :               enddo  ! il
     345             :             enddo  ! ila
     346             :           enddo  ! iljc
     347             :         enddo  ! ic
     348             :       enddo  ! iqv
     349             :     enddo  ! ie
     350             : 
     351           0 :     print*,size(3*csv%rmeA)
     352             :  
     353           0 :     deallocate(fsb,fc,fpd,fp)
     354             : 
     355           0 :     if(csi%verb.eq.1) write(*,*) ""
     356             : 
     357             :   end subroutine corespec_rme
     358             : !
     359             : !===============================================================================
     360             : !===============================================================================
     361             : !
     362             : !  S U B R O U T I N E   C O R E S P E C _ D O S
     363             : !
     364             : !-------------------------------------------------------------------------------
     365             : !
     366           0 :   subroutine corespec_dos(atoms,usdus,ispin,lmd,nkpt,ikpt,&
     367           0 :                           neigd,noccbd,efermi,sig_dos,eig,we,eigVecCoeffs)
     368             : 
     369             :     IMPLICIT NONE
     370             : 
     371             :     TYPE (t_atoms), INTENT(IN)      :: atoms
     372             :     TYPE (t_usdus), INTENT(IN)      :: usdus
     373             :     TYPE(t_eigVecCoeffs),INTENT(IN) :: eigVecCoeffs
     374             : 
     375             : !     .. Scalar Arguments ..
     376             :     integer, intent(in) :: ispin,lmd,nkpt,ikpt
     377             :     integer, intent(in) :: neigd,noccbd
     378             :     real, intent(in) :: efermi,sig_dos
     379             : !     .. Array Arguments ..
     380             :     real, intent (in) :: eig(neigd),we(noccbd)
     381             : 
     382             : ! local variables
     383             :     integer :: lx,lmx,nen,nex
     384             :     integer :: iatom,iband,l1,m1,l2,m2,lm1,lm2,ie!,ljc,iqv
     385           0 :     real :: sigma,eigos(noccbd)
     386             :     real :: sum11,sum22
     387             : 
     388           0 :     smeno = "corespec_dos"
     389             : 
     390           0 :     lx = csi%lx
     391           0 :     lmx = lx*(lx+2)
     392           0 :     nen = csv%nen
     393           0 :     nex = csv%nex
     394           0 :     iatom = atoms%neq(csi%atomType)
     395           0 :     sigma = sqrt(2.0)*sig_dos*hartree_to_ev_const
     396           0 :     sigma = sig_dos*hartree_to_ev_const
     397           0 :     eigos(1:noccbd) = (eig(1:noccbd)-efermi)*hartree_to_ev_const/dble(sigma)
     398             : 
     399           0 :     if(ikpt.eq.1) then
     400           0 :       write(*,'(/,a)') trim(smeno)//ssep
     401           0 :       if(.not.allocated(csv%dose)) allocate(csv%dose(2,2,0:lmx,0:lmx,0:nex))
     402           0 :       if(.not.allocated(csv%dosb)) allocate(csv%dosb(2,2,0:lmx,0:lmx,noccbd))
     403           0 :       if(.not.allocated(csv%eos)) then
     404           0 :         allocate(csv%eos(0:nex))
     405           0 :         csv%eos(:) = csv%egrid(:)/dble(sigma)
     406             :       endif
     407           0 :       csv%dose = 0.0
     408             :     endif
     409           0 :     csv%dosb = 0.0
     410             : 
     411           0 :     do iband = 1,noccbd
     412           0 :       do l1 = 0,lx
     413           0 :         do m1 = -l1,l1
     414           0 :           lm1 = l1*(l1+1)+m1
     415           0 :           do l2 = 0,lx!!$
     416           0 :             do m2 = -l2,l2!!$
     417           0 :               lm2 = l2*(l2+1)+m2!!$
     418             : !!!! for dose:
     419             : !!!! order of xcof, xcof' : aa', ab', ba', bb'
     420             : !!!! is meant by            11 , 12 , 21 , 22
     421             : !!!! or, put another way, first index is unprimed (i.e. the outer loop furter down), second index is primed (i.e. the inner loop further down)
     422             : 
     423             : !!!! Check what we(1) is and does, if necessary, add a we(1) contribution to all acofs and bcofs
     424             :           csv%dosb(1,1,lm2,lm1,iband) = dble(eigVecCoeffs%acof(iband,lm2,iatom,ispin)*&
     425           0 :                &conjg(eigVecCoeffs%acof(iband,lm1,iatom,ispin)))!*we(1)
     426             :           csv%dosb(1,2,lm2,lm1,iband) = dble(eigVecCoeffs%acof(iband,lm2,iatom,ispin)*&
     427           0 :                &conjg(eigVecCoeffs%bcof(iband,lm1,iatom,ispin)))
     428             :           csv%dosb(2,1,lm2,lm1,iband) = dble(eigVecCoeffs%bcof(iband,lm2,iatom,ispin)*&
     429           0 :                &conjg(eigVecCoeffs%acof(iband,lm1,iatom,ispin)))
     430             :           csv%dosb(2,2,lm2,lm1,iband) = dble(eigVecCoeffs%bcof(iband,lm2,iatom,ispin)*&
     431           0 :                &conjg(eigVecCoeffs%bcof(iband,lm1,iatom,ispin)))!*we(1)*usdus%ddn(l1,csi%atomType,ispin)
     432             : !!!!! this has to be checked: is >> ddn << factor necessary !!!!!
     433             : !!!!! Check if we(iband) should be multiplied with everything
     434             :         enddo!!$
     435             :         enddo!!$
     436             :         enddo
     437             :       enddo
     438           0 :       if(eigos(iband)+3.0*sigma.ge.csv%eos(0).and.&
     439           0 :            &eigos(iband)-3.0*sigma.le.csv%eos(nex)) then
     440           0 :         do ie = 0,nex
     441             :           csv%dose(:,:,:,:,ie) = csv%dose(:,:,:,:,ie)+&
     442           0 :                &csv%dosb(:,:,:,:,iband)*exp(-(eigos(iband)-csv%eos(ie))**2)
     443             :         enddo
     444             :       endif
     445             :     enddo
     446             : 
     447           0 :     if(ikpt.eq.nkpt) then
     448           0 :       csv%dose = csv%dose/(sqrt(pi_const)*sigma)
     449           0 :       do ie=0,nex
     450           0 :         write(36,*) csv%egrid(ie),sum(csv%dose(1,1,:,:,ie)+csv%dose(2,2,:,:,ie))
     451             :       enddo
     452           0 :       write(36,*) ""
     453           0 :       write(*,'(10i8)') atoms%llod,noccbd,atoms%nlod,atoms%nat,neigd,atoms%ntype,atoms%lmaxd
     454           0 :       write(*,'(10i8)') lmd,atoms%ntype
     455             : 
     456           0 :       if(csi%verb.eq.1) write(*,*) ""
     457             :     endif
     458             : 
     459           0 :   end subroutine corespec_dos
     460             : !
     461             : !===============================================================================
     462             : !===============================================================================
     463             : !
     464             : !  S U B R O U T I N E   C O R E S P E C _ D D S C S
     465             : !
     466             : !-------------------------------------------------------------------------------
     467             : !
     468           0 :   subroutine corespec_ddscs(jspin,jspins)
     469             : 
     470             :     use m_ylm
     471             : 
     472             : 
     473             :     implicit none
     474             : 
     475             :     integer, intent(in) :: jspin,jspins
     476             : 
     477             :     integer :: lx,lmx,lan,lax,nqv,nen,nex,nor
     478             : 
     479             :     integer :: ic,ie,iqv,ior,it,iljc,imi,id1,id2,ip1,ip2
     480             :     integer :: l1,l2,m1,m2,lm1,lm2
     481             :     integer :: la1,la2,mu1,mu2
     482             :     integer :: li,mi
     483             :     integer :: lamu,lamu1,lamu2
     484             : 
     485             :     real :: gamma,beta,rho,qepref
     486           0 :     real, allocatable :: orvec(:,:)
     487             : !    real, allocatable :: orw(:)
     488             :     real :: ga(0:2,2)
     489             :     real :: prd(0:2,0:2)
     490             :     complex :: td(2),orfac,ila1la2
     491           0 :     complex, allocatable :: tdy(:,:),orpref(:),ylm(:,:)
     492             : 
     493           0 :     smeno = "corespec_ddscs"
     494             : 
     495           0 :     write(*,'(/,a)') trim(smeno)//ssep
     496             : 
     497           0 :     lx = csi%lx
     498           0 :     lmx = lx*(lx+2)
     499           0 :     lan = 0
     500           0 :     lax = csi%lx+maxval(csv%lc)+1
     501           0 :     nqv = csv%nqv
     502           0 :     nen = csv%nen
     503           0 :     nex = csv%nex
     504             : 
     505           0 :     nor = 1
     506             : !    nor = 26
     507           0 :     if(.not.allocated(orvec)) allocate(orvec(1:nor,3))
     508             : !    if(.not.allocated(orw)) allocate(orw(0:nor))
     509             : !    call lebedev(nor,orvec,orw)
     510           0 :     orvec(1,:) = (/1.0,0.0,0.0/)
     511             : 
     512           0 :     if(.not.allocated(csv%ddscs)) then
     513           0 :       allocate(csv%ddscs(2,0:nor,1:csv%nljc,0:nqv,0:nex))
     514           0 :       csv%ddscs = cmplx(0.0,0.0)
     515             :     endif
     516           0 :     if(.not.allocated(tdy)) allocate(tdy(0:nor,2))
     517             :     if(.not.allocated(orpref)) then
     518           0 :       allocate(orpref(0:nor))
     519           0 :       orpref(0) = 1.0
     520             :       if(nor.gt.0) then
     521           0 :         orpref(1:nor) = (4.0*pi_const)**2
     522           0 :         if(.not.allocated(ylm)) allocate(ylm(0:lax*(lax+2),nor))
     523           0 :         do ior = 1,nor
     524           0 :           CALL ylm4(lax,orvec(ior,:),ylm(:,ior))
     525           0 :           do la1 = lan,lax ; do mu1 = -la1,la1
     526           0 :             lamu = la1*(la1+1)+mu1
     527           0 :             write(98,'(3i5,2f12.8)') la1,mu1,lamu,ylm(lamu,ior)
     528             :           enddo; enddo
     529             :         enddo
     530             :       endif
     531             :     endif
     532             : 
     533           0 :     ic = 1
     534           0 :     gamma = csv%gamma
     535           0 :     beta = csv%beta
     536             : 
     537           0 :     rho = alpha*beta*sqrt(4.0*pi_const/3.0)
     538           0 :     print*,gamma,beta,rho
     539             : !    rho = 0.0
     540             : 
     541           0 :     do ie = nen,nex  ! energy
     542           0 :       do iqv = 1,nqv  ! q-vector
     543           0 :         do iljc = 1,csv%nljc  ! core levels
     544           0 :           li = edgel(csi%edgeidx(iljc))
     545             :           qepref = 4.0*gamma**2*csv%qv1(iljc,iqv,ie)/csv%qv0/&
     546           0 :                &(csv%qv(0,iljc,iqv,ie)**2-(csv%eloss(iljc,ie)*alpha)**2)**2
     547             : !!$          write(*,'(2i5,3f20.4)') ie,iljc,csv%qv(0,iljc,iqv,ie),csv%eloss(iljc,ie)*alpha,qepref
     548           0 :           tdy = cmplx(0.0,0.0)
     549             : 
     550           0 :           do imi = 1,(edgej(csi%edgeidx(iljc))+1)/2!min(nint(csv%occ(iljc)*jspins/2),2*li+1)
     551           0 :             mi = sign(jspin)*(edgej(csi%edgeidx(iljc))-4*(imi-1)-1)/2
     552             : !!            print*,jspin,ie,iljc,li,mi
     553           0 :             write(39,*) jspin,ie,iljc,li,mi
     554             : 
     555           0 :             do l1 = 0,lx ; do m1 = -l1,l1
     556           0 :               lm1 = l1*(l1+1)+m1
     557           0 :               do la1 = lan,lax ; do mu1 = -la1,la1
     558           0 :                 lamu1 = la1*(la1+1)+mu1
     559             : 
     560           0 :                 ga(0,1) = csv%gaunt(l1,-m1,la1,mu1,li,mi)
     561             :                 ga(1,1) = csv%gaunt(li+1,-mi,li,mi,1,0)*&
     562             :                      &csv%gaunt(l1,-m1,la1,mu1,li+1,mi)+&
     563             :                      &csv%gaunt(li-1,-mi,li,mi,1,0)*&
     564           0 :                      &csv%gaunt(l1,-m1,la1,mu1,li-1,mi)
     565             :                 ga(2,1) = csv%gaunt(li+1,-mi,li,mi+1,1,-1)*&
     566             :                      &csv%gaunt(l1,-m1,la1,mu1,li+1,mi)+&
     567             :                      &csv%gaunt(li-1,-mi,li,mi+1,1,-1)*&
     568             :                      &csv%gaunt(l1,-m1,la1,mu1,li-1,mi)*&
     569           0 :                      &sqrt(dble(2*(li-mi)*(li+mi+1)))+mi*ga(1,1)
     570             : 
     571           0 :                 do l2 = 0,lx ; do m2 = -l2,l2
     572           0 :                   lm2 = l2*(l2+1)+m2
     573           0 :                   do la2 = lan,lax ; do mu2 = -la2,la2
     574           0 :                     lamu2 = la2*(la2+1)+mu2
     575             :                     
     576             :  !                   if(l1.eq.l2.and.m1.eq.m2) then
     577             : 
     578           0 :                     ga(0,2) = csv%gaunt(l2,-m2,la2,mu2,li,mi)
     579             :                     ga(1,2) = csv%gaunt(li+1,-mi,li,mi,1,0)*&
     580             :                              &csv%gaunt(l2,-m2,la2,mu2,li+1,mi)+&
     581             :                              &csv%gaunt(li-1,-mi,li,mi,1,0)*&
     582           0 :                              &csv%gaunt(l2,-m2,la2,mu2,li-1,mi)
     583             :                     ga(2,2) = csv%gaunt(li+1,-mi,li,mi+1,1,-1)*&
     584             :                              &csv%gaunt(l2,-m2,la2,mu2,li+1,mi)+&
     585             :                              &csv%gaunt(li-1,-mi,li,mi+1,1,-1)*&
     586             :                              &csv%gaunt(l2,-m2,la2,mu2,li-1,mi)*&
     587           0 :                              &sqrt(dble(2*(li-mi)*(li+mi+1)))+mi*ga(1,2)
     588             : 
     589           0 :                     prd = 0.0
     590             : 
     591           0 :                     do id1 = 1,2 ; 
     592           0 :                       do id2 = 1,2
     593             :                         prd(0,0) = prd(0,0)+ &
     594           0 :                            csv%rmeA(id1,l1,la1,iljc,ic,iqv,ie)*csv%rmeA(id2,l2,la2,iljc,ic,iqv,ie)*csv%dose(id1,id2,lm1,lm2,ie)
     595             :                         prd(0,1) = prd(0,1)+ &
     596           0 :                            csv%rmeA(id1,l1,la1,iljc,ic,iqv,ie)*csv%rmeB(id2,l2,la2,iljc,ic,iqv,ie)*csv%dose(id1,id2,lm1,lm2,ie)
     597             :                         prd(0,2) = prd(0,2)+ &
     598           0 :                            csv%rmeA(id1,l1,la1,iljc,ic,iqv,ie)*csv%rmeC(id2,l2,la2,iljc,ic,iqv,ie)*csv%dose(id1,id2,lm1,lm2,ie)
     599             :                         prd(1,0) = prd(1,0)+ &
     600           0 :                            csv%rmeB(id1,l1,la1,iljc,ic,iqv,ie)*csv%rmeA(id2,l2,la2,iljc,ic,iqv,ie)*csv%dose(id1,id2,lm1,lm2,ie)
     601             :                         prd(1,1) = prd(1,1)+ &
     602           0 :                            csv%rmeB(id1,l1,la1,iljc,ic,iqv,ie)*csv%rmeB(id2,l2,la2,iljc,ic,iqv,ie)*csv%dose(id1,id2,lm1,lm2,ie)
     603             :                         prd(1,2) = prd(1,2)+ &
     604           0 :                            csv%rmeB(id1,l1,la1,iljc,ic,iqv,ie)*csv%rmeC(id2,l2,la2,iljc,ic,iqv,ie)*csv%dose(id1,id2,lm1,lm2,ie)
     605             :                         prd(2,0) = prd(2,0)+ &
     606           0 :                            csv%rmeC(id1,l1,la1,iljc,ic,iqv,ie)*csv%rmeA(id2,l2,la2,iljc,ic,iqv,ie)*csv%dose(id1,id2,lm1,lm2,ie)
     607             :                         prd(2,1) = prd(2,1)+ &
     608           0 :                            csv%rmeC(id1,l1,la1,iljc,ic,iqv,ie)*csv%rmeB(id2,l2,la2,iljc,ic,iqv,ie)*csv%dose(id1,id2,lm1,lm2,ie)
     609             :                         prd(2,2) = prd(2,2)+ &
     610           0 :                            csv%rmeC(id1,l1,la1,iljc,ic,iqv,ie)*csv%rmeC(id2,l2,la2,iljc,ic,iqv,ie)*csv%dose(id1,id2,lm1,lm2,ie)
     611             :                       enddo 
     612             :                     enddo
     613             : 
     614           0 :                     td(1) = prd(0,0)*ga(0,1)*ga(0,2)
     615             :                     td(2) = cone*rho**2*(&
     616             :                            &prd(1,1)*ga(1,1)*ga(1,2)&
     617             :                           &+prd(2,2)*ga(2,1)*ga(2,2)&
     618             :                           &-prd(1,2)*ga(1,1)*ga(2,2)&
     619             :                           &-prd(2,1)*ga(2,1)*ga(1,2))&
     620             :                           &+cimu*rho*(-1)**(li+1)*(&
     621             :                           &-prd(0,1)*ga(0,1)*ga(1,2)&
     622             :                           &+prd(0,2)*ga(0,1)*ga(2,2)&
     623             :                           &+prd(1,0)*ga(1,1)*ga(0,2)&
     624             :                           &-prd(2,0)*ga(2,1)*ga(0,2))&
     625           0 :                           &+td(1)
     626             :                     
     627           0 :                     ila1la2 = cimu**(la1-la2)
     628             :                     
     629           0 :                     if(abs(real(td(1))).gt.0.0.or.abs(real(td(2))).gt.0.0.or.abs(aimag(td(2))).gt.0.0) then
     630           0 :                     write(39,'(2f4.0,i2,6i4,a,6i4,a,6f7.3,a,4f10.6)') ila1la2,la1-la2,l1,-m1,la1,mu1,li,mi,'  ',l2,-m2,la2,mu2,li,mi,'  ',ga(0,1),ga(0,2),ga(1,1),ga(1,2),ga(2,1),ga(2,2),'  ',1000000*td
     631             :                     endif
     632             : 
     633           0 :                     do ior = 0,nor  ! orientation
     634           0 :                       if(ior.eq.0) then
     635             :                         orfac = cone
     636             :                       else
     637           0 :                         orfac = ylm(lamu1,ior)*conjg(ylm(lamu2,ior))
     638             :                       endif
     639             :                       
     640           0 :                       tdy(ior,1:2) = tdy(ior,1:2)+td(1:2)*orfac*ila1la2
     641             : 
     642             :                     enddo  ! ior
     643             : 
     644             :  !                 endif
     645             : 
     646             :                   enddo; enddo
     647             :                 enddo; enddo
     648             : 
     649             :               enddo; enddo
     650             :             enddo; enddo
     651             : 
     652             :           enddo  ! mi
     653             : 
     654           0 :           do it = 1,2
     655           0 :             do ior = 0,nor
     656             :               csv%ddscs(it,ior,iljc,iqv,ie) = csv%ddscs(it,ior,iljc,iqv,ie)+&
     657           0 :                    &qepref*orpref(ior)*tdy(ior,it)
     658             : !!        calculate the integral over all q-vectors, save the result in iqv=0
     659             :           csv%ddscs(it,ior,iljc,0,ie) = csv%ddscs(it,ior,iljc,0,ie)+&
     660           0 :                    &csv%ddscs(it,ior,iljc,iqv,ie)*csv%qv(4,iljc,iqv,ie)
     661             :             enddo
     662             :           enddo
     663             : 
     664             :         enddo  ! iljc
     665             :       enddo  ! iqv
     666             :     enddo  ! ie
     667             : 
     668           0 :     if(jspin.eq.1) then
     669           0 :       do ior = 0,nor
     670           0 :       do iljc = 1,csv%nljc
     671           0 :         do ie = nen,nex
     672             : !!        write(37,'(2i5,f8.3,4es16.4)') ior,iljc,csv%eloss(iljc,ie)*hartree_to_ev_const,csv%ddscs(1,ior,iljc,1,ie),csv%ddscs(2,ior,iljc,1,ie)
     673           0 :           write(37,'(2i5,f16.3,4es16.4)') ior,iljc,csv%eloss(iljc,ie)*hartree_to_ev_const,csv%ddscs(1,ior,iljc,0,ie),csv%ddscs(2,ior,iljc,0,ie)
     674             :         enddo
     675           0 :         write(37,*) ""
     676             :       enddo
     677           0 :       write(37,*) ""
     678             :       enddo
     679             :     endif
     680           0 :     if(jspin.eq.2) then
     681           0 :       do ior = 0,nor
     682           0 :       do iljc = 1,csv%nljc
     683           0 :         do ie = nen,nex
     684             : !!        write(38,'(2i5,f8.3,4es16.4)') ior,iljc,csv%eloss(iljc,ie)*hartree_to_ev_const,csv%ddscs(1,ior,iljc,1,ie),csv%ddscs(2,ior,iljc,1,ie)
     685           0 :           write(38,'(2i5,f16.3,4es16.4)') ior,iljc,csv%eloss(iljc,ie)*hartree_to_ev_const,csv%ddscs(1,ior,iljc,0,ie),csv%ddscs(2,ior,iljc,0,ie)
     686             :         enddo
     687           0 :         write(38,*) ""
     688             :       enddo
     689           0 :       write(38,*) ""
     690             :       enddo
     691             :     endif
     692             : 
     693           0 :     if(csi%verb.eq.1) write(*,*) ""
     694             : 
     695           0 :   end subroutine corespec_ddscs
     696             : !
     697             : !===============================================================================
     698             : !===============================================================================
     699             : !
     700             : !  S U B R O U T I N E   C O R E S P E C _ E L O S S _ Q V
     701             : !
     702             : !-------------------------------------------------------------------------------
     703             : !
     704           0 :   subroutine corespec_eloss_qv(efermi)
     705             : 
     706             :     implicit none
     707             : 
     708             :     real, intent(in) :: efermi
     709             : 
     710             :     integer :: ie,iljc,iqv,iphi,ir
     711             :     real :: eout,relfac,pi,ri,r,dr,p,alpha,beta,geofac,gf1,gf2,normfac
     712           0 :     pi = 3.141592653589793238462643
     713           0 :     smeno = "corespec_eloss_qv"
     714           0 :     normfac = 1!4*csv%nqr**2!/(pi*(r**2))
     715           0 :     write(*,'(/,a)') trim(smeno)//ssep
     716             : !    csv%nqphi = 12
     717             : !    csv%nqr = 20
     718           0 :     csv%nqv = 1+csv%nqphi*csv%nqr
     719             : !    write(*,'(2i6,3f16.7)')csv%nqr,csv%nqphi,csv%alpha_ex,csv%beta_ex,csv%I0
     720           0 :     if(.not.allocated(csv%eloss)) &
     721           0 :          &allocate(csv%eloss(csv%nljc,csv%nen:csv%nex))
     722           0 :     if(.not.allocated(csv%qv1)) &
     723           0 :          &allocate(csv%qv1(csv%nljc,csv%nqv,csv%nen:csv%nex))
     724           0 :     do ie = csv%nen,csv%nex
     725           0 :       do iljc = 1,csv%nljc
     726           0 :         csv%eloss(iljc,ie) = csv%egrid(ie)/hartree_to_ev_const+dble(efermi)-csv%eedge(iljc)
     727             : !!$        print*,iljc,ie,csv%egrid(ie),csv%eloss(iljc,ie)
     728             :       enddo
     729             :     enddo
     730             : 
     731           0 :     csv%qv0 = e2q(csi%ek0/hartree_to_ev_const)
     732           0 :     relfac = (mec2)**2/(csi%ek0+mec2)**2
     733           0 :     alpha=csv%qv0*csv%alpha_ex
     734             : !!$    print*,csi%ek0,csv%qv0
     735             : 
     736           0 :     if(.not.allocated(csv%qv)) &
     737           0 :          &allocate(csv%qv(0:4,csv%nljc,csv%nqv,csv%nen:csv%nex))
     738             : !!  qv(0) = |qv(1:3)|
     739             : !!  qv(4) = weight of qv(1:3)
     740           0 :     csv%qv=0.0
     741           0 :     if(csv%nqv.gt.1)then    
     742           0 :     do ie = csv%nen,csv%nex
     743           0 :       do iljc = 1,csv%nljc
     744           0 :           eout = csi%ek0/hartree_to_ev_const-csv%eloss(iljc,ie)
     745           0 :         do iqv = 1,csv%nqv
     746           0 :           csv%qv1(iljc,iqv,ie) = e2q(eout)
     747             : !!   set up circular 2D mesh with qz==(csv%qv1(iljc,iqv,ie)-csv%qv0)*relfac
     748             : !!   and (qx,qy) = r*(sin(phi),cos(phi))
     749             : !!   R = alpha + beta
     750             : !!   r_0 = 0
     751             : !!   r_i = i/N_r*R , i>0
     752             : !!   phi_i = i/N_phi*2pi
     753             : !!   Areas of each volume element, this corresponds to the weights of the point in the integral
     754             : !!   A_1 = pi/4 * (r_0+r_1)²
     755             : !!   A_i = pi/(N_phi*4)*(r_{i+1}²-r_{i-1}²+2*r_i*(r_{i+1}-r_{i-1})) (1<i<=N_r)
     756             : !!   A_{N_r+1} = pi/(N_phi)*(r_{N_r}² - 1/4*(r_{N_r}+r_{N_r-1})²)
     757             : !!   A_ges = pi *(alpha + beta)²
     758             : !!   Numbering of the nodes (the i-index above are independent of each other, now we make a 2-D grid with 1-D indexing by counting upwards around the clock):
     759             : !!   j=1 => center node (r=0, phi=0)
     760             : !!   j=2 ... N_phi+1 => nodes of r=r_1, phi=phi_{i=mod_{N_phi}(j-1)}
     761             : !!   j...  => nodes of r=r_{1+frac{j-2-mod_{n_r}(j-2)}{n_r}} and phi = phi_{i=mod_{N_phi}(j-1)}
     762             : 
     763           0 :           beta=csv%beta_ex*csv%qv1(iljc,iqv,ie)
     764             : !!  r is the radius of the q-disc which sits at z=q_min and contains all the allowed q-vectors 
     765           0 :           r=alpha + beta !small angle approximation: sin(a) ~ a
     766           0 :           dr = r/csv%nqr
     767           0 :           iphi = modulo(iqv-1,csv%nqphi)
     768           0 :           ir = 1+(iqv-2-modulo(iqv-2,csv%nqr))/csv%nqr
     769           0 :           ri = (ir-0.5)*dr
     770             : !          normfac=normfac/(pi*(r**2))
     771             : !!        write the weight of qv, i.e. the area it represents
     772           0 :           csv%qv(4,iljc,iqv,ie) = 1.
     773             : !          write(*,'(6f16.10)')dr,csv%nqr,csv%nqphi,ir,r
     774             : !!        write weights and values of q_x and q_y for the q-vectors:
     775           0 :           if(ir.eq.0) then
     776           0 :           csv%qv(1,iljc,iqv,ie) = 0 ! here is the angular dependency
     777           0 :           csv%qv(2,iljc,iqv,ie) = 0 ! here is the angular dependency
     778           0 :              csv%qv(4,iljc,iqv,ie) = pi*0.0625*dr**2
     779           0 :           elseif(ir.eq.1) then
     780           0 :           csv%qv(1,iljc,iqv,ie) = ri*SIN(iphi/csv%nqphi*2*pi) ! here is the angular dependency
     781           0 :           csv%qv(2,iljc,iqv,ie) = ri*COS(iphi/csv%nqphi*2*pi) ! here is the angular dependency
     782           0 :              csv%qv(4,iljc,iqv,ie) = pi*0.9735*dr**2!!!!pi/csv%nqphi*(r**2-0.25*(2.*r-dr)**2) (old, less sensible mesh described above)
     783             :           else
     784           0 :           csv%qv(1,iljc,iqv,ie) = ri*SIN(iphi/csv%nqphi*2*pi) ! here is the angular dependency
     785           0 :           csv%qv(2,iljc,iqv,ie) = ri*COS(iphi/csv%nqphi*2*pi) ! here is the angular dependency
     786           0 :              csv%qv(4,iljc,iqv,ie) = pi/csv%nqphi*(2*ir-1)*dr**2
     787             :           endif
     788             : !!        write z coordinates:
     789           0 :           csv%qv(3,iljc,iqv,ie) = (csv%qv0-csv%qv1(iljc,iqv,ie))*relfac ! here is no angular dependency
     790             : !!        write the length of qv
     791             :           csv%qv(0,iljc,iqv,ie) = sqrt(&
     792           0 :                &dot_product(csv%qv(1:3,iljc,iqv,ie),csv%qv(1:3,iljc,iqv,ie)))
     793             : !          write(*,'(f16.6)')csv%qv(4,iljc,iqv,ie)
     794             : 
     795             : !!        calculate the g_alpha_beta function and multiply with the weight to obtain the overall weight of the specific q-vector
     796             : !!        Step 1: calculate all the relevant point of the overlapping circles
     797           0 :           p=0.5*(ri**2+(alpha)**2-(beta)**2)/(ri)
     798             : !          write(*,'(f16.10)')p
     799           0 :            geofac=0.
     800             : !          gf1=csv%I0/(csv%alpha_ex**2)*min(alpha,beta)**2
     801             : !          gf2=csv%I0/(csv%alpha_ex**2)*(0.5*pi*(alpha**2 + beta**2)-p*sqrt(alpha**2-p**2)-(ri-p)*sqrt(beta**2-(ri-p)**2)&
     802             : !                    &-beta**2*asin((ri-p)/beta)-alpha**2*asin(p/alpha))
     803           0 :           if(ri.LE.abs(alpha-beta)) then
     804           0 :               geofac=csv%I0/(csv%alpha_ex**2)*min(alpha,beta)**2
     805             : !             geofac=csv%I0/(csv%alpha_ex**2)*min(alpha,beta)**2
     806             : !             write(*,'(f16.6)')geofac
     807           0 :           elseif(ri.GE.(alpha+beta)) then
     808           0 :              geofac=0.
     809           0 :              write(*,csmsgsis)'geofac is 0'
     810             :           else
     811             :               geofac=csv%I0/(csv%alpha_ex**2)*(0.5*pi*(alpha**2 + beta**2)-p*sqrt(alpha**2-p**2)-(ri-p)*sqrt(beta**2-(ri-p)**2)&
     812           0 :                     &-beta**2*asin((ri-p)/beta)-alpha**2*asin(p/alpha))
     813             : !             geofac=csv%I0/(csv%alpha_ex**2)*(0.5*pi*(alpha**2 + beta**2)-p*sqrt(alpha**2-p**2)-(ri-p)*sqrt(beta**2-(ri-p)**2)&
     814             : !                    &-beta**2*asin((ri-p)/beta)-alpha**2*asin(p/alpha))
     815             : !             write(*,csmsgsis)'geofac is not 0'
     816             : !             write(*,'(3f16.6)')alpha**2-p**2,beta**2-(ri-p)**2, geofac
     817             :            endif
     818             : !          write(*,'(f16.10)')geofac
     819           0 :           csv%qv(4,iljc,iqv,ie) = csv%qv(4,iljc,iqv,ie)*geofac *normfac/(pi*(r**2))
     820             : !          csv%qv(4,iljc,iqv,ie) = 1.
     821             : !          write(*,'(f16.6)')csv%qv(4,iljc,iqv,ie)
     822             : !!$          write(*,'(3i5,2f16.2,6f16.6)') ie,iqv,iljc,csi%ek0,eout*hartree_to_ev_const,csv%qv1(iljc,iqv,ie),csv%eloss(iljc,ie),csv%qv(:,iljc,iqv,ie)
     823           0 :           write(*,'(5f16.5)')alpha,beta,ri,abs(alpha-beta),alpha+beta!,csv%nqr,csv%qv(4,iljc,iqv,ie)
     824             :         enddo
     825             :       enddo
     826             :     enddo
     827             :     else !number of q-vectors == 1:
     828           0 :     do ie = csv%nen,csv%nex
     829           0 :       do iljc = 1,csv%nljc
     830           0 :           eout = csi%ek0/hartree_to_ev_const-csv%eloss(iljc,ie)
     831           0 :         do iqv = 1,csv%nqv
     832           0 :           csv%qv1(iljc,iqv,ie) = e2q(eout)
     833           0 :           beta=csv%beta_ex*csv%qv1(iljc,iqv,ie)
     834           0 :           r=alpha + beta !small angle approximation: sin(a) ~ a
     835             : !!        only q||z vectors are calcualted:
     836             : !!        write x, y, and z coordinates:
     837           0 :           csv%qv(1,iljc,iqv,ie) = 0 ! here is no angular dependency
     838           0 :           csv%qv(2,iljc,iqv,ie) = 0 ! here is no angular dependency
     839             :  
     840           0 :           csv%qv(3,iljc,iqv,ie) = (csv%qv0-csv%qv1(iljc,iqv,ie))*relfac ! here is no angular dependency
     841             : !!        write the length of qv
     842             :           csv%qv(0,iljc,iqv,ie) = sqrt(&
     843           0 :                &dot_product(csv%qv(1:3,iljc,iqv,ie),csv%qv(1:3,iljc,iqv,ie)))
     844             : !!        write the weight of qv, i.e. the area it represents, normalized by the
     845             : !total area, i.e. 1.
     846           0 :           csv%qv(4,iljc,iqv,ie) = 1.!(pi*(r**2))!!*0.25
     847           0 :           dr = r
     848           0 :           write(*,'(7f16.5)')alpha,beta,r*500,pi,r**2,pi*dr*dr!,csv%nqr,csv%qv(4,iljc,iqv,ie)
     849             : !!        calculate the g_alpha_beta function and multiply with the weight to obtain the overall weight of the specific q-vector
     850             : !!        Step 1: calculate all the relevant point of the overlapping circles
     851           0 :            geofac=0.
     852           0 :               geofac=csv%I0/(csv%alpha_ex**2)*min(alpha,beta)**2
     853           0 :           csv%qv(4,iljc,iqv,ie) = csv%qv(4,iljc,iqv,ie)*geofac
     854             : !          csv%qv(4,iljc,iqv,ie) = 1.
     855             : !          write(*,'(f16.6)')csv%qv(4,iljc,iqv,ie)
     856             : !          write(*,'(3i5,2f16.2,6f16.6)') ie,iqv,iljc,csi%ek0,eout*hartree_to_ev_const,csv%qv1(iljc,iqv,ie),csv%eloss(iljc,ie),csv%qv(:,iljc,iqv,ie)
     857             :         enddo
     858             :       enddo
     859             :     enddo
     860             :     
     861             :     endif
     862             : 
     863           0 :     if(csi%verb.eq.1) write(*,*) ""
     864             : 
     865             : !    implicit none
     866             : 
     867             : !    real, intent(in) :: efermi
     868             : 
     869             : !    integer :: ie,iljc,iqv
     870             : !    real :: eout,relfac
     871             : 
     872             : !    smeno = "corespec_eloss_qv"
     873             : 
     874             : !    write(*,'(/,a)') trim(smeno)//ssep
     875             : 
     876             : !    csv%nqv = 1
     877             : 
     878             : !    if(.not.allocated(csv%eloss)) &
     879             : !         &allocate(csv%eloss(csv%nljc,csv%nen:csv%nex))
     880             : !    if(.not.allocated(csv%qv1)) &
     881             : !         &allocate(csv%qv1(csv%nljc,csv%nqv,csv%nen:csv%nex))
     882             : !    do ie = csv%nen,csv%nex
     883             : !      do iljc = 1,csv%nljc
     884             : !        csv%eloss(iljc,ie) = csv%egrid(ie)/hartree_to_ev_const+dble(efermi)-csv%eedge(iljc)
     885             : !!$        print*,iljc,ie,csv%egrid(ie),csv%eloss(iljc,ie)
     886             : !      enddo
     887             : !    enddo
     888             : 
     889             : !    csv%qv0 = e2q(csi%ek0/hartree_to_ev_const)
     890             : !    relfac = (mec2)**2/(csi%ek0+mec2)**2
     891             : !!$    print*,csi%ek0,csv%qv0
     892             : 
     893             : !    if(.not.allocated(csv%qv)) &
     894             : !         &allocate(csv%qv(0:3,csv%nljc,csv%nqv,csv%nen:csv%nex))
     895             : !    csv%qv=0.0
     896             : !    do ie = csv%nen,csv%nex
     897             : !      do iqv = 1,csv%nqv
     898             : !        do iljc = 1,csv%nljc
     899             : !          eout = csi%ek0/hartree_to_ev_const-csv%eloss(iljc,ie)
     900             : !          csv%qv1(iljc,iqv,ie) = e2q(eout)
     901             : !          csv%qv(3,iljc,iqv,ie) = (csv%qv1(iljc,iqv,ie)-csv%qv0)*relfac
     902             : !          csv%qv(0,iljc,iqv,ie) = sqrt(&
     903             : !               &dot_product(csv%qv(1:3,iljc,iqv,ie),csv%qv(1:3,iljc,iqv,ie)))
     904             : !!$          write(*,'(3i5,2f16.2,6f16.6)') ie,iqv,iljc,csi%ek0,eout*hartree_to_ev_const,csv%qv1(iljc,iqv,ie),csv%eloss(iljc,ie),csv%qv(:,iljc,iqv,ie)
     905             : !        enddo
     906             : !      enddo
     907             : !    enddo
     908             : 
     909             : !    if(csi%verb.eq.1) write(*,*) ""
     910             : 
     911           0 :   end subroutine corespec_eloss_qv
     912             : !
     913             : !===============================================================================
     914             : !===============================================================================
     915             : !  F U N C T I O N   E 2 Q
     916             : !-------------------------------------------------------------------------------
     917             : !
     918           0 :   real function e2q(e)
     919             : 
     920             :     use m_corespec, only : mec2,alpha
     921             :     implicit none
     922             :     real, intent(in) :: e
     923             : 
     924           0 :     e2q=sqrt(e**2+2.0*e*mec2/hartree_to_ev_const)*alpha
     925             : 
     926           0 :   end function e2q
     927             : !
     928             : !===============================================================================
     929             : 
     930             : 
     931             : 
     932             : !
     933             : !===============================================================================
     934             : !===============================================================================
     935             : !
     936             : !  S U B R O U T I N E   L E B E D E V
     937             : !
     938             : !-------------------------------------------------------------------------------
     939             : !
     940             : 
     941           0 :   subroutine lebedev(nleb,r2leb,wleb)
     942             :     implicit none
     943             :     integer, intent(in) :: nleb
     944             :     double precision, intent(out) :: r2leb(nleb,3),wleb(nleb)
     945             : 
     946             :     integer :: ileb,ctrln
     947             :     double precision :: vec(0)
     948             : 
     949           0 :     if(nleb.eq. 0006) call LD0006(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     950           0 :     if(nleb.eq. 0014) call LD0014(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     951           0 :     if(nleb.eq. 0026) call LD0026(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     952           0 :     if(nleb.eq. 0038) call LD0038(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     953           0 :     if(nleb.eq. 0050) call LD0050(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     954           0 :     if(nleb.eq. 0074) call LD0074(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     955           0 :     if(nleb.eq. 0086) call LD0086(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     956           0 :     if(nleb.eq. 0110) call LD0110(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     957           0 :     if(nleb.eq. 0146) call LD0146(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     958           0 :     if(nleb.eq. 0170) call LD0170(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     959           0 :     if(nleb.eq. 0194) call LD0194(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     960           0 :     if(nleb.eq. 0230) call LD0230(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     961           0 :     if(nleb.eq. 0266) call LD0266(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     962           0 :     if(nleb.eq. 0302) call LD0302(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     963           0 :     if(nleb.eq. 0350) call LD0350(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     964           0 :     if(nleb.eq. 0434) call LD0434(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     965           0 :     if(nleb.eq. 0590) call LD0590(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     966           0 :     if(nleb.eq. 0770) call LD0770(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     967           0 :     if(nleb.eq. 0974) call LD0974(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     968           0 :     if(nleb.eq. 1202) call LD1202(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     969           0 :     if(nleb.eq. 1454) call LD1454(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     970           0 :     if(nleb.eq. 1730) call LD1730(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     971           0 :     if(nleb.eq. 2030) call LD2030(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     972           0 :     if(nleb.eq. 2354) call LD2354(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     973           0 :     if(nleb.eq. 2702) call LD2702(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     974           0 :     if(nleb.eq. 3074) call LD3074(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     975           0 :     if(nleb.eq. 3470) call LD3470(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     976           0 :     if(nleb.eq. 3890) call LD3890(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     977           0 :     if(nleb.eq. 4334) call LD4334(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     978           0 :     if(nleb.eq. 4802) call LD4802(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     979           0 :     if(nleb.eq. 5294) call LD5294(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     980           0 :     if(nleb.eq. 5810) call LD5810(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
     981             : 
     982           0 :     write(*,'(i8)') nleb
     983           0 :     do ileb = 1,nleb
     984           0 :        write(*,'(4f12.6)') r2leb(ileb,1:3),wleb(ileb)
     985             :     enddo
     986             : 
     987           0 :   end subroutine lebedev
     988             : !
     989             : !===============================================================================
     990             : 
     991             : 
     992           0 :        subroutine gen_oh(code, num, x, y, z, w, a, b, v)
     993             :        implicit logical(a-z)
     994             :        double precision x(*),y(*),z(*),w(*)
     995             :        double precision a,b,v
     996             :        integer code
     997             :        integer num
     998             :        double precision c
     999             : !    
    1000             : !       This subroutine is part of a set of subroutines that generate
    1001             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    1002             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    1003             : !       translated into fortran by Dr. Christoph van Wuellen.
    1004             : !       This subroutine was translated from C to fortran77 by hand.
    1005             : !    
    1006             : !       Users of this code are asked to include reference [1] in their
    1007             : !       publications, and in the user- and programmers-manuals 
    1008             : !       describing their codes.
    1009             : !    
    1010             : !       This code was distributed through CCL (http://www.ccl.net/).
    1011             : !    
    1012             : !       [1] V.I. Lebedev, and D.N. Laikov
    1013             : !           "A quadrature formula for the sphere of the 131st
    1014             : !            algebraic order of accuracy"
    1015             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    1016             : !    
    1017             : !       [2] V.I. Lebedev
    1018             : !           "A quadrature formula for the sphere of 59th algebraic
    1019             : !            order of accuracy"
    1020             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    1021             : !    
    1022             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    1023             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    1024             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    1025             : !    
    1026             : !       [4] V.I. Lebedev
    1027             : !           "Spherical quadrature formulas exact to orders 25-29"
    1028             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    1029             : !    
    1030             : !       [5] V.I. Lebedev
    1031             : !           "Quadratures on a sphere"
    1032             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    1033             : !           1976, pp. 10-24. 
    1034             : !    
    1035             : !       [6] V.I. Lebedev
    1036             : !           "Values of the nodes and weights of ninth to seventeenth 
    1037             : !            order Gauss-Markov quadrature formulae invariant under the
    1038             : !            octahedron group with inversion"
    1039             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    1040             : !           1975, pp. 44-51.
    1041             : !    
    1042             : !    
    1043             : !      Given a point on a sphere (specified by a and b), generate all
    1044             : !      the equivalent points under Oh symmetry, making grid points with
    1045             : !      weight v.
    1046             : !      The variable num is increased by the number of different points
    1047             : !      generated.
    1048             : !    
    1049             : !      Depending on code, there are 6...48 different but equivalent
    1050             : !      points.
    1051             : !    
    1052             : !      code=1:   (0,0,1) etc                                (  6 points)
    1053             : !      code=2:   (0,a,a) etc, a=1/sqrt(2)                   ( 12 points)
    1054             : !      code=3:   (a,a,a) etc, a=1/sqrt(3)                   (  8 points)
    1055             : !      code=4:   (a,a,b) etc, b=sqrt(1-2 a^2)               ( 24 points)
    1056             : !      code=5:   (a,b,0) etc, b=sqrt(1-a^2), a input        ( 24 points)
    1057             : !      code=6:   (a,b,c) etc, c=sqrt(1-a^2-b^2), a/b input  ( 48 points)
    1058             : !    
    1059           0 :        goto (1,2,3,4,5,6) code
    1060           0 :        write (6,*) 'Gen_Oh: Invalid Code'
    1061           0 :        stop 
    1062             :     1  continue
    1063           0 :        a=1.0
    1064           0 :        x(1) =  a
    1065           0 :        y(1) =  0.0
    1066           0 :        z(1) =  0.0
    1067           0 :        w(1) =  v
    1068           0 :        x(2) = -a
    1069           0 :        y(2) =  0.0
    1070           0 :        z(2) =  0.0
    1071           0 :        w(2) =  v
    1072           0 :        x(3) =  0.0
    1073           0 :        y(3) =  a
    1074           0 :        z(3) =  0.0
    1075           0 :        w(3) =  v
    1076           0 :        x(4) =  0.0
    1077           0 :        y(4) = -a
    1078           0 :        z(4) =  0.0
    1079           0 :        w(4) =  v
    1080           0 :        x(5) =  0.0
    1081           0 :        y(5) =  0.0
    1082           0 :        z(5) =  a
    1083           0 :        w(5) =  v
    1084           0 :        x(6) =  0.0
    1085           0 :        y(6) =  0.0
    1086           0 :        z(6) = -a
    1087           0 :        w(6) =  v
    1088           0 :        num=num+6
    1089           0 :        return
    1090             : !    
    1091             :     2  continue
    1092           0 :        a=sqrt(0.5)
    1093           0 :        x( 1) =  0.0
    1094           0 :        y( 1) =  a
    1095           0 :        z( 1) =  a
    1096           0 :        w( 1) =  v
    1097           0 :        x( 2) =  0.0
    1098           0 :        y( 2) = -a
    1099           0 :        z( 2) =  a
    1100           0 :        w( 2) =  v
    1101           0 :        x( 3) =  0.0
    1102           0 :        y( 3) =  a
    1103           0 :        z( 3) = -a
    1104           0 :        w( 3) =  v
    1105           0 :        x( 4) =  0.0
    1106           0 :        y( 4) = -a
    1107           0 :        z( 4) = -a
    1108           0 :        w( 4) =  v
    1109           0 :        x( 5) =  a
    1110           0 :        y( 5) =  0.0
    1111           0 :        z( 5) =  a
    1112           0 :        w( 5) =  v
    1113           0 :        x( 6) = -a
    1114           0 :        y( 6) =  0.0
    1115           0 :        z( 6) =  a
    1116           0 :        w( 6) =  v
    1117           0 :        x( 7) =  a
    1118           0 :        y( 7) =  0.0
    1119           0 :        z( 7) = -a
    1120           0 :        w( 7) =  v
    1121           0 :        x( 8) = -a
    1122           0 :        y( 8) =  0.0
    1123           0 :        z( 8) = -a
    1124           0 :        w( 8) =  v
    1125           0 :        x( 9) =  a
    1126           0 :        y( 9) =  a
    1127           0 :        z( 9) =  0.0
    1128           0 :        w( 9) =  v
    1129           0 :        x(10) = -a
    1130           0 :        y(10) =  a
    1131           0 :        z(10) =  0.0
    1132           0 :        w(10) =  v
    1133           0 :        x(11) =  a
    1134           0 :        y(11) = -a
    1135           0 :        z(11) =  0.0
    1136           0 :        w(11) =  v
    1137           0 :        x(12) = -a
    1138           0 :        y(12) = -a
    1139           0 :        z(12) =  0.0
    1140           0 :        w(12) =  v
    1141           0 :        num=num+12
    1142           0 :        return
    1143             : !    
    1144             :     3  continue
    1145           0 :        a = sqrt(1.0/3.0)
    1146           0 :        x(1) =  a
    1147           0 :        y(1) =  a
    1148           0 :        z(1) =  a
    1149           0 :        w(1) =  v
    1150           0 :        x(2) = -a
    1151           0 :        y(2) =  a
    1152           0 :        z(2) =  a
    1153           0 :        w(2) =  v
    1154           0 :        x(3) =  a
    1155           0 :        y(3) = -a
    1156           0 :        z(3) =  a
    1157           0 :        w(3) =  v
    1158           0 :        x(4) = -a
    1159           0 :        y(4) = -a
    1160           0 :        z(4) =  a
    1161           0 :        w(4) =  v
    1162           0 :        x(5) =  a
    1163           0 :        y(5) =  a
    1164           0 :        z(5) = -a
    1165           0 :        w(5) =  v
    1166           0 :        x(6) = -a
    1167           0 :        y(6) =  a
    1168           0 :        z(6) = -a
    1169           0 :        w(6) =  v
    1170           0 :        x(7) =  a
    1171           0 :        y(7) = -a
    1172           0 :        z(7) = -a
    1173           0 :        w(7) =  v
    1174           0 :        x(8) = -a
    1175           0 :        y(8) = -a
    1176           0 :        z(8) = -a
    1177           0 :        w(8) =  v
    1178           0 :        num=num+8
    1179           0 :        return
    1180             : !    
    1181             :     4  continue
    1182           0 :        b = sqrt(1.0 - 2.0*a*a)
    1183           0 :        x( 1) =  a
    1184           0 :        y( 1) =  a
    1185           0 :        z( 1) =  b
    1186           0 :        w( 1) =  v
    1187           0 :        x( 2) = -a
    1188           0 :        y( 2) =  a
    1189           0 :        z( 2) =  b
    1190           0 :        w( 2) =  v
    1191           0 :        x( 3) =  a
    1192           0 :        y( 3) = -a
    1193           0 :        z( 3) =  b
    1194           0 :        w( 3) =  v
    1195           0 :        x( 4) = -a
    1196           0 :        y( 4) = -a
    1197           0 :        z( 4) =  b
    1198           0 :        w( 4) =  v
    1199           0 :        x( 5) =  a
    1200           0 :        y( 5) =  a
    1201           0 :        z( 5) = -b
    1202           0 :        w( 5) =  v
    1203           0 :        x( 6) = -a
    1204           0 :        y( 6) =  a
    1205           0 :        z( 6) = -b
    1206           0 :        w( 6) =  v
    1207           0 :        x( 7) =  a
    1208           0 :        y( 7) = -a
    1209           0 :        z( 7) = -b
    1210           0 :        w( 7) =  v
    1211           0 :        x( 8) = -a
    1212           0 :        y( 8) = -a
    1213           0 :        z( 8) = -b
    1214           0 :        w( 8) =  v
    1215           0 :        x( 9) =  a
    1216           0 :        y( 9) =  b
    1217           0 :        z( 9) =  a
    1218           0 :        w( 9) =  v
    1219           0 :        x(10) = -a
    1220           0 :        y(10) =  b
    1221           0 :        z(10) =  a
    1222           0 :        w(10) =  v
    1223           0 :        x(11) =  a
    1224           0 :        y(11) = -b
    1225           0 :        z(11) =  a
    1226           0 :        w(11) =  v
    1227           0 :        x(12) = -a
    1228           0 :        y(12) = -b
    1229           0 :        z(12) =  a
    1230           0 :        w(12) =  v
    1231           0 :        x(13) =  a
    1232           0 :        y(13) =  b
    1233           0 :        z(13) = -a
    1234           0 :        w(13) =  v
    1235           0 :        x(14) = -a
    1236           0 :        y(14) =  b
    1237           0 :        z(14) = -a
    1238           0 :        w(14) =  v
    1239           0 :        x(15) =  a
    1240           0 :        y(15) = -b
    1241           0 :        z(15) = -a
    1242           0 :        w(15) =  v
    1243           0 :        x(16) = -a
    1244           0 :        y(16) = -b
    1245           0 :        z(16) = -a
    1246           0 :        w(16) =  v
    1247           0 :        x(17) =  b
    1248           0 :        y(17) =  a
    1249           0 :        z(17) =  a
    1250           0 :        w(17) =  v
    1251           0 :        x(18) = -b
    1252           0 :        y(18) =  a
    1253           0 :        z(18) =  a
    1254           0 :        w(18) =  v
    1255           0 :        x(19) =  b
    1256           0 :        y(19) = -a
    1257           0 :        z(19) =  a
    1258           0 :        w(19) =  v
    1259           0 :        x(20) = -b
    1260           0 :        y(20) = -a
    1261           0 :        z(20) =  a
    1262           0 :        w(20) =  v
    1263           0 :        x(21) =  b
    1264           0 :        y(21) =  a
    1265           0 :        z(21) = -a
    1266           0 :        w(21) =  v
    1267           0 :        x(22) = -b
    1268           0 :        y(22) =  a
    1269           0 :        z(22) = -a
    1270           0 :        w(22) =  v
    1271           0 :        x(23) =  b
    1272           0 :        y(23) = -a
    1273           0 :        z(23) = -a
    1274           0 :        w(23) =  v
    1275           0 :        x(24) = -b
    1276           0 :        y(24) = -a
    1277           0 :        z(24) = -a
    1278           0 :        w(24) =  v
    1279           0 :        num=num+24
    1280           0 :        return
    1281             : !    
    1282             :     5  continue
    1283           0 :        b=sqrt(1.0-a*a)
    1284           0 :        x( 1) =  a
    1285           0 :        y( 1) =  b
    1286           0 :        z( 1) =  0.0
    1287           0 :        w( 1) =  v
    1288           0 :        x( 2) = -a
    1289           0 :        y( 2) =  b
    1290           0 :        z( 2) =  0.0
    1291           0 :        w( 2) =  v
    1292           0 :        x( 3) =  a
    1293           0 :        y( 3) = -b
    1294           0 :        z( 3) =  0.0
    1295           0 :        w( 3) =  v
    1296           0 :        x( 4) = -a
    1297           0 :        y( 4) = -b
    1298           0 :        z( 4) =  0.0
    1299           0 :        w( 4) =  v
    1300           0 :        x( 5) =  b
    1301           0 :        y( 5) =  a
    1302           0 :        z( 5) =  0.0
    1303           0 :        w( 5) =  v
    1304           0 :        x( 6) = -b
    1305           0 :        y( 6) =  a
    1306           0 :        z( 6) =  0.0
    1307           0 :        w( 6) =  v
    1308           0 :        x( 7) =  b
    1309           0 :        y( 7) = -a
    1310           0 :        z( 7) =  0.0
    1311           0 :        w( 7) =  v
    1312           0 :        x( 8) = -b
    1313           0 :        y( 8) = -a
    1314           0 :        z( 8) =  0.0
    1315           0 :        w( 8) =  v
    1316           0 :        x( 9) =  a
    1317           0 :        y( 9) =  0.0
    1318           0 :        z( 9) =  b
    1319           0 :        w( 9) =  v
    1320           0 :        x(10) = -a
    1321           0 :        y(10) =  0.0
    1322           0 :        z(10) =  b
    1323           0 :        w(10) =  v
    1324           0 :        x(11) =  a
    1325           0 :        y(11) =  0.0
    1326           0 :        z(11) = -b
    1327           0 :        w(11) =  v
    1328           0 :        x(12) = -a
    1329           0 :        y(12) =  0.0
    1330           0 :        z(12) = -b
    1331           0 :        w(12) =  v
    1332           0 :        x(13) =  b
    1333           0 :        y(13) =  0.0
    1334           0 :        z(13) =  a
    1335           0 :        w(13) =  v
    1336           0 :        x(14) = -b
    1337           0 :        y(14) =  0.0
    1338           0 :        z(14) =  a
    1339           0 :        w(14) =  v
    1340           0 :        x(15) =  b
    1341           0 :        y(15) =  0.0
    1342           0 :        z(15) = -a
    1343           0 :        w(15) =  v
    1344           0 :        x(16) = -b
    1345           0 :        y(16) =  0.0
    1346           0 :        z(16) = -a
    1347           0 :        w(16) =  v
    1348           0 :        x(17) =  0.0
    1349           0 :        y(17) =  a
    1350           0 :        z(17) =  b
    1351           0 :        w(17) =  v
    1352           0 :        x(18) =  0.0
    1353           0 :        y(18) = -a
    1354           0 :        z(18) =  b
    1355           0 :        w(18) =  v
    1356           0 :        x(19) =  0.0
    1357           0 :        y(19) =  a
    1358           0 :        z(19) = -b
    1359           0 :        w(19) =  v
    1360           0 :        x(20) =  0.0
    1361           0 :        y(20) = -a
    1362           0 :        z(20) = -b
    1363           0 :        w(20) =  v
    1364           0 :        x(21) =  0.0
    1365           0 :        y(21) =  b
    1366           0 :        z(21) =  a
    1367           0 :        w(21) =  v
    1368           0 :        x(22) =  0.0
    1369           0 :        y(22) = -b
    1370           0 :        z(22) =  a
    1371           0 :        w(22) =  v
    1372           0 :        x(23) =  0.0
    1373           0 :        y(23) =  b
    1374           0 :        z(23) = -a
    1375           0 :        w(23) =  v
    1376           0 :        x(24) =  0.0
    1377           0 :        y(24) = -b
    1378           0 :        z(24) = -a
    1379           0 :        w(24) =  v
    1380           0 :        num=num+24
    1381           0 :        return
    1382             : !    
    1383             :     6  continue
    1384           0 :        c=sqrt(1.0 - a*a - b*b)
    1385           0 :        x( 1) =  a
    1386           0 :        y( 1) =  b
    1387           0 :        z( 1) =  c
    1388           0 :        w( 1) =  v
    1389           0 :        x( 2) = -a
    1390           0 :        y( 2) =  b
    1391           0 :        z( 2) =  c
    1392           0 :        w( 2) =  v
    1393           0 :        x( 3) =  a
    1394           0 :        y( 3) = -b
    1395           0 :        z( 3) =  c
    1396           0 :        w( 3) =  v
    1397           0 :        x( 4) = -a
    1398           0 :        y( 4) = -b
    1399           0 :        z( 4) =  c
    1400           0 :        w( 4) =  v
    1401           0 :        x( 5) =  a
    1402           0 :        y( 5) =  b
    1403           0 :        z( 5) = -c
    1404           0 :        w( 5) =  v
    1405           0 :        x( 6) = -a
    1406           0 :        y( 6) =  b
    1407           0 :        z( 6) = -c
    1408           0 :        w( 6) =  v
    1409           0 :        x( 7) =  a
    1410           0 :        y( 7) = -b
    1411           0 :        z( 7) = -c
    1412           0 :        w( 7) =  v
    1413           0 :        x( 8) = -a
    1414           0 :        y( 8) = -b
    1415           0 :        z( 8) = -c
    1416           0 :        w( 8) =  v
    1417           0 :        x( 9) =  a
    1418           0 :        y( 9) =  c
    1419           0 :        z( 9) =  b
    1420           0 :        w( 9) =  v
    1421           0 :        x(10) = -a
    1422           0 :        y(10) =  c
    1423           0 :        z(10) =  b
    1424           0 :        w(10) =  v
    1425           0 :        x(11) =  a
    1426           0 :        y(11) = -c
    1427           0 :        z(11) =  b
    1428           0 :        w(11) =  v
    1429           0 :        x(12) = -a
    1430           0 :        y(12) = -c
    1431           0 :        z(12) =  b
    1432           0 :        w(12) =  v
    1433           0 :        x(13) =  a
    1434           0 :        y(13) =  c
    1435           0 :        z(13) = -b
    1436           0 :        w(13) =  v
    1437           0 :        x(14) = -a
    1438           0 :        y(14) =  c
    1439           0 :        z(14) = -b
    1440           0 :        w(14) =  v
    1441           0 :        x(15) =  a
    1442           0 :        y(15) = -c
    1443           0 :        z(15) = -b
    1444           0 :        w(15) =  v
    1445           0 :        x(16) = -a
    1446           0 :        y(16) = -c
    1447           0 :        z(16) = -b
    1448           0 :        w(16) =  v
    1449           0 :        x(17) =  b
    1450           0 :        y(17) =  a
    1451           0 :        z(17) =  c
    1452           0 :        w(17) =  v
    1453           0 :        x(18) = -b
    1454           0 :        y(18) =  a
    1455           0 :        z(18) =  c
    1456           0 :        w(18) =  v
    1457           0 :        x(19) =  b
    1458           0 :        y(19) = -a
    1459           0 :        z(19) =  c
    1460           0 :        w(19) =  v
    1461           0 :        x(20) = -b
    1462           0 :        y(20) = -a
    1463           0 :        z(20) =  c
    1464           0 :        w(20) =  v
    1465           0 :        x(21) =  b
    1466           0 :        y(21) =  a
    1467           0 :        z(21) = -c
    1468           0 :        w(21) =  v
    1469           0 :        x(22) = -b
    1470           0 :        y(22) =  a
    1471           0 :        z(22) = -c
    1472           0 :        w(22) =  v
    1473           0 :        x(23) =  b
    1474           0 :        y(23) = -a
    1475           0 :        z(23) = -c
    1476           0 :        w(23) =  v
    1477           0 :        x(24) = -b
    1478           0 :        y(24) = -a
    1479           0 :        z(24) = -c
    1480           0 :        w(24) =  v
    1481           0 :        x(25) =  b
    1482           0 :        y(25) =  c
    1483           0 :        z(25) =  a
    1484           0 :        w(25) =  v
    1485           0 :        x(26) = -b
    1486           0 :        y(26) =  c
    1487           0 :        z(26) =  a
    1488           0 :        w(26) =  v
    1489           0 :        x(27) =  b
    1490           0 :        y(27) = -c
    1491           0 :        z(27) =  a
    1492           0 :        w(27) =  v
    1493           0 :        x(28) = -b
    1494           0 :        y(28) = -c
    1495           0 :        z(28) =  a
    1496           0 :        w(28) =  v
    1497           0 :        x(29) =  b
    1498           0 :        y(29) =  c
    1499           0 :        z(29) = -a
    1500           0 :        w(29) =  v
    1501           0 :        x(30) = -b
    1502           0 :        y(30) =  c
    1503           0 :        z(30) = -a
    1504           0 :        w(30) =  v
    1505           0 :        x(31) =  b
    1506           0 :        y(31) = -c
    1507           0 :        z(31) = -a
    1508           0 :        w(31) =  v
    1509           0 :        x(32) = -b
    1510           0 :        y(32) = -c
    1511           0 :        z(32) = -a
    1512           0 :        w(32) =  v
    1513           0 :        x(33) =  c
    1514           0 :        y(33) =  a
    1515           0 :        z(33) =  b
    1516           0 :        w(33) =  v
    1517           0 :        x(34) = -c
    1518           0 :        y(34) =  a
    1519           0 :        z(34) =  b
    1520           0 :        w(34) =  v
    1521           0 :        x(35) =  c
    1522           0 :        y(35) = -a
    1523           0 :        z(35) =  b
    1524           0 :        w(35) =  v
    1525           0 :        x(36) = -c
    1526           0 :        y(36) = -a
    1527           0 :        z(36) =  b
    1528           0 :        w(36) =  v
    1529           0 :        x(37) =  c
    1530           0 :        y(37) =  a
    1531           0 :        z(37) = -b
    1532           0 :        w(37) =  v
    1533           0 :        x(38) = -c
    1534           0 :        y(38) =  a
    1535           0 :        z(38) = -b
    1536           0 :        w(38) =  v
    1537           0 :        x(39) =  c
    1538           0 :        y(39) = -a
    1539           0 :        z(39) = -b
    1540           0 :        w(39) =  v
    1541           0 :        x(40) = -c
    1542           0 :        y(40) = -a
    1543           0 :        z(40) = -b
    1544           0 :        w(40) =  v
    1545           0 :        x(41) =  c
    1546           0 :        y(41) =  b
    1547           0 :        z(41) =  a
    1548           0 :        w(41) =  v
    1549           0 :        x(42) = -c
    1550           0 :        y(42) =  b
    1551           0 :        z(42) =  a
    1552           0 :        w(42) =  v
    1553           0 :        x(43) =  c
    1554           0 :        y(43) = -b
    1555           0 :        z(43) =  a
    1556           0 :        w(43) =  v
    1557           0 :        x(44) = -c
    1558           0 :        y(44) = -b
    1559           0 :        z(44) =  a
    1560           0 :        w(44) =  v
    1561           0 :        x(45) =  c
    1562           0 :        y(45) =  b
    1563           0 :        z(45) = -a
    1564           0 :        w(45) =  v
    1565           0 :        x(46) = -c
    1566           0 :        y(46) =  b
    1567           0 :        z(46) = -a
    1568           0 :        w(46) =  v
    1569           0 :        x(47) =  c
    1570           0 :        y(47) = -b
    1571           0 :        z(47) = -a
    1572           0 :        w(47) =  v
    1573           0 :        x(48) = -c
    1574           0 :        y(48) = -b
    1575           0 :        z(48) = -a
    1576           0 :        w(48) =  v
    1577           0 :        num=num+48
    1578           0 :        return
    1579             :        end
    1580           0 :        SUBROUTINE LD0006(X,Y,Z,W,N)
    1581             :        DOUBLE PRECISION X(   6)
    1582             :        DOUBLE PRECISION Y(   6)
    1583             :        DOUBLE PRECISION Z(   6)
    1584             :        DOUBLE PRECISION W(   6)
    1585             :        INTEGER N
    1586             :        DOUBLE PRECISION A,B,V
    1587             : !  
    1588             : !      LEBEDEV    6-POINT ANGULAR GRID
    1589             : !  
    1590             : !    
    1591             : !       This subroutine is part of a set of subroutines that generate
    1592             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    1593             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    1594             : !       translated into fortran by Dr. Christoph van Wuellen.
    1595             : !       This subroutine was translated using a C to fortran77 conversion
    1596             : !       tool written by Dr. Christoph van Wuellen.
    1597             : !    
    1598             : !       Users of this code are asked to include reference [1] in their
    1599             : !       publications, and in the user- and programmers-manuals 
    1600             : !       describing their codes.
    1601             : !    
    1602             : !       This code was distributed through CCL (http://www.ccl.net/).
    1603             : !    
    1604             : !       [1] V.I. Lebedev, and D.N. Laikov
    1605             : !           "A quadrature formula for the sphere of the 131st
    1606             : !            algebraic order of accuracy"
    1607             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    1608             : !    
    1609             : !       [2] V.I. Lebedev
    1610             : !           "A quadrature formula for the sphere of 59th algebraic
    1611             : !            order of accuracy"
    1612             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    1613             : !    
    1614             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    1615             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    1616             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    1617             : !    
    1618             : !       [4] V.I. Lebedev
    1619             : !           "Spherical quadrature formulas exact to orders 25-29"
    1620             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    1621             : !    
    1622             : !       [5] V.I. Lebedev
    1623             : !           "Quadratures on a sphere"
    1624             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    1625             : !           1976, pp. 10-24. 
    1626             : !    
    1627             : !       [6] V.I. Lebedev
    1628             : !           "Values of the nodes and weights of ninth to seventeenth 
    1629             : !            order Gauss-Markov quadrature formulae invariant under the
    1630             : !            octahedron group with inversion"
    1631             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    1632             : !           1975, pp. 44-51.
    1633             : !    
    1634           0 :        N=1
    1635           0 :        V=0.1666666666666667
    1636           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    1637           0 :        N=N-1
    1638           0 :        RETURN
    1639             :        END
    1640           0 :        SUBROUTINE LD0014(X,Y,Z,W,N)
    1641             :        DOUBLE PRECISION X(  14)
    1642             :        DOUBLE PRECISION Y(  14)
    1643             :        DOUBLE PRECISION Z(  14)
    1644             :        DOUBLE PRECISION W(  14)
    1645             :        INTEGER N
    1646             :        DOUBLE PRECISION A,B,V
    1647             : !  
    1648             : !      LEBEDEV   14-POINT ANGULAR GRID
    1649             : !  
    1650             : !    
    1651             : !       This subroutine is part of a set of subroutines that generate
    1652             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    1653             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    1654             : !       translated into fortran by Dr. Christoph van Wuellen.
    1655             : !       This subroutine was translated using a C to fortran77 conversion
    1656             : !       tool written by Dr. Christoph van Wuellen.
    1657             : !    
    1658             : !       Users of this code are asked to include reference [1] in their
    1659             : !       publications, and in the user- and programmers-manuals 
    1660             : !       describing their codes.
    1661             : !    
    1662             : !       This code was distributed through CCL (http://www.ccl.net/).
    1663             : !    
    1664             : !       [1] V.I. Lebedev, and D.N. Laikov
    1665             : !           "A quadrature formula for the sphere of the 131st
    1666             : !            algebraic order of accuracy"
    1667             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    1668             : !    
    1669             : !       [2] V.I. Lebedev
    1670             : !           "A quadrature formula for the sphere of 59th algebraic
    1671             : !            order of accuracy"
    1672             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    1673             : !    
    1674             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    1675             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    1676             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    1677             : !    
    1678             : !       [4] V.I. Lebedev
    1679             : !           "Spherical quadrature formulas exact to orders 25-29"
    1680             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    1681             : !    
    1682             : !       [5] V.I. Lebedev
    1683             : !           "Quadratures on a sphere"
    1684             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    1685             : !           1976, pp. 10-24. 
    1686             : !    
    1687             : !       [6] V.I. Lebedev
    1688             : !           "Values of the nodes and weights of ninth to seventeenth 
    1689             : !            order Gauss-Markov quadrature formulae invariant under the
    1690             : !            octahedron group with inversion"
    1691             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    1692             : !           1975, pp. 44-51.
    1693             : !    
    1694           0 :        N=1
    1695           0 :        V=0.6666666666666667e-1
    1696           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    1697           0 :        V=0.7500000000000000e-1
    1698           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    1699           0 :        N=N-1
    1700           0 :        RETURN
    1701             :        END
    1702           0 :        SUBROUTINE LD0026(X,Y,Z,W,N)
    1703             :        DOUBLE PRECISION X(  26)
    1704             :        DOUBLE PRECISION Y(  26)
    1705             :        DOUBLE PRECISION Z(  26)
    1706             :        DOUBLE PRECISION W(  26)
    1707             :        INTEGER N
    1708             :        DOUBLE PRECISION A,B,V
    1709             : !  
    1710             : !      LEBEDEV   26-POINT ANGULAR GRID
    1711             : !  
    1712             : !    
    1713             : !       This subroutine is part of a set of subroutines that generate
    1714             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    1715             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    1716             : !       translated into fortran by Dr. Christoph van Wuellen.
    1717             : !       This subroutine was translated using a C to fortran77 conversion
    1718             : !       tool written by Dr. Christoph van Wuellen.
    1719             : !    
    1720             : !       Users of this code are asked to include reference [1] in their
    1721             : !       publications, and in the user- and programmers-manuals 
    1722             : !       describing their codes.
    1723             : !    
    1724             : !       This code was distributed through CCL (http://www.ccl.net/).
    1725             : !    
    1726             : !       [1] V.I. Lebedev, and D.N. Laikov
    1727             : !           "A quadrature formula for the sphere of the 131st
    1728             : !            algebraic order of accuracy"
    1729             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    1730             : !    
    1731             : !       [2] V.I. Lebedev
    1732             : !           "A quadrature formula for the sphere of 59th algebraic
    1733             : !            order of accuracy"
    1734             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    1735             : !    
    1736             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    1737             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    1738             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    1739             : !    
    1740             : !       [4] V.I. Lebedev
    1741             : !           "Spherical quadrature formulas exact to orders 25-29"
    1742             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    1743             : !    
    1744             : !       [5] V.I. Lebedev
    1745             : !           "Quadratures on a sphere"
    1746             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    1747             : !           1976, pp. 10-24. 
    1748             : !    
    1749             : !       [6] V.I. Lebedev
    1750             : !           "Values of the nodes and weights of ninth to seventeenth 
    1751             : !            order Gauss-Markov quadrature formulae invariant under the
    1752             : !            octahedron group with inversion"
    1753             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    1754             : !           1975, pp. 44-51.
    1755             : !    
    1756           0 :        N=1
    1757           0 :        V=0.4761904761904762e-1
    1758           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    1759           0 :        V=0.3809523809523810e-1
    1760           0 :        Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
    1761           0 :        V=0.3214285714285714e-1
    1762           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    1763           0 :        N=N-1
    1764           0 :        RETURN
    1765             :        END
    1766           0 :        SUBROUTINE LD0038(X,Y,Z,W,N)
    1767             :        DOUBLE PRECISION X(  38)
    1768             :        DOUBLE PRECISION Y(  38)
    1769             :        DOUBLE PRECISION Z(  38)
    1770             :        DOUBLE PRECISION W(  38)
    1771             :        INTEGER N
    1772             :        DOUBLE PRECISION A,B,V
    1773             : !  
    1774             : !      LEBEDEV   38-POINT ANGULAR GRID
    1775             : !  
    1776             : !    
    1777             : !       This subroutine is part of a set of subroutines that generate
    1778             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    1779             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    1780             : !       translated into fortran by Dr. Christoph van Wuellen.
    1781             : !       This subroutine was translated using a C to fortran77 conversion
    1782             : !       tool written by Dr. Christoph van Wuellen.
    1783             : !    
    1784             : !       Users of this code are asked to include reference [1] in their
    1785             : !       publications, and in the user- and programmers-manuals 
    1786             : !       describing their codes.
    1787             : !    
    1788             : !       This code was distributed through CCL (http://www.ccl.net/).
    1789             : !    
    1790             : !       [1] V.I. Lebedev, and D.N. Laikov
    1791             : !           "A quadrature formula for the sphere of the 131st
    1792             : !            algebraic order of accuracy"
    1793             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    1794             : !    
    1795             : !       [2] V.I. Lebedev
    1796             : !           "A quadrature formula for the sphere of 59th algebraic
    1797             : !            order of accuracy"
    1798             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    1799             : !    
    1800             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    1801             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    1802             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    1803             : !    
    1804             : !       [4] V.I. Lebedev
    1805             : !           "Spherical quadrature formulas exact to orders 25-29"
    1806             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    1807             : !    
    1808             : !       [5] V.I. Lebedev
    1809             : !           "Quadratures on a sphere"
    1810             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    1811             : !           1976, pp. 10-24. 
    1812             : !    
    1813             : !       [6] V.I. Lebedev
    1814             : !           "Values of the nodes and weights of ninth to seventeenth 
    1815             : !            order Gauss-Markov quadrature formulae invariant under the
    1816             : !            octahedron group with inversion"
    1817             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    1818             : !           1975, pp. 44-51.
    1819             : !    
    1820           0 :        N=1
    1821           0 :        V=0.9523809523809524e-2
    1822           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    1823           0 :        V=0.3214285714285714e-1
    1824           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    1825           0 :        A=0.4597008433809831
    1826           0 :        V=0.2857142857142857e-1
    1827           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    1828           0 :        N=N-1
    1829           0 :        RETURN
    1830             :        END
    1831           0 :        SUBROUTINE LD0050(X,Y,Z,W,N)
    1832             :        DOUBLE PRECISION X(  50)
    1833             :        DOUBLE PRECISION Y(  50)
    1834             :        DOUBLE PRECISION Z(  50)
    1835             :        DOUBLE PRECISION W(  50)
    1836             :        INTEGER N
    1837             :        DOUBLE PRECISION A,B,V
    1838             : !  
    1839             : !      LEBEDEV   50-POINT ANGULAR GRID
    1840             : !  
    1841             : !    
    1842             : !       This subroutine is part of a set of subroutines that generate
    1843             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    1844             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    1845             : !       translated into fortran by Dr. Christoph van Wuellen.
    1846             : !       This subroutine was translated using a C to fortran77 conversion
    1847             : !       tool written by Dr. Christoph van Wuellen.
    1848             : !    
    1849             : !       Users of this code are asked to include reference [1] in their
    1850             : !       publications, and in the user- and programmers-manuals 
    1851             : !       describing their codes.
    1852             : !    
    1853             : !       This code was distributed through CCL (http://www.ccl.net/).
    1854             : !    
    1855             : !       [1] V.I. Lebedev, and D.N. Laikov
    1856             : !           "A quadrature formula for the sphere of the 131st
    1857             : !            algebraic order of accuracy"
    1858             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    1859             : !    
    1860             : !       [2] V.I. Lebedev
    1861             : !           "A quadrature formula for the sphere of 59th algebraic
    1862             : !            order of accuracy"
    1863             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    1864             : !    
    1865             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    1866             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    1867             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    1868             : !    
    1869             : !       [4] V.I. Lebedev
    1870             : !           "Spherical quadrature formulas exact to orders 25-29"
    1871             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    1872             : !    
    1873             : !       [5] V.I. Lebedev
    1874             : !           "Quadratures on a sphere"
    1875             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    1876             : !           1976, pp. 10-24. 
    1877             : !    
    1878             : !       [6] V.I. Lebedev
    1879             : !           "Values of the nodes and weights of ninth to seventeenth 
    1880             : !            order Gauss-Markov quadrature formulae invariant under the
    1881             : !            octahedron group with inversion"
    1882             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    1883             : !           1975, pp. 44-51.
    1884             : !    
    1885           0 :        N=1
    1886           0 :        V=0.1269841269841270e-1
    1887           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    1888           0 :        V=0.2257495590828924e-1
    1889           0 :        Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
    1890           0 :        V=0.2109375000000000e-1
    1891           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    1892           0 :        A=0.3015113445777636
    1893           0 :        V=0.2017333553791887e-1
    1894           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    1895           0 :        N=N-1
    1896           0 :        RETURN
    1897             :        END
    1898           0 :        SUBROUTINE LD0074(X,Y,Z,W,N)
    1899             :        DOUBLE PRECISION X(  74)
    1900             :        DOUBLE PRECISION Y(  74)
    1901             :        DOUBLE PRECISION Z(  74)
    1902             :        DOUBLE PRECISION W(  74)
    1903             :        INTEGER N
    1904             :        DOUBLE PRECISION A,B,V
    1905             : !  
    1906             : !      LEBEDEV   74-POINT ANGULAR GRID
    1907             : !  
    1908             : !    
    1909             : !       This subroutine is part of a set of subroutines that generate
    1910             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    1911             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    1912             : !       translated into fortran by Dr. Christoph van Wuellen.
    1913             : !       This subroutine was translated using a C to fortran77 conversion
    1914             : !       tool written by Dr. Christoph van Wuellen.
    1915             : !    
    1916             : !       Users of this code are asked to include reference [1] in their
    1917             : !       publications, and in the user- and programmers-manuals 
    1918             : !       describing their codes.
    1919             : !    
    1920             : !       This code was distributed through CCL (http://www.ccl.net/).
    1921             : !    
    1922             : !       [1] V.I. Lebedev, and D.N. Laikov
    1923             : !           "A quadrature formula for the sphere of the 131st
    1924             : !            algebraic order of accuracy"
    1925             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    1926             : !    
    1927             : !       [2] V.I. Lebedev
    1928             : !           "A quadrature formula for the sphere of 59th algebraic
    1929             : !            order of accuracy"
    1930             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    1931             : !    
    1932             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    1933             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    1934             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    1935             : !    
    1936             : !       [4] V.I. Lebedev
    1937             : !           "Spherical quadrature formulas exact to orders 25-29"
    1938             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    1939             : !    
    1940             : !       [5] V.I. Lebedev
    1941             : !           "Quadratures on a sphere"
    1942             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    1943             : !           1976, pp. 10-24. 
    1944             : !    
    1945             : !       [6] V.I. Lebedev
    1946             : !           "Values of the nodes and weights of ninth to seventeenth 
    1947             : !            order Gauss-Markov quadrature formulae invariant under the
    1948             : !            octahedron group with inversion"
    1949             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    1950             : !           1975, pp. 44-51.
    1951             : !    
    1952           0 :        N=1
    1953           0 :        V=0.5130671797338464e-3
    1954           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    1955           0 :        V=0.1660406956574204e-1
    1956           0 :        Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
    1957           0 :        V=-0.2958603896103896e-1
    1958           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    1959           0 :        A=0.4803844614152614
    1960           0 :        V=0.2657620708215946e-1
    1961           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    1962           0 :        A=0.3207726489807764
    1963           0 :        V=0.1652217099371571e-1
    1964           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    1965           0 :        N=N-1
    1966           0 :        RETURN
    1967             :        END
    1968           0 :        SUBROUTINE LD0086(X,Y,Z,W,N)
    1969             :        DOUBLE PRECISION X(  86)
    1970             :        DOUBLE PRECISION Y(  86)
    1971             :        DOUBLE PRECISION Z(  86)
    1972             :        DOUBLE PRECISION W(  86)
    1973             :        INTEGER N
    1974             :        DOUBLE PRECISION A,B,V
    1975             : !  
    1976             : !      LEBEDEV   86-POINT ANGULAR GRID
    1977             : !  
    1978             : !    
    1979             : !       This subroutine is part of a set of subroutines that generate
    1980             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    1981             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    1982             : !       translated into fortran by Dr. Christoph van Wuellen.
    1983             : !       This subroutine was translated using a C to fortran77 conversion
    1984             : !       tool written by Dr. Christoph van Wuellen.
    1985             : !    
    1986             : !       Users of this code are asked to include reference [1] in their
    1987             : !       publications, and in the user- and programmers-manuals 
    1988             : !       describing their codes.
    1989             : !    
    1990             : !       This code was distributed through CCL (http://www.ccl.net/).
    1991             : !    
    1992             : !       [1] V.I. Lebedev, and D.N. Laikov
    1993             : !           "A quadrature formula for the sphere of the 131st
    1994             : !            algebraic order of accuracy"
    1995             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    1996             : !    
    1997             : !       [2] V.I. Lebedev
    1998             : !           "A quadrature formula for the sphere of 59th algebraic
    1999             : !            order of accuracy"
    2000             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    2001             : !    
    2002             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    2003             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    2004             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    2005             : !    
    2006             : !       [4] V.I. Lebedev
    2007             : !           "Spherical quadrature formulas exact to orders 25-29"
    2008             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    2009             : !    
    2010             : !       [5] V.I. Lebedev
    2011             : !           "Quadratures on a sphere"
    2012             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    2013             : !           1976, pp. 10-24. 
    2014             : !    
    2015             : !       [6] V.I. Lebedev
    2016             : !           "Values of the nodes and weights of ninth to seventeenth 
    2017             : !            order Gauss-Markov quadrature formulae invariant under the
    2018             : !            octahedron group with inversion"
    2019             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    2020             : !           1975, pp. 44-51.
    2021             : !    
    2022           0 :        N=1
    2023           0 :        V=0.1154401154401154e-1
    2024           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2025           0 :        V=0.1194390908585628e-1
    2026           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2027           0 :        A=0.3696028464541502
    2028           0 :        V=0.1111055571060340e-1
    2029           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2030           0 :        A=0.6943540066026664
    2031           0 :        V=0.1187650129453714e-1
    2032           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2033           0 :        A=0.3742430390903412
    2034           0 :        V=0.1181230374690448e-1
    2035           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2036           0 :        N=N-1
    2037           0 :        RETURN
    2038             :        END
    2039           0 :        SUBROUTINE LD0110(X,Y,Z,W,N)
    2040             :        DOUBLE PRECISION X( 110)
    2041             :        DOUBLE PRECISION Y( 110)
    2042             :        DOUBLE PRECISION Z( 110)
    2043             :        DOUBLE PRECISION W( 110)
    2044             :        INTEGER N
    2045             :        DOUBLE PRECISION A,B,V
    2046             : !  
    2047             : !      LEBEDEV  110-POINT ANGULAR GRID
    2048             : !  
    2049             : !    
    2050             : !       This subroutine is part of a set of subroutines that generate
    2051             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    2052             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    2053             : !       translated into fortran by Dr. Christoph van Wuellen.
    2054             : !       This subroutine was translated using a C to fortran77 conversion
    2055             : !       tool written by Dr. Christoph van Wuellen.
    2056             : !    
    2057             : !       Users of this code are asked to include reference [1] in their
    2058             : !       publications, and in the user- and programmers-manuals 
    2059             : !       describing their codes.
    2060             : !    
    2061             : !       This code was distributed through CCL (http://www.ccl.net/).
    2062             : !    
    2063             : !       [1] V.I. Lebedev, and D.N. Laikov
    2064             : !           "A quadrature formula for the sphere of the 131st
    2065             : !            algebraic order of accuracy"
    2066             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    2067             : !    
    2068             : !       [2] V.I. Lebedev
    2069             : !           "A quadrature formula for the sphere of 59th algebraic
    2070             : !            order of accuracy"
    2071             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    2072             : !    
    2073             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    2074             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    2075             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    2076             : !    
    2077             : !       [4] V.I. Lebedev
    2078             : !           "Spherical quadrature formulas exact to orders 25-29"
    2079             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    2080             : !    
    2081             : !       [5] V.I. Lebedev
    2082             : !           "Quadratures on a sphere"
    2083             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    2084             : !           1976, pp. 10-24. 
    2085             : !    
    2086             : !       [6] V.I. Lebedev
    2087             : !           "Values of the nodes and weights of ninth to seventeenth 
    2088             : !            order Gauss-Markov quadrature formulae invariant under the
    2089             : !            octahedron group with inversion"
    2090             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    2091             : !           1975, pp. 44-51.
    2092             : !    
    2093           0 :        N=1
    2094           0 :        V=0.3828270494937162e-2
    2095           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2096           0 :        V=0.9793737512487512e-2
    2097           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2098           0 :        A=0.1851156353447362
    2099           0 :        V=0.8211737283191111e-2
    2100           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2101           0 :        A=0.6904210483822922
    2102           0 :        V=0.9942814891178103e-2
    2103           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2104           0 :        A=0.3956894730559419
    2105           0 :        V=0.9595471336070963e-2
    2106           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2107           0 :        A=0.4783690288121502
    2108           0 :        V=0.9694996361663028e-2
    2109           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2110           0 :        N=N-1
    2111           0 :        RETURN
    2112             :        END
    2113           0 :        SUBROUTINE LD0146(X,Y,Z,W,N)
    2114             :        DOUBLE PRECISION X( 146)
    2115             :        DOUBLE PRECISION Y( 146)
    2116             :        DOUBLE PRECISION Z( 146)
    2117             :        DOUBLE PRECISION W( 146)
    2118             :        INTEGER N
    2119             :        DOUBLE PRECISION A,B,V
    2120             : !  
    2121             : !      LEBEDEV  146-POINT ANGULAR GRID
    2122             : !  
    2123             : !    
    2124             : !       This subroutine is part of a set of subroutines that generate
    2125             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    2126             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    2127             : !       translated into fortran by Dr. Christoph van Wuellen.
    2128             : !       This subroutine was translated using a C to fortran77 conversion
    2129             : !       tool written by Dr. Christoph van Wuellen.
    2130             : !    
    2131             : !       Users of this code are asked to include reference [1] in their
    2132             : !       publications, and in the user- and programmers-manuals 
    2133             : !       describing their codes.
    2134             : !    
    2135             : !       This code was distributed through CCL (http://www.ccl.net/).
    2136             : !    
    2137             : !       [1] V.I. Lebedev, and D.N. Laikov
    2138             : !           "A quadrature formula for the sphere of the 131st
    2139             : !            algebraic order of accuracy"
    2140             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    2141             : !    
    2142             : !       [2] V.I. Lebedev
    2143             : !           "A quadrature formula for the sphere of 59th algebraic
    2144             : !            order of accuracy"
    2145             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    2146             : !    
    2147             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    2148             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    2149             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    2150             : !    
    2151             : !       [4] V.I. Lebedev
    2152             : !           "Spherical quadrature formulas exact to orders 25-29"
    2153             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    2154             : !    
    2155             : !       [5] V.I. Lebedev
    2156             : !           "Quadratures on a sphere"
    2157             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    2158             : !           1976, pp. 10-24. 
    2159             : !    
    2160             : !       [6] V.I. Lebedev
    2161             : !           "Values of the nodes and weights of ninth to seventeenth 
    2162             : !            order Gauss-Markov quadrature formulae invariant under the
    2163             : !            octahedron group with inversion"
    2164             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    2165             : !           1975, pp. 44-51.
    2166             : !    
    2167           0 :        N=1
    2168           0 :        V=0.5996313688621381e-3
    2169           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2170           0 :        V=0.7372999718620756e-2
    2171           0 :        Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2172           0 :        V=0.7210515360144488e-2
    2173           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2174           0 :        A=0.6764410400114264
    2175           0 :        V=0.7116355493117555e-2
    2176           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2177           0 :        A=0.4174961227965453
    2178           0 :        V=0.6753829486314477e-2
    2179           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2180           0 :        A=0.1574676672039082
    2181           0 :        V=0.7574394159054034e-2
    2182           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2183           0 :        A=0.1403553811713183
    2184           0 :        B=0.4493328323269557
    2185           0 :        V=0.6991087353303262e-2
    2186           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2187           0 :        N=N-1
    2188           0 :        RETURN
    2189             :        END
    2190           0 :        SUBROUTINE LD0170(X,Y,Z,W,N)
    2191             :        DOUBLE PRECISION X( 170)
    2192             :        DOUBLE PRECISION Y( 170)
    2193             :        DOUBLE PRECISION Z( 170)
    2194             :        DOUBLE PRECISION W( 170)
    2195             :        INTEGER N
    2196             :        DOUBLE PRECISION A,B,V
    2197             : !  
    2198             : !      LEBEDEV  170-POINT ANGULAR GRID
    2199             : !  
    2200             : !    
    2201             : !       This subroutine is part of a set of subroutines that generate
    2202             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    2203             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    2204             : !       translated into fortran by Dr. Christoph van Wuellen.
    2205             : !       This subroutine was translated using a C to fortran77 conversion
    2206             : !       tool written by Dr. Christoph van Wuellen.
    2207             : !    
    2208             : !       Users of this code are asked to include reference [1] in their
    2209             : !       publications, and in the user- and programmers-manuals 
    2210             : !       describing their codes.
    2211             : !    
    2212             : !       This code was distributed through CCL (http://www.ccl.net/).
    2213             : !    
    2214             : !       [1] V.I. Lebedev, and D.N. Laikov
    2215             : !           "A quadrature formula for the sphere of the 131st
    2216             : !            algebraic order of accuracy"
    2217             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    2218             : !    
    2219             : !       [2] V.I. Lebedev
    2220             : !           "A quadrature formula for the sphere of 59th algebraic
    2221             : !            order of accuracy"
    2222             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    2223             : !    
    2224             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    2225             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    2226             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    2227             : !    
    2228             : !       [4] V.I. Lebedev
    2229             : !           "Spherical quadrature formulas exact to orders 25-29"
    2230             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    2231             : !    
    2232             : !       [5] V.I. Lebedev
    2233             : !           "Quadratures on a sphere"
    2234             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    2235             : !           1976, pp. 10-24. 
    2236             : !    
    2237             : !       [6] V.I. Lebedev
    2238             : !           "Values of the nodes and weights of ninth to seventeenth 
    2239             : !            order Gauss-Markov quadrature formulae invariant under the
    2240             : !            octahedron group with inversion"
    2241             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    2242             : !           1975, pp. 44-51.
    2243             : !    
    2244           0 :        N=1
    2245           0 :        V=0.5544842902037365e-2
    2246           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2247           0 :        V=0.6071332770670752e-2
    2248           0 :        Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2249           0 :        V=0.6383674773515093e-2
    2250           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2251           0 :        A=0.2551252621114134
    2252           0 :        V=0.5183387587747790e-2
    2253           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2254           0 :        A=0.6743601460362766
    2255           0 :        V=0.6317929009813725e-2
    2256           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2257           0 :        A=0.4318910696719410
    2258           0 :        V=0.6201670006589077e-2
    2259           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2260           0 :        A=0.2613931360335988
    2261           0 :        V=0.5477143385137348e-2
    2262           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2263           0 :        A=0.4990453161796037
    2264           0 :        B=0.1446630744325115
    2265           0 :        V=0.5968383987681156e-2
    2266           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2267           0 :        N=N-1
    2268           0 :        RETURN
    2269             :        END
    2270           0 :        SUBROUTINE LD0194(X,Y,Z,W,N)
    2271             :        DOUBLE PRECISION X( 194)
    2272             :        DOUBLE PRECISION Y( 194)
    2273             :        DOUBLE PRECISION Z( 194)
    2274             :        DOUBLE PRECISION W( 194)
    2275             :        INTEGER N
    2276             :        DOUBLE PRECISION A,B,V
    2277             : !  
    2278             : !      LEBEDEV  194-POINT ANGULAR GRID
    2279             : !  
    2280             : !    
    2281             : !       This subroutine is part of a set of subroutines that generate
    2282             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    2283             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    2284             : !       translated into fortran by Dr. Christoph van Wuellen.
    2285             : !       This subroutine was translated using a C to fortran77 conversion
    2286             : !       tool written by Dr. Christoph van Wuellen.
    2287             : !    
    2288             : !       Users of this code are asked to include reference [1] in their
    2289             : !       publications, and in the user- and programmers-manuals 
    2290             : !       describing their codes.
    2291             : !    
    2292             : !       This code was distributed through CCL (http://www.ccl.net/).
    2293             : !    
    2294             : !       [1] V.I. Lebedev, and D.N. Laikov
    2295             : !           "A quadrature formula for the sphere of the 131st
    2296             : !            algebraic order of accuracy"
    2297             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    2298             : !    
    2299             : !       [2] V.I. Lebedev
    2300             : !           "A quadrature formula for the sphere of 59th algebraic
    2301             : !            order of accuracy"
    2302             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    2303             : !    
    2304             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    2305             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    2306             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    2307             : !    
    2308             : !       [4] V.I. Lebedev
    2309             : !           "Spherical quadrature formulas exact to orders 25-29"
    2310             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    2311             : !    
    2312             : !       [5] V.I. Lebedev
    2313             : !           "Quadratures on a sphere"
    2314             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    2315             : !           1976, pp. 10-24. 
    2316             : !    
    2317             : !       [6] V.I. Lebedev
    2318             : !           "Values of the nodes and weights of ninth to seventeenth 
    2319             : !            order Gauss-Markov quadrature formulae invariant under the
    2320             : !            octahedron group with inversion"
    2321             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    2322             : !           1975, pp. 44-51.
    2323             : !    
    2324           0 :        N=1
    2325           0 :        V=0.1782340447244611e-2
    2326           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2327           0 :        V=0.5716905949977102e-2
    2328           0 :        Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2329           0 :        V=0.5573383178848738e-2
    2330           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2331           0 :        A=0.6712973442695226
    2332           0 :        V=0.5608704082587997e-2
    2333           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2334           0 :        A=0.2892465627575439
    2335           0 :        V=0.5158237711805383e-2
    2336           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2337           0 :        A=0.4446933178717437
    2338           0 :        V=0.5518771467273614e-2
    2339           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2340           0 :        A=0.1299335447650067
    2341           0 :        V=0.4106777028169394e-2
    2342           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2343           0 :        A=0.3457702197611283
    2344           0 :        V=0.5051846064614808e-2
    2345           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2346           0 :        A=0.1590417105383530
    2347           0 :        B=0.8360360154824589
    2348           0 :        V=0.5530248916233094e-2
    2349           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2350           0 :        N=N-1
    2351           0 :        RETURN
    2352             :        END
    2353           0 :        SUBROUTINE LD0230(X,Y,Z,W,N)
    2354             :        DOUBLE PRECISION X( 230)
    2355             :        DOUBLE PRECISION Y( 230)
    2356             :        DOUBLE PRECISION Z( 230)
    2357             :        DOUBLE PRECISION W( 230)
    2358             :        INTEGER N
    2359             :        DOUBLE PRECISION A,B,V
    2360             : !  
    2361             : !      LEBEDEV  230-POINT ANGULAR GRID
    2362             : !  
    2363             : !    
    2364             : !       This subroutine is part of a set of subroutines that generate
    2365             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    2366             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    2367             : !       translated into fortran by Dr. Christoph van Wuellen.
    2368             : !       This subroutine was translated using a C to fortran77 conversion
    2369             : !       tool written by Dr. Christoph van Wuellen.
    2370             : !    
    2371             : !       Users of this code are asked to include reference [1] in their
    2372             : !       publications, and in the user- and programmers-manuals 
    2373             : !       describing their codes.
    2374             : !    
    2375             : !       This code was distributed through CCL (http://www.ccl.net/).
    2376             : !    
    2377             : !       [1] V.I. Lebedev, and D.N. Laikov
    2378             : !           "A quadrature formula for the sphere of the 131st
    2379             : !            algebraic order of accuracy"
    2380             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    2381             : !    
    2382             : !       [2] V.I. Lebedev
    2383             : !           "A quadrature formula for the sphere of 59th algebraic
    2384             : !            order of accuracy"
    2385             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    2386             : !    
    2387             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    2388             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    2389             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    2390             : !    
    2391             : !       [4] V.I. Lebedev
    2392             : !           "Spherical quadrature formulas exact to orders 25-29"
    2393             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    2394             : !    
    2395             : !       [5] V.I. Lebedev
    2396             : !           "Quadratures on a sphere"
    2397             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    2398             : !           1976, pp. 10-24. 
    2399             : !    
    2400             : !       [6] V.I. Lebedev
    2401             : !           "Values of the nodes and weights of ninth to seventeenth 
    2402             : !            order Gauss-Markov quadrature formulae invariant under the
    2403             : !            octahedron group with inversion"
    2404             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    2405             : !           1975, pp. 44-51.
    2406             : !    
    2407           0 :        N=1
    2408           0 :        V=-0.5522639919727325e-1
    2409           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2410           0 :        V=0.4450274607445226e-2
    2411           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2412           0 :        A=0.4492044687397611
    2413           0 :        V=0.4496841067921404e-2
    2414           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2415           0 :        A=0.2520419490210201
    2416           0 :        V=0.5049153450478750e-2
    2417           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2418           0 :        A=0.6981906658447242
    2419           0 :        V=0.3976408018051883e-2
    2420           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2421           0 :        A=0.6587405243460960
    2422           0 :        V=0.4401400650381014e-2
    2423           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2424           0 :        A=0.4038544050097660e-1
    2425           0 :        V=0.1724544350544401e-1
    2426           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2427           0 :        A=0.5823842309715585
    2428           0 :        V=0.4231083095357343e-2
    2429           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2430           0 :        A=0.3545877390518688
    2431           0 :        V=0.5198069864064399e-2
    2432           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2433           0 :        A=0.2272181808998187
    2434           0 :        B=0.4864661535886647
    2435           0 :        V=0.4695720972568883e-2
    2436           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2437           0 :        N=N-1
    2438           0 :        RETURN
    2439             :        END
    2440           0 :        SUBROUTINE LD0266(X,Y,Z,W,N)
    2441             :        DOUBLE PRECISION X( 266)
    2442             :        DOUBLE PRECISION Y( 266)
    2443             :        DOUBLE PRECISION Z( 266)
    2444             :        DOUBLE PRECISION W( 266)
    2445             :        INTEGER N
    2446             :        DOUBLE PRECISION A,B,V
    2447             : !  
    2448             : !      LEBEDEV  266-POINT ANGULAR GRID
    2449             : !  
    2450             : !    
    2451             : !       This subroutine is part of a set of subroutines that generate
    2452             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    2453             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    2454             : !       translated into fortran by Dr. Christoph van Wuellen.
    2455             : !       This subroutine was translated using a C to fortran77 conversion
    2456             : !       tool written by Dr. Christoph van Wuellen.
    2457             : !    
    2458             : !       Users of this code are asked to include reference [1] in their
    2459             : !       publications, and in the user- and programmers-manuals 
    2460             : !       describing their codes.
    2461             : !    
    2462             : !       This code was distributed through CCL (http://www.ccl.net/).
    2463             : !    
    2464             : !       [1] V.I. Lebedev, and D.N. Laikov
    2465             : !           "A quadrature formula for the sphere of the 131st
    2466             : !            algebraic order of accuracy"
    2467             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    2468             : !    
    2469             : !       [2] V.I. Lebedev
    2470             : !           "A quadrature formula for the sphere of 59th algebraic
    2471             : !            order of accuracy"
    2472             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    2473             : !    
    2474             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    2475             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    2476             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    2477             : !    
    2478             : !       [4] V.I. Lebedev
    2479             : !           "Spherical quadrature formulas exact to orders 25-29"
    2480             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    2481             : !    
    2482             : !       [5] V.I. Lebedev
    2483             : !           "Quadratures on a sphere"
    2484             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    2485             : !           1976, pp. 10-24. 
    2486             : !    
    2487             : !       [6] V.I. Lebedev
    2488             : !           "Values of the nodes and weights of ninth to seventeenth 
    2489             : !            order Gauss-Markov quadrature formulae invariant under the
    2490             : !            octahedron group with inversion"
    2491             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    2492             : !           1975, pp. 44-51.
    2493             : !    
    2494           0 :        N=1
    2495           0 :        V=-0.1313769127326952e-2
    2496           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2497           0 :        V=-0.2522728704859336e-2
    2498           0 :        Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2499           0 :        V=0.4186853881700583e-2
    2500           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2501           0 :        A=0.7039373391585475
    2502           0 :        V=0.5315167977810885e-2
    2503           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2504           0 :        A=0.1012526248572414
    2505           0 :        V=0.4047142377086219e-2
    2506           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2507           0 :        A=0.4647448726420539
    2508           0 :        V=0.4112482394406990e-2
    2509           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2510           0 :        A=0.3277420654971629
    2511           0 :        V=0.3595584899758782e-2
    2512           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2513           0 :        A=0.6620338663699974
    2514           0 :        V=0.4256131351428158e-2
    2515           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2516           0 :        A=0.8506508083520399
    2517           0 :        V=0.4229582700647240e-2
    2518           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2519           0 :        A=0.3233484542692899
    2520           0 :        B=0.1153112011009701
    2521           0 :        V=0.4080914225780505e-2
    2522           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2523           0 :        A=0.2314790158712601
    2524           0 :        B=0.5244939240922365
    2525           0 :        V=0.4071467593830964e-2
    2526           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2527           0 :        N=N-1
    2528           0 :        RETURN
    2529             :        END
    2530           0 :        SUBROUTINE LD0302(X,Y,Z,W,N)
    2531             :        DOUBLE PRECISION X( 302)
    2532             :        DOUBLE PRECISION Y( 302)
    2533             :        DOUBLE PRECISION Z( 302)
    2534             :        DOUBLE PRECISION W( 302)
    2535             :        INTEGER N
    2536             :        DOUBLE PRECISION A,B,V
    2537             : !  
    2538             : !      LEBEDEV  302-POINT ANGULAR GRID
    2539             : !  
    2540             : !    
    2541             : !       This subroutine is part of a set of subroutines that generate
    2542             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    2543             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    2544             : !       translated into fortran by Dr. Christoph van Wuellen.
    2545             : !       This subroutine was translated using a C to fortran77 conversion
    2546             : !       tool written by Dr. Christoph van Wuellen.
    2547             : !    
    2548             : !       Users of this code are asked to include reference [1] in their
    2549             : !       publications, and in the user- and programmers-manuals 
    2550             : !       describing their codes.
    2551             : !    
    2552             : !       This code was distributed through CCL (http://www.ccl.net/).
    2553             : !    
    2554             : !       [1] V.I. Lebedev, and D.N. Laikov
    2555             : !           "A quadrature formula for the sphere of the 131st
    2556             : !            algebraic order of accuracy"
    2557             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    2558             : !    
    2559             : !       [2] V.I. Lebedev
    2560             : !           "A quadrature formula for the sphere of 59th algebraic
    2561             : !            order of accuracy"
    2562             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    2563             : !    
    2564             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    2565             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    2566             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    2567             : !    
    2568             : !       [4] V.I. Lebedev
    2569             : !           "Spherical quadrature formulas exact to orders 25-29"
    2570             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    2571             : !    
    2572             : !       [5] V.I. Lebedev
    2573             : !           "Quadratures on a sphere"
    2574             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    2575             : !           1976, pp. 10-24. 
    2576             : !    
    2577             : !       [6] V.I. Lebedev
    2578             : !           "Values of the nodes and weights of ninth to seventeenth 
    2579             : !            order Gauss-Markov quadrature formulae invariant under the
    2580             : !            octahedron group with inversion"
    2581             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    2582             : !           1975, pp. 44-51.
    2583             : !    
    2584           0 :        N=1
    2585           0 :        V=0.8545911725128148e-3
    2586           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2587           0 :        V=0.3599119285025571e-2
    2588           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2589           0 :        A=0.3515640345570105
    2590           0 :        V=0.3449788424305883e-2
    2591           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2592           0 :        A=0.6566329410219612
    2593           0 :        V=0.3604822601419882e-2
    2594           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2595           0 :        A=0.4729054132581005
    2596           0 :        V=0.3576729661743367e-2
    2597           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2598           0 :        A=0.9618308522614784e-1
    2599           0 :        V=0.2352101413689164e-2
    2600           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2601           0 :        A=0.2219645236294178
    2602           0 :        V=0.3108953122413675e-2
    2603           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2604           0 :        A=0.7011766416089545
    2605           0 :        V=0.3650045807677255e-2
    2606           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2607           0 :        A=0.2644152887060663
    2608           0 :        V=0.2982344963171804e-2
    2609           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2610           0 :        A=0.5718955891878961
    2611           0 :        V=0.3600820932216460e-2
    2612           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2613           0 :        A=0.2510034751770465
    2614           0 :        B=0.8000727494073952
    2615           0 :        V=0.3571540554273387e-2
    2616           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2617           0 :        A=0.1233548532583327
    2618           0 :        B=0.4127724083168531
    2619           0 :        V=0.3392312205006170e-2
    2620           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2621           0 :        N=N-1
    2622           0 :        RETURN
    2623             :        END
    2624           0 :        SUBROUTINE LD0350(X,Y,Z,W,N)
    2625             :        DOUBLE PRECISION X( 350)
    2626             :        DOUBLE PRECISION Y( 350)
    2627             :        DOUBLE PRECISION Z( 350)
    2628             :        DOUBLE PRECISION W( 350)
    2629             :        INTEGER N
    2630             :        DOUBLE PRECISION A,B,V
    2631             : !  
    2632             : !      LEBEDEV  350-POINT ANGULAR GRID
    2633             : !  
    2634             : !    
    2635             : !       This subroutine is part of a set of subroutines that generate
    2636             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    2637             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    2638             : !       translated into fortran by Dr. Christoph van Wuellen.
    2639             : !       This subroutine was translated using a C to fortran77 conversion
    2640             : !       tool written by Dr. Christoph van Wuellen.
    2641             : !    
    2642             : !       Users of this code are asked to include reference [1] in their
    2643             : !       publications, and in the user- and programmers-manuals 
    2644             : !       describing their codes.
    2645             : !    
    2646             : !       This code was distributed through CCL (http://www.ccl.net/).
    2647             : !    
    2648             : !       [1] V.I. Lebedev, and D.N. Laikov
    2649             : !           "A quadrature formula for the sphere of the 131st
    2650             : !            algebraic order of accuracy"
    2651             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    2652             : !    
    2653             : !       [2] V.I. Lebedev
    2654             : !           "A quadrature formula for the sphere of 59th algebraic
    2655             : !            order of accuracy"
    2656             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    2657             : !    
    2658             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    2659             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    2660             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    2661             : !    
    2662             : !       [4] V.I. Lebedev
    2663             : !           "Spherical quadrature formulas exact to orders 25-29"
    2664             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    2665             : !    
    2666             : !       [5] V.I. Lebedev
    2667             : !           "Quadratures on a sphere"
    2668             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    2669             : !           1976, pp. 10-24. 
    2670             : !    
    2671             : !       [6] V.I. Lebedev
    2672             : !           "Values of the nodes and weights of ninth to seventeenth 
    2673             : !            order Gauss-Markov quadrature formulae invariant under the
    2674             : !            octahedron group with inversion"
    2675             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    2676             : !           1975, pp. 44-51.
    2677             : !    
    2678           0 :        N=1
    2679           0 :        V=0.3006796749453936e-2
    2680           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2681           0 :        V=0.3050627745650771e-2
    2682           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2683           0 :        A=0.7068965463912316
    2684           0 :        V=0.1621104600288991e-2
    2685           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2686           0 :        A=0.4794682625712025
    2687           0 :        V=0.3005701484901752e-2
    2688           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2689           0 :        A=0.1927533154878019
    2690           0 :        V=0.2990992529653774e-2
    2691           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2692           0 :        A=0.6930357961327123
    2693           0 :        V=0.2982170644107595e-2
    2694           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2695           0 :        A=0.3608302115520091
    2696           0 :        V=0.2721564237310992e-2
    2697           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2698           0 :        A=0.6498486161496169
    2699           0 :        V=0.3033513795811141e-2
    2700           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2701           0 :        A=0.1932945013230339
    2702           0 :        V=0.3007949555218533e-2
    2703           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2704           0 :        A=0.3800494919899303
    2705           0 :        V=0.2881964603055307e-2
    2706           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2707           0 :        A=0.2899558825499574
    2708           0 :        B=0.7934537856582316
    2709           0 :        V=0.2958357626535696e-2
    2710           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2711           0 :        A=0.9684121455103957e-1
    2712           0 :        B=0.8280801506686862
    2713           0 :        V=0.3036020026407088e-2
    2714           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2715           0 :        A=0.1833434647041659
    2716           0 :        B=0.9074658265305127
    2717           0 :        V=0.2832187403926303e-2
    2718           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2719           0 :        N=N-1
    2720           0 :        RETURN
    2721             :        END
    2722           0 :        SUBROUTINE LD0434(X,Y,Z,W,N)
    2723             :        DOUBLE PRECISION X( 434)
    2724             :        DOUBLE PRECISION Y( 434)
    2725             :        DOUBLE PRECISION Z( 434)
    2726             :        DOUBLE PRECISION W( 434)
    2727             :        INTEGER N
    2728             :        DOUBLE PRECISION A,B,V
    2729             : !  
    2730             : !      LEBEDEV  434-POINT ANGULAR GRID
    2731             : !  
    2732             : !    
    2733             : !       This subroutine is part of a set of subroutines that generate
    2734             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    2735             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    2736             : !       translated into fortran by Dr. Christoph van Wuellen.
    2737             : !       This subroutine was translated using a C to fortran77 conversion
    2738             : !       tool written by Dr. Christoph van Wuellen.
    2739             : !    
    2740             : !       Users of this code are asked to include reference [1] in their
    2741             : !       publications, and in the user- and programmers-manuals 
    2742             : !       describing their codes.
    2743             : !    
    2744             : !       This code was distributed through CCL (http://www.ccl.net/).
    2745             : !    
    2746             : !       [1] V.I. Lebedev, and D.N. Laikov
    2747             : !           "A quadrature formula for the sphere of the 131st
    2748             : !            algebraic order of accuracy"
    2749             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    2750             : !    
    2751             : !       [2] V.I. Lebedev
    2752             : !           "A quadrature formula for the sphere of 59th algebraic
    2753             : !            order of accuracy"
    2754             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    2755             : !    
    2756             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    2757             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    2758             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    2759             : !    
    2760             : !       [4] V.I. Lebedev
    2761             : !           "Spherical quadrature formulas exact to orders 25-29"
    2762             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    2763             : !    
    2764             : !       [5] V.I. Lebedev
    2765             : !           "Quadratures on a sphere"
    2766             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    2767             : !           1976, pp. 10-24. 
    2768             : !    
    2769             : !       [6] V.I. Lebedev
    2770             : !           "Values of the nodes and weights of ninth to seventeenth 
    2771             : !            order Gauss-Markov quadrature formulae invariant under the
    2772             : !            octahedron group with inversion"
    2773             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    2774             : !           1975, pp. 44-51.
    2775             : !    
    2776           0 :        N=1
    2777           0 :        V=0.5265897968224436e-3
    2778           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2779           0 :        V=0.2548219972002607e-2
    2780           0 :        Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2781           0 :        V=0.2512317418927307e-2
    2782           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2783           0 :        A=0.6909346307509111
    2784           0 :        V=0.2530403801186355e-2
    2785           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2786           0 :        A=0.1774836054609158
    2787           0 :        V=0.2014279020918528e-2
    2788           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2789           0 :        A=0.4914342637784746
    2790           0 :        V=0.2501725168402936e-2
    2791           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2792           0 :        A=0.6456664707424256
    2793           0 :        V=0.2513267174597564e-2
    2794           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2795           0 :        A=0.2861289010307638
    2796           0 :        V=0.2302694782227416e-2
    2797           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2798           0 :        A=0.7568084367178018e-1
    2799           0 :        V=0.1462495621594614e-2
    2800           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2801           0 :        A=0.3927259763368002
    2802           0 :        V=0.2445373437312980e-2
    2803           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2804           0 :        A=0.8818132877794288
    2805           0 :        V=0.2417442375638981e-2
    2806           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2807           0 :        A=0.9776428111182649
    2808           0 :        V=0.1910951282179532e-2
    2809           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2810           0 :        A=0.2054823696403044
    2811           0 :        B=0.8689460322872412
    2812           0 :        V=0.2416930044324775e-2
    2813           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2814           0 :        A=0.5905157048925271
    2815           0 :        B=0.7999278543857286
    2816           0 :        V=0.2512236854563495e-2
    2817           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2818           0 :        A=0.5550152361076807
    2819           0 :        B=0.7717462626915901
    2820           0 :        V=0.2496644054553086e-2
    2821           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2822           0 :        A=0.9371809858553722
    2823           0 :        B=0.3344363145343455
    2824           0 :        V=0.2236607760437849e-2
    2825           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2826           0 :        N=N-1
    2827           0 :        RETURN
    2828             :        END
    2829           0 :        SUBROUTINE LD0590(X,Y,Z,W,N)
    2830             :        DOUBLE PRECISION X( 590)
    2831             :        DOUBLE PRECISION Y( 590)
    2832             :        DOUBLE PRECISION Z( 590)
    2833             :        DOUBLE PRECISION W( 590)
    2834             :        INTEGER N
    2835             :        DOUBLE PRECISION A,B,V
    2836             : !  
    2837             : !      LEBEDEV  590-POINT ANGULAR GRID
    2838             : !  
    2839             : !    
    2840             : !       This subroutine is part of a set of subroutines that generate
    2841             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    2842             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    2843             : !       translated into fortran by Dr. Christoph van Wuellen.
    2844             : !       This subroutine was translated using a C to fortran77 conversion
    2845             : !       tool written by Dr. Christoph van Wuellen.
    2846             : !    
    2847             : !       Users of this code are asked to include reference [1] in their
    2848             : !       publications, and in the user- and programmers-manuals 
    2849             : !       describing their codes.
    2850             : !    
    2851             : !       This code was distributed through CCL (http://www.ccl.net/).
    2852             : !    
    2853             : !       [1] V.I. Lebedev, and D.N. Laikov
    2854             : !           "A quadrature formula for the sphere of the 131st
    2855             : !            algebraic order of accuracy"
    2856             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    2857             : !    
    2858             : !       [2] V.I. Lebedev
    2859             : !           "A quadrature formula for the sphere of 59th algebraic
    2860             : !            order of accuracy"
    2861             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    2862             : !    
    2863             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    2864             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    2865             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    2866             : !    
    2867             : !       [4] V.I. Lebedev
    2868             : !           "Spherical quadrature formulas exact to orders 25-29"
    2869             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    2870             : !    
    2871             : !       [5] V.I. Lebedev
    2872             : !           "Quadratures on a sphere"
    2873             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    2874             : !           1976, pp. 10-24. 
    2875             : !    
    2876             : !       [6] V.I. Lebedev
    2877             : !           "Values of the nodes and weights of ninth to seventeenth 
    2878             : !            order Gauss-Markov quadrature formulae invariant under the
    2879             : !            octahedron group with inversion"
    2880             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    2881             : !           1975, pp. 44-51.
    2882             : !    
    2883           0 :        N=1
    2884           0 :        V=0.3095121295306187e-3
    2885           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2886           0 :        V=0.1852379698597489e-2
    2887           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2888           0 :        A=0.7040954938227469
    2889           0 :        V=0.1871790639277744e-2
    2890           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2891           0 :        A=0.6807744066455243
    2892           0 :        V=0.1858812585438317e-2
    2893           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2894           0 :        A=0.6372546939258752
    2895           0 :        V=0.1852028828296213e-2
    2896           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2897           0 :        A=0.5044419707800358
    2898           0 :        V=0.1846715956151242e-2
    2899           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2900           0 :        A=0.4215761784010967
    2901           0 :        V=0.1818471778162769e-2
    2902           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2903           0 :        A=0.3317920736472123
    2904           0 :        V=0.1749564657281154e-2
    2905           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2906           0 :        A=0.2384736701421887
    2907           0 :        V=0.1617210647254411e-2
    2908           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2909           0 :        A=0.1459036449157763
    2910           0 :        V=0.1384737234851692e-2
    2911           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2912           0 :        A=0.6095034115507196e-1
    2913           0 :        V=0.9764331165051050e-3
    2914           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2915           0 :        A=0.6116843442009876
    2916           0 :        V=0.1857161196774078e-2
    2917           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2918           0 :        A=0.3964755348199858
    2919           0 :        V=0.1705153996395864e-2
    2920           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2921           0 :        A=0.1724782009907724
    2922           0 :        V=0.1300321685886048e-2
    2923           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2924           0 :        A=0.5610263808622060
    2925           0 :        B=0.3518280927733519
    2926           0 :        V=0.1842866472905286e-2
    2927           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2928           0 :        A=0.4742392842551980
    2929           0 :        B=0.2634716655937950
    2930           0 :        V=0.1802658934377451e-2
    2931           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2932           0 :        A=0.5984126497885380
    2933           0 :        B=0.1816640840360209
    2934           0 :        V=0.1849830560443660e-2
    2935           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2936           0 :        A=0.3791035407695563
    2937           0 :        B=0.1720795225656878
    2938           0 :        V=0.1713904507106709e-2
    2939           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2940           0 :        A=0.2778673190586244
    2941           0 :        B=0.8213021581932511e-1
    2942           0 :        V=0.1555213603396808e-2
    2943           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2944           0 :        A=0.5033564271075117
    2945           0 :        B=0.8999205842074875e-1
    2946           0 :        V=0.1802239128008525e-2
    2947           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    2948           0 :        N=N-1
    2949           0 :        RETURN
    2950             :        END
    2951           0 :        SUBROUTINE LD0770(X,Y,Z,W,N)
    2952             :        DOUBLE PRECISION X( 770)
    2953             :        DOUBLE PRECISION Y( 770)
    2954             :        DOUBLE PRECISION Z( 770)
    2955             :        DOUBLE PRECISION W( 770)
    2956             :        INTEGER N
    2957             :        DOUBLE PRECISION A,B,V
    2958             : !  
    2959             : !      LEBEDEV  770-POINT ANGULAR GRID
    2960             : !  
    2961             : !    
    2962             : !       This subroutine is part of a set of subroutines that generate
    2963             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    2964             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    2965             : !       translated into fortran by Dr. Christoph van Wuellen.
    2966             : !       This subroutine was translated using a C to fortran77 conversion
    2967             : !       tool written by Dr. Christoph van Wuellen.
    2968             : !    
    2969             : !       Users of this code are asked to include reference [1] in their
    2970             : !       publications, and in the user- and programmers-manuals 
    2971             : !       describing their codes.
    2972             : !    
    2973             : !       This code was distributed through CCL (http://www.ccl.net/).
    2974             : !    
    2975             : !       [1] V.I. Lebedev, and D.N. Laikov
    2976             : !           "A quadrature formula for the sphere of the 131st
    2977             : !            algebraic order of accuracy"
    2978             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    2979             : !    
    2980             : !       [2] V.I. Lebedev
    2981             : !           "A quadrature formula for the sphere of 59th algebraic
    2982             : !            order of accuracy"
    2983             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    2984             : !    
    2985             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    2986             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    2987             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    2988             : !    
    2989             : !       [4] V.I. Lebedev
    2990             : !           "Spherical quadrature formulas exact to orders 25-29"
    2991             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    2992             : !    
    2993             : !       [5] V.I. Lebedev
    2994             : !           "Quadratures on a sphere"
    2995             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    2996             : !           1976, pp. 10-24. 
    2997             : !    
    2998             : !       [6] V.I. Lebedev
    2999             : !           "Values of the nodes and weights of ninth to seventeenth 
    3000             : !            order Gauss-Markov quadrature formulae invariant under the
    3001             : !            octahedron group with inversion"
    3002             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    3003             : !           1975, pp. 44-51.
    3004             : !    
    3005           0 :        N=1
    3006           0 :        V=0.2192942088181184e-3
    3007           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3008           0 :        V=0.1436433617319080e-2
    3009           0 :        Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3010           0 :        V=0.1421940344335877e-2
    3011           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3012           0 :        A=0.5087204410502360e-1
    3013           0 :        V=0.6798123511050502e-3
    3014           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3015           0 :        A=0.1228198790178831
    3016           0 :        V=0.9913184235294912e-3
    3017           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3018           0 :        A=0.2026890814408786
    3019           0 :        V=0.1180207833238949e-2
    3020           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3021           0 :        A=0.2847745156464294
    3022           0 :        V=0.1296599602080921e-2
    3023           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3024           0 :        A=0.3656719078978026
    3025           0 :        V=0.1365871427428316e-2
    3026           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3027           0 :        A=0.4428264886713469
    3028           0 :        V=0.1402988604775325e-2
    3029           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3030           0 :        A=0.5140619627249735
    3031           0 :        V=0.1418645563595609e-2
    3032           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3033           0 :        A=0.6306401219166803
    3034           0 :        V=0.1421376741851662e-2
    3035           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3036           0 :        A=0.6716883332022612
    3037           0 :        V=0.1423996475490962e-2
    3038           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3039           0 :        A=0.6979792685336881
    3040           0 :        V=0.1431554042178567e-2
    3041           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3042           0 :        A=0.1446865674195309
    3043           0 :        V=0.9254401499865368e-3
    3044           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3045           0 :        A=0.3390263475411216
    3046           0 :        V=0.1250239995053509e-2
    3047           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3048           0 :        A=0.5335804651263506
    3049           0 :        V=0.1394365843329230e-2
    3050           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3051           0 :        A=0.6944024393349413e-1
    3052           0 :        B=0.2355187894242326
    3053           0 :        V=0.1127089094671749e-2
    3054           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3055           0 :        A=0.2269004109529460
    3056           0 :        B=0.4102182474045730
    3057           0 :        V=0.1345753760910670e-2
    3058           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3059           0 :        A=0.8025574607775339e-1
    3060           0 :        B=0.6214302417481605
    3061           0 :        V=0.1424957283316783e-2
    3062           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3063           0 :        A=0.1467999527896572
    3064           0 :        B=0.3245284345717394
    3065           0 :        V=0.1261523341237750e-2
    3066           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3067           0 :        A=0.1571507769824727
    3068           0 :        B=0.5224482189696630
    3069           0 :        V=0.1392547106052696e-2
    3070           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3071           0 :        A=0.2365702993157246
    3072           0 :        B=0.6017546634089558
    3073           0 :        V=0.1418761677877656e-2
    3074           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3075           0 :        A=0.7714815866765732e-1
    3076           0 :        B=0.4346575516141163
    3077           0 :        V=0.1338366684479554e-2
    3078           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3079           0 :        A=0.3062936666210730
    3080           0 :        B=0.4908826589037616
    3081           0 :        V=0.1393700862676131e-2
    3082           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3083           0 :        A=0.3822477379524787
    3084           0 :        B=0.5648768149099500
    3085           0 :        V=0.1415914757466932e-2
    3086           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3087           0 :        N=N-1
    3088           0 :        RETURN
    3089             :        END
    3090           0 :        SUBROUTINE LD0974(X,Y,Z,W,N)
    3091             :        DOUBLE PRECISION X( 974)
    3092             :        DOUBLE PRECISION Y( 974)
    3093             :        DOUBLE PRECISION Z( 974)
    3094             :        DOUBLE PRECISION W( 974)
    3095             :        INTEGER N
    3096             :        DOUBLE PRECISION A,B,V
    3097             : !  
    3098             : !      LEBEDEV  974-POINT ANGULAR GRID
    3099             : !  
    3100             : !    
    3101             : !       This subroutine is part of a set of subroutines that generate
    3102             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    3103             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    3104             : !       translated into fortran by Dr. Christoph van Wuellen.
    3105             : !       This subroutine was translated using a C to fortran77 conversion
    3106             : !       tool written by Dr. Christoph van Wuellen.
    3107             : !    
    3108             : !       Users of this code are asked to include reference [1] in their
    3109             : !       publications, and in the user- and programmers-manuals 
    3110             : !       describing their codes.
    3111             : !    
    3112             : !       This code was distributed through CCL (http://www.ccl.net/).
    3113             : !    
    3114             : !       [1] V.I. Lebedev, and D.N. Laikov
    3115             : !           "A quadrature formula for the sphere of the 131st
    3116             : !            algebraic order of accuracy"
    3117             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    3118             : !    
    3119             : !       [2] V.I. Lebedev
    3120             : !           "A quadrature formula for the sphere of 59th algebraic
    3121             : !            order of accuracy"
    3122             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    3123             : !    
    3124             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    3125             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    3126             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    3127             : !    
    3128             : !       [4] V.I. Lebedev
    3129             : !           "Spherical quadrature formulas exact to orders 25-29"
    3130             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    3131             : !    
    3132             : !       [5] V.I. Lebedev
    3133             : !           "Quadratures on a sphere"
    3134             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    3135             : !           1976, pp. 10-24. 
    3136             : !    
    3137             : !       [6] V.I. Lebedev
    3138             : !           "Values of the nodes and weights of ninth to seventeenth 
    3139             : !            order Gauss-Markov quadrature formulae invariant under the
    3140             : !            octahedron group with inversion"
    3141             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    3142             : !           1975, pp. 44-51.
    3143             : !    
    3144           0 :        N=1
    3145           0 :        V=0.1438294190527431e-3
    3146           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3147           0 :        V=0.1125772288287004e-2
    3148           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3149           0 :        A=0.4292963545341347e-1
    3150           0 :        V=0.4948029341949241e-3
    3151           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3152           0 :        A=0.1051426854086404
    3153           0 :        V=0.7357990109125470e-3
    3154           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3155           0 :        A=0.1750024867623087
    3156           0 :        V=0.8889132771304384e-3
    3157           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3158           0 :        A=0.2477653379650257
    3159           0 :        V=0.9888347838921435e-3
    3160           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3161           0 :        A=0.3206567123955957
    3162           0 :        V=0.1053299681709471e-2
    3163           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3164           0 :        A=0.3916520749849983
    3165           0 :        V=0.1092778807014578e-2
    3166           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3167           0 :        A=0.4590825874187624
    3168           0 :        V=0.1114389394063227e-2
    3169           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3170           0 :        A=0.5214563888415861
    3171           0 :        V=0.1123724788051555e-2
    3172           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3173           0 :        A=0.6253170244654199
    3174           0 :        V=0.1125239325243814e-2
    3175           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3176           0 :        A=0.6637926744523170
    3177           0 :        V=0.1126153271815905e-2
    3178           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3179           0 :        A=0.6910410398498301
    3180           0 :        V=0.1130286931123841e-2
    3181           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3182           0 :        A=0.7052907007457760
    3183           0 :        V=0.1134986534363955e-2
    3184           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3185           0 :        A=0.1236686762657990
    3186           0 :        V=0.6823367927109931e-3
    3187           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3188           0 :        A=0.2940777114468387
    3189           0 :        V=0.9454158160447096e-3
    3190           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3191           0 :        A=0.4697753849207649
    3192           0 :        V=0.1074429975385679e-2
    3193           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3194           0 :        A=0.6334563241139567
    3195           0 :        V=0.1129300086569132e-2
    3196           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3197           0 :        A=0.5974048614181342e-1
    3198           0 :        B=0.2029128752777523
    3199           0 :        V=0.8436884500901954e-3
    3200           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3201           0 :        A=0.1375760408473636
    3202           0 :        B=0.4602621942484054
    3203           0 :        V=0.1075255720448885e-2
    3204           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3205           0 :        A=0.3391016526336286
    3206           0 :        B=0.5030673999662036
    3207           0 :        V=0.1108577236864462e-2
    3208           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3209           0 :        A=0.1271675191439820
    3210           0 :        B=0.2817606422442134
    3211           0 :        V=0.9566475323783357e-3
    3212           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3213           0 :        A=0.2693120740413512
    3214           0 :        B=0.4331561291720157
    3215           0 :        V=0.1080663250717391e-2
    3216           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3217           0 :        A=0.1419786452601918
    3218           0 :        B=0.6256167358580814
    3219           0 :        V=0.1126797131196295e-2
    3220           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3221           0 :        A=0.6709284600738255e-1
    3222           0 :        B=0.3798395216859157
    3223           0 :        V=0.1022568715358061e-2
    3224           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3225           0 :        A=0.7057738183256172e-1
    3226           0 :        B=0.5517505421423520
    3227           0 :        V=0.1108960267713108e-2
    3228           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3229           0 :        A=0.2783888477882155
    3230           0 :        B=0.6029619156159187
    3231           0 :        V=0.1122790653435766e-2
    3232           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3233           0 :        A=0.1979578938917407
    3234           0 :        B=0.3589606329589096
    3235           0 :        V=0.1032401847117460e-2
    3236           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3237           0 :        A=0.2087307061103274
    3238           0 :        B=0.5348666438135476
    3239           0 :        V=0.1107249382283854e-2
    3240           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3241           0 :        A=0.4055122137872836
    3242           0 :        B=0.5674997546074373
    3243           0 :        V=0.1121780048519972e-2
    3244           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3245           0 :        N=N-1
    3246           0 :        RETURN
    3247             :        END
    3248           0 :        SUBROUTINE LD1202(X,Y,Z,W,N)
    3249             :        DOUBLE PRECISION X(1202)
    3250             :        DOUBLE PRECISION Y(1202)
    3251             :        DOUBLE PRECISION Z(1202)
    3252             :        DOUBLE PRECISION W(1202)
    3253             :        INTEGER N
    3254             :        DOUBLE PRECISION A,B,V
    3255             : !  
    3256             : !      LEBEDEV 1202-POINT ANGULAR GRID
    3257             : !  
    3258             : !    
    3259             : !       This subroutine is part of a set of subroutines that generate
    3260             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    3261             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    3262             : !       translated into fortran by Dr. Christoph van Wuellen.
    3263             : !       This subroutine was translated using a C to fortran77 conversion
    3264             : !       tool written by Dr. Christoph van Wuellen.
    3265             : !    
    3266             : !       Users of this code are asked to include reference [1] in their
    3267             : !       publications, and in the user- and programmers-manuals 
    3268             : !       describing their codes.
    3269             : !    
    3270             : !       This code was distributed through CCL (http://www.ccl.net/).
    3271             : !    
    3272             : !       [1] V.I. Lebedev, and D.N. Laikov
    3273             : !           "A quadrature formula for the sphere of the 131st
    3274             : !            algebraic order of accuracy"
    3275             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    3276             : !    
    3277             : !       [2] V.I. Lebedev
    3278             : !           "A quadrature formula for the sphere of 59th algebraic
    3279             : !            order of accuracy"
    3280             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    3281             : !    
    3282             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    3283             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    3284             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    3285             : !    
    3286             : !       [4] V.I. Lebedev
    3287             : !           "Spherical quadrature formulas exact to orders 25-29"
    3288             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    3289             : !    
    3290             : !       [5] V.I. Lebedev
    3291             : !           "Quadratures on a sphere"
    3292             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    3293             : !           1976, pp. 10-24. 
    3294             : !    
    3295             : !       [6] V.I. Lebedev
    3296             : !           "Values of the nodes and weights of ninth to seventeenth 
    3297             : !            order Gauss-Markov quadrature formulae invariant under the
    3298             : !            octahedron group with inversion"
    3299             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    3300             : !           1975, pp. 44-51.
    3301             : !    
    3302           0 :        N=1
    3303           0 :        V=0.1105189233267572e-3
    3304           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3305           0 :        V=0.9205232738090741e-3
    3306           0 :        Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3307           0 :        V=0.9133159786443561e-3
    3308           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3309           0 :        A=0.3712636449657089e-1
    3310           0 :        V=0.3690421898017899e-3
    3311           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3312           0 :        A=0.9140060412262223e-1
    3313           0 :        V=0.5603990928680660e-3
    3314           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3315           0 :        A=0.1531077852469906
    3316           0 :        V=0.6865297629282609e-3
    3317           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3318           0 :        A=0.2180928891660612
    3319           0 :        V=0.7720338551145630e-3
    3320           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3321           0 :        A=0.2839874532200175
    3322           0 :        V=0.8301545958894795e-3
    3323           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3324           0 :        A=0.3491177600963764
    3325           0 :        V=0.8686692550179628e-3
    3326           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3327           0 :        A=0.4121431461444309
    3328           0 :        V=0.8927076285846890e-3
    3329           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3330           0 :        A=0.4718993627149127
    3331           0 :        V=0.9060820238568219e-3
    3332           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3333           0 :        A=0.5273145452842337
    3334           0 :        V=0.9119777254940867e-3
    3335           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3336           0 :        A=0.6209475332444019
    3337           0 :        V=0.9128720138604181e-3
    3338           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3339           0 :        A=0.6569722711857291
    3340           0 :        V=0.9130714935691735e-3
    3341           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3342           0 :        A=0.6841788309070143
    3343           0 :        V=0.9152873784554116e-3
    3344           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3345           0 :        A=0.7012604330123631
    3346           0 :        V=0.9187436274321654e-3
    3347           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3348           0 :        A=0.1072382215478166
    3349           0 :        V=0.5176977312965694e-3
    3350           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3351           0 :        A=0.2582068959496968
    3352           0 :        V=0.7331143682101417e-3
    3353           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3354           0 :        A=0.4172752955306717
    3355           0 :        V=0.8463232836379928e-3
    3356           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3357           0 :        A=0.5700366911792503
    3358           0 :        V=0.9031122694253992e-3
    3359           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3360           0 :        A=0.9827986018263947
    3361           0 :        B=0.1771774022615325
    3362           0 :        V=0.6485778453163257e-3
    3363           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3364           0 :        A=0.9624249230326228
    3365           0 :        B=0.2475716463426288
    3366           0 :        V=0.7435030910982369e-3
    3367           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3368           0 :        A=0.9402007994128811
    3369           0 :        B=0.3354616289066489
    3370           0 :        V=0.7998527891839054e-3
    3371           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3372           0 :        A=0.9320822040143202
    3373           0 :        B=0.3173615246611977
    3374           0 :        V=0.8101731497468018e-3
    3375           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3376           0 :        A=0.9043674199393299
    3377           0 :        B=0.4090268427085357
    3378           0 :        V=0.8483389574594331e-3
    3379           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3380           0 :        A=0.8912407560074747
    3381           0 :        B=0.3854291150669224
    3382           0 :        V=0.8556299257311812e-3
    3383           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3384           0 :        A=0.8676435628462708
    3385           0 :        B=0.4932221184851285
    3386           0 :        V=0.8803208679738260e-3
    3387           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3388           0 :        A=0.8581979986041619
    3389           0 :        B=0.4785320675922435
    3390           0 :        V=0.8811048182425720e-3
    3391           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3392           0 :        A=0.8396753624049856
    3393           0 :        B=0.4507422593157064
    3394           0 :        V=0.8850282341265444e-3
    3395           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3396           0 :        A=0.8165288564022188
    3397           0 :        B=0.5632123020762100
    3398           0 :        V=0.9021342299040653e-3
    3399           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3400           0 :        A=0.8015469370783529
    3401           0 :        B=0.5434303569693900
    3402           0 :        V=0.9010091677105086e-3
    3403           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3404           0 :        A=0.7773563069070351
    3405           0 :        B=0.5123518486419871
    3406           0 :        V=0.9022692938426915e-3
    3407           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3408           0 :        A=0.7661621213900394
    3409           0 :        B=0.6394279634749102
    3410           0 :        V=0.9158016174693465e-3
    3411           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3412           0 :        A=0.7553584143533510
    3413           0 :        B=0.6269805509024392
    3414           0 :        V=0.9131578003189435e-3
    3415           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3416           0 :        A=0.7344305757559503
    3417           0 :        B=0.6031161693096310
    3418           0 :        V=0.9107813579482705e-3
    3419           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3420           0 :        A=0.7043837184021765
    3421           0 :        B=0.5693702498468441
    3422           0 :        V=0.9105760258970126e-3
    3423           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3424           0 :        N=N-1
    3425           0 :        RETURN
    3426             :        END
    3427           0 :        SUBROUTINE LD1454(X,Y,Z,W,N)
    3428             :        DOUBLE PRECISION X(1454)
    3429             :        DOUBLE PRECISION Y(1454)
    3430             :        DOUBLE PRECISION Z(1454)
    3431             :        DOUBLE PRECISION W(1454)
    3432             :        INTEGER N
    3433             :        DOUBLE PRECISION A,B,V
    3434             : !  
    3435             : !      LEBEDEV 1454-POINT ANGULAR GRID
    3436             : !  
    3437             : !    
    3438             : !       This subroutine is part of a set of subroutines that generate
    3439             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    3440             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    3441             : !       translated into fortran by Dr. Christoph van Wuellen.
    3442             : !       This subroutine was translated using a C to fortran77 conversion
    3443             : !       tool written by Dr. Christoph van Wuellen.
    3444             : !    
    3445             : !       Users of this code are asked to include reference [1] in their
    3446             : !       publications, and in the user- and programmers-manuals 
    3447             : !       describing their codes.
    3448             : !    
    3449             : !       This code was distributed through CCL (http://www.ccl.net/).
    3450             : !    
    3451             : !       [1] V.I. Lebedev, and D.N. Laikov
    3452             : !           "A quadrature formula for the sphere of the 131st
    3453             : !            algebraic order of accuracy"
    3454             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    3455             : !    
    3456             : !       [2] V.I. Lebedev
    3457             : !           "A quadrature formula for the sphere of 59th algebraic
    3458             : !            order of accuracy"
    3459             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    3460             : !    
    3461             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    3462             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    3463             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    3464             : !    
    3465             : !       [4] V.I. Lebedev
    3466             : !           "Spherical quadrature formulas exact to orders 25-29"
    3467             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    3468             : !    
    3469             : !       [5] V.I. Lebedev
    3470             : !           "Quadratures on a sphere"
    3471             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    3472             : !           1976, pp. 10-24. 
    3473             : !    
    3474             : !       [6] V.I. Lebedev
    3475             : !           "Values of the nodes and weights of ninth to seventeenth 
    3476             : !            order Gauss-Markov quadrature formulae invariant under the
    3477             : !            octahedron group with inversion"
    3478             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    3479             : !           1975, pp. 44-51.
    3480             : !    
    3481           0 :        N=1
    3482           0 :        V=0.7777160743261247e-4
    3483           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3484           0 :        V=0.7557646413004701e-3
    3485           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3486           0 :        A=0.3229290663413854e-1
    3487           0 :        V=0.2841633806090617e-3
    3488           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3489           0 :        A=0.8036733271462222e-1
    3490           0 :        V=0.4374419127053555e-3
    3491           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3492           0 :        A=0.1354289960531653
    3493           0 :        V=0.5417174740872172e-3
    3494           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3495           0 :        A=0.1938963861114426
    3496           0 :        V=0.6148000891358593e-3
    3497           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3498           0 :        A=0.2537343715011275
    3499           0 :        V=0.6664394485800705e-3
    3500           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3501           0 :        A=0.3135251434752570
    3502           0 :        V=0.7025039356923220e-3
    3503           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3504           0 :        A=0.3721558339375338
    3505           0 :        V=0.7268511789249627e-3
    3506           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3507           0 :        A=0.4286809575195696
    3508           0 :        V=0.7422637534208629e-3
    3509           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3510           0 :        A=0.4822510128282994
    3511           0 :        V=0.7509545035841214e-3
    3512           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3513           0 :        A=0.5320679333566263
    3514           0 :        V=0.7548535057718401e-3
    3515           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3516           0 :        A=0.6172998195394274
    3517           0 :        V=0.7554088969774001e-3
    3518           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3519           0 :        A=0.6510679849127481
    3520           0 :        V=0.7553147174442808e-3
    3521           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3522           0 :        A=0.6777315251687360
    3523           0 :        V=0.7564767653292297e-3
    3524           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3525           0 :        A=0.6963109410648741
    3526           0 :        V=0.7587991808518730e-3
    3527           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3528           0 :        A=0.7058935009831749
    3529           0 :        V=0.7608261832033027e-3
    3530           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3531           0 :        A=0.9955546194091857
    3532           0 :        V=0.4021680447874916e-3
    3533           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3534           0 :        A=0.9734115901794209
    3535           0 :        V=0.5804871793945964e-3
    3536           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3537           0 :        A=0.9275693732388626
    3538           0 :        V=0.6792151955945159e-3
    3539           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3540           0 :        A=0.8568022422795103
    3541           0 :        V=0.7336741211286294e-3
    3542           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3543           0 :        A=0.7623495553719372
    3544           0 :        V=0.7581866300989608e-3
    3545           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3546           0 :        A=0.5707522908892223
    3547           0 :        B=0.4387028039889501
    3548           0 :        V=0.7538257859800743e-3
    3549           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3550           0 :        A=0.5196463388403083
    3551           0 :        B=0.3858908414762617
    3552           0 :        V=0.7483517247053123e-3
    3553           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3554           0 :        A=0.4646337531215351
    3555           0 :        B=0.3301937372343854
    3556           0 :        V=0.7371763661112059e-3
    3557           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3558           0 :        A=0.4063901697557691
    3559           0 :        B=0.2725423573563777
    3560           0 :        V=0.7183448895756934e-3
    3561           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3562           0 :        A=0.3456329466643087
    3563           0 :        B=0.2139510237495250
    3564           0 :        V=0.6895815529822191e-3
    3565           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3566           0 :        A=0.2831395121050332
    3567           0 :        B=0.1555922309786647
    3568           0 :        V=0.6480105801792886e-3
    3569           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3570           0 :        A=0.2197682022925330
    3571           0 :        B=0.9892878979686097e-1
    3572           0 :        V=0.5897558896594636e-3
    3573           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3574           0 :        A=0.1564696098650355
    3575           0 :        B=0.4598642910675510e-1
    3576           0 :        V=0.5095708849247346e-3
    3577           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3578           0 :        A=0.6027356673721295
    3579           0 :        B=0.3376625140173426
    3580           0 :        V=0.7536906428909755e-3
    3581           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3582           0 :        A=0.5496032320255096
    3583           0 :        B=0.2822301309727988
    3584           0 :        V=0.7472505965575118e-3
    3585           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3586           0 :        A=0.4921707755234567
    3587           0 :        B=0.2248632342592540
    3588           0 :        V=0.7343017132279698e-3
    3589           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3590           0 :        A=0.4309422998598483
    3591           0 :        B=0.1666224723456479
    3592           0 :        V=0.7130871582177445e-3
    3593           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3594           0 :        A=0.3664108182313672
    3595           0 :        B=0.1086964901822169
    3596           0 :        V=0.6817022032112776e-3
    3597           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3598           0 :        A=0.2990189057758436
    3599           0 :        B=0.5251989784120085e-1
    3600           0 :        V=0.6380941145604121e-3
    3601           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3602           0 :        A=0.6268724013144998
    3603           0 :        B=0.2297523657550023
    3604           0 :        V=0.7550381377920310e-3
    3605           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3606           0 :        A=0.5707324144834607
    3607           0 :        B=0.1723080607093800
    3608           0 :        V=0.7478646640144802e-3
    3609           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3610           0 :        A=0.5096360901960365
    3611           0 :        B=0.1140238465390513
    3612           0 :        V=0.7335918720601220e-3
    3613           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3614           0 :        A=0.4438729938312456
    3615           0 :        B=0.5611522095882537e-1
    3616           0 :        V=0.7110120527658118e-3
    3617           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3618           0 :        A=0.6419978471082389
    3619           0 :        B=0.1164174423140873
    3620           0 :        V=0.7571363978689501e-3
    3621           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3622           0 :        A=0.5817218061802611
    3623           0 :        B=0.5797589531445219e-1
    3624           0 :        V=0.7489908329079234e-3
    3625           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3626           0 :        N=N-1
    3627           0 :        RETURN
    3628             :        END
    3629           0 :        SUBROUTINE LD1730(X,Y,Z,W,N)
    3630             :        DOUBLE PRECISION X(1730)
    3631             :        DOUBLE PRECISION Y(1730)
    3632             :        DOUBLE PRECISION Z(1730)
    3633             :        DOUBLE PRECISION W(1730)
    3634             :        INTEGER N
    3635             :        DOUBLE PRECISION A,B,V
    3636             : !  
    3637             : !      LEBEDEV 1730-POINT ANGULAR GRID
    3638             : !  
    3639             : !    
    3640             : !       This subroutine is part of a set of subroutines that generate
    3641             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    3642             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    3643             : !       translated into fortran by Dr. Christoph van Wuellen.
    3644             : !       This subroutine was translated using a C to fortran77 conversion
    3645             : !       tool written by Dr. Christoph van Wuellen.
    3646             : !    
    3647             : !       Users of this code are asked to include reference [1] in their
    3648             : !       publications, and in the user- and programmers-manuals 
    3649             : !       describing their codes.
    3650             : !    
    3651             : !       This code was distributed through CCL (http://www.ccl.net/).
    3652             : !    
    3653             : !       [1] V.I. Lebedev, and D.N. Laikov
    3654             : !           "A quadrature formula for the sphere of the 131st
    3655             : !            algebraic order of accuracy"
    3656             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    3657             : !    
    3658             : !       [2] V.I. Lebedev
    3659             : !           "A quadrature formula for the sphere of 59th algebraic
    3660             : !            order of accuracy"
    3661             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    3662             : !    
    3663             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    3664             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    3665             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    3666             : !    
    3667             : !       [4] V.I. Lebedev
    3668             : !           "Spherical quadrature formulas exact to orders 25-29"
    3669             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    3670             : !    
    3671             : !       [5] V.I. Lebedev
    3672             : !           "Quadratures on a sphere"
    3673             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    3674             : !           1976, pp. 10-24. 
    3675             : !    
    3676             : !       [6] V.I. Lebedev
    3677             : !           "Values of the nodes and weights of ninth to seventeenth 
    3678             : !            order Gauss-Markov quadrature formulae invariant under the
    3679             : !            octahedron group with inversion"
    3680             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    3681             : !           1975, pp. 44-51.
    3682             : !    
    3683           0 :        N=1
    3684           0 :        V=0.6309049437420976e-4
    3685           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3686           0 :        V=0.6398287705571748e-3
    3687           0 :        Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3688           0 :        V=0.6357185073530720e-3
    3689           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3690           0 :        A=0.2860923126194662e-1
    3691           0 :        V=0.2221207162188168e-3
    3692           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3693           0 :        A=0.7142556767711522e-1
    3694           0 :        V=0.3475784022286848e-3
    3695           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3696           0 :        A=0.1209199540995559
    3697           0 :        V=0.4350742443589804e-3
    3698           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3699           0 :        A=0.1738673106594379
    3700           0 :        V=0.4978569136522127e-3
    3701           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3702           0 :        A=0.2284645438467734
    3703           0 :        V=0.5435036221998053e-3
    3704           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3705           0 :        A=0.2834807671701512
    3706           0 :        V=0.5765913388219542e-3
    3707           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3708           0 :        A=0.3379680145467339
    3709           0 :        V=0.6001200359226003e-3
    3710           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3711           0 :        A=0.3911355454819537
    3712           0 :        V=0.6162178172717512e-3
    3713           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3714           0 :        A=0.4422860353001403
    3715           0 :        V=0.6265218152438485e-3
    3716           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3717           0 :        A=0.4907781568726057
    3718           0 :        V=0.6323987160974212e-3
    3719           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3720           0 :        A=0.5360006153211468
    3721           0 :        V=0.6350767851540569e-3
    3722           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3723           0 :        A=0.6142105973596603
    3724           0 :        V=0.6354362775297107e-3
    3725           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3726           0 :        A=0.6459300387977504
    3727           0 :        V=0.6352302462706235e-3
    3728           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3729           0 :        A=0.6718056125089225
    3730           0 :        V=0.6358117881417972e-3
    3731           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3732           0 :        A=0.6910888533186254
    3733           0 :        V=0.6373101590310117e-3
    3734           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3735           0 :        A=0.7030467416823252
    3736           0 :        V=0.6390428961368665e-3
    3737           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3738           0 :        A=0.8354951166354646e-1
    3739           0 :        V=0.3186913449946576e-3
    3740           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3741           0 :        A=0.2050143009099486
    3742           0 :        V=0.4678028558591711e-3
    3743           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3744           0 :        A=0.3370208290706637
    3745           0 :        V=0.5538829697598626e-3
    3746           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3747           0 :        A=0.4689051484233963
    3748           0 :        V=0.6044475907190476e-3
    3749           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3750           0 :        A=0.5939400424557334
    3751           0 :        V=0.6313575103509012e-3
    3752           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3753           0 :        A=0.1394983311832261
    3754           0 :        B=0.4097581162050343e-1
    3755           0 :        V=0.4078626431855630e-3
    3756           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3757           0 :        A=0.1967999180485014
    3758           0 :        B=0.8851987391293348e-1
    3759           0 :        V=0.4759933057812725e-3
    3760           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3761           0 :        A=0.2546183732548967
    3762           0 :        B=0.1397680182969819
    3763           0 :        V=0.5268151186413440e-3
    3764           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3765           0 :        A=0.3121281074713875
    3766           0 :        B=0.1929452542226526
    3767           0 :        V=0.5643048560507316e-3
    3768           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3769           0 :        A=0.3685981078502492
    3770           0 :        B=0.2467898337061562
    3771           0 :        V=0.5914501076613073e-3
    3772           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3773           0 :        A=0.4233760321547856
    3774           0 :        B=0.3003104124785409
    3775           0 :        V=0.6104561257874195e-3
    3776           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3777           0 :        A=0.4758671236059246
    3778           0 :        B=0.3526684328175033
    3779           0 :        V=0.6230252860707806e-3
    3780           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3781           0 :        A=0.5255178579796463
    3782           0 :        B=0.4031134861145713
    3783           0 :        V=0.6305618761760796e-3
    3784           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3785           0 :        A=0.5718025633734589
    3786           0 :        B=0.4509426448342351
    3787           0 :        V=0.6343092767597889e-3
    3788           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3789           0 :        A=0.2686927772723415
    3790           0 :        B=0.4711322502423248e-1
    3791           0 :        V=0.5176268945737826e-3
    3792           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3793           0 :        A=0.3306006819904809
    3794           0 :        B=0.9784487303942695e-1
    3795           0 :        V=0.5564840313313692e-3
    3796           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3797           0 :        A=0.3904906850594983
    3798           0 :        B=0.1505395810025273
    3799           0 :        V=0.5856426671038980e-3
    3800           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3801           0 :        A=0.4479957951904390
    3802           0 :        B=0.2039728156296050
    3803           0 :        V=0.6066386925777091e-3
    3804           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3805           0 :        A=0.5027076848919780
    3806           0 :        B=0.2571529941121107
    3807           0 :        V=0.6208824962234458e-3
    3808           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3809           0 :        A=0.5542087392260217
    3810           0 :        B=0.3092191375815670
    3811           0 :        V=0.6296314297822907e-3
    3812           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3813           0 :        A=0.6020850887375187
    3814           0 :        B=0.3593807506130276
    3815           0 :        V=0.6340423756791859e-3
    3816           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3817           0 :        A=0.4019851409179594
    3818           0 :        B=0.5063389934378671e-1
    3819           0 :        V=0.5829627677107342e-3
    3820           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3821           0 :        A=0.4635614567449800
    3822           0 :        B=0.1032422269160612
    3823           0 :        V=0.6048693376081110e-3
    3824           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3825           0 :        A=0.5215860931591575
    3826           0 :        B=0.1566322094006254
    3827           0 :        V=0.6202362317732461e-3
    3828           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3829           0 :        A=0.5758202499099271
    3830           0 :        B=0.2098082827491099
    3831           0 :        V=0.6299005328403779e-3
    3832           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3833           0 :        A=0.6259893683876795
    3834           0 :        B=0.2618824114553391
    3835           0 :        V=0.6347722390609353e-3
    3836           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3837           0 :        A=0.5313795124811891
    3838           0 :        B=0.5263245019338556e-1
    3839           0 :        V=0.6203778981238834e-3
    3840           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3841           0 :        A=0.5893317955931995
    3842           0 :        B=0.1061059730982005
    3843           0 :        V=0.6308414671239979e-3
    3844           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3845           0 :        A=0.6426246321215801
    3846           0 :        B=0.1594171564034221
    3847           0 :        V=0.6362706466959498e-3
    3848           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3849           0 :        A=0.6511904367376113
    3850           0 :        B=0.5354789536565540e-1
    3851           0 :        V=0.6375414170333233e-3
    3852           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3853           0 :        N=N-1
    3854           0 :        RETURN
    3855             :        END
    3856           0 :        SUBROUTINE LD2030(X,Y,Z,W,N)
    3857             :        DOUBLE PRECISION X(2030)
    3858             :        DOUBLE PRECISION Y(2030)
    3859             :        DOUBLE PRECISION Z(2030)
    3860             :        DOUBLE PRECISION W(2030)
    3861             :        INTEGER N
    3862             :        DOUBLE PRECISION A,B,V
    3863             : !  
    3864             : !      LEBEDEV 2030-POINT ANGULAR GRID
    3865             : !  
    3866             : !    
    3867             : !       This subroutine is part of a set of subroutines that generate
    3868             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    3869             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    3870             : !       translated into fortran by Dr. Christoph van Wuellen.
    3871             : !       This subroutine was translated using a C to fortran77 conversion
    3872             : !       tool written by Dr. Christoph van Wuellen.
    3873             : !    
    3874             : !       Users of this code are asked to include reference [1] in their
    3875             : !       publications, and in the user- and programmers-manuals 
    3876             : !       describing their codes.
    3877             : !    
    3878             : !       This code was distributed through CCL (http://www.ccl.net/).
    3879             : !    
    3880             : !       [1] V.I. Lebedev, and D.N. Laikov
    3881             : !           "A quadrature formula for the sphere of the 131st
    3882             : !            algebraic order of accuracy"
    3883             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    3884             : !    
    3885             : !       [2] V.I. Lebedev
    3886             : !           "A quadrature formula for the sphere of 59th algebraic
    3887             : !            order of accuracy"
    3888             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    3889             : !    
    3890             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    3891             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    3892             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    3893             : !    
    3894             : !       [4] V.I. Lebedev
    3895             : !           "Spherical quadrature formulas exact to orders 25-29"
    3896             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    3897             : !    
    3898             : !       [5] V.I. Lebedev
    3899             : !           "Quadratures on a sphere"
    3900             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    3901             : !           1976, pp. 10-24. 
    3902             : !    
    3903             : !       [6] V.I. Lebedev
    3904             : !           "Values of the nodes and weights of ninth to seventeenth 
    3905             : !            order Gauss-Markov quadrature formulae invariant under the
    3906             : !            octahedron group with inversion"
    3907             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    3908             : !           1975, pp. 44-51.
    3909             : !    
    3910           0 :        N=1
    3911           0 :        V=0.4656031899197431e-4
    3912           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3913           0 :        V=0.5421549195295507e-3
    3914           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3915           0 :        A=0.2540835336814348e-1
    3916           0 :        V=0.1778522133346553e-3
    3917           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3918           0 :        A=0.6399322800504915e-1
    3919           0 :        V=0.2811325405682796e-3
    3920           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3921           0 :        A=0.1088269469804125
    3922           0 :        V=0.3548896312631459e-3
    3923           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3924           0 :        A=0.1570670798818287
    3925           0 :        V=0.4090310897173364e-3
    3926           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3927           0 :        A=0.2071163932282514
    3928           0 :        V=0.4493286134169965e-3
    3929           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3930           0 :        A=0.2578914044450844
    3931           0 :        V=0.4793728447962723e-3
    3932           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3933           0 :        A=0.3085687558169623
    3934           0 :        V=0.5015415319164265e-3
    3935           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3936           0 :        A=0.3584719706267024
    3937           0 :        V=0.5175127372677937e-3
    3938           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3939           0 :        A=0.4070135594428709
    3940           0 :        V=0.5285522262081019e-3
    3941           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3942           0 :        A=0.4536618626222638
    3943           0 :        V=0.5356832703713962e-3
    3944           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3945           0 :        A=0.4979195686463577
    3946           0 :        V=0.5397914736175170e-3
    3947           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3948           0 :        A=0.5393075111126999
    3949           0 :        V=0.5416899441599930e-3
    3950           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3951           0 :        A=0.6115617676843916
    3952           0 :        V=0.5419308476889938e-3
    3953           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3954           0 :        A=0.6414308435160159
    3955           0 :        V=0.5416936902030596e-3
    3956           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3957           0 :        A=0.6664099412721607
    3958           0 :        V=0.5419544338703164e-3
    3959           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3960           0 :        A=0.6859161771214913
    3961           0 :        V=0.5428983656630975e-3
    3962           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3963           0 :        A=0.6993625593503890
    3964           0 :        V=0.5442286500098193e-3
    3965           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3966           0 :        A=0.7062393387719380
    3967           0 :        V=0.5452250345057301e-3
    3968           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3969           0 :        A=0.7479028168349763e-1
    3970           0 :        V=0.2568002497728530e-3
    3971           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3972           0 :        A=0.1848951153969366
    3973           0 :        V=0.3827211700292145e-3
    3974           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3975           0 :        A=0.3059529066581305
    3976           0 :        V=0.4579491561917824e-3
    3977           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3978           0 :        A=0.4285556101021362
    3979           0 :        V=0.5042003969083574e-3
    3980           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3981           0 :        A=0.5468758653496526
    3982           0 :        V=0.5312708889976025e-3
    3983           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3984           0 :        A=0.6565821978343439
    3985           0 :        V=0.5438401790747117e-3
    3986           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3987           0 :        A=0.1253901572367117
    3988           0 :        B=0.3681917226439641e-1
    3989           0 :        V=0.3316041873197344e-3
    3990           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3991           0 :        A=0.1775721510383941
    3992           0 :        B=0.7982487607213301e-1
    3993           0 :        V=0.3899113567153771e-3
    3994           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3995           0 :        A=0.2305693358216114
    3996           0 :        B=0.1264640966592335
    3997           0 :        V=0.4343343327201309e-3
    3998           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    3999           0 :        A=0.2836502845992063
    4000           0 :        B=0.1751585683418957
    4001           0 :        V=0.4679415262318919e-3
    4002           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4003           0 :        A=0.3361794746232590
    4004           0 :        B=0.2247995907632670
    4005           0 :        V=0.4930847981631031e-3
    4006           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4007           0 :        A=0.3875979172264824
    4008           0 :        B=0.2745299257422246
    4009           0 :        V=0.5115031867540091e-3
    4010           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4011           0 :        A=0.4374019316999074
    4012           0 :        B=0.3236373482441118
    4013           0 :        V=0.5245217148457367e-3
    4014           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4015           0 :        A=0.4851275843340022
    4016           0 :        B=0.3714967859436741
    4017           0 :        V=0.5332041499895321e-3
    4018           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4019           0 :        A=0.5303391803806868
    4020           0 :        B=0.4175353646321745
    4021           0 :        V=0.5384583126021542e-3
    4022           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4023           0 :        A=0.5726197380596287
    4024           0 :        B=0.4612084406355461
    4025           0 :        V=0.5411067210798852e-3
    4026           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4027           0 :        A=0.2431520732564863
    4028           0 :        B=0.4258040133043952e-1
    4029           0 :        V=0.4259797391468714e-3
    4030           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4031           0 :        A=0.3002096800895869
    4032           0 :        B=0.8869424306722721e-1
    4033           0 :        V=0.4604931368460021e-3
    4034           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4035           0 :        A=0.3558554457457432
    4036           0 :        B=0.1368811706510655
    4037           0 :        V=0.4871814878255202e-3
    4038           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4039           0 :        A=0.4097782537048887
    4040           0 :        B=0.1860739985015033
    4041           0 :        V=0.5072242910074885e-3
    4042           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4043           0 :        A=0.4616337666067458
    4044           0 :        B=0.2354235077395853
    4045           0 :        V=0.5217069845235350e-3
    4046           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4047           0 :        A=0.5110707008417874
    4048           0 :        B=0.2842074921347011
    4049           0 :        V=0.5315785966280310e-3
    4050           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4051           0 :        A=0.5577415286163795
    4052           0 :        B=0.3317784414984102
    4053           0 :        V=0.5376833708758905e-3
    4054           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4055           0 :        A=0.6013060431366950
    4056           0 :        B=0.3775299002040700
    4057           0 :        V=0.5408032092069521e-3
    4058           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4059           0 :        A=0.3661596767261781
    4060           0 :        B=0.4599367887164592e-1
    4061           0 :        V=0.4842744917904866e-3
    4062           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4063           0 :        A=0.4237633153506581
    4064           0 :        B=0.9404893773654421e-1
    4065           0 :        V=0.5048926076188130e-3
    4066           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4067           0 :        A=0.4786328454658452
    4068           0 :        B=0.1431377109091971
    4069           0 :        V=0.5202607980478373e-3
    4070           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4071           0 :        A=0.5305702076789774
    4072           0 :        B=0.1924186388843570
    4073           0 :        V=0.5309932388325743e-3
    4074           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4075           0 :        A=0.5793436224231788
    4076           0 :        B=0.2411590944775190
    4077           0 :        V=0.5377419770895208e-3
    4078           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4079           0 :        A=0.6247069017094747
    4080           0 :        B=0.2886871491583605
    4081           0 :        V=0.5411696331677717e-3
    4082           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4083           0 :        A=0.4874315552535204
    4084           0 :        B=0.4804978774953206e-1
    4085           0 :        V=0.5197996293282420e-3
    4086           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4087           0 :        A=0.5427337322059053
    4088           0 :        B=0.9716857199366665e-1
    4089           0 :        V=0.5311120836622945e-3
    4090           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4091           0 :        A=0.5943493747246700
    4092           0 :        B=0.1465205839795055
    4093           0 :        V=0.5384309319956951e-3
    4094           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4095           0 :        A=0.6421314033564943
    4096           0 :        B=0.1953579449803574
    4097           0 :        V=0.5421859504051886e-3
    4098           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4099           0 :        A=0.6020628374713980
    4100           0 :        B=0.4916375015738108e-1
    4101           0 :        V=0.5390948355046314e-3
    4102           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4103           0 :        A=0.6529222529856881
    4104           0 :        B=0.9861621540127005e-1
    4105           0 :        V=0.5433312705027845e-3
    4106           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4107           0 :        N=N-1
    4108           0 :        RETURN
    4109             :        END
    4110           0 :        SUBROUTINE LD2354(X,Y,Z,W,N)
    4111             :        DOUBLE PRECISION X(2354)
    4112             :        DOUBLE PRECISION Y(2354)
    4113             :        DOUBLE PRECISION Z(2354)
    4114             :        DOUBLE PRECISION W(2354)
    4115             :        INTEGER N
    4116             :        DOUBLE PRECISION A,B,V
    4117             : !  
    4118             : !      LEBEDEV 2354-POINT ANGULAR GRID
    4119             : !  
    4120             : !    
    4121             : !       This subroutine is part of a set of subroutines that generate
    4122             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    4123             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    4124             : !       translated into fortran by Dr. Christoph van Wuellen.
    4125             : !       This subroutine was translated using a C to fortran77 conversion
    4126             : !       tool written by Dr. Christoph van Wuellen.
    4127             : !    
    4128             : !       Users of this code are asked to include reference [1] in their
    4129             : !       publications, and in the user- and programmers-manuals 
    4130             : !       describing their codes.
    4131             : !    
    4132             : !       This code was distributed through CCL (http://www.ccl.net/).
    4133             : !    
    4134             : !       [1] V.I. Lebedev, and D.N. Laikov
    4135             : !           "A quadrature formula for the sphere of the 131st
    4136             : !            algebraic order of accuracy"
    4137             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    4138             : !    
    4139             : !       [2] V.I. Lebedev
    4140             : !           "A quadrature formula for the sphere of 59th algebraic
    4141             : !            order of accuracy"
    4142             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    4143             : !    
    4144             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    4145             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    4146             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    4147             : !    
    4148             : !       [4] V.I. Lebedev
    4149             : !           "Spherical quadrature formulas exact to orders 25-29"
    4150             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    4151             : !    
    4152             : !       [5] V.I. Lebedev
    4153             : !           "Quadratures on a sphere"
    4154             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    4155             : !           1976, pp. 10-24. 
    4156             : !    
    4157             : !       [6] V.I. Lebedev
    4158             : !           "Values of the nodes and weights of ninth to seventeenth 
    4159             : !            order Gauss-Markov quadrature formulae invariant under the
    4160             : !            octahedron group with inversion"
    4161             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    4162             : !           1975, pp. 44-51.
    4163             : !    
    4164           0 :        N=1
    4165           0 :        V=0.3922616270665292e-4
    4166           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4167           0 :        V=0.4703831750854424e-3
    4168           0 :        Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4169           0 :        V=0.4678202801282136e-3
    4170           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4171           0 :        A=0.2290024646530589e-1
    4172           0 :        V=0.1437832228979900e-3
    4173           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4174           0 :        A=0.5779086652271284e-1
    4175           0 :        V=0.2303572493577644e-3
    4176           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4177           0 :        A=0.9863103576375984e-1
    4178           0 :        V=0.2933110752447454e-3
    4179           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4180           0 :        A=0.1428155792982185
    4181           0 :        V=0.3402905998359838e-3
    4182           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4183           0 :        A=0.1888978116601463
    4184           0 :        V=0.3759138466870372e-3
    4185           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4186           0 :        A=0.2359091682970210
    4187           0 :        V=0.4030638447899798e-3
    4188           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4189           0 :        A=0.2831228833706171
    4190           0 :        V=0.4236591432242211e-3
    4191           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4192           0 :        A=0.3299495857966693
    4193           0 :        V=0.4390522656946746e-3
    4194           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4195           0 :        A=0.3758840802660796
    4196           0 :        V=0.4502523466626247e-3
    4197           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4198           0 :        A=0.4204751831009480
    4199           0 :        V=0.4580577727783541e-3
    4200           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4201           0 :        A=0.4633068518751051
    4202           0 :        V=0.4631391616615899e-3
    4203           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4204           0 :        A=0.5039849474507313
    4205           0 :        V=0.4660928953698676e-3
    4206           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4207           0 :        A=0.5421265793440747
    4208           0 :        V=0.4674751807936953e-3
    4209           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4210           0 :        A=0.6092660230557310
    4211           0 :        V=0.4676414903932920e-3
    4212           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4213           0 :        A=0.6374654204984869
    4214           0 :        V=0.4674086492347870e-3
    4215           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4216           0 :        A=0.6615136472609892
    4217           0 :        V=0.4674928539483207e-3
    4218           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4219           0 :        A=0.6809487285958127
    4220           0 :        V=0.4680748979686447e-3
    4221           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4222           0 :        A=0.6952980021665196
    4223           0 :        V=0.4690449806389040e-3
    4224           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4225           0 :        A=0.7041245497695400
    4226           0 :        V=0.4699877075860818e-3
    4227           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4228           0 :        A=0.6744033088306065e-1
    4229           0 :        V=0.2099942281069176e-3
    4230           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4231           0 :        A=0.1678684485334166
    4232           0 :        V=0.3172269150712804e-3
    4233           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4234           0 :        A=0.2793559049539613
    4235           0 :        V=0.3832051358546523e-3
    4236           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4237           0 :        A=0.3935264218057639
    4238           0 :        V=0.4252193818146985e-3
    4239           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4240           0 :        A=0.5052629268232558
    4241           0 :        V=0.4513807963755000e-3
    4242           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4243           0 :        A=0.6107905315437531
    4244           0 :        V=0.4657797469114178e-3
    4245           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4246           0 :        A=0.1135081039843524
    4247           0 :        B=0.3331954884662588e-1
    4248           0 :        V=0.2733362800522836e-3
    4249           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4250           0 :        A=0.1612866626099378
    4251           0 :        B=0.7247167465436538e-1
    4252           0 :        V=0.3235485368463559e-3
    4253           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4254           0 :        A=0.2100786550168205
    4255           0 :        B=0.1151539110849745
    4256           0 :        V=0.3624908726013453e-3
    4257           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4258           0 :        A=0.2592282009459942
    4259           0 :        B=0.1599491097143677
    4260           0 :        V=0.3925540070712828e-3
    4261           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4262           0 :        A=0.3081740561320203
    4263           0 :        B=0.2058699956028027
    4264           0 :        V=0.4156129781116235e-3
    4265           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4266           0 :        A=0.3564289781578164
    4267           0 :        B=0.2521624953502911
    4268           0 :        V=0.4330644984623263e-3
    4269           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4270           0 :        A=0.4035587288240703
    4271           0 :        B=0.2982090785797674
    4272           0 :        V=0.4459677725921312e-3
    4273           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4274           0 :        A=0.4491671196373903
    4275           0 :        B=0.3434762087235733
    4276           0 :        V=0.4551593004456795e-3
    4277           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4278           0 :        A=0.4928854782917489
    4279           0 :        B=0.3874831357203437
    4280           0 :        V=0.4613341462749918e-3
    4281           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4282           0 :        A=0.5343646791958988
    4283           0 :        B=0.4297814821746926
    4284           0 :        V=0.4651019618269806e-3
    4285           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4286           0 :        A=0.5732683216530990
    4287           0 :        B=0.4699402260943537
    4288           0 :        V=0.4670249536100625e-3
    4289           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4290           0 :        A=0.2214131583218986
    4291           0 :        B=0.3873602040643895e-1
    4292           0 :        V=0.3549555576441708e-3
    4293           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4294           0 :        A=0.2741796504750071
    4295           0 :        B=0.8089496256902013e-1
    4296           0 :        V=0.3856108245249010e-3
    4297           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4298           0 :        A=0.3259797439149485
    4299           0 :        B=0.1251732177620872
    4300           0 :        V=0.4098622845756882e-3
    4301           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4302           0 :        A=0.3765441148826891
    4303           0 :        B=0.1706260286403185
    4304           0 :        V=0.4286328604268950e-3
    4305           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4306           0 :        A=0.4255773574530558
    4307           0 :        B=0.2165115147300408
    4308           0 :        V=0.4427802198993945e-3
    4309           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4310           0 :        A=0.4727795117058430
    4311           0 :        B=0.2622089812225259
    4312           0 :        V=0.4530473511488561e-3
    4313           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4314           0 :        A=0.5178546895819012
    4315           0 :        B=0.3071721431296201
    4316           0 :        V=0.4600805475703138e-3
    4317           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4318           0 :        A=0.5605141192097460
    4319           0 :        B=0.3508998998801138
    4320           0 :        V=0.4644599059958017e-3
    4321           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4322           0 :        A=0.6004763319352512
    4323           0 :        B=0.3929160876166931
    4324           0 :        V=0.4667274455712508e-3
    4325           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4326           0 :        A=0.3352842634946949
    4327           0 :        B=0.4202563457288019e-1
    4328           0 :        V=0.4069360518020356e-3
    4329           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4330           0 :        A=0.3891971629814670
    4331           0 :        B=0.8614309758870850e-1
    4332           0 :        V=0.4260442819919195e-3
    4333           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4334           0 :        A=0.4409875565542281
    4335           0 :        B=0.1314500879380001
    4336           0 :        V=0.4408678508029063e-3
    4337           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4338           0 :        A=0.4904893058592484
    4339           0 :        B=0.1772189657383859
    4340           0 :        V=0.4518748115548597e-3
    4341           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4342           0 :        A=0.5375056138769549
    4343           0 :        B=0.2228277110050294
    4344           0 :        V=0.4595564875375116e-3
    4345           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4346           0 :        A=0.5818255708669969
    4347           0 :        B=0.2677179935014386
    4348           0 :        V=0.4643988774315846e-3
    4349           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4350           0 :        A=0.6232334858144959
    4351           0 :        B=0.3113675035544165
    4352           0 :        V=0.4668827491646946e-3
    4353           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4354           0 :        A=0.4489485354492058
    4355           0 :        B=0.4409162378368174e-1
    4356           0 :        V=0.4400541823741973e-3
    4357           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4358           0 :        A=0.5015136875933150
    4359           0 :        B=0.8939009917748489e-1
    4360           0 :        V=0.4514512890193797e-3
    4361           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4362           0 :        A=0.5511300550512623
    4363           0 :        B=0.1351806029383365
    4364           0 :        V=0.4596198627347549e-3
    4365           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4366           0 :        A=0.5976720409858000
    4367           0 :        B=0.1808370355053196
    4368           0 :        V=0.4648659016801781e-3
    4369           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4370           0 :        A=0.6409956378989354
    4371           0 :        B=0.2257852192301602
    4372           0 :        V=0.4675502017157673e-3
    4373           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4374           0 :        A=0.5581222330827514
    4375           0 :        B=0.4532173421637160e-1
    4376           0 :        V=0.4598494476455523e-3
    4377           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4378           0 :        A=0.6074705984161695
    4379           0 :        B=0.9117488031840314e-1
    4380           0 :        V=0.4654916955152048e-3
    4381           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4382           0 :        A=0.6532272537379033
    4383           0 :        B=0.1369294213140155
    4384           0 :        V=0.4684709779505137e-3
    4385           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4386           0 :        A=0.6594761494500487
    4387           0 :        B=0.4589901487275583e-1
    4388           0 :        V=0.4691445539106986e-3
    4389           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4390           0 :        N=N-1
    4391           0 :        RETURN
    4392             :        END
    4393           0 :        SUBROUTINE LD2702(X,Y,Z,W,N)
    4394             :        DOUBLE PRECISION X(2702)
    4395             :        DOUBLE PRECISION Y(2702)
    4396             :        DOUBLE PRECISION Z(2702)
    4397             :        DOUBLE PRECISION W(2702)
    4398             :        INTEGER N
    4399             :        DOUBLE PRECISION A,B,V
    4400             : !  
    4401             : !      LEBEDEV 2702-POINT ANGULAR GRID
    4402             : !  
    4403             : !    
    4404             : !       This subroutine is part of a set of subroutines that generate
    4405             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    4406             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    4407             : !       translated into fortran by Dr. Christoph van Wuellen.
    4408             : !       This subroutine was translated using a C to fortran77 conversion
    4409             : !       tool written by Dr. Christoph van Wuellen.
    4410             : !    
    4411             : !       Users of this code are asked to include reference [1] in their
    4412             : !       publications, and in the user- and programmers-manuals 
    4413             : !       describing their codes.
    4414             : !    
    4415             : !       This code was distributed through CCL (http://www.ccl.net/).
    4416             : !    
    4417             : !       [1] V.I. Lebedev, and D.N. Laikov
    4418             : !           "A quadrature formula for the sphere of the 131st
    4419             : !            algebraic order of accuracy"
    4420             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    4421             : !    
    4422             : !       [2] V.I. Lebedev
    4423             : !           "A quadrature formula for the sphere of 59th algebraic
    4424             : !            order of accuracy"
    4425             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    4426             : !    
    4427             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    4428             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    4429             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    4430             : !    
    4431             : !       [4] V.I. Lebedev
    4432             : !           "Spherical quadrature formulas exact to orders 25-29"
    4433             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    4434             : !    
    4435             : !       [5] V.I. Lebedev
    4436             : !           "Quadratures on a sphere"
    4437             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    4438             : !           1976, pp. 10-24. 
    4439             : !    
    4440             : !       [6] V.I. Lebedev
    4441             : !           "Values of the nodes and weights of ninth to seventeenth 
    4442             : !            order Gauss-Markov quadrature formulae invariant under the
    4443             : !            octahedron group with inversion"
    4444             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    4445             : !           1975, pp. 44-51.
    4446             : !    
    4447           0 :        N=1
    4448           0 :        V=0.2998675149888161e-4
    4449           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4450           0 :        V=0.4077860529495355e-3
    4451           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4452           0 :        A=0.2065562538818703e-1
    4453           0 :        V=0.1185349192520667e-3
    4454           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4455           0 :        A=0.5250918173022379e-1
    4456           0 :        V=0.1913408643425751e-3
    4457           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4458           0 :        A=0.8993480082038376e-1
    4459           0 :        V=0.2452886577209897e-3
    4460           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4461           0 :        A=0.1306023924436019
    4462           0 :        V=0.2862408183288702e-3
    4463           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4464           0 :        A=0.1732060388531418
    4465           0 :        V=0.3178032258257357e-3
    4466           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4467           0 :        A=0.2168727084820249
    4468           0 :        V=0.3422945667633690e-3
    4469           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4470           0 :        A=0.2609528309173586
    4471           0 :        V=0.3612790520235922e-3
    4472           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4473           0 :        A=0.3049252927938952
    4474           0 :        V=0.3758638229818521e-3
    4475           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4476           0 :        A=0.3483484138084404
    4477           0 :        V=0.3868711798859953e-3
    4478           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4479           0 :        A=0.3908321549106406
    4480           0 :        V=0.3949429933189938e-3
    4481           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4482           0 :        A=0.4320210071894814
    4483           0 :        V=0.4006068107541156e-3
    4484           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4485           0 :        A=0.4715824795890053
    4486           0 :        V=0.4043192149672723e-3
    4487           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4488           0 :        A=0.5091984794078453
    4489           0 :        V=0.4064947495808078e-3
    4490           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4491           0 :        A=0.5445580145650803
    4492           0 :        V=0.4075245619813152e-3
    4493           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4494           0 :        A=0.6072575796841768
    4495           0 :        V=0.4076423540893566e-3
    4496           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4497           0 :        A=0.6339484505755803
    4498           0 :        V=0.4074280862251555e-3
    4499           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4500           0 :        A=0.6570718257486958
    4501           0 :        V=0.4074163756012244e-3
    4502           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4503           0 :        A=0.6762557330090709
    4504           0 :        V=0.4077647795071246e-3
    4505           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4506           0 :        A=0.6911161696923790
    4507           0 :        V=0.4084517552782530e-3
    4508           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4509           0 :        A=0.7012841911659961
    4510           0 :        V=0.4092468459224052e-3
    4511           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4512           0 :        A=0.7064559272410020
    4513           0 :        V=0.4097872687240906e-3
    4514           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4515           0 :        A=0.6123554989894765e-1
    4516           0 :        V=0.1738986811745028e-3
    4517           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4518           0 :        A=0.1533070348312393
    4519           0 :        V=0.2659616045280191e-3
    4520           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4521           0 :        A=0.2563902605244206
    4522           0 :        V=0.3240596008171533e-3
    4523           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4524           0 :        A=0.3629346991663361
    4525           0 :        V=0.3621195964432943e-3
    4526           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4527           0 :        A=0.4683949968987538
    4528           0 :        V=0.3868838330760539e-3
    4529           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4530           0 :        A=0.5694479240657952
    4531           0 :        V=0.4018911532693111e-3
    4532           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4533           0 :        A=0.6634465430993955
    4534           0 :        V=0.4089929432983252e-3
    4535           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4536           0 :        A=0.1033958573552305
    4537           0 :        B=0.3034544009063584e-1
    4538           0 :        V=0.2279907527706409e-3
    4539           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4540           0 :        A=0.1473521412414395
    4541           0 :        B=0.6618803044247135e-1
    4542           0 :        V=0.2715205490578897e-3
    4543           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4544           0 :        A=0.1924552158705967
    4545           0 :        B=0.1054431128987715
    4546           0 :        V=0.3057917896703976e-3
    4547           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4548           0 :        A=0.2381094362890328
    4549           0 :        B=0.1468263551238858
    4550           0 :        V=0.3326913052452555e-3
    4551           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4552           0 :        A=0.2838121707936760
    4553           0 :        B=0.1894486108187886
    4554           0 :        V=0.3537334711890037e-3
    4555           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4556           0 :        A=0.3291323133373415
    4557           0 :        B=0.2326374238761579
    4558           0 :        V=0.3700567500783129e-3
    4559           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4560           0 :        A=0.3736896978741460
    4561           0 :        B=0.2758485808485768
    4562           0 :        V=0.3825245372589122e-3
    4563           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4564           0 :        A=0.4171406040760013
    4565           0 :        B=0.3186179331996921
    4566           0 :        V=0.3918125171518296e-3
    4567           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4568           0 :        A=0.4591677985256915
    4569           0 :        B=0.3605329796303794
    4570           0 :        V=0.3984720419937579e-3
    4571           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4572           0 :        A=0.4994733831718418
    4573           0 :        B=0.4012147253586509
    4574           0 :        V=0.4029746003338211e-3
    4575           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4576           0 :        A=0.5377731830445096
    4577           0 :        B=0.4403050025570692
    4578           0 :        V=0.4057428632156627e-3
    4579           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4580           0 :        A=0.5737917830001331
    4581           0 :        B=0.4774565904277483
    4582           0 :        V=0.4071719274114857e-3
    4583           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4584           0 :        A=0.2027323586271389
    4585           0 :        B=0.3544122504976147e-1
    4586           0 :        V=0.2990236950664119e-3
    4587           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4588           0 :        A=0.2516942375187273
    4589           0 :        B=0.7418304388646328e-1
    4590           0 :        V=0.3262951734212878e-3
    4591           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4592           0 :        A=0.3000227995257181
    4593           0 :        B=0.1150502745727186
    4594           0 :        V=0.3482634608242413e-3
    4595           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4596           0 :        A=0.3474806691046342
    4597           0 :        B=0.1571963371209364
    4598           0 :        V=0.3656596681700892e-3
    4599           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4600           0 :        A=0.3938103180359209
    4601           0 :        B=0.1999631877247100
    4602           0 :        V=0.3791740467794218e-3
    4603           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4604           0 :        A=0.4387519590455703
    4605           0 :        B=0.2428073457846535
    4606           0 :        V=0.3894034450156905e-3
    4607           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4608           0 :        A=0.4820503960077787
    4609           0 :        B=0.2852575132906155
    4610           0 :        V=0.3968600245508371e-3
    4611           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4612           0 :        A=0.5234573778475101
    4613           0 :        B=0.3268884208674639
    4614           0 :        V=0.4019931351420050e-3
    4615           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4616           0 :        A=0.5627318647235282
    4617           0 :        B=0.3673033321675939
    4618           0 :        V=0.4052108801278599e-3
    4619           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4620           0 :        A=0.5996390607156954
    4621           0 :        B=0.4061211551830290
    4622           0 :        V=0.4068978613940934e-3
    4623           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4624           0 :        A=0.3084780753791947
    4625           0 :        B=0.3860125523100059e-1
    4626           0 :        V=0.3454275351319704e-3
    4627           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4628           0 :        A=0.3589988275920223
    4629           0 :        B=0.7928938987104867e-1
    4630           0 :        V=0.3629963537007920e-3
    4631           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4632           0 :        A=0.4078628415881973
    4633           0 :        B=0.1212614643030087
    4634           0 :        V=0.3770187233889873e-3
    4635           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4636           0 :        A=0.4549287258889735
    4637           0 :        B=0.1638770827382693
    4638           0 :        V=0.3878608613694378e-3
    4639           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4640           0 :        A=0.5000278512957279
    4641           0 :        B=0.2065965798260176
    4642           0 :        V=0.3959065270221274e-3
    4643           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4644           0 :        A=0.5429785044928199
    4645           0 :        B=0.2489436378852235
    4646           0 :        V=0.4015286975463570e-3
    4647           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4648           0 :        A=0.5835939850491711
    4649           0 :        B=0.2904811368946891
    4650           0 :        V=0.4050866785614717e-3
    4651           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4652           0 :        A=0.6216870353444856
    4653           0 :        B=0.3307941957666609
    4654           0 :        V=0.4069320185051913e-3
    4655           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4656           0 :        A=0.4151104662709091
    4657           0 :        B=0.4064829146052554e-1
    4658           0 :        V=0.3760120964062763e-3
    4659           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4660           0 :        A=0.4649804275009218
    4661           0 :        B=0.8258424547294755e-1
    4662           0 :        V=0.3870969564418064e-3
    4663           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4664           0 :        A=0.5124695757009662
    4665           0 :        B=0.1251841962027289
    4666           0 :        V=0.3955287790534055e-3
    4667           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4668           0 :        A=0.5574711100606224
    4669           0 :        B=0.1679107505976331
    4670           0 :        V=0.4015361911302668e-3
    4671           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4672           0 :        A=0.5998597333287227
    4673           0 :        B=0.2102805057358715
    4674           0 :        V=0.4053836986719548e-3
    4675           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4676           0 :        A=0.6395007148516600
    4677           0 :        B=0.2518418087774107
    4678           0 :        V=0.4073578673299117e-3
    4679           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4680           0 :        A=0.5188456224746252
    4681           0 :        B=0.4194321676077518e-1
    4682           0 :        V=0.3954628379231406e-3
    4683           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4684           0 :        A=0.5664190707942778
    4685           0 :        B=0.8457661551921499e-1
    4686           0 :        V=0.4017645508847530e-3
    4687           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4688           0 :        A=0.6110464353283153
    4689           0 :        B=0.1273652932519396
    4690           0 :        V=0.4059030348651293e-3
    4691           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4692           0 :        A=0.6526430302051563
    4693           0 :        B=0.1698173239076354
    4694           0 :        V=0.4080565809484880e-3
    4695           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4696           0 :        A=0.6167551880377548
    4697           0 :        B=0.4266398851548864e-1
    4698           0 :        V=0.4063018753664651e-3
    4699           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4700           0 :        A=0.6607195418355383
    4701           0 :        B=0.8551925814238349e-1
    4702           0 :        V=0.4087191292799671e-3
    4703           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4704           0 :        N=N-1
    4705           0 :        RETURN
    4706             :        END
    4707           0 :        SUBROUTINE LD3074(X,Y,Z,W,N)
    4708             :        DOUBLE PRECISION X(3074)
    4709             :        DOUBLE PRECISION Y(3074)
    4710             :        DOUBLE PRECISION Z(3074)
    4711             :        DOUBLE PRECISION W(3074)
    4712             :        INTEGER N
    4713             :        DOUBLE PRECISION A,B,V
    4714             : !  
    4715             : !      LEBEDEV 3074-POINT ANGULAR GRID
    4716             : !  
    4717             : !    
    4718             : !       This subroutine is part of a set of subroutines that generate
    4719             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    4720             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    4721             : !       translated into fortran by Dr. Christoph van Wuellen.
    4722             : !       This subroutine was translated using a C to fortran77 conversion
    4723             : !       tool written by Dr. Christoph van Wuellen.
    4724             : !    
    4725             : !       Users of this code are asked to include reference [1] in their
    4726             : !       publications, and in the user- and programmers-manuals 
    4727             : !       describing their codes.
    4728             : !    
    4729             : !       This code was distributed through CCL (http://www.ccl.net/).
    4730             : !    
    4731             : !       [1] V.I. Lebedev, and D.N. Laikov
    4732             : !           "A quadrature formula for the sphere of the 131st
    4733             : !            algebraic order of accuracy"
    4734             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    4735             : !    
    4736             : !       [2] V.I. Lebedev
    4737             : !           "A quadrature formula for the sphere of 59th algebraic
    4738             : !            order of accuracy"
    4739             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    4740             : !    
    4741             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    4742             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    4743             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    4744             : !    
    4745             : !       [4] V.I. Lebedev
    4746             : !           "Spherical quadrature formulas exact to orders 25-29"
    4747             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    4748             : !    
    4749             : !       [5] V.I. Lebedev
    4750             : !           "Quadratures on a sphere"
    4751             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    4752             : !           1976, pp. 10-24. 
    4753             : !    
    4754             : !       [6] V.I. Lebedev
    4755             : !           "Values of the nodes and weights of ninth to seventeenth 
    4756             : !            order Gauss-Markov quadrature formulae invariant under the
    4757             : !            octahedron group with inversion"
    4758             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    4759             : !           1975, pp. 44-51.
    4760             : !    
    4761           0 :        N=1
    4762           0 :        V=0.2599095953754734e-4
    4763           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4764           0 :        V=0.3603134089687541e-3
    4765           0 :        Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4766           0 :        V=0.3586067974412447e-3
    4767           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4768           0 :        A=0.1886108518723392e-1
    4769           0 :        V=0.9831528474385880e-4
    4770           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4771           0 :        A=0.4800217244625303e-1
    4772           0 :        V=0.1605023107954450e-3
    4773           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4774           0 :        A=0.8244922058397242e-1
    4775           0 :        V=0.2072200131464099e-3
    4776           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4777           0 :        A=0.1200408362484023
    4778           0 :        V=0.2431297618814187e-3
    4779           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4780           0 :        A=0.1595773530809965
    4781           0 :        V=0.2711819064496707e-3
    4782           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4783           0 :        A=0.2002635973434064
    4784           0 :        V=0.2932762038321116e-3
    4785           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4786           0 :        A=0.2415127590139982
    4787           0 :        V=0.3107032514197368e-3
    4788           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4789           0 :        A=0.2828584158458477
    4790           0 :        V=0.3243808058921213e-3
    4791           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4792           0 :        A=0.3239091015338138
    4793           0 :        V=0.3349899091374030e-3
    4794           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4795           0 :        A=0.3643225097962194
    4796           0 :        V=0.3430580688505218e-3
    4797           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4798           0 :        A=0.4037897083691802
    4799           0 :        V=0.3490124109290343e-3
    4800           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4801           0 :        A=0.4420247515194127
    4802           0 :        V=0.3532148948561955e-3
    4803           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4804           0 :        A=0.4787572538464938
    4805           0 :        V=0.3559862669062833e-3
    4806           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4807           0 :        A=0.5137265251275234
    4808           0 :        V=0.3576224317551411e-3
    4809           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4810           0 :        A=0.5466764056654611
    4811           0 :        V=0.3584050533086076e-3
    4812           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4813           0 :        A=0.6054859420813535
    4814           0 :        V=0.3584903581373224e-3
    4815           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4816           0 :        A=0.6308106701764562
    4817           0 :        V=0.3582991879040586e-3
    4818           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4819           0 :        A=0.6530369230179584
    4820           0 :        V=0.3582371187963125e-3
    4821           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4822           0 :        A=0.6718609524611158
    4823           0 :        V=0.3584353631122350e-3
    4824           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4825           0 :        A=0.6869676499894013
    4826           0 :        V=0.3589120166517785e-3
    4827           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4828           0 :        A=0.6980467077240748
    4829           0 :        V=0.3595445704531601e-3
    4830           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4831           0 :        A=0.7048241721250522
    4832           0 :        V=0.3600943557111074e-3
    4833           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4834           0 :        A=0.5591105222058232e-1
    4835           0 :        V=0.1456447096742039e-3
    4836           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4837           0 :        A=0.1407384078513916
    4838           0 :        V=0.2252370188283782e-3
    4839           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4840           0 :        A=0.2364035438976309
    4841           0 :        V=0.2766135443474897e-3
    4842           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4843           0 :        A=0.3360602737818170
    4844           0 :        V=0.3110729491500851e-3
    4845           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4846           0 :        A=0.4356292630054665
    4847           0 :        V=0.3342506712303391e-3
    4848           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4849           0 :        A=0.5321569415256174
    4850           0 :        V=0.3491981834026860e-3
    4851           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4852           0 :        A=0.6232956305040554
    4853           0 :        V=0.3576003604348932e-3
    4854           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4855           0 :        A=0.9469870086838469e-1
    4856           0 :        B=0.2778748387309470e-1
    4857           0 :        V=0.1921921305788564e-3
    4858           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4859           0 :        A=0.1353170300568141
    4860           0 :        B=0.6076569878628364e-1
    4861           0 :        V=0.2301458216495632e-3
    4862           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4863           0 :        A=0.1771679481726077
    4864           0 :        B=0.9703072762711040e-1
    4865           0 :        V=0.2604248549522893e-3
    4866           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4867           0 :        A=0.2197066664231751
    4868           0 :        B=0.1354112458524762
    4869           0 :        V=0.2845275425870697e-3
    4870           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4871           0 :        A=0.2624783557374927
    4872           0 :        B=0.1750996479744100
    4873           0 :        V=0.3036870897974840e-3
    4874           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4875           0 :        A=0.3050969521214442
    4876           0 :        B=0.2154896907449802
    4877           0 :        V=0.3188414832298066e-3
    4878           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4879           0 :        A=0.3472252637196021
    4880           0 :        B=0.2560954625740152
    4881           0 :        V=0.3307046414722089e-3
    4882           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4883           0 :        A=0.3885610219026360
    4884           0 :        B=0.2965070050624096
    4885           0 :        V=0.3398330969031360e-3
    4886           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4887           0 :        A=0.4288273776062765
    4888           0 :        B=0.3363641488734497
    4889           0 :        V=0.3466757899705373e-3
    4890           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4891           0 :        A=0.4677662471302948
    4892           0 :        B=0.3753400029836788
    4893           0 :        V=0.3516095923230054e-3
    4894           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4895           0 :        A=0.5051333589553359
    4896           0 :        B=0.4131297522144286
    4897           0 :        V=0.3549645184048486e-3
    4898           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4899           0 :        A=0.5406942145810492
    4900           0 :        B=0.4494423776081795
    4901           0 :        V=0.3570415969441392e-3
    4902           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4903           0 :        A=0.5742204122576457
    4904           0 :        B=0.4839938958841502
    4905           0 :        V=0.3581251798496118e-3
    4906           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4907           0 :        A=0.1865407027225188
    4908           0 :        B=0.3259144851070796e-1
    4909           0 :        V=0.2543491329913348e-3
    4910           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4911           0 :        A=0.2321186453689432
    4912           0 :        B=0.6835679505297343e-1
    4913           0 :        V=0.2786711051330776e-3
    4914           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4915           0 :        A=0.2773159142523882
    4916           0 :        B=0.1062284864451989
    4917           0 :        V=0.2985552361083679e-3
    4918           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4919           0 :        A=0.3219200192237254
    4920           0 :        B=0.1454404409323047
    4921           0 :        V=0.3145867929154039e-3
    4922           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4923           0 :        A=0.3657032593944029
    4924           0 :        B=0.1854018282582510
    4925           0 :        V=0.3273290662067609e-3
    4926           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4927           0 :        A=0.4084376778363622
    4928           0 :        B=0.2256297412014750
    4929           0 :        V=0.3372705511943501e-3
    4930           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4931           0 :        A=0.4499004945751427
    4932           0 :        B=0.2657104425000896
    4933           0 :        V=0.3448274437851510e-3
    4934           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4935           0 :        A=0.4898758141326335
    4936           0 :        B=0.3052755487631557
    4937           0 :        V=0.3503592783048583e-3
    4938           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4939           0 :        A=0.5281547442266309
    4940           0 :        B=0.3439863920645423
    4941           0 :        V=0.3541854792663162e-3
    4942           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4943           0 :        A=0.5645346989813992
    4944           0 :        B=0.3815229456121914
    4945           0 :        V=0.3565995517909428e-3
    4946           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4947           0 :        A=0.5988181252159848
    4948           0 :        B=0.4175752420966734
    4949           0 :        V=0.3578802078302898e-3
    4950           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4951           0 :        A=0.2850425424471603
    4952           0 :        B=0.3562149509862536e-1
    4953           0 :        V=0.2958644592860982e-3
    4954           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4955           0 :        A=0.3324619433027876
    4956           0 :        B=0.7330318886871096e-1
    4957           0 :        V=0.3119548129116835e-3
    4958           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4959           0 :        A=0.3785848333076282
    4960           0 :        B=0.1123226296008472
    4961           0 :        V=0.3250745225005984e-3
    4962           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4963           0 :        A=0.4232891028562115
    4964           0 :        B=0.1521084193337708
    4965           0 :        V=0.3355153415935208e-3
    4966           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4967           0 :        A=0.4664287050829722
    4968           0 :        B=0.1921844459223610
    4969           0 :        V=0.3435847568549328e-3
    4970           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4971           0 :        A=0.5078458493735726
    4972           0 :        B=0.2321360989678303
    4973           0 :        V=0.3495786831622488e-3
    4974           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4975           0 :        A=0.5473779816204180
    4976           0 :        B=0.2715886486360520
    4977           0 :        V=0.3537767805534621e-3
    4978           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4979           0 :        A=0.5848617133811376
    4980           0 :        B=0.3101924707571355
    4981           0 :        V=0.3564459815421428e-3
    4982           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4983           0 :        A=0.6201348281584888
    4984           0 :        B=0.3476121052890973
    4985           0 :        V=0.3578464061225468e-3
    4986           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4987           0 :        A=0.3852191185387871
    4988           0 :        B=0.3763224880035108e-1
    4989           0 :        V=0.3239748762836212e-3
    4990           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4991           0 :        A=0.4325025061073423
    4992           0 :        B=0.7659581935637135e-1
    4993           0 :        V=0.3345491784174287e-3
    4994           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4995           0 :        A=0.4778486229734490
    4996           0 :        B=0.1163381306083900
    4997           0 :        V=0.3429126177301782e-3
    4998           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    4999           0 :        A=0.5211663693009000
    5000           0 :        B=0.1563890598752899
    5001           0 :        V=0.3492420343097421e-3
    5002           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5003           0 :        A=0.5623469504853703
    5004           0 :        B=0.1963320810149200
    5005           0 :        V=0.3537399050235257e-3
    5006           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5007           0 :        A=0.6012718188659246
    5008           0 :        B=0.2357847407258738
    5009           0 :        V=0.3566209152659172e-3
    5010           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5011           0 :        A=0.6378179206390117
    5012           0 :        B=0.2743846121244060
    5013           0 :        V=0.3581084321919782e-3
    5014           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5015           0 :        A=0.4836936460214534
    5016           0 :        B=0.3895902610739024e-1
    5017           0 :        V=0.3426522117591512e-3
    5018           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5019           0 :        A=0.5293792562683797
    5020           0 :        B=0.7871246819312640e-1
    5021           0 :        V=0.3491848770121379e-3
    5022           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5023           0 :        A=0.5726281253100033
    5024           0 :        B=0.1187963808202981
    5025           0 :        V=0.3539318235231476e-3
    5026           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5027           0 :        A=0.6133658776169068
    5028           0 :        B=0.1587914708061787
    5029           0 :        V=0.3570231438458694e-3
    5030           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5031           0 :        A=0.6515085491865307
    5032           0 :        B=0.1983058575227646
    5033           0 :        V=0.3586207335051714e-3
    5034           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5035           0 :        A=0.5778692716064976
    5036           0 :        B=0.3977209689791542e-1
    5037           0 :        V=0.3541196205164025e-3
    5038           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5039           0 :        A=0.6207904288086192
    5040           0 :        B=0.7990157592981152e-1
    5041           0 :        V=0.3574296911573953e-3
    5042           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5043           0 :        A=0.6608688171046802
    5044           0 :        B=0.1199671308754309
    5045           0 :        V=0.3591993279818963e-3
    5046           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5047           0 :        A=0.6656263089489130
    5048           0 :        B=0.4015955957805969e-1
    5049           0 :        V=0.3595855034661997e-3
    5050           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5051           0 :        N=N-1
    5052           0 :        RETURN
    5053             :        END
    5054           0 :        SUBROUTINE LD3470(X,Y,Z,W,N)
    5055             :        DOUBLE PRECISION X(3470)
    5056             :        DOUBLE PRECISION Y(3470)
    5057             :        DOUBLE PRECISION Z(3470)
    5058             :        DOUBLE PRECISION W(3470)
    5059             :        INTEGER N
    5060             :        DOUBLE PRECISION A,B,V
    5061             : !  
    5062             : !      LEBEDEV 3470-POINT ANGULAR GRID
    5063             : !  
    5064             : !    
    5065             : !       This subroutine is part of a set of subroutines that generate
    5066             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    5067             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    5068             : !       translated into fortran by Dr. Christoph van Wuellen.
    5069             : !       This subroutine was translated using a C to fortran77 conversion
    5070             : !       tool written by Dr. Christoph van Wuellen.
    5071             : !    
    5072             : !       Users of this code are asked to include reference [1] in their
    5073             : !       publications, and in the user- and programmers-manuals 
    5074             : !       describing their codes.
    5075             : !    
    5076             : !       This code was distributed through CCL (http://www.ccl.net/).
    5077             : !    
    5078             : !       [1] V.I. Lebedev, and D.N. Laikov
    5079             : !           "A quadrature formula for the sphere of the 131st
    5080             : !            algebraic order of accuracy"
    5081             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    5082             : !    
    5083             : !       [2] V.I. Lebedev
    5084             : !           "A quadrature formula for the sphere of 59th algebraic
    5085             : !            order of accuracy"
    5086             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    5087             : !    
    5088             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    5089             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    5090             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    5091             : !    
    5092             : !       [4] V.I. Lebedev
    5093             : !           "Spherical quadrature formulas exact to orders 25-29"
    5094             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    5095             : !    
    5096             : !       [5] V.I. Lebedev
    5097             : !           "Quadratures on a sphere"
    5098             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    5099             : !           1976, pp. 10-24. 
    5100             : !    
    5101             : !       [6] V.I. Lebedev
    5102             : !           "Values of the nodes and weights of ninth to seventeenth 
    5103             : !            order Gauss-Markov quadrature formulae invariant under the
    5104             : !            octahedron group with inversion"
    5105             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    5106             : !           1975, pp. 44-51.
    5107             : !    
    5108           0 :        N=1
    5109           0 :        V=0.2040382730826330e-4
    5110           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5111           0 :        V=0.3178149703889544e-3
    5112           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5113           0 :        A=0.1721420832906233e-1
    5114           0 :        V=0.8288115128076110e-4
    5115           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5116           0 :        A=0.4408875374981770e-1
    5117           0 :        V=0.1360883192522954e-3
    5118           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5119           0 :        A=0.7594680813878681e-1
    5120           0 :        V=0.1766854454542662e-3
    5121           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5122           0 :        A=0.1108335359204799
    5123           0 :        V=0.2083153161230153e-3
    5124           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5125           0 :        A=0.1476517054388567
    5126           0 :        V=0.2333279544657158e-3
    5127           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5128           0 :        A=0.1856731870860615
    5129           0 :        V=0.2532809539930247e-3
    5130           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5131           0 :        A=0.2243634099428821
    5132           0 :        V=0.2692472184211158e-3
    5133           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5134           0 :        A=0.2633006881662727
    5135           0 :        V=0.2819949946811885e-3
    5136           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5137           0 :        A=0.3021340904916283
    5138           0 :        V=0.2920953593973030e-3
    5139           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5140           0 :        A=0.3405594048030089
    5141           0 :        V=0.2999889782948352e-3
    5142           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5143           0 :        A=0.3783044434007372
    5144           0 :        V=0.3060292120496902e-3
    5145           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5146           0 :        A=0.4151194767407910
    5147           0 :        V=0.3105109167522192e-3
    5148           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5149           0 :        A=0.4507705766443257
    5150           0 :        V=0.3136902387550312e-3
    5151           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5152           0 :        A=0.4850346056573187
    5153           0 :        V=0.3157984652454632e-3
    5154           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5155           0 :        A=0.5176950817792470
    5156           0 :        V=0.3170516518425422e-3
    5157           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5158           0 :        A=0.5485384240820989
    5159           0 :        V=0.3176568425633755e-3
    5160           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5161           0 :        A=0.6039117238943308
    5162           0 :        V=0.3177198411207062e-3
    5163           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5164           0 :        A=0.6279956655573113
    5165           0 :        V=0.3175519492394733e-3
    5166           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5167           0 :        A=0.6493636169568952
    5168           0 :        V=0.3174654952634756e-3
    5169           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5170           0 :        A=0.6677644117704504
    5171           0 :        V=0.3175676415467654e-3
    5172           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5173           0 :        A=0.6829368572115624
    5174           0 :        V=0.3178923417835410e-3
    5175           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5176           0 :        A=0.6946195818184121
    5177           0 :        V=0.3183788287531909e-3
    5178           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5179           0 :        A=0.7025711542057026
    5180           0 :        V=0.3188755151918807e-3
    5181           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5182           0 :        A=0.7066004767140119
    5183           0 :        V=0.3191916889313849e-3
    5184           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5185           0 :        A=0.5132537689946062e-1
    5186           0 :        V=0.1231779611744508e-3
    5187           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5188           0 :        A=0.1297994661331225
    5189           0 :        V=0.1924661373839880e-3
    5190           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5191           0 :        A=0.2188852049401307
    5192           0 :        V=0.2380881867403424e-3
    5193           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5194           0 :        A=0.3123174824903457
    5195           0 :        V=0.2693100663037885e-3
    5196           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5197           0 :        A=0.4064037620738195
    5198           0 :        V=0.2908673382834366e-3
    5199           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5200           0 :        A=0.4984958396944782
    5201           0 :        V=0.3053914619381535e-3
    5202           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5203           0 :        A=0.5864975046021365
    5204           0 :        V=0.3143916684147777e-3
    5205           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5206           0 :        A=0.6686711634580175
    5207           0 :        V=0.3187042244055363e-3
    5208           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5209           0 :        A=0.8715738780835950e-1
    5210           0 :        B=0.2557175233367578e-1
    5211           0 :        V=0.1635219535869790e-3
    5212           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5213           0 :        A=0.1248383123134007
    5214           0 :        B=0.5604823383376681e-1
    5215           0 :        V=0.1968109917696070e-3
    5216           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5217           0 :        A=0.1638062693383378
    5218           0 :        B=0.8968568601900765e-1
    5219           0 :        V=0.2236754342249974e-3
    5220           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5221           0 :        A=0.2035586203373176
    5222           0 :        B=0.1254086651976279
    5223           0 :        V=0.2453186687017181e-3
    5224           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5225           0 :        A=0.2436798975293774
    5226           0 :        B=0.1624780150162012
    5227           0 :        V=0.2627551791580541e-3
    5228           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5229           0 :        A=0.2838207507773806
    5230           0 :        B=0.2003422342683208
    5231           0 :        V=0.2767654860152220e-3
    5232           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5233           0 :        A=0.3236787502217692
    5234           0 :        B=0.2385628026255263
    5235           0 :        V=0.2879467027765895e-3
    5236           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5237           0 :        A=0.3629849554840691
    5238           0 :        B=0.2767731148783578
    5239           0 :        V=0.2967639918918702e-3
    5240           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5241           0 :        A=0.4014948081992087
    5242           0 :        B=0.3146542308245309
    5243           0 :        V=0.3035900684660351e-3
    5244           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5245           0 :        A=0.4389818379260225
    5246           0 :        B=0.3519196415895088
    5247           0 :        V=0.3087338237298308e-3
    5248           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5249           0 :        A=0.4752331143674377
    5250           0 :        B=0.3883050984023654
    5251           0 :        V=0.3124608838860167e-3
    5252           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5253           0 :        A=0.5100457318374018
    5254           0 :        B=0.4235613423908649
    5255           0 :        V=0.3150084294226743e-3
    5256           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5257           0 :        A=0.5432238388954868
    5258           0 :        B=0.4574484717196220
    5259           0 :        V=0.3165958398598402e-3
    5260           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5261           0 :        A=0.5745758685072442
    5262           0 :        B=0.4897311639255524
    5263           0 :        V=0.3174320440957372e-3
    5264           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5265           0 :        A=0.1723981437592809
    5266           0 :        B=0.3010630597881105e-1
    5267           0 :        V=0.2182188909812599e-3
    5268           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5269           0 :        A=0.2149553257844597
    5270           0 :        B=0.6326031554204694e-1
    5271           0 :        V=0.2399727933921445e-3
    5272           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5273           0 :        A=0.2573256081247422
    5274           0 :        B=0.9848566980258631e-1
    5275           0 :        V=0.2579796133514652e-3
    5276           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5277           0 :        A=0.2993163751238106
    5278           0 :        B=0.1350835952384266
    5279           0 :        V=0.2727114052623535e-3
    5280           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5281           0 :        A=0.3407238005148000
    5282           0 :        B=0.1725184055442181
    5283           0 :        V=0.2846327656281355e-3
    5284           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5285           0 :        A=0.3813454978483264
    5286           0 :        B=0.2103559279730725
    5287           0 :        V=0.2941491102051334e-3
    5288           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5289           0 :        A=0.4209848104423343
    5290           0 :        B=0.2482278774554860
    5291           0 :        V=0.3016049492136107e-3
    5292           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5293           0 :        A=0.4594519699996300
    5294           0 :        B=0.2858099509982883
    5295           0 :        V=0.3072949726175648e-3
    5296           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5297           0 :        A=0.4965640166185930
    5298           0 :        B=0.3228075659915428
    5299           0 :        V=0.3114768142886460e-3
    5300           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5301           0 :        A=0.5321441655571562
    5302           0 :        B=0.3589459907204151
    5303           0 :        V=0.3143823673666223e-3
    5304           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5305           0 :        A=0.5660208438582166
    5306           0 :        B=0.3939630088864310
    5307           0 :        V=0.3162269764661535e-3
    5308           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5309           0 :        A=0.5980264315964364
    5310           0 :        B=0.4276029922949089
    5311           0 :        V=0.3172164663759821e-3
    5312           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5313           0 :        A=0.2644215852350733
    5314           0 :        B=0.3300939429072552e-1
    5315           0 :        V=0.2554575398967435e-3
    5316           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5317           0 :        A=0.3090113743443063
    5318           0 :        B=0.6803887650078501e-1
    5319           0 :        V=0.2701704069135677e-3
    5320           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5321           0 :        A=0.3525871079197808
    5322           0 :        B=0.1044326136206709
    5323           0 :        V=0.2823693413468940e-3
    5324           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5325           0 :        A=0.3950418005354029
    5326           0 :        B=0.1416751597517679
    5327           0 :        V=0.2922898463214289e-3
    5328           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5329           0 :        A=0.4362475663430163
    5330           0 :        B=0.1793408610504821
    5331           0 :        V=0.3001829062162428e-3
    5332           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5333           0 :        A=0.4760661812145854
    5334           0 :        B=0.2170630750175722
    5335           0 :        V=0.3062890864542953e-3
    5336           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5337           0 :        A=0.5143551042512103
    5338           0 :        B=0.2545145157815807
    5339           0 :        V=0.3108328279264746e-3
    5340           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5341           0 :        A=0.5509709026935597
    5342           0 :        B=0.2913940101706601
    5343           0 :        V=0.3140243146201245e-3
    5344           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5345           0 :        A=0.5857711030329428
    5346           0 :        B=0.3274169910910705
    5347           0 :        V=0.3160638030977130e-3
    5348           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5349           0 :        A=0.6186149917404392
    5350           0 :        B=0.3623081329317265
    5351           0 :        V=0.3171462882206275e-3
    5352           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5353           0 :        A=0.3586894569557064
    5354           0 :        B=0.3497354386450040e-1
    5355           0 :        V=0.2812388416031796e-3
    5356           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5357           0 :        A=0.4035266610019441
    5358           0 :        B=0.7129736739757095e-1
    5359           0 :        V=0.2912137500288045e-3
    5360           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5361           0 :        A=0.4467775312332510
    5362           0 :        B=0.1084758620193165
    5363           0 :        V=0.2993241256502206e-3
    5364           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5365           0 :        A=0.4883638346608543
    5366           0 :        B=0.1460915689241772
    5367           0 :        V=0.3057101738983822e-3
    5368           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5369           0 :        A=0.5281908348434601
    5370           0 :        B=0.1837790832369980
    5371           0 :        V=0.3105319326251432e-3
    5372           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5373           0 :        A=0.5661542687149311
    5374           0 :        B=0.2212075390874021
    5375           0 :        V=0.3139565514428167e-3
    5376           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5377           0 :        A=0.6021450102031452
    5378           0 :        B=0.2580682841160985
    5379           0 :        V=0.3161543006806366e-3
    5380           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5381           0 :        A=0.6360520783610050
    5382           0 :        B=0.2940656362094121
    5383           0 :        V=0.3172985960613294e-3
    5384           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5385           0 :        A=0.4521611065087196
    5386           0 :        B=0.3631055365867002e-1
    5387           0 :        V=0.2989400336901431e-3
    5388           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5389           0 :        A=0.4959365651560963
    5390           0 :        B=0.7348318468484350e-1
    5391           0 :        V=0.3054555883947677e-3
    5392           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5393           0 :        A=0.5376815804038283
    5394           0 :        B=0.1111087643812648
    5395           0 :        V=0.3104764960807702e-3
    5396           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5397           0 :        A=0.5773314480243768
    5398           0 :        B=0.1488226085145408
    5399           0 :        V=0.3141015825977616e-3
    5400           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5401           0 :        A=0.6148113245575056
    5402           0 :        B=0.1862892274135151
    5403           0 :        V=0.3164520621159896e-3
    5404           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5405           0 :        A=0.6500407462842380
    5406           0 :        B=0.2231909701714456
    5407           0 :        V=0.3176652305912204e-3
    5408           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5409           0 :        A=0.5425151448707213
    5410           0 :        B=0.3718201306118944e-1
    5411           0 :        V=0.3105097161023939e-3
    5412           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5413           0 :        A=0.5841860556907931
    5414           0 :        B=0.7483616335067346e-1
    5415           0 :        V=0.3143014117890550e-3
    5416           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5417           0 :        A=0.6234632186851500
    5418           0 :        B=0.1125990834266120
    5419           0 :        V=0.3168172866287200e-3
    5420           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5421           0 :        A=0.6602934551848843
    5422           0 :        B=0.1501303813157619
    5423           0 :        V=0.3181401865570968e-3
    5424           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5425           0 :        A=0.6278573968375105
    5426           0 :        B=0.3767559930245720e-1
    5427           0 :        V=0.3170663659156037e-3
    5428           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5429           0 :        A=0.6665611711264577
    5430           0 :        B=0.7548443301360158e-1
    5431           0 :        V=0.3185447944625510e-3
    5432           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5433           0 :        N=N-1
    5434           0 :        RETURN
    5435             :        END
    5436           0 :        SUBROUTINE LD3890(X,Y,Z,W,N)
    5437             :        DOUBLE PRECISION X(3890)
    5438             :        DOUBLE PRECISION Y(3890)
    5439             :        DOUBLE PRECISION Z(3890)
    5440             :        DOUBLE PRECISION W(3890)
    5441             :        INTEGER N
    5442             :        DOUBLE PRECISION A,B,V
    5443             : !  
    5444             : !      LEBEDEV 3890-POINT ANGULAR GRID
    5445             : !  
    5446             : !    
    5447             : !       This subroutine is part of a set of subroutines that generate
    5448             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    5449             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    5450             : !       translated into fortran by Dr. Christoph van Wuellen.
    5451             : !       This subroutine was translated using a C to fortran77 conversion
    5452             : !       tool written by Dr. Christoph van Wuellen.
    5453             : !    
    5454             : !       Users of this code are asked to include reference [1] in their
    5455             : !       publications, and in the user- and programmers-manuals 
    5456             : !       describing their codes.
    5457             : !    
    5458             : !       This code was distributed through CCL (http://www.ccl.net/).
    5459             : !    
    5460             : !       [1] V.I. Lebedev, and D.N. Laikov
    5461             : !           "A quadrature formula for the sphere of the 131st
    5462             : !            algebraic order of accuracy"
    5463             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    5464             : !    
    5465             : !       [2] V.I. Lebedev
    5466             : !           "A quadrature formula for the sphere of 59th algebraic
    5467             : !            order of accuracy"
    5468             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    5469             : !    
    5470             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    5471             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    5472             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    5473             : !    
    5474             : !       [4] V.I. Lebedev
    5475             : !           "Spherical quadrature formulas exact to orders 25-29"
    5476             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    5477             : !    
    5478             : !       [5] V.I. Lebedev
    5479             : !           "Quadratures on a sphere"
    5480             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    5481             : !           1976, pp. 10-24. 
    5482             : !    
    5483             : !       [6] V.I. Lebedev
    5484             : !           "Values of the nodes and weights of ninth to seventeenth 
    5485             : !            order Gauss-Markov quadrature formulae invariant under the
    5486             : !            octahedron group with inversion"
    5487             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    5488             : !           1975, pp. 44-51.
    5489             : !    
    5490           0 :        N=1
    5491           0 :        V=0.1807395252196920e-4
    5492           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5493           0 :        V=0.2848008782238827e-3
    5494           0 :        Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5495           0 :        V=0.2836065837530581e-3
    5496           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5497           0 :        A=0.1587876419858352e-1
    5498           0 :        V=0.7013149266673816e-4
    5499           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5500           0 :        A=0.4069193593751206e-1
    5501           0 :        V=0.1162798021956766e-3
    5502           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5503           0 :        A=0.7025888115257997e-1
    5504           0 :        V=0.1518728583972105e-3
    5505           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5506           0 :        A=0.1027495450028704
    5507           0 :        V=0.1798796108216934e-3
    5508           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5509           0 :        A=0.1371457730893426
    5510           0 :        V=0.2022593385972785e-3
    5511           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5512           0 :        A=0.1727758532671953
    5513           0 :        V=0.2203093105575464e-3
    5514           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5515           0 :        A=0.2091492038929037
    5516           0 :        V=0.2349294234299855e-3
    5517           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5518           0 :        A=0.2458813281751915
    5519           0 :        V=0.2467682058747003e-3
    5520           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5521           0 :        A=0.2826545859450066
    5522           0 :        V=0.2563092683572224e-3
    5523           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5524           0 :        A=0.3191957291799622
    5525           0 :        V=0.2639253896763318e-3
    5526           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5527           0 :        A=0.3552621469299578
    5528           0 :        V=0.2699137479265108e-3
    5529           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5530           0 :        A=0.3906329503406230
    5531           0 :        V=0.2745196420166739e-3
    5532           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5533           0 :        A=0.4251028614093031
    5534           0 :        V=0.2779529197397593e-3
    5535           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5536           0 :        A=0.4584777520111870
    5537           0 :        V=0.2803996086684265e-3
    5538           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5539           0 :        A=0.4905711358710193
    5540           0 :        V=0.2820302356715842e-3
    5541           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5542           0 :        A=0.5212011669847385
    5543           0 :        V=0.2830056747491068e-3
    5544           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5545           0 :        A=0.5501878488737995
    5546           0 :        V=0.2834808950776839e-3
    5547           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5548           0 :        A=0.6025037877479342
    5549           0 :        V=0.2835282339078929e-3
    5550           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5551           0 :        A=0.6254572689549016
    5552           0 :        V=0.2833819267065800e-3
    5553           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5554           0 :        A=0.6460107179528248
    5555           0 :        V=0.2832858336906784e-3
    5556           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5557           0 :        A=0.6639541138154251
    5558           0 :        V=0.2833268235451244e-3
    5559           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5560           0 :        A=0.6790688515667495
    5561           0 :        V=0.2835432677029253e-3
    5562           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5563           0 :        A=0.6911338580371512
    5564           0 :        V=0.2839091722743049e-3
    5565           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5566           0 :        A=0.6999385956126490
    5567           0 :        V=0.2843308178875841e-3
    5568           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5569           0 :        A=0.7053037748656896
    5570           0 :        V=0.2846703550533846e-3
    5571           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5572           0 :        A=0.4732224387180115e-1
    5573           0 :        V=0.1051193406971900e-3
    5574           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5575           0 :        A=0.1202100529326803
    5576           0 :        V=0.1657871838796974e-3
    5577           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5578           0 :        A=0.2034304820664855
    5579           0 :        V=0.2064648113714232e-3
    5580           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5581           0 :        A=0.2912285643573002
    5582           0 :        V=0.2347942745819741e-3
    5583           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5584           0 :        A=0.3802361792726768
    5585           0 :        V=0.2547775326597726e-3
    5586           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5587           0 :        A=0.4680598511056146
    5588           0 :        V=0.2686876684847025e-3
    5589           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5590           0 :        A=0.5528151052155599
    5591           0 :        V=0.2778665755515867e-3
    5592           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5593           0 :        A=0.6329386307803041
    5594           0 :        V=0.2830996616782929e-3
    5595           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5596           0 :        A=0.8056516651369069e-1
    5597           0 :        B=0.2363454684003124e-1
    5598           0 :        V=0.1403063340168372e-3
    5599           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5600           0 :        A=0.1156476077139389
    5601           0 :        B=0.5191291632545936e-1
    5602           0 :        V=0.1696504125939477e-3
    5603           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5604           0 :        A=0.1520473382760421
    5605           0 :        B=0.8322715736994519e-1
    5606           0 :        V=0.1935787242745390e-3
    5607           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5608           0 :        A=0.1892986699745931
    5609           0 :        B=0.1165855667993712
    5610           0 :        V=0.2130614510521968e-3
    5611           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5612           0 :        A=0.2270194446777792
    5613           0 :        B=0.1513077167409504
    5614           0 :        V=0.2289381265931048e-3
    5615           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5616           0 :        A=0.2648908185093273
    5617           0 :        B=0.1868882025807859
    5618           0 :        V=0.2418630292816186e-3
    5619           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5620           0 :        A=0.3026389259574136
    5621           0 :        B=0.2229277629776224
    5622           0 :        V=0.2523400495631193e-3
    5623           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5624           0 :        A=0.3400220296151384
    5625           0 :        B=0.2590951840746235
    5626           0 :        V=0.2607623973449605e-3
    5627           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5628           0 :        A=0.3768217953335510
    5629           0 :        B=0.2951047291750847
    5630           0 :        V=0.2674441032689209e-3
    5631           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5632           0 :        A=0.4128372900921884
    5633           0 :        B=0.3307019714169930
    5634           0 :        V=0.2726432360343356e-3
    5635           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5636           0 :        A=0.4478807131815630
    5637           0 :        B=0.3656544101087634
    5638           0 :        V=0.2765787685924545e-3
    5639           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5640           0 :        A=0.4817742034089257
    5641           0 :        B=0.3997448951939695
    5642           0 :        V=0.2794428690642224e-3
    5643           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5644           0 :        A=0.5143472814653344
    5645           0 :        B=0.4327667110812024
    5646           0 :        V=0.2814099002062895e-3
    5647           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5648           0 :        A=0.5454346213905650
    5649           0 :        B=0.4645196123532293
    5650           0 :        V=0.2826429531578994e-3
    5651           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5652           0 :        A=0.5748739313170252
    5653           0 :        B=0.4948063555703345
    5654           0 :        V=0.2832983542550884e-3
    5655           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5656           0 :        A=0.1599598738286342
    5657           0 :        B=0.2792357590048985e-1
    5658           0 :        V=0.1886695565284976e-3
    5659           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5660           0 :        A=0.1998097412500951
    5661           0 :        B=0.5877141038139065e-1
    5662           0 :        V=0.2081867882748234e-3
    5663           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5664           0 :        A=0.2396228952566202
    5665           0 :        B=0.9164573914691377e-1
    5666           0 :        V=0.2245148680600796e-3
    5667           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5668           0 :        A=0.2792228341097746
    5669           0 :        B=0.1259049641962687
    5670           0 :        V=0.2380370491511872e-3
    5671           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5672           0 :        A=0.3184251107546741
    5673           0 :        B=0.1610594823400863
    5674           0 :        V=0.2491398041852455e-3
    5675           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5676           0 :        A=0.3570481164426244
    5677           0 :        B=0.1967151653460898
    5678           0 :        V=0.2581632405881230e-3
    5679           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5680           0 :        A=0.3949164710492144
    5681           0 :        B=0.2325404606175168
    5682           0 :        V=0.2653965506227417e-3
    5683           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5684           0 :        A=0.4318617293970503
    5685           0 :        B=0.2682461141151439
    5686           0 :        V=0.2710857216747087e-3
    5687           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5688           0 :        A=0.4677221009931678
    5689           0 :        B=0.3035720116011973
    5690           0 :        V=0.2754434093903659e-3
    5691           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5692           0 :        A=0.5023417939270955
    5693           0 :        B=0.3382781859197439
    5694           0 :        V=0.2786579932519380e-3
    5695           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5696           0 :        A=0.5355701836636128
    5697           0 :        B=0.3721383065625942
    5698           0 :        V=0.2809011080679474e-3
    5699           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5700           0 :        A=0.5672608451328771
    5701           0 :        B=0.4049346360466055
    5702           0 :        V=0.2823336184560987e-3
    5703           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5704           0 :        A=0.5972704202540162
    5705           0 :        B=0.4364538098633802
    5706           0 :        V=0.2831101175806309e-3
    5707           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5708           0 :        A=0.2461687022333596
    5709           0 :        B=0.3070423166833368e-1
    5710           0 :        V=0.2221679970354546e-3
    5711           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5712           0 :        A=0.2881774566286831
    5713           0 :        B=0.6338034669281885e-1
    5714           0 :        V=0.2356185734270703e-3
    5715           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5716           0 :        A=0.3293963604116978
    5717           0 :        B=0.9742862487067941e-1
    5718           0 :        V=0.2469228344805590e-3
    5719           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5720           0 :        A=0.3697303822241377
    5721           0 :        B=0.1323799532282290
    5722           0 :        V=0.2562726348642046e-3
    5723           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5724           0 :        A=0.4090663023135127
    5725           0 :        B=0.1678497018129336
    5726           0 :        V=0.2638756726753028e-3
    5727           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5728           0 :        A=0.4472819355411712
    5729           0 :        B=0.2035095105326114
    5730           0 :        V=0.2699311157390862e-3
    5731           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5732           0 :        A=0.4842513377231437
    5733           0 :        B=0.2390692566672091
    5734           0 :        V=0.2746233268403837e-3
    5735           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5736           0 :        A=0.5198477629962928
    5737           0 :        B=0.2742649818076149
    5738           0 :        V=0.2781225674454771e-3
    5739           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5740           0 :        A=0.5539453011883145
    5741           0 :        B=0.3088503806580094
    5742           0 :        V=0.2805881254045684e-3
    5743           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5744           0 :        A=0.5864196762401251
    5745           0 :        B=0.3425904245906614
    5746           0 :        V=0.2821719877004913e-3
    5747           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5748           0 :        A=0.6171484466668390
    5749           0 :        B=0.3752562294789468
    5750           0 :        V=0.2830222502333124e-3
    5751           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5752           0 :        A=0.3350337830565727
    5753           0 :        B=0.3261589934634747e-1
    5754           0 :        V=0.2457995956744870e-3
    5755           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5756           0 :        A=0.3775773224758284
    5757           0 :        B=0.6658438928081572e-1
    5758           0 :        V=0.2551474407503706e-3
    5759           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5760           0 :        A=0.4188155229848973
    5761           0 :        B=0.1014565797157954
    5762           0 :        V=0.2629065335195311e-3
    5763           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5764           0 :        A=0.4586805892009344
    5765           0 :        B=0.1368573320843822
    5766           0 :        V=0.2691900449925075e-3
    5767           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5768           0 :        A=0.4970895714224235
    5769           0 :        B=0.1724614851951608
    5770           0 :        V=0.2741275485754276e-3
    5771           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5772           0 :        A=0.5339505133960747
    5773           0 :        B=0.2079779381416412
    5774           0 :        V=0.2778530970122595e-3
    5775           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5776           0 :        A=0.5691665792531440
    5777           0 :        B=0.2431385788322288
    5778           0 :        V=0.2805010567646741e-3
    5779           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5780           0 :        A=0.6026387682680377
    5781           0 :        B=0.2776901883049853
    5782           0 :        V=0.2822055834031040e-3
    5783           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5784           0 :        A=0.6342676150163307
    5785           0 :        B=0.3113881356386632
    5786           0 :        V=0.2831016901243473e-3
    5787           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5788           0 :        A=0.4237951119537067
    5789           0 :        B=0.3394877848664351e-1
    5790           0 :        V=0.2624474901131803e-3
    5791           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5792           0 :        A=0.4656918683234929
    5793           0 :        B=0.6880219556291447e-1
    5794           0 :        V=0.2688034163039377e-3
    5795           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5796           0 :        A=0.5058857069185980
    5797           0 :        B=0.1041946859721635
    5798           0 :        V=0.2738932751287636e-3
    5799           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5800           0 :        A=0.5443204666713996
    5801           0 :        B=0.1398039738736393
    5802           0 :        V=0.2777944791242523e-3
    5803           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5804           0 :        A=0.5809298813759742
    5805           0 :        B=0.1753373381196155
    5806           0 :        V=0.2806011661660987e-3
    5807           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5808           0 :        A=0.6156416039447128
    5809           0 :        B=0.2105215793514010
    5810           0 :        V=0.2824181456597460e-3
    5811           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5812           0 :        A=0.6483801351066604
    5813           0 :        B=0.2450953312157051
    5814           0 :        V=0.2833585216577828e-3
    5815           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5816           0 :        A=0.5103616577251688
    5817           0 :        B=0.3485560643800719e-1
    5818           0 :        V=0.2738165236962878e-3
    5819           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5820           0 :        A=0.5506738792580681
    5821           0 :        B=0.7026308631512033e-1
    5822           0 :        V=0.2778365208203180e-3
    5823           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5824           0 :        A=0.5889573040995292
    5825           0 :        B=0.1059035061296403
    5826           0 :        V=0.2807852940418966e-3
    5827           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5828           0 :        A=0.6251641589516930
    5829           0 :        B=0.1414823925236026
    5830           0 :        V=0.2827245949674705e-3
    5831           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5832           0 :        A=0.6592414921570178
    5833           0 :        B=0.1767207908214530
    5834           0 :        V=0.2837342344829828e-3
    5835           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5836           0 :        A=0.5930314017533384
    5837           0 :        B=0.3542189339561672e-1
    5838           0 :        V=0.2809233907610981e-3
    5839           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5840           0 :        A=0.6309812253390175
    5841           0 :        B=0.7109574040369549e-1
    5842           0 :        V=0.2829930809742694e-3
    5843           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5844           0 :        A=0.6666296011353230
    5845           0 :        B=0.1067259792282730
    5846           0 :        V=0.2841097874111479e-3
    5847           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5848           0 :        A=0.6703715271049922
    5849           0 :        B=0.3569455268820809e-1
    5850           0 :        V=0.2843455206008783e-3
    5851           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5852           0 :        N=N-1
    5853           0 :        RETURN
    5854             :        END
    5855           0 :        SUBROUTINE LD4334(X,Y,Z,W,N)
    5856             :        DOUBLE PRECISION X(4334)
    5857             :        DOUBLE PRECISION Y(4334)
    5858             :        DOUBLE PRECISION Z(4334)
    5859             :        DOUBLE PRECISION W(4334)
    5860             :        INTEGER N
    5861             :        DOUBLE PRECISION A,B,V
    5862             : !  
    5863             : !      LEBEDEV 4334-POINT ANGULAR GRID
    5864             : !  
    5865             : !    
    5866             : !       This subroutine is part of a set of subroutines that generate
    5867             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    5868             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    5869             : !       translated into fortran by Dr. Christoph van Wuellen.
    5870             : !       This subroutine was translated using a C to fortran77 conversion
    5871             : !       tool written by Dr. Christoph van Wuellen.
    5872             : !    
    5873             : !       Users of this code are asked to include reference [1] in their
    5874             : !       publications, and in the user- and programmers-manuals 
    5875             : !       describing their codes.
    5876             : !    
    5877             : !       This code was distributed through CCL (http://www.ccl.net/).
    5878             : !    
    5879             : !       [1] V.I. Lebedev, and D.N. Laikov
    5880             : !           "A quadrature formula for the sphere of the 131st
    5881             : !            algebraic order of accuracy"
    5882             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    5883             : !    
    5884             : !       [2] V.I. Lebedev
    5885             : !           "A quadrature formula for the sphere of 59th algebraic
    5886             : !            order of accuracy"
    5887             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    5888             : !    
    5889             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    5890             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    5891             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    5892             : !    
    5893             : !       [4] V.I. Lebedev
    5894             : !           "Spherical quadrature formulas exact to orders 25-29"
    5895             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    5896             : !    
    5897             : !       [5] V.I. Lebedev
    5898             : !           "Quadratures on a sphere"
    5899             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    5900             : !           1976, pp. 10-24. 
    5901             : !    
    5902             : !       [6] V.I. Lebedev
    5903             : !           "Values of the nodes and weights of ninth to seventeenth 
    5904             : !            order Gauss-Markov quadrature formulae invariant under the
    5905             : !            octahedron group with inversion"
    5906             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    5907             : !           1975, pp. 44-51.
    5908             : !    
    5909           0 :        N=1
    5910           0 :        V=0.1449063022537883e-4
    5911           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5912           0 :        V=0.2546377329828424e-3
    5913           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5914           0 :        A=0.1462896151831013e-1
    5915           0 :        V=0.6018432961087496e-4
    5916           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5917           0 :        A=0.3769840812493139e-1
    5918           0 :        V=0.1002286583263673e-3
    5919           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5920           0 :        A=0.6524701904096891e-1
    5921           0 :        V=0.1315222931028093e-3
    5922           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5923           0 :        A=0.9560543416134648e-1
    5924           0 :        V=0.1564213746876724e-3
    5925           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5926           0 :        A=0.1278335898929198
    5927           0 :        V=0.1765118841507736e-3
    5928           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5929           0 :        A=0.1613096104466031
    5930           0 :        V=0.1928737099311080e-3
    5931           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5932           0 :        A=0.1955806225745371
    5933           0 :        V=0.2062658534263270e-3
    5934           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5935           0 :        A=0.2302935218498028
    5936           0 :        V=0.2172395445953787e-3
    5937           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5938           0 :        A=0.2651584344113027
    5939           0 :        V=0.2262076188876047e-3
    5940           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5941           0 :        A=0.2999276825183209
    5942           0 :        V=0.2334885699462397e-3
    5943           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5944           0 :        A=0.3343828669718798
    5945           0 :        V=0.2393355273179203e-3
    5946           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5947           0 :        A=0.3683265013750518
    5948           0 :        V=0.2439559200468863e-3
    5949           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5950           0 :        A=0.4015763206518108
    5951           0 :        V=0.2475251866060002e-3
    5952           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5953           0 :        A=0.4339612026399770
    5954           0 :        V=0.2501965558158773e-3
    5955           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5956           0 :        A=0.4653180651114582
    5957           0 :        V=0.2521081407925925e-3
    5958           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5959           0 :        A=0.4954893331080803
    5960           0 :        V=0.2533881002388081e-3
    5961           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5962           0 :        A=0.5243207068924930
    5963           0 :        V=0.2541582900848261e-3
    5964           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5965           0 :        A=0.5516590479041704
    5966           0 :        V=0.2545365737525860e-3
    5967           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5968           0 :        A=0.6012371927804176
    5969           0 :        V=0.2545726993066799e-3
    5970           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5971           0 :        A=0.6231574466449819
    5972           0 :        V=0.2544456197465555e-3
    5973           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5974           0 :        A=0.6429416514181271
    5975           0 :        V=0.2543481596881064e-3
    5976           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5977           0 :        A=0.6604124272943595
    5978           0 :        V=0.2543506451429194e-3
    5979           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5980           0 :        A=0.6753851470408250
    5981           0 :        V=0.2544905675493763e-3
    5982           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5983           0 :        A=0.6876717970626160
    5984           0 :        V=0.2547611407344429e-3
    5985           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5986           0 :        A=0.6970895061319234
    5987           0 :        V=0.2551060375448869e-3
    5988           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5989           0 :        A=0.7034746912553310
    5990           0 :        V=0.2554291933816039e-3
    5991           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5992           0 :        A=0.7067017217542295
    5993           0 :        V=0.2556255710686343e-3
    5994           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5995           0 :        A=0.4382223501131123e-1
    5996           0 :        V=0.9041339695118195e-4
    5997           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    5998           0 :        A=0.1117474077400006
    5999           0 :        V=0.1438426330079022e-3
    6000           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6001           0 :        A=0.1897153252911440
    6002           0 :        V=0.1802523089820518e-3
    6003           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6004           0 :        A=0.2724023009910331
    6005           0 :        V=0.2060052290565496e-3
    6006           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6007           0 :        A=0.3567163308709902
    6008           0 :        V=0.2245002248967466e-3
    6009           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6010           0 :        A=0.4404784483028087
    6011           0 :        V=0.2377059847731150e-3
    6012           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6013           0 :        A=0.5219833154161411
    6014           0 :        V=0.2468118955882525e-3
    6015           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6016           0 :        A=0.5998179868977553
    6017           0 :        V=0.2525410872966528e-3
    6018           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6019           0 :        A=0.6727803154548222
    6020           0 :        V=0.2553101409933397e-3
    6021           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6022           0 :        A=0.7476563943166086e-1
    6023           0 :        B=0.2193168509461185e-1
    6024           0 :        V=0.1212879733668632e-3
    6025           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6026           0 :        A=0.1075341482001416
    6027           0 :        B=0.4826419281533887e-1
    6028           0 :        V=0.1472872881270931e-3
    6029           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6030           0 :        A=0.1416344885203259
    6031           0 :        B=0.7751191883575742e-1
    6032           0 :        V=0.1686846601010828e-3
    6033           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6034           0 :        A=0.1766325315388586
    6035           0 :        B=0.1087558139247680
    6036           0 :        V=0.1862698414660208e-3
    6037           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6038           0 :        A=0.2121744174481514
    6039           0 :        B=0.1413661374253096
    6040           0 :        V=0.2007430956991861e-3
    6041           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6042           0 :        A=0.2479669443408145
    6043           0 :        B=0.1748768214258880
    6044           0 :        V=0.2126568125394796e-3
    6045           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6046           0 :        A=0.2837600452294113
    6047           0 :        B=0.2089216406612073
    6048           0 :        V=0.2224394603372113e-3
    6049           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6050           0 :        A=0.3193344933193984
    6051           0 :        B=0.2431987685545972
    6052           0 :        V=0.2304264522673135e-3
    6053           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6054           0 :        A=0.3544935442438745
    6055           0 :        B=0.2774497054377770
    6056           0 :        V=0.2368854288424087e-3
    6057           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6058           0 :        A=0.3890571932288154
    6059           0 :        B=0.3114460356156915
    6060           0 :        V=0.2420352089461772e-3
    6061           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6062           0 :        A=0.4228581214259090
    6063           0 :        B=0.3449806851913012
    6064           0 :        V=0.2460597113081295e-3
    6065           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6066           0 :        A=0.4557387211304052
    6067           0 :        B=0.3778618641248256
    6068           0 :        V=0.2491181912257687e-3
    6069           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6070           0 :        A=0.4875487950541643
    6071           0 :        B=0.4099086391698978
    6072           0 :        V=0.2513528194205857e-3
    6073           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6074           0 :        A=0.5181436529962997
    6075           0 :        B=0.4409474925853973
    6076           0 :        V=0.2528943096693220e-3
    6077           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6078           0 :        A=0.5473824095600661
    6079           0 :        B=0.4708094517711291
    6080           0 :        V=0.2538660368488136e-3
    6081           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6082           0 :        A=0.5751263398976174
    6083           0 :        B=0.4993275140354637
    6084           0 :        V=0.2543868648299022e-3
    6085           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6086           0 :        A=0.1489515746840028
    6087           0 :        B=0.2599381993267017e-1
    6088           0 :        V=0.1642595537825183e-3
    6089           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6090           0 :        A=0.1863656444351767
    6091           0 :        B=0.5479286532462190e-1
    6092           0 :        V=0.1818246659849308e-3
    6093           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6094           0 :        A=0.2238602880356348
    6095           0 :        B=0.8556763251425254e-1
    6096           0 :        V=0.1966565649492420e-3
    6097           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6098           0 :        A=0.2612723375728160
    6099           0 :        B=0.1177257802267011
    6100           0 :        V=0.2090677905657991e-3
    6101           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6102           0 :        A=0.2984332990206190
    6103           0 :        B=0.1508168456192700
    6104           0 :        V=0.2193820409510504e-3
    6105           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6106           0 :        A=0.3351786584663333
    6107           0 :        B=0.1844801892177727
    6108           0 :        V=0.2278870827661928e-3
    6109           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6110           0 :        A=0.3713505522209120
    6111           0 :        B=0.2184145236087598
    6112           0 :        V=0.2348283192282090e-3
    6113           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6114           0 :        A=0.4067981098954663
    6115           0 :        B=0.2523590641486229
    6116           0 :        V=0.2404139755581477e-3
    6117           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6118           0 :        A=0.4413769993687534
    6119           0 :        B=0.2860812976901373
    6120           0 :        V=0.2448227407760734e-3
    6121           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6122           0 :        A=0.4749487182516394
    6123           0 :        B=0.3193686757808996
    6124           0 :        V=0.2482110455592573e-3
    6125           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6126           0 :        A=0.5073798105075426
    6127           0 :        B=0.3520226949547602
    6128           0 :        V=0.2507192397774103e-3
    6129           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6130           0 :        A=0.5385410448878654
    6131           0 :        B=0.3838544395667890
    6132           0 :        V=0.2524765968534880e-3
    6133           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6134           0 :        A=0.5683065353670530
    6135           0 :        B=0.4146810037640963
    6136           0 :        V=0.2536052388539425e-3
    6137           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6138           0 :        A=0.5965527620663510
    6139           0 :        B=0.4443224094681121
    6140           0 :        V=0.2542230588033068e-3
    6141           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6142           0 :        A=0.2299227700856157
    6143           0 :        B=0.2865757664057584e-1
    6144           0 :        V=0.1944817013047896e-3
    6145           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6146           0 :        A=0.2695752998553267
    6147           0 :        B=0.5923421684485993e-1
    6148           0 :        V=0.2067862362746635e-3
    6149           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6150           0 :        A=0.3086178716611389
    6151           0 :        B=0.9117817776057715e-1
    6152           0 :        V=0.2172440734649114e-3
    6153           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6154           0 :        A=0.3469649871659077
    6155           0 :        B=0.1240593814082605
    6156           0 :        V=0.2260125991723423e-3
    6157           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6158           0 :        A=0.3845153566319655
    6159           0 :        B=0.1575272058259175
    6160           0 :        V=0.2332655008689523e-3
    6161           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6162           0 :        A=0.4211600033403215
    6163           0 :        B=0.1912845163525413
    6164           0 :        V=0.2391699681532458e-3
    6165           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6166           0 :        A=0.4567867834329882
    6167           0 :        B=0.2250710177858171
    6168           0 :        V=0.2438801528273928e-3
    6169           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6170           0 :        A=0.4912829319232061
    6171           0 :        B=0.2586521303440910
    6172           0 :        V=0.2475370504260665e-3
    6173           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6174           0 :        A=0.5245364793303812
    6175           0 :        B=0.2918112242865407
    6176           0 :        V=0.2502707235640574e-3
    6177           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6178           0 :        A=0.5564369788915756
    6179           0 :        B=0.3243439239067890
    6180           0 :        V=0.2522031701054241e-3
    6181           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6182           0 :        A=0.5868757697775287
    6183           0 :        B=0.3560536787835351
    6184           0 :        V=0.2534511269978784e-3
    6185           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6186           0 :        A=0.6157458853519617
    6187           0 :        B=0.3867480821242581
    6188           0 :        V=0.2541284914955151e-3
    6189           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6190           0 :        A=0.3138461110672113
    6191           0 :        B=0.3051374637507278e-1
    6192           0 :        V=0.2161509250688394e-3
    6193           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6194           0 :        A=0.3542495872050569
    6195           0 :        B=0.6237111233730755e-1
    6196           0 :        V=0.2248778513437852e-3
    6197           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6198           0 :        A=0.3935751553120181
    6199           0 :        B=0.9516223952401907e-1
    6200           0 :        V=0.2322388803404617e-3
    6201           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6202           0 :        A=0.4317634668111147
    6203           0 :        B=0.1285467341508517
    6204           0 :        V=0.2383265471001355e-3
    6205           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6206           0 :        A=0.4687413842250821
    6207           0 :        B=0.1622318931656033
    6208           0 :        V=0.2432476675019525e-3
    6209           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6210           0 :        A=0.5044274237060283
    6211           0 :        B=0.1959581153836453
    6212           0 :        V=0.2471122223750674e-3
    6213           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6214           0 :        A=0.5387354077925727
    6215           0 :        B=0.2294888081183837
    6216           0 :        V=0.2500291752486870e-3
    6217           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6218           0 :        A=0.5715768898356105
    6219           0 :        B=0.2626031152713945
    6220           0 :        V=0.2521055942764682e-3
    6221           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6222           0 :        A=0.6028627200136111
    6223           0 :        B=0.2950904075286713
    6224           0 :        V=0.2534472785575503e-3
    6225           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6226           0 :        A=0.6325039812653463
    6227           0 :        B=0.3267458451113286
    6228           0 :        V=0.2541599713080121e-3
    6229           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6230           0 :        A=0.3981986708423407
    6231           0 :        B=0.3183291458749821e-1
    6232           0 :        V=0.2317380975862936e-3
    6233           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6234           0 :        A=0.4382791182133300
    6235           0 :        B=0.6459548193880908e-1
    6236           0 :        V=0.2378550733719775e-3
    6237           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6238           0 :        A=0.4769233057218166
    6239           0 :        B=0.9795757037087952e-1
    6240           0 :        V=0.2428884456739118e-3
    6241           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6242           0 :        A=0.5140823911194238
    6243           0 :        B=0.1316307235126655
    6244           0 :        V=0.2469002655757292e-3
    6245           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6246           0 :        A=0.5496977833862983
    6247           0 :        B=0.1653556486358704
    6248           0 :        V=0.2499657574265851e-3
    6249           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6250           0 :        A=0.5837047306512727
    6251           0 :        B=0.1988931724126510
    6252           0 :        V=0.2521676168486082e-3
    6253           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6254           0 :        A=0.6160349566926879
    6255           0 :        B=0.2320174581438950
    6256           0 :        V=0.2535935662645334e-3
    6257           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6258           0 :        A=0.6466185353209440
    6259           0 :        B=0.2645106562168662
    6260           0 :        V=0.2543356743363214e-3
    6261           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6262           0 :        A=0.4810835158795404
    6263           0 :        B=0.3275917807743992e-1
    6264           0 :        V=0.2427353285201535e-3
    6265           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6266           0 :        A=0.5199925041324341
    6267           0 :        B=0.6612546183967181e-1
    6268           0 :        V=0.2468258039744386e-3
    6269           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6270           0 :        A=0.5571717692207494
    6271           0 :        B=0.9981498331474143e-1
    6272           0 :        V=0.2500060956440310e-3
    6273           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6274           0 :        A=0.5925789250836378
    6275           0 :        B=0.1335687001410374
    6276           0 :        V=0.2523238365420979e-3
    6277           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6278           0 :        A=0.6261658523859670
    6279           0 :        B=0.1671444402896463
    6280           0 :        V=0.2538399260252846e-3
    6281           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6282           0 :        A=0.6578811126669331
    6283           0 :        B=0.2003106382156076
    6284           0 :        V=0.2546255927268069e-3
    6285           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6286           0 :        A=0.5609624612998100
    6287           0 :        B=0.3337500940231335e-1
    6288           0 :        V=0.2500583360048449e-3
    6289           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6290           0 :        A=0.5979959659984670
    6291           0 :        B=0.6708750335901803e-1
    6292           0 :        V=0.2524777638260203e-3
    6293           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6294           0 :        A=0.6330523711054002
    6295           0 :        B=0.1008792126424850
    6296           0 :        V=0.2540951193860656e-3
    6297           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6298           0 :        A=0.6660960998103972
    6299           0 :        B=0.1345050343171794
    6300           0 :        V=0.2549524085027472e-3
    6301           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6302           0 :        A=0.6365384364585819
    6303           0 :        B=0.3372799460737052e-1
    6304           0 :        V=0.2542569507009158e-3
    6305           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6306           0 :        A=0.6710994302899275
    6307           0 :        B=0.6755249309678028e-1
    6308           0 :        V=0.2552114127580376e-3
    6309           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6310           0 :        N=N-1
    6311           0 :        RETURN
    6312             :        END
    6313           0 :        SUBROUTINE LD4802(X,Y,Z,W,N)
    6314             :        DOUBLE PRECISION X(4802)
    6315             :        DOUBLE PRECISION Y(4802)
    6316             :        DOUBLE PRECISION Z(4802)
    6317             :        DOUBLE PRECISION W(4802)
    6318             :        INTEGER N
    6319             :        DOUBLE PRECISION A,B,V
    6320             : !  
    6321             : !      LEBEDEV 4802-POINT ANGULAR GRID
    6322             : !  
    6323             : !    
    6324             : !       This subroutine is part of a set of subroutines that generate
    6325             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    6326             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    6327             : !       translated into fortran by Dr. Christoph van Wuellen.
    6328             : !       This subroutine was translated using a C to fortran77 conversion
    6329             : !       tool written by Dr. Christoph van Wuellen.
    6330             : !    
    6331             : !       Users of this code are asked to include reference [1] in their
    6332             : !       publications, and in the user- and programmers-manuals 
    6333             : !       describing their codes.
    6334             : !    
    6335             : !       This code was distributed through CCL (http://www.ccl.net/).
    6336             : !    
    6337             : !       [1] V.I. Lebedev, and D.N. Laikov
    6338             : !           "A quadrature formula for the sphere of the 131st
    6339             : !            algebraic order of accuracy"
    6340             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    6341             : !    
    6342             : !       [2] V.I. Lebedev
    6343             : !           "A quadrature formula for the sphere of 59th algebraic
    6344             : !            order of accuracy"
    6345             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    6346             : !    
    6347             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    6348             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    6349             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    6350             : !    
    6351             : !       [4] V.I. Lebedev
    6352             : !           "Spherical quadrature formulas exact to orders 25-29"
    6353             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    6354             : !    
    6355             : !       [5] V.I. Lebedev
    6356             : !           "Quadratures on a sphere"
    6357             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    6358             : !           1976, pp. 10-24. 
    6359             : !    
    6360             : !       [6] V.I. Lebedev
    6361             : !           "Values of the nodes and weights of ninth to seventeenth 
    6362             : !            order Gauss-Markov quadrature formulae invariant under the
    6363             : !            octahedron group with inversion"
    6364             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    6365             : !           1975, pp. 44-51.
    6366             : !    
    6367           0 :        N=1
    6368           0 :        V=0.9687521879420705e-4
    6369           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6370           0 :        V=0.2307897895367918e-3
    6371           0 :        Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6372           0 :        V=0.2297310852498558e-3
    6373           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6374           0 :        A=0.2335728608887064e-1
    6375           0 :        V=0.7386265944001919e-4
    6376           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6377           0 :        A=0.4352987836550653e-1
    6378           0 :        V=0.8257977698542210e-4
    6379           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6380           0 :        A=0.6439200521088801e-1
    6381           0 :        V=0.9706044762057630e-4
    6382           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6383           0 :        A=0.9003943631993181e-1
    6384           0 :        V=0.1302393847117003e-3
    6385           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6386           0 :        A=0.1196706615548473
    6387           0 :        V=0.1541957004600968e-3
    6388           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6389           0 :        A=0.1511715412838134
    6390           0 :        V=0.1704459770092199e-3
    6391           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6392           0 :        A=0.1835982828503801
    6393           0 :        V=0.1827374890942906e-3
    6394           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6395           0 :        A=0.2165081259155405
    6396           0 :        V=0.1926360817436107e-3
    6397           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6398           0 :        A=0.2496208720417563
    6399           0 :        V=0.2008010239494833e-3
    6400           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6401           0 :        A=0.2827200673567900
    6402           0 :        V=0.2075635983209175e-3
    6403           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6404           0 :        A=0.3156190823994346
    6405           0 :        V=0.2131306638690909e-3
    6406           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6407           0 :        A=0.3481476793749115
    6408           0 :        V=0.2176562329937335e-3
    6409           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6410           0 :        A=0.3801466086947226
    6411           0 :        V=0.2212682262991018e-3
    6412           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6413           0 :        A=0.4114652119634011
    6414           0 :        V=0.2240799515668565e-3
    6415           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6416           0 :        A=0.4419598786519751
    6417           0 :        V=0.2261959816187525e-3
    6418           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6419           0 :        A=0.4714925949329543
    6420           0 :        V=0.2277156368808855e-3
    6421           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6422           0 :        A=0.4999293972879466
    6423           0 :        V=0.2287351772128336e-3
    6424           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6425           0 :        A=0.5271387221431248
    6426           0 :        V=0.2293490814084085e-3
    6427           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6428           0 :        A=0.5529896780837761
    6429           0 :        V=0.2296505312376273e-3
    6430           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6431           0 :        A=0.6000856099481712
    6432           0 :        V=0.2296793832318756e-3
    6433           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6434           0 :        A=0.6210562192785175
    6435           0 :        V=0.2295785443842974e-3
    6436           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6437           0 :        A=0.6401165879934240
    6438           0 :        V=0.2295017931529102e-3
    6439           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6440           0 :        A=0.6571144029244334
    6441           0 :        V=0.2295059638184868e-3
    6442           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6443           0 :        A=0.6718910821718863
    6444           0 :        V=0.2296232343237362e-3
    6445           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6446           0 :        A=0.6842845591099010
    6447           0 :        V=0.2298530178740771e-3
    6448           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6449           0 :        A=0.6941353476269816
    6450           0 :        V=0.2301579790280501e-3
    6451           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6452           0 :        A=0.7012965242212991
    6453           0 :        V=0.2304690404996513e-3
    6454           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6455           0 :        A=0.7056471428242644
    6456           0 :        V=0.2307027995907102e-3
    6457           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6458           0 :        A=0.4595557643585895e-1
    6459           0 :        V=0.9312274696671092e-4
    6460           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6461           0 :        A=0.1049316742435023
    6462           0 :        V=0.1199919385876926e-3
    6463           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6464           0 :        A=0.1773548879549274
    6465           0 :        V=0.1598039138877690e-3
    6466           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6467           0 :        A=0.2559071411236127
    6468           0 :        V=0.1822253763574900e-3
    6469           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6470           0 :        A=0.3358156837985898
    6471           0 :        V=0.1988579593655040e-3
    6472           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6473           0 :        A=0.4155835743763893
    6474           0 :        V=0.2112620102533307e-3
    6475           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6476           0 :        A=0.4937894296167472
    6477           0 :        V=0.2201594887699007e-3
    6478           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6479           0 :        A=0.5691569694793316
    6480           0 :        V=0.2261622590895036e-3
    6481           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6482           0 :        A=0.6405840854894251
    6483           0 :        V=0.2296458453435705e-3
    6484           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6485           0 :        A=0.7345133894143348e-1
    6486           0 :        B=0.2177844081486067e-1
    6487           0 :        V=0.1006006990267000e-3
    6488           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6489           0 :        A=0.1009859834044931
    6490           0 :        B=0.4590362185775188e-1
    6491           0 :        V=0.1227676689635876e-3
    6492           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6493           0 :        A=0.1324289619748758
    6494           0 :        B=0.7255063095690877e-1
    6495           0 :        V=0.1467864280270117e-3
    6496           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6497           0 :        A=0.1654272109607127
    6498           0 :        B=0.1017825451960684
    6499           0 :        V=0.1644178912101232e-3
    6500           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6501           0 :        A=0.1990767186776461
    6502           0 :        B=0.1325652320980364
    6503           0 :        V=0.1777664890718961e-3
    6504           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6505           0 :        A=0.2330125945523278
    6506           0 :        B=0.1642765374496765
    6507           0 :        V=0.1884825664516690e-3
    6508           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6509           0 :        A=0.2670080611108287
    6510           0 :        B=0.1965360374337889
    6511           0 :        V=0.1973269246453848e-3
    6512           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6513           0 :        A=0.3008753376294316
    6514           0 :        B=0.2290726770542238
    6515           0 :        V=0.2046767775855328e-3
    6516           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6517           0 :        A=0.3344475596167860
    6518           0 :        B=0.2616645495370823
    6519           0 :        V=0.2107600125918040e-3
    6520           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6521           0 :        A=0.3675709724070786
    6522           0 :        B=0.2941150728843141
    6523           0 :        V=0.2157416362266829e-3
    6524           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6525           0 :        A=0.4001000887587812
    6526           0 :        B=0.3262440400919066
    6527           0 :        V=0.2197557816920721e-3
    6528           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6529           0 :        A=0.4318956350436028
    6530           0 :        B=0.3578835350611916
    6531           0 :        V=0.2229192611835437e-3
    6532           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6533           0 :        A=0.4628239056795531
    6534           0 :        B=0.3888751854043678
    6535           0 :        V=0.2253385110212775e-3
    6536           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6537           0 :        A=0.4927563229773636
    6538           0 :        B=0.4190678003222840
    6539           0 :        V=0.2271137107548774e-3
    6540           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6541           0 :        A=0.5215687136707969
    6542           0 :        B=0.4483151836883852
    6543           0 :        V=0.2283414092917525e-3
    6544           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6545           0 :        A=0.5491402346984905
    6546           0 :        B=0.4764740676087880
    6547           0 :        V=0.2291161673130077e-3
    6548           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6549           0 :        A=0.5753520160126075
    6550           0 :        B=0.5034021310998277
    6551           0 :        V=0.2295313908576598e-3
    6552           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6553           0 :        A=0.1388326356417754
    6554           0 :        B=0.2435436510372806e-1
    6555           0 :        V=0.1438204721359031e-3
    6556           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6557           0 :        A=0.1743686900537244
    6558           0 :        B=0.5118897057342652e-1
    6559           0 :        V=0.1607738025495257e-3
    6560           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6561           0 :        A=0.2099737037950268
    6562           0 :        B=0.8014695048539634e-1
    6563           0 :        V=0.1741483853528379e-3
    6564           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6565           0 :        A=0.2454492590908548
    6566           0 :        B=0.1105117874155699
    6567           0 :        V=0.1851918467519151e-3
    6568           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6569           0 :        A=0.2807219257864278
    6570           0 :        B=0.1417950531570966
    6571           0 :        V=0.1944628638070613e-3
    6572           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6573           0 :        A=0.3156842271975842
    6574           0 :        B=0.1736604945719597
    6575           0 :        V=0.2022495446275152e-3
    6576           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6577           0 :        A=0.3502090945177752
    6578           0 :        B=0.2058466324693981
    6579           0 :        V=0.2087462382438514e-3
    6580           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6581           0 :        A=0.3841684849519686
    6582           0 :        B=0.2381284261195919
    6583           0 :        V=0.2141074754818308e-3
    6584           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6585           0 :        A=0.4174372367906016
    6586           0 :        B=0.2703031270422569
    6587           0 :        V=0.2184640913748162e-3
    6588           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6589           0 :        A=0.4498926465011892
    6590           0 :        B=0.3021845683091309
    6591           0 :        V=0.2219309165220329e-3
    6592           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6593           0 :        A=0.4814146229807701
    6594           0 :        B=0.3335993355165720
    6595           0 :        V=0.2246123118340624e-3
    6596           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6597           0 :        A=0.5118863625734701
    6598           0 :        B=0.3643833735518232
    6599           0 :        V=0.2266062766915125e-3
    6600           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6601           0 :        A=0.5411947455119144
    6602           0 :        B=0.3943789541958179
    6603           0 :        V=0.2280072952230796e-3
    6604           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6605           0 :        A=0.5692301500357246
    6606           0 :        B=0.4234320144403542
    6607           0 :        V=0.2289082025202583e-3
    6608           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6609           0 :        A=0.5958857204139576
    6610           0 :        B=0.4513897947419260
    6611           0 :        V=0.2294012695120025e-3
    6612           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6613           0 :        A=0.2156270284785766
    6614           0 :        B=0.2681225755444491e-1
    6615           0 :        V=0.1722434488736947e-3
    6616           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6617           0 :        A=0.2532385054909710
    6618           0 :        B=0.5557495747805614e-1
    6619           0 :        V=0.1830237421455091e-3
    6620           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6621           0 :        A=0.2902564617771537
    6622           0 :        B=0.8569368062950249e-1
    6623           0 :        V=0.1923855349997633e-3
    6624           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6625           0 :        A=0.3266979823143256
    6626           0 :        B=0.1167367450324135
    6627           0 :        V=0.2004067861936271e-3
    6628           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6629           0 :        A=0.3625039627493614
    6630           0 :        B=0.1483861994003304
    6631           0 :        V=0.2071817297354263e-3
    6632           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6633           0 :        A=0.3975838937548699
    6634           0 :        B=0.1803821503011405
    6635           0 :        V=0.2128250834102103e-3
    6636           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6637           0 :        A=0.4318396099009774
    6638           0 :        B=0.2124962965666424
    6639           0 :        V=0.2174513719440102e-3
    6640           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6641           0 :        A=0.4651706555732742
    6642           0 :        B=0.2445221837805913
    6643           0 :        V=0.2211661839150214e-3
    6644           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6645           0 :        A=0.4974752649620969
    6646           0 :        B=0.2762701224322987
    6647           0 :        V=0.2240665257813102e-3
    6648           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6649           0 :        A=0.5286517579627517
    6650           0 :        B=0.3075627775211328
    6651           0 :        V=0.2262439516632620e-3
    6652           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6653           0 :        A=0.5586001195731895
    6654           0 :        B=0.3382311089826877
    6655           0 :        V=0.2277874557231869e-3
    6656           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6657           0 :        A=0.5872229902021319
    6658           0 :        B=0.3681108834741399
    6659           0 :        V=0.2287854314454994e-3
    6660           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6661           0 :        A=0.6144258616235123
    6662           0 :        B=0.3970397446872839
    6663           0 :        V=0.2293268499615575e-3
    6664           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6665           0 :        A=0.2951676508064861
    6666           0 :        B=0.2867499538750441e-1
    6667           0 :        V=0.1912628201529828e-3
    6668           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6669           0 :        A=0.3335085485472725
    6670           0 :        B=0.5867879341903510e-1
    6671           0 :        V=0.1992499672238701e-3
    6672           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6673           0 :        A=0.3709561760636381
    6674           0 :        B=0.8961099205022284e-1
    6675           0 :        V=0.2061275533454027e-3
    6676           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6677           0 :        A=0.4074722861667498
    6678           0 :        B=0.1211627927626297
    6679           0 :        V=0.2119318215968572e-3
    6680           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6681           0 :        A=0.4429923648839117
    6682           0 :        B=0.1530748903554898
    6683           0 :        V=0.2167416581882652e-3
    6684           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6685           0 :        A=0.4774428052721736
    6686           0 :        B=0.1851176436721877
    6687           0 :        V=0.2206430730516600e-3
    6688           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6689           0 :        A=0.5107446539535904
    6690           0 :        B=0.2170829107658179
    6691           0 :        V=0.2237186938699523e-3
    6692           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6693           0 :        A=0.5428151370542935
    6694           0 :        B=0.2487786689026271
    6695           0 :        V=0.2260480075032884e-3
    6696           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6697           0 :        A=0.5735699292556964
    6698           0 :        B=0.2800239952795016
    6699           0 :        V=0.2277098884558542e-3
    6700           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6701           0 :        A=0.6029253794562866
    6702           0 :        B=0.3106445702878119
    6703           0 :        V=0.2287845715109671e-3
    6704           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6705           0 :        A=0.6307998987073145
    6706           0 :        B=0.3404689500841194
    6707           0 :        V=0.2293547268236294e-3
    6708           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6709           0 :        A=0.3752652273692719
    6710           0 :        B=0.2997145098184479e-1
    6711           0 :        V=0.2056073839852528e-3
    6712           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6713           0 :        A=0.4135383879344028
    6714           0 :        B=0.6086725898678011e-1
    6715           0 :        V=0.2114235865831876e-3
    6716           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6717           0 :        A=0.4506113885153907
    6718           0 :        B=0.9238849548435643e-1
    6719           0 :        V=0.2163175629770551e-3
    6720           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6721           0 :        A=0.4864401554606072
    6722           0 :        B=0.1242786603851851
    6723           0 :        V=0.2203392158111650e-3
    6724           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6725           0 :        A=0.5209708076611709
    6726           0 :        B=0.1563086731483386
    6727           0 :        V=0.2235473176847839e-3
    6728           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6729           0 :        A=0.5541422135830122
    6730           0 :        B=0.1882696509388506
    6731           0 :        V=0.2260024141501235e-3
    6732           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6733           0 :        A=0.5858880915113817
    6734           0 :        B=0.2199672979126059
    6735           0 :        V=0.2277675929329182e-3
    6736           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6737           0 :        A=0.6161399390603444
    6738           0 :        B=0.2512165482924867
    6739           0 :        V=0.2289102112284834e-3
    6740           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6741           0 :        A=0.6448296482255090
    6742           0 :        B=0.2818368701871888
    6743           0 :        V=0.2295027954625118e-3
    6744           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6745           0 :        A=0.4544796274917948
    6746           0 :        B=0.3088970405060312e-1
    6747           0 :        V=0.2161281589879992e-3
    6748           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6749           0 :        A=0.4919389072146628
    6750           0 :        B=0.6240947677636835e-1
    6751           0 :        V=0.2201980477395102e-3
    6752           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6753           0 :        A=0.5279313026985183
    6754           0 :        B=0.9430706144280313e-1
    6755           0 :        V=0.2234952066593166e-3
    6756           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6757           0 :        A=0.5624169925571135
    6758           0 :        B=0.1263547818770374
    6759           0 :        V=0.2260540098520838e-3
    6760           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6761           0 :        A=0.5953484627093287
    6762           0 :        B=0.1583430788822594
    6763           0 :        V=0.2279157981899988e-3
    6764           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6765           0 :        A=0.6266730715339185
    6766           0 :        B=0.1900748462555988
    6767           0 :        V=0.2291296918565571e-3
    6768           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6769           0 :        A=0.6563363204278871
    6770           0 :        B=0.2213599519592567
    6771           0 :        V=0.2297533752536649e-3
    6772           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6773           0 :        A=0.5314574716585696
    6774           0 :        B=0.3152508811515374e-1
    6775           0 :        V=0.2234927356465995e-3
    6776           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6777           0 :        A=0.5674614932298185
    6778           0 :        B=0.6343865291465561e-1
    6779           0 :        V=0.2261288012985219e-3
    6780           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6781           0 :        A=0.6017706004970264
    6782           0 :        B=0.9551503504223951e-1
    6783           0 :        V=0.2280818160923688e-3
    6784           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6785           0 :        A=0.6343471270264178
    6786           0 :        B=0.1275440099801196
    6787           0 :        V=0.2293773295180159e-3
    6788           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6789           0 :        A=0.6651494599127802
    6790           0 :        B=0.1593252037671960
    6791           0 :        V=0.2300528767338634e-3
    6792           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6793           0 :        A=0.6050184986005704
    6794           0 :        B=0.3192538338496105e-1
    6795           0 :        V=0.2281893855065666e-3
    6796           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6797           0 :        A=0.6390163550880400
    6798           0 :        B=0.6402824353962306e-1
    6799           0 :        V=0.2295720444840727e-3
    6800           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6801           0 :        A=0.6711199107088448
    6802           0 :        B=0.9609805077002909e-1
    6803           0 :        V=0.2303227649026753e-3
    6804           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6805           0 :        A=0.6741354429572275
    6806           0 :        B=0.3211853196273233e-1
    6807           0 :        V=0.2304831913227114e-3
    6808           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6809           0 :        N=N-1
    6810           0 :        RETURN
    6811             :        END
    6812           0 :        SUBROUTINE LD5294(X,Y,Z,W,N)
    6813             :        DOUBLE PRECISION X(5294)
    6814             :        DOUBLE PRECISION Y(5294)
    6815             :        DOUBLE PRECISION Z(5294)
    6816             :        DOUBLE PRECISION W(5294)
    6817             :        INTEGER N
    6818             :        DOUBLE PRECISION A,B,V
    6819             : !  
    6820             : !      LEBEDEV 5294-POINT ANGULAR GRID
    6821             : !  
    6822             : !    
    6823             : !       This subroutine is part of a set of subroutines that generate
    6824             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    6825             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    6826             : !       translated into fortran by Dr. Christoph van Wuellen.
    6827             : !       This subroutine was translated using a C to fortran77 conversion
    6828             : !       tool written by Dr. Christoph van Wuellen.
    6829             : !    
    6830             : !       Users of this code are asked to include reference [1] in their
    6831             : !       publications, and in the user- and programmers-manuals 
    6832             : !       describing their codes.
    6833             : !    
    6834             : !       This code was distributed through CCL (http://www.ccl.net/).
    6835             : !    
    6836             : !       [1] V.I. Lebedev, and D.N. Laikov
    6837             : !           "A quadrature formula for the sphere of the 131st
    6838             : !            algebraic order of accuracy"
    6839             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    6840             : !    
    6841             : !       [2] V.I. Lebedev
    6842             : !           "A quadrature formula for the sphere of 59th algebraic
    6843             : !            order of accuracy"
    6844             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    6845             : !    
    6846             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    6847             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    6848             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    6849             : !    
    6850             : !       [4] V.I. Lebedev
    6851             : !           "Spherical quadrature formulas exact to orders 25-29"
    6852             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    6853             : !    
    6854             : !       [5] V.I. Lebedev
    6855             : !           "Quadratures on a sphere"
    6856             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    6857             : !           1976, pp. 10-24. 
    6858             : !    
    6859             : !       [6] V.I. Lebedev
    6860             : !           "Values of the nodes and weights of ninth to seventeenth 
    6861             : !            order Gauss-Markov quadrature formulae invariant under the
    6862             : !            octahedron group with inversion"
    6863             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    6864             : !           1975, pp. 44-51.
    6865             : !    
    6866           0 :        N=1
    6867           0 :        V=0.9080510764308163e-4
    6868           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6869           0 :        V=0.2084824361987793e-3
    6870           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6871           0 :        A=0.2303261686261450e-1
    6872           0 :        V=0.5011105657239616e-4
    6873           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6874           0 :        A=0.3757208620162394e-1
    6875           0 :        V=0.5942520409683854e-4
    6876           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6877           0 :        A=0.5821912033821852e-1
    6878           0 :        V=0.9564394826109721e-4
    6879           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6880           0 :        A=0.8403127529194872e-1
    6881           0 :        V=0.1185530657126338e-3
    6882           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6883           0 :        A=0.1122927798060578
    6884           0 :        V=0.1364510114230331e-3
    6885           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6886           0 :        A=0.1420125319192987
    6887           0 :        V=0.1505828825605415e-3
    6888           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6889           0 :        A=0.1726396437341978
    6890           0 :        V=0.1619298749867023e-3
    6891           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6892           0 :        A=0.2038170058115696
    6893           0 :        V=0.1712450504267789e-3
    6894           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6895           0 :        A=0.2352849892876508
    6896           0 :        V=0.1789891098164999e-3
    6897           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6898           0 :        A=0.2668363354312461
    6899           0 :        V=0.1854474955629795e-3
    6900           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6901           0 :        A=0.2982941279900452
    6902           0 :        V=0.1908148636673661e-3
    6903           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6904           0 :        A=0.3295002922087076
    6905           0 :        V=0.1952377405281833e-3
    6906           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6907           0 :        A=0.3603094918363593
    6908           0 :        V=0.1988349254282232e-3
    6909           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6910           0 :        A=0.3905857895173920
    6911           0 :        V=0.2017079807160050e-3
    6912           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6913           0 :        A=0.4202005758160837
    6914           0 :        V=0.2039473082709094e-3
    6915           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6916           0 :        A=0.4490310061597227
    6917           0 :        V=0.2056360279288953e-3
    6918           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6919           0 :        A=0.4769586160311491
    6920           0 :        V=0.2068525823066865e-3
    6921           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6922           0 :        A=0.5038679887049750
    6923           0 :        V=0.2076724877534488e-3
    6924           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6925           0 :        A=0.5296454286519961
    6926           0 :        V=0.2081694278237885e-3
    6927           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6928           0 :        A=0.5541776207164850
    6929           0 :        V=0.2084157631219326e-3
    6930           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6931           0 :        A=0.5990467321921213
    6932           0 :        V=0.2084381531128593e-3
    6933           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6934           0 :        A=0.6191467096294587
    6935           0 :        V=0.2083476277129307e-3
    6936           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6937           0 :        A=0.6375251212901849
    6938           0 :        V=0.2082686194459732e-3
    6939           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6940           0 :        A=0.6540514381131168
    6941           0 :        V=0.2082475686112415e-3
    6942           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6943           0 :        A=0.6685899064391510
    6944           0 :        V=0.2083139860289915e-3
    6945           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6946           0 :        A=0.6810013009681648
    6947           0 :        V=0.2084745561831237e-3
    6948           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6949           0 :        A=0.6911469578730340
    6950           0 :        V=0.2087091313375890e-3
    6951           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6952           0 :        A=0.6988956915141736
    6953           0 :        V=0.2089718413297697e-3
    6954           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6955           0 :        A=0.7041335794868720
    6956           0 :        V=0.2092003303479793e-3
    6957           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6958           0 :        A=0.7067754398018567
    6959           0 :        V=0.2093336148263241e-3
    6960           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6961           0 :        A=0.3840368707853623e-1
    6962           0 :        V=0.7591708117365267e-4
    6963           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6964           0 :        A=0.9835485954117399e-1
    6965           0 :        V=0.1083383968169186e-3
    6966           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6967           0 :        A=0.1665774947612998
    6968           0 :        V=0.1403019395292510e-3
    6969           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6970           0 :        A=0.2405702335362910
    6971           0 :        V=0.1615970179286436e-3
    6972           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6973           0 :        A=0.3165270770189046
    6974           0 :        V=0.1771144187504911e-3
    6975           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6976           0 :        A=0.3927386145645443
    6977           0 :        V=0.1887760022988168e-3
    6978           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6979           0 :        A=0.4678825918374656
    6980           0 :        V=0.1973474670768214e-3
    6981           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6982           0 :        A=0.5408022024266935
    6983           0 :        V=0.2033787661234659e-3
    6984           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6985           0 :        A=0.6104967445752438
    6986           0 :        V=0.2072343626517331e-3
    6987           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6988           0 :        A=0.6760910702685738
    6989           0 :        V=0.2091177834226918e-3
    6990           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6991           0 :        A=0.6655644120217392e-1
    6992           0 :        B=0.1936508874588424e-1
    6993           0 :        V=0.9316684484675566e-4
    6994           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6995           0 :        A=0.9446246161270182e-1
    6996           0 :        B=0.4252442002115869e-1
    6997           0 :        V=0.1116193688682976e-3
    6998           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    6999           0 :        A=0.1242651925452509
    7000           0 :        B=0.6806529315354374e-1
    7001           0 :        V=0.1298623551559414e-3
    7002           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7003           0 :        A=0.1553438064846751
    7004           0 :        B=0.9560957491205369e-1
    7005           0 :        V=0.1450236832456426e-3
    7006           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7007           0 :        A=0.1871137110542670
    7008           0 :        B=0.1245931657452888
    7009           0 :        V=0.1572719958149914e-3
    7010           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7011           0 :        A=0.2192612628836257
    7012           0 :        B=0.1545385828778978
    7013           0 :        V=0.1673234785867195e-3
    7014           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7015           0 :        A=0.2515682807206955
    7016           0 :        B=0.1851004249723368
    7017           0 :        V=0.1756860118725188e-3
    7018           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7019           0 :        A=0.2838535866287290
    7020           0 :        B=0.2160182608272384
    7021           0 :        V=0.1826776290439367e-3
    7022           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7023           0 :        A=0.3159578817528521
    7024           0 :        B=0.2470799012277111
    7025           0 :        V=0.1885116347992865e-3
    7026           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7027           0 :        A=0.3477370882791392
    7028           0 :        B=0.2781014208986402
    7029           0 :        V=0.1933457860170574e-3
    7030           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7031           0 :        A=0.3790576960890540
    7032           0 :        B=0.3089172523515731
    7033           0 :        V=0.1973060671902064e-3
    7034           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7035           0 :        A=0.4097938317810200
    7036           0 :        B=0.3393750055472244
    7037           0 :        V=0.2004987099616311e-3
    7038           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7039           0 :        A=0.4398256572859637
    7040           0 :        B=0.3693322470987730
    7041           0 :        V=0.2030170909281499e-3
    7042           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7043           0 :        A=0.4690384114718480
    7044           0 :        B=0.3986541005609877
    7045           0 :        V=0.2049461460119080e-3
    7046           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7047           0 :        A=0.4973216048301053
    7048           0 :        B=0.4272112491408562
    7049           0 :        V=0.2063653565200186e-3
    7050           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7051           0 :        A=0.5245681526132446
    7052           0 :        B=0.4548781735309936
    7053           0 :        V=0.2073507927381027e-3
    7054           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7055           0 :        A=0.5506733911803888
    7056           0 :        B=0.4815315355023251
    7057           0 :        V=0.2079764593256122e-3
    7058           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7059           0 :        A=0.5755339829522475
    7060           0 :        B=0.5070486445801855
    7061           0 :        V=0.2083150534968778e-3
    7062           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7063           0 :        A=0.1305472386056362
    7064           0 :        B=0.2284970375722366e-1
    7065           0 :        V=0.1262715121590664e-3
    7066           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7067           0 :        A=0.1637327908216477
    7068           0 :        B=0.4812254338288384e-1
    7069           0 :        V=0.1414386128545972e-3
    7070           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7071           0 :        A=0.1972734634149637
    7072           0 :        B=0.7531734457511935e-1
    7073           0 :        V=0.1538740401313898e-3
    7074           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7075           0 :        A=0.2308694653110130
    7076           0 :        B=0.1039043639882017
    7077           0 :        V=0.1642434942331432e-3
    7078           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7079           0 :        A=0.2643899218338160
    7080           0 :        B=0.1334526587117626
    7081           0 :        V=0.1729790609237496e-3
    7082           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7083           0 :        A=0.2977171599622171
    7084           0 :        B=0.1636414868936382
    7085           0 :        V=0.1803505190260828e-3
    7086           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7087           0 :        A=0.3307293903032310
    7088           0 :        B=0.1942195406166568
    7089           0 :        V=0.1865475350079657e-3
    7090           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7091           0 :        A=0.3633069198219073
    7092           0 :        B=0.2249752879943753
    7093           0 :        V=0.1917182669679069e-3
    7094           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7095           0 :        A=0.3953346955922727
    7096           0 :        B=0.2557218821820032
    7097           0 :        V=0.1959851709034382e-3
    7098           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7099           0 :        A=0.4267018394184914
    7100           0 :        B=0.2862897925213193
    7101           0 :        V=0.1994529548117882e-3
    7102           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7103           0 :        A=0.4573009622571704
    7104           0 :        B=0.3165224536636518
    7105           0 :        V=0.2022138911146548e-3
    7106           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7107           0 :        A=0.4870279559856109
    7108           0 :        B=0.3462730221636496
    7109           0 :        V=0.2043518024208592e-3
    7110           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7111           0 :        A=0.5157819581450322
    7112           0 :        B=0.3754016870282835
    7113           0 :        V=0.2059450313018110e-3
    7114           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7115           0 :        A=0.5434651666465393
    7116           0 :        B=0.4037733784993613
    7117           0 :        V=0.2070685715318472e-3
    7118           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7119           0 :        A=0.5699823887764627
    7120           0 :        B=0.4312557784139123
    7121           0 :        V=0.2077955310694373e-3
    7122           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7123           0 :        A=0.5952403350947741
    7124           0 :        B=0.4577175367122110
    7125           0 :        V=0.2081980387824712e-3
    7126           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7127           0 :        A=0.2025152599210369
    7128           0 :        B=0.2520253617719557e-1
    7129           0 :        V=0.1521318610377956e-3
    7130           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7131           0 :        A=0.2381066653274425
    7132           0 :        B=0.5223254506119000e-1
    7133           0 :        V=0.1622772720185755e-3
    7134           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7135           0 :        A=0.2732823383651612
    7136           0 :        B=0.8060669688588620e-1
    7137           0 :        V=0.1710498139420709e-3
    7138           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7139           0 :        A=0.3080137692611118
    7140           0 :        B=0.1099335754081255
    7141           0 :        V=0.1785911149448736e-3
    7142           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7143           0 :        A=0.3422405614587601
    7144           0 :        B=0.1399120955959857
    7145           0 :        V=0.1850125313687736e-3
    7146           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7147           0 :        A=0.3758808773890420
    7148           0 :        B=0.1702977801651705
    7149           0 :        V=0.1904229703933298e-3
    7150           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7151           0 :        A=0.4088458383438932
    7152           0 :        B=0.2008799256601680
    7153           0 :        V=0.1949259956121987e-3
    7154           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7155           0 :        A=0.4410450550841152
    7156           0 :        B=0.2314703052180836
    7157           0 :        V=0.1986161545363960e-3
    7158           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7159           0 :        A=0.4723879420561312
    7160           0 :        B=0.2618972111375892
    7161           0 :        V=0.2015790585641370e-3
    7162           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7163           0 :        A=0.5027843561874343
    7164           0 :        B=0.2920013195600270
    7165           0 :        V=0.2038934198707418e-3
    7166           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7167           0 :        A=0.5321453674452458
    7168           0 :        B=0.3216322555190551
    7169           0 :        V=0.2056334060538251e-3
    7170           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7171           0 :        A=0.5603839113834030
    7172           0 :        B=0.3506456615934198
    7173           0 :        V=0.2068705959462289e-3
    7174           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7175           0 :        A=0.5874150706875146
    7176           0 :        B=0.3789007181306267
    7177           0 :        V=0.2076753906106002e-3
    7178           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7179           0 :        A=0.6131559381660038
    7180           0 :        B=0.4062580170572782
    7181           0 :        V=0.2081179391734803e-3
    7182           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7183           0 :        A=0.2778497016394506
    7184           0 :        B=0.2696271276876226e-1
    7185           0 :        V=0.1700345216228943e-3
    7186           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7187           0 :        A=0.3143733562261912
    7188           0 :        B=0.5523469316960465e-1
    7189           0 :        V=0.1774906779990410e-3
    7190           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7191           0 :        A=0.3501485810261827
    7192           0 :        B=0.8445193201626464e-1
    7193           0 :        V=0.1839659377002642e-3
    7194           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7195           0 :        A=0.3851430322303653
    7196           0 :        B=0.1143263119336083
    7197           0 :        V=0.1894987462975169e-3
    7198           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7199           0 :        A=0.4193013979470415
    7200           0 :        B=0.1446177898344475
    7201           0 :        V=0.1941548809452595e-3
    7202           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7203           0 :        A=0.4525585960458567
    7204           0 :        B=0.1751165438438091
    7205           0 :        V=0.1980078427252384e-3
    7206           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7207           0 :        A=0.4848447779622947
    7208           0 :        B=0.2056338306745660
    7209           0 :        V=0.2011296284744488e-3
    7210           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7211           0 :        A=0.5160871208276894
    7212           0 :        B=0.2359965487229226
    7213           0 :        V=0.2035888456966776e-3
    7214           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7215           0 :        A=0.5462112185696926
    7216           0 :        B=0.2660430223139146
    7217           0 :        V=0.2054516325352142e-3
    7218           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7219           0 :        A=0.5751425068101757
    7220           0 :        B=0.2956193664498032
    7221           0 :        V=0.2067831033092635e-3
    7222           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7223           0 :        A=0.6028073872853596
    7224           0 :        B=0.3245763905312779
    7225           0 :        V=0.2076485320284876e-3
    7226           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7227           0 :        A=0.6291338275278409
    7228           0 :        B=0.3527670026206972
    7229           0 :        V=0.2081141439525255e-3
    7230           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7231           0 :        A=0.3541797528439391
    7232           0 :        B=0.2823853479435550e-1
    7233           0 :        V=0.1834383015469222e-3
    7234           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7235           0 :        A=0.3908234972074657
    7236           0 :        B=0.5741296374713106e-1
    7237           0 :        V=0.1889540591777677e-3
    7238           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7239           0 :        A=0.4264408450107590
    7240           0 :        B=0.8724646633650199e-1
    7241           0 :        V=0.1936677023597375e-3
    7242           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7243           0 :        A=0.4609949666553286
    7244           0 :        B=0.1175034422915616
    7245           0 :        V=0.1976176495066504e-3
    7246           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7247           0 :        A=0.4944389496536006
    7248           0 :        B=0.1479755652628428
    7249           0 :        V=0.2008536004560983e-3
    7250           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7251           0 :        A=0.5267194884346086
    7252           0 :        B=0.1784740659484352
    7253           0 :        V=0.2034280351712291e-3
    7254           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7255           0 :        A=0.5577787810220990
    7256           0 :        B=0.2088245700431244
    7257           0 :        V=0.2053944466027758e-3
    7258           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7259           0 :        A=0.5875563763536670
    7260           0 :        B=0.2388628136570763
    7261           0 :        V=0.2068077642882360e-3
    7262           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7263           0 :        A=0.6159910016391269
    7264           0 :        B=0.2684308928769185
    7265           0 :        V=0.2077250949661599e-3
    7266           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7267           0 :        A=0.6430219602956268
    7268           0 :        B=0.2973740761960252
    7269           0 :        V=0.2082062440705320e-3
    7270           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7271           0 :        A=0.4300647036213646
    7272           0 :        B=0.2916399920493977e-1
    7273           0 :        V=0.1934374486546626e-3
    7274           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7275           0 :        A=0.4661486308935531
    7276           0 :        B=0.5898803024755659e-1
    7277           0 :        V=0.1974107010484300e-3
    7278           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7279           0 :        A=0.5009658555287261
    7280           0 :        B=0.8924162698525409e-1
    7281           0 :        V=0.2007129290388658e-3
    7282           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7283           0 :        A=0.5344824270447704
    7284           0 :        B=0.1197185199637321
    7285           0 :        V=0.2033736947471293e-3
    7286           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7287           0 :        A=0.5666575997416371
    7288           0 :        B=0.1502300756161382
    7289           0 :        V=0.2054287125902493e-3
    7290           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7291           0 :        A=0.5974457471404752
    7292           0 :        B=0.1806004191913564
    7293           0 :        V=0.2069184936818894e-3
    7294           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7295           0 :        A=0.6267984444116886
    7296           0 :        B=0.2106621764786252
    7297           0 :        V=0.2078883689808782e-3
    7298           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7299           0 :        A=0.6546664713575417
    7300           0 :        B=0.2402526932671914
    7301           0 :        V=0.2083886366116359e-3
    7302           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7303           0 :        A=0.5042711004437253
    7304           0 :        B=0.2982529203607657e-1
    7305           0 :        V=0.2006593275470817e-3
    7306           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7307           0 :        A=0.5392127456774380
    7308           0 :        B=0.6008728062339922e-1
    7309           0 :        V=0.2033728426135397e-3
    7310           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7311           0 :        A=0.5726819437668618
    7312           0 :        B=0.9058227674571398e-1
    7313           0 :        V=0.2055008781377608e-3
    7314           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7315           0 :        A=0.6046469254207278
    7316           0 :        B=0.1211219235803400
    7317           0 :        V=0.2070651783518502e-3
    7318           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7319           0 :        A=0.6350716157434952
    7320           0 :        B=0.1515286404791580
    7321           0 :        V=0.2080953335094320e-3
    7322           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7323           0 :        A=0.6639177679185454
    7324           0 :        B=0.1816314681255552
    7325           0 :        V=0.2086284998988521e-3
    7326           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7327           0 :        A=0.5757276040972253
    7328           0 :        B=0.3026991752575440e-1
    7329           0 :        V=0.2055549387644668e-3
    7330           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7331           0 :        A=0.6090265823139755
    7332           0 :        B=0.6078402297870770e-1
    7333           0 :        V=0.2071871850267654e-3
    7334           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7335           0 :        A=0.6406735344387661
    7336           0 :        B=0.9135459984176636e-1
    7337           0 :        V=0.2082856600431965e-3
    7338           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7339           0 :        A=0.6706397927793709
    7340           0 :        B=0.1218024155966590
    7341           0 :        V=0.2088705858819358e-3
    7342           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7343           0 :        A=0.6435019674426665
    7344           0 :        B=0.3052608357660639e-1
    7345           0 :        V=0.2083995867536322e-3
    7346           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7347           0 :        A=0.6747218676375681
    7348           0 :        B=0.6112185773983089e-1
    7349           0 :        V=0.2090509712889637e-3
    7350           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7351           0 :        N=N-1
    7352           0 :        RETURN
    7353             :        END
    7354           0 :        SUBROUTINE LD5810(X,Y,Z,W,N)
    7355             :        DOUBLE PRECISION X(5810)
    7356             :        DOUBLE PRECISION Y(5810)
    7357             :        DOUBLE PRECISION Z(5810)
    7358             :        DOUBLE PRECISION W(5810)
    7359             :        INTEGER N
    7360             :        DOUBLE PRECISION A,B,V
    7361             : !  
    7362             : !      LEBEDEV 5810-POINT ANGULAR GRID
    7363             : !  
    7364             : !    
    7365             : !       This subroutine is part of a set of subroutines that generate
    7366             : !       Lebedev grids [1-6] for integration on a sphere. The original 
    7367             : !       C-code [1] was kindly provided by Dr. Dmitri N. Laikov and 
    7368             : !       translated into fortran by Dr. Christoph van Wuellen.
    7369             : !       This subroutine was translated using a C to fortran77 conversion
    7370             : !       tool written by Dr. Christoph van Wuellen.
    7371             : !    
    7372             : !       Users of this code are asked to include reference [1] in their
    7373             : !       publications, and in the user- and programmers-manuals 
    7374             : !       describing their codes.
    7375             : !    
    7376             : !       This code was distributed through CCL (http://www.ccl.net/).
    7377             : !    
    7378             : !       [1] V.I. Lebedev, and D.N. Laikov
    7379             : !           "A quadrature formula for the sphere of the 131st
    7380             : !            algebraic order of accuracy"
    7381             : !           Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
    7382             : !    
    7383             : !       [2] V.I. Lebedev
    7384             : !           "A quadrature formula for the sphere of 59th algebraic
    7385             : !            order of accuracy"
    7386             : !           Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286. 
    7387             : !    
    7388             : !       [3] V.I. Lebedev, and A.L. Skorokhodov
    7389             : !           "Quadrature formulas of orders 41, 47, and 53 for the sphere"
    7390             : !           Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592. 
    7391             : !    
    7392             : !       [4] V.I. Lebedev
    7393             : !           "Spherical quadrature formulas exact to orders 25-29"
    7394             : !           Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107. 
    7395             : !    
    7396             : !       [5] V.I. Lebedev
    7397             : !           "Quadratures on a sphere"
    7398             : !           Computational Mathematics and Mathematical Physics, Vol. 16,
    7399             : !           1976, pp. 10-24. 
    7400             : !    
    7401             : !       [6] V.I. Lebedev
    7402             : !           "Values of the nodes and weights of ninth to seventeenth 
    7403             : !            order Gauss-Markov quadrature formulae invariant under the
    7404             : !            octahedron group with inversion"
    7405             : !           Computational Mathematics and Mathematical Physics, Vol. 15,
    7406             : !           1975, pp. 44-51.
    7407             : !    
    7408           0 :        N=1
    7409           0 :        V=0.9735347946175486e-5
    7410           0 :        Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7411           0 :        V=0.1907581241803167e-3
    7412           0 :        Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7413           0 :        V=0.1901059546737578e-3
    7414           0 :        Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7415           0 :        A=0.1182361662400277e-1
    7416           0 :        V=0.3926424538919212e-4
    7417           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7418           0 :        A=0.3062145009138958e-1
    7419           0 :        V=0.6667905467294382e-4
    7420           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7421           0 :        A=0.5329794036834243e-1
    7422           0 :        V=0.8868891315019135e-4
    7423           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7424           0 :        A=0.7848165532862220e-1
    7425           0 :        V=0.1066306000958872e-3
    7426           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7427           0 :        A=0.1054038157636201
    7428           0 :        V=0.1214506743336128e-3
    7429           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7430           0 :        A=0.1335577797766211
    7431           0 :        V=0.1338054681640871e-3
    7432           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7433           0 :        A=0.1625769955502252
    7434           0 :        V=0.1441677023628504e-3
    7435           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7436           0 :        A=0.1921787193412792
    7437           0 :        V=0.1528880200826557e-3
    7438           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7439           0 :        A=0.2221340534690548
    7440           0 :        V=0.1602330623773609e-3
    7441           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7442           0 :        A=0.2522504912791132
    7443           0 :        V=0.1664102653445244e-3
    7444           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7445           0 :        A=0.2823610860679697
    7446           0 :        V=0.1715845854011323e-3
    7447           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7448           0 :        A=0.3123173966267560
    7449           0 :        V=0.1758901000133069e-3
    7450           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7451           0 :        A=0.3419847036953789
    7452           0 :        V=0.1794382485256736e-3
    7453           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7454           0 :        A=0.3712386456999758
    7455           0 :        V=0.1823238106757407e-3
    7456           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7457           0 :        A=0.3999627649876828
    7458           0 :        V=0.1846293252959976e-3
    7459           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7460           0 :        A=0.4280466458648093
    7461           0 :        V=0.1864284079323098e-3
    7462           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7463           0 :        A=0.4553844360185711
    7464           0 :        V=0.1877882694626914e-3
    7465           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7466           0 :        A=0.4818736094437834
    7467           0 :        V=0.1887716321852025e-3
    7468           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7469           0 :        A=0.5074138709260629
    7470           0 :        V=0.1894381638175673e-3
    7471           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7472           0 :        A=0.5319061304570707
    7473           0 :        V=0.1898454899533629e-3
    7474           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7475           0 :        A=0.5552514978677286
    7476           0 :        V=0.1900497929577815e-3
    7477           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7478           0 :        A=0.5981009025246183
    7479           0 :        V=0.1900671501924092e-3
    7480           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7481           0 :        A=0.6173990192228116
    7482           0 :        V=0.1899837555533510e-3
    7483           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7484           0 :        A=0.6351365239411131
    7485           0 :        V=0.1899014113156229e-3
    7486           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7487           0 :        A=0.6512010228227200
    7488           0 :        V=0.1898581257705106e-3
    7489           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7490           0 :        A=0.6654758363948120
    7491           0 :        V=0.1898804756095753e-3
    7492           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7493           0 :        A=0.6778410414853370
    7494           0 :        V=0.1899793610426402e-3
    7495           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7496           0 :        A=0.6881760887484110
    7497           0 :        V=0.1901464554844117e-3
    7498           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7499           0 :        A=0.6963645267094598
    7500           0 :        V=0.1903533246259542e-3
    7501           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7502           0 :        A=0.7023010617153579
    7503           0 :        V=0.1905556158463228e-3
    7504           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7505           0 :        A=0.7059004636628753
    7506           0 :        V=0.1907037155663528e-3
    7507           0 :        Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7508           0 :        A=0.3552470312472575e-1
    7509           0 :        V=0.5992997844249967e-4
    7510           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7511           0 :        A=0.9151176620841283e-1
    7512           0 :        V=0.9749059382456978e-4
    7513           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7514           0 :        A=0.1566197930068980
    7515           0 :        V=0.1241680804599158e-3
    7516           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7517           0 :        A=0.2265467599271907
    7518           0 :        V=0.1437626154299360e-3
    7519           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7520           0 :        A=0.2988242318581361
    7521           0 :        V=0.1584200054793902e-3
    7522           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7523           0 :        A=0.3717482419703886
    7524           0 :        V=0.1694436550982744e-3
    7525           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7526           0 :        A=0.4440094491758889
    7527           0 :        V=0.1776617014018108e-3
    7528           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7529           0 :        A=0.5145337096756642
    7530           0 :        V=0.1836132434440077e-3
    7531           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7532           0 :        A=0.5824053672860230
    7533           0 :        V=0.1876494727075983e-3
    7534           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7535           0 :        A=0.6468283961043370
    7536           0 :        V=0.1899906535336482e-3
    7537           0 :        Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7538           0 :        A=0.6095964259104373e-1
    7539           0 :        B=0.1787828275342931e-1
    7540           0 :        V=0.8143252820767350e-4
    7541           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7542           0 :        A=0.8811962270959388e-1
    7543           0 :        B=0.3953888740792096e-1
    7544           0 :        V=0.9998859890887728e-4
    7545           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7546           0 :        A=0.1165936722428831
    7547           0 :        B=0.6378121797722990e-1
    7548           0 :        V=0.1156199403068359e-3
    7549           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7550           0 :        A=0.1460232857031785
    7551           0 :        B=0.8985890813745037e-1
    7552           0 :        V=0.1287632092635513e-3
    7553           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7554           0 :        A=0.1761197110181755
    7555           0 :        B=0.1172606510576162
    7556           0 :        V=0.1398378643365139e-3
    7557           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7558           0 :        A=0.2066471190463718
    7559           0 :        B=0.1456102876970995
    7560           0 :        V=0.1491876468417391e-3
    7561           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7562           0 :        A=0.2374076026328152
    7563           0 :        B=0.1746153823011775
    7564           0 :        V=0.1570855679175456e-3
    7565           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7566           0 :        A=0.2682305474337051
    7567           0 :        B=0.2040383070295584
    7568           0 :        V=0.1637483948103775e-3
    7569           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7570           0 :        A=0.2989653312142369
    7571           0 :        B=0.2336788634003698
    7572           0 :        V=0.1693500566632843e-3
    7573           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7574           0 :        A=0.3294762752772209
    7575           0 :        B=0.2633632752654219
    7576           0 :        V=0.1740322769393633e-3
    7577           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7578           0 :        A=0.3596390887276086
    7579           0 :        B=0.2929369098051601
    7580           0 :        V=0.1779126637278296e-3
    7581           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7582           0 :        A=0.3893383046398812
    7583           0 :        B=0.3222592785275512
    7584           0 :        V=0.1810908108835412e-3
    7585           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7586           0 :        A=0.4184653789358347
    7587           0 :        B=0.3512004791195743
    7588           0 :        V=0.1836529132600190e-3
    7589           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7590           0 :        A=0.4469172319076166
    7591           0 :        B=0.3796385677684537
    7592           0 :        V=0.1856752841777379e-3
    7593           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7594           0 :        A=0.4745950813276976
    7595           0 :        B=0.4074575378263879
    7596           0 :        V=0.1872270566606832e-3
    7597           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7598           0 :        A=0.5014034601410262
    7599           0 :        B=0.4345456906027828
    7600           0 :        V=0.1883722645591307e-3
    7601           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7602           0 :        A=0.5272493404551239
    7603           0 :        B=0.4607942515205134
    7604           0 :        V=0.1891714324525297e-3
    7605           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7606           0 :        A=0.5520413051846366
    7607           0 :        B=0.4860961284181720
    7608           0 :        V=0.1896827480450146e-3
    7609           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7610           0 :        A=0.5756887237503077
    7611           0 :        B=0.5103447395342790
    7612           0 :        V=0.1899628417059528e-3
    7613           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7614           0 :        A=0.1225039430588352
    7615           0 :        B=0.2136455922655793e-1
    7616           0 :        V=0.1123301829001669e-3
    7617           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7618           0 :        A=0.1539113217321372
    7619           0 :        B=0.4520926166137188e-1
    7620           0 :        V=0.1253698826711277e-3
    7621           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7622           0 :        A=0.1856213098637712
    7623           0 :        B=0.7086468177864818e-1
    7624           0 :        V=0.1366266117678531e-3
    7625           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7626           0 :        A=0.2174998728035131
    7627           0 :        B=0.9785239488772918e-1
    7628           0 :        V=0.1462736856106918e-3
    7629           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7630           0 :        A=0.2494128336938330
    7631           0 :        B=0.1258106396267210
    7632           0 :        V=0.1545076466685412e-3
    7633           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7634           0 :        A=0.2812321562143480
    7635           0 :        B=0.1544529125047001
    7636           0 :        V=0.1615096280814007e-3
    7637           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7638           0 :        A=0.3128372276456111
    7639           0 :        B=0.1835433512202753
    7640           0 :        V=0.1674366639741759e-3
    7641           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7642           0 :        A=0.3441145160177973
    7643           0 :        B=0.2128813258619585
    7644           0 :        V=0.1724225002437900e-3
    7645           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7646           0 :        A=0.3749567714853510
    7647           0 :        B=0.2422913734880829
    7648           0 :        V=0.1765810822987288e-3
    7649           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7650           0 :        A=0.4052621732015610
    7651           0 :        B=0.2716163748391453
    7652           0 :        V=0.1800104126010751e-3
    7653           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7654           0 :        A=0.4349335453522385
    7655           0 :        B=0.3007127671240280
    7656           0 :        V=0.1827960437331284e-3
    7657           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7658           0 :        A=0.4638776641524965
    7659           0 :        B=0.3294470677216479
    7660           0 :        V=0.1850140300716308e-3
    7661           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7662           0 :        A=0.4920046410462687
    7663           0 :        B=0.3576932543699155
    7664           0 :        V=0.1867333507394938e-3
    7665           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7666           0 :        A=0.5192273554861704
    7667           0 :        B=0.3853307059757764
    7668           0 :        V=0.1880178688638289e-3
    7669           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7670           0 :        A=0.5454609081136522
    7671           0 :        B=0.4122425044452694
    7672           0 :        V=0.1889278925654758e-3
    7673           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7674           0 :        A=0.5706220661424140
    7675           0 :        B=0.4383139587781027
    7676           0 :        V=0.1895213832507346e-3
    7677           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7678           0 :        A=0.5946286755181518
    7679           0 :        B=0.4634312536300553
    7680           0 :        V=0.1898548277397420e-3
    7681           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7682           0 :        A=0.1905370790924295
    7683           0 :        B=0.2371311537781979e-1
    7684           0 :        V=0.1349105935937341e-3
    7685           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7686           0 :        A=0.2242518717748009
    7687           0 :        B=0.4917878059254806e-1
    7688           0 :        V=0.1444060068369326e-3
    7689           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7690           0 :        A=0.2577190808025936
    7691           0 :        B=0.7595498960495142e-1
    7692           0 :        V=0.1526797390930008e-3
    7693           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7694           0 :        A=0.2908724534927187
    7695           0 :        B=0.1036991083191100
    7696           0 :        V=0.1598208771406474e-3
    7697           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7698           0 :        A=0.3236354020056219
    7699           0 :        B=0.1321348584450234
    7700           0 :        V=0.1659354368615331e-3
    7701           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7702           0 :        A=0.3559267359304543
    7703           0 :        B=0.1610316571314789
    7704           0 :        V=0.1711279910946440e-3
    7705           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7706           0 :        A=0.3876637123676956
    7707           0 :        B=0.1901912080395707
    7708           0 :        V=0.1754952725601440e-3
    7709           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7710           0 :        A=0.4187636705218842
    7711           0 :        B=0.2194384950137950
    7712           0 :        V=0.1791247850802529e-3
    7713           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7714           0 :        A=0.4491449019883107
    7715           0 :        B=0.2486155334763858
    7716           0 :        V=0.1820954300877716e-3
    7717           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7718           0 :        A=0.4787270932425445
    7719           0 :        B=0.2775768931812335
    7720           0 :        V=0.1844788524548449e-3
    7721           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7722           0 :        A=0.5074315153055574
    7723           0 :        B=0.3061863786591120
    7724           0 :        V=0.1863409481706220e-3
    7725           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7726           0 :        A=0.5351810507738336
    7727           0 :        B=0.3343144718152556
    7728           0 :        V=0.1877433008795068e-3
    7729           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7730           0 :        A=0.5619001025975381
    7731           0 :        B=0.3618362729028427
    7732           0 :        V=0.1887444543705232e-3
    7733           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7734           0 :        A=0.5875144035268046
    7735           0 :        B=0.3886297583620408
    7736           0 :        V=0.1894009829375006e-3
    7737           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7738           0 :        A=0.6119507308734495
    7739           0 :        B=0.4145742277792031
    7740           0 :        V=0.1897683345035198e-3
    7741           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7742           0 :        A=0.2619733870119463
    7743           0 :        B=0.2540047186389353e-1
    7744           0 :        V=0.1517327037467653e-3
    7745           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7746           0 :        A=0.2968149743237949
    7747           0 :        B=0.5208107018543989e-1
    7748           0 :        V=0.1587740557483543e-3
    7749           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7750           0 :        A=0.3310451504860488
    7751           0 :        B=0.7971828470885599e-1
    7752           0 :        V=0.1649093382274097e-3
    7753           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7754           0 :        A=0.3646215567376676
    7755           0 :        B=0.1080465999177927
    7756           0 :        V=0.1701915216193265e-3
    7757           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7758           0 :        A=0.3974916785279360
    7759           0 :        B=0.1368413849366629
    7760           0 :        V=0.1746847753144065e-3
    7761           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7762           0 :        A=0.4295967403772029
    7763           0 :        B=0.1659073184763559
    7764           0 :        V=0.1784555512007570e-3
    7765           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7766           0 :        A=0.4608742854473447
    7767           0 :        B=0.1950703730454614
    7768           0 :        V=0.1815687562112174e-3
    7769           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7770           0 :        A=0.4912598858949903
    7771           0 :        B=0.2241721144376724
    7772           0 :        V=0.1840864370663302e-3
    7773           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7774           0 :        A=0.5206882758945558
    7775           0 :        B=0.2530655255406489
    7776           0 :        V=0.1860676785390006e-3
    7777           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7778           0 :        A=0.5490940914019819
    7779           0 :        B=0.2816118409731066
    7780           0 :        V=0.1875690583743703e-3
    7781           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7782           0 :        A=0.5764123302025542
    7783           0 :        B=0.3096780504593238
    7784           0 :        V=0.1886453236347225e-3
    7785           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7786           0 :        A=0.6025786004213506
    7787           0 :        B=0.3371348366394987
    7788           0 :        V=0.1893501123329645e-3
    7789           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7790           0 :        A=0.6275291964794956
    7791           0 :        B=0.3638547827694396
    7792           0 :        V=0.1897366184519868e-3
    7793           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7794           0 :        A=0.3348189479861771
    7795           0 :        B=0.2664841935537443e-1
    7796           0 :        V=0.1643908815152736e-3
    7797           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7798           0 :        A=0.3699515545855295
    7799           0 :        B=0.5424000066843495e-1
    7800           0 :        V=0.1696300350907768e-3
    7801           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7802           0 :        A=0.4042003071474669
    7803           0 :        B=0.8251992715430854e-1
    7804           0 :        V=0.1741553103844483e-3
    7805           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7806           0 :        A=0.4375320100182624
    7807           0 :        B=0.1112695182483710
    7808           0 :        V=0.1780015282386092e-3
    7809           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7810           0 :        A=0.4699054490335947
    7811           0 :        B=0.1402964116467816
    7812           0 :        V=0.1812116787077125e-3
    7813           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7814           0 :        A=0.5012739879431952
    7815           0 :        B=0.1694275117584291
    7816           0 :        V=0.1838323158085421e-3
    7817           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7818           0 :        A=0.5315874883754966
    7819           0 :        B=0.1985038235312689
    7820           0 :        V=0.1859113119837737e-3
    7821           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7822           0 :        A=0.5607937109622117
    7823           0 :        B=0.2273765660020893
    7824           0 :        V=0.1874969220221698e-3
    7825           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7826           0 :        A=0.5888393223495521
    7827           0 :        B=0.2559041492849764
    7828           0 :        V=0.1886375612681076e-3
    7829           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7830           0 :        A=0.6156705979160163
    7831           0 :        B=0.2839497251976899
    7832           0 :        V=0.1893819575809276e-3
    7833           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7834           0 :        A=0.6412338809078123
    7835           0 :        B=0.3113791060500690
    7836           0 :        V=0.1897794748256767e-3
    7837           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7838           0 :        A=0.4076051259257167
    7839           0 :        B=0.2757792290858463e-1
    7840           0 :        V=0.1738963926584846e-3
    7841           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7842           0 :        A=0.4423788125791520
    7843           0 :        B=0.5584136834984293e-1
    7844           0 :        V=0.1777442359873466e-3
    7845           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7846           0 :        A=0.4760480917328258
    7847           0 :        B=0.8457772087727143e-1
    7848           0 :        V=0.1810010815068719e-3
    7849           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7850           0 :        A=0.5085838725946297
    7851           0 :        B=0.1135975846359248
    7852           0 :        V=0.1836920318248129e-3
    7853           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7854           0 :        A=0.5399513637391218
    7855           0 :        B=0.1427286904765053
    7856           0 :        V=0.1858489473214328e-3
    7857           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7858           0 :        A=0.5701118433636380
    7859           0 :        B=0.1718112740057635
    7860           0 :        V=0.1875079342496592e-3
    7861           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7862           0 :        A=0.5990240530606021
    7863           0 :        B=0.2006944855985351
    7864           0 :        V=0.1887080239102310e-3
    7865           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7866           0 :        A=0.6266452685139695
    7867           0 :        B=0.2292335090598907
    7868           0 :        V=0.1894905752176822e-3
    7869           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7870           0 :        A=0.6529320971415942
    7871           0 :        B=0.2572871512353714
    7872           0 :        V=0.1898991061200695e-3
    7873           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7874           0 :        A=0.4791583834610126
    7875           0 :        B=0.2826094197735932e-1
    7876           0 :        V=0.1809065016458791e-3
    7877           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7878           0 :        A=0.5130373952796940
    7879           0 :        B=0.5699871359683649e-1
    7880           0 :        V=0.1836297121596799e-3
    7881           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7882           0 :        A=0.5456252429628476
    7883           0 :        B=0.8602712528554394e-1
    7884           0 :        V=0.1858426916241869e-3
    7885           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7886           0 :        A=0.5768956329682385
    7887           0 :        B=0.1151748137221281
    7888           0 :        V=0.1875654101134641e-3
    7889           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7890           0 :        A=0.6068186944699046
    7891           0 :        B=0.1442811654136362
    7892           0 :        V=0.1888240751833503e-3
    7893           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7894           0 :        A=0.6353622248024907
    7895           0 :        B=0.1731930321657680
    7896           0 :        V=0.1896497383866979e-3
    7897           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7898           0 :        A=0.6624927035731797
    7899           0 :        B=0.2017619958756061
    7900           0 :        V=0.1900775530219121e-3
    7901           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7902           0 :        A=0.5484933508028488
    7903           0 :        B=0.2874219755907391e-1
    7904           0 :        V=0.1858525041478814e-3
    7905           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7906           0 :        A=0.5810207682142106
    7907           0 :        B=0.5778312123713695e-1
    7908           0 :        V=0.1876248690077947e-3
    7909           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7910           0 :        A=0.6120955197181352
    7911           0 :        B=0.8695262371439526e-1
    7912           0 :        V=0.1889404439064607e-3
    7913           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7914           0 :        A=0.6416944284294319
    7915           0 :        B=0.1160893767057166
    7916           0 :        V=0.1898168539265290e-3
    7917           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7918           0 :        A=0.6697926391731260
    7919           0 :        B=0.1450378826743251
    7920           0 :        V=0.1902779940661772e-3
    7921           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7922           0 :        A=0.6147594390585488
    7923           0 :        B=0.2904957622341456e-1
    7924           0 :        V=0.1890125641731815e-3
    7925           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7926           0 :        A=0.6455390026356783
    7927           0 :        B=0.5823809152617197e-1
    7928           0 :        V=0.1899434637795751e-3
    7929           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7930           0 :        A=0.6747258588365477
    7931           0 :        B=0.8740384899884715e-1
    7932           0 :        V=0.1904520856831751e-3
    7933           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7934           0 :        A=0.6772135750395347
    7935           0 :        B=0.2919946135808105e-1
    7936           0 :        V=0.1905534498734563e-3
    7937           0 :        Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
    7938           0 :        N=N-1
    7939           0 :        RETURN
    7940             :        END
    7941             : 
    7942             : 
    7943             : 
    7944             : 
    7945             : end module m_corespec_eval

Generated by: LCOV version 1.13