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,jspins)
132 : real, intent (in) :: g(atoms%jmtd,2,0:atoms%lmaxd,jspins)
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 : !CALL setcor(itype,jspins,atoms,input,bmu,nst,kappa,nprnc,occ)
171 0 : CALL atoms%econf(itype)%get_core(nst,nprnc,kappa,occ)
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 : 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%abcof(iband,lm2,0,iatom,ispin)*&
425 0 : &conjg(eigVecCoeffs%abcof(iband,lm1,0,iatom,ispin)))!*we(1)
426 : csv%dosb(1,2,lm2,lm1,iband) = dble(eigVecCoeffs%abcof(iband,lm2,0,iatom,ispin)*&
427 0 : &conjg(eigVecCoeffs%abcof(iband,lm1,1,iatom,ispin)))
428 : csv%dosb(2,1,lm2,lm1,iband) = dble(eigVecCoeffs%abcof(iband,lm2,1,iatom,ispin)*&
429 0 : &conjg(eigVecCoeffs%abcof(iband,lm1,0,iatom,ispin)))
430 : csv%dosb(2,2,lm2,lm1,iband) = dble(eigVecCoeffs%abcof(iband,lm2,1,iatom,ispin)*&
431 0 : &conjg(eigVecCoeffs%abcof(iband,lm1,1,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 :
948 0 : if(nleb.eq. 0006) call LD0006(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
949 0 : if(nleb.eq. 0014) call LD0014(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
950 0 : if(nleb.eq. 0026) call LD0026(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
951 0 : if(nleb.eq. 0038) call LD0038(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
952 0 : if(nleb.eq. 0050) call LD0050(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
953 0 : if(nleb.eq. 0074) call LD0074(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
954 0 : if(nleb.eq. 0086) call LD0086(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
955 0 : if(nleb.eq. 0110) call LD0110(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
956 0 : if(nleb.eq. 0146) call LD0146(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
957 0 : if(nleb.eq. 0170) call LD0170(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
958 0 : if(nleb.eq. 0194) call LD0194(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
959 0 : if(nleb.eq. 0230) call LD0230(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
960 0 : if(nleb.eq. 0266) call LD0266(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
961 0 : if(nleb.eq. 0302) call LD0302(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
962 0 : if(nleb.eq. 0350) call LD0350(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
963 0 : if(nleb.eq. 0434) call LD0434(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
964 0 : if(nleb.eq. 0590) call LD0590(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
965 0 : if(nleb.eq. 0770) call LD0770(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
966 0 : if(nleb.eq. 0974) call LD0974(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
967 0 : if(nleb.eq. 1202) call LD1202(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
968 0 : if(nleb.eq. 1454) call LD1454(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
969 0 : if(nleb.eq. 1730) call LD1730(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
970 0 : if(nleb.eq. 2030) call LD2030(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
971 0 : if(nleb.eq. 2354) call LD2354(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
972 0 : if(nleb.eq. 2702) call LD2702(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
973 0 : if(nleb.eq. 3074) call LD3074(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
974 0 : if(nleb.eq. 3470) call LD3470(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
975 0 : if(nleb.eq. 3890) call LD3890(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
976 0 : if(nleb.eq. 4334) call LD4334(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
977 0 : if(nleb.eq. 4802) call LD4802(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
978 0 : if(nleb.eq. 5294) call LD5294(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
979 0 : if(nleb.eq. 5810) call LD5810(r2leb(1,1),r2leb(1,2),r2leb(1,3),wleb,ctrln)
980 :
981 0 : write(*,'(i8)') nleb
982 0 : do ileb = 1,nleb
983 0 : write(*,'(4f12.6)') r2leb(ileb,1:3),wleb(ileb)
984 : enddo
985 :
986 0 : end subroutine lebedev
987 : !
988 : !===============================================================================
989 :
990 :
991 0 : subroutine gen_oh(code, num, x, y, z, w, a, b, v)
992 : implicit logical(a-z)
993 : double precision x(*),y(*),z(*),w(*)
994 : double precision a,b,v
995 : integer code
996 : integer num
997 : double precision c
998 : !
999 : ! This subroutine is part of a set of subroutines that generate
1000 : ! Lebedev grids [1-6] for integration on a sphere. The original
1001 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
1002 : ! translated into fortran by Dr. Christoph van Wuellen.
1003 : ! This subroutine was translated from C to fortran77 by hand.
1004 : !
1005 : ! Users of this code are asked to include reference [1] in their
1006 : ! publications, and in the user- and programmers-manuals
1007 : ! describing their codes.
1008 : !
1009 : ! This code was distributed through CCL (http://www.ccl.net/).
1010 : !
1011 : ! [1] V.I. Lebedev, and D.N. Laikov
1012 : ! "A quadrature formula for the sphere of the 131st
1013 : ! algebraic order of accuracy"
1014 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
1015 : !
1016 : ! [2] V.I. Lebedev
1017 : ! "A quadrature formula for the sphere of 59th algebraic
1018 : ! order of accuracy"
1019 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
1020 : !
1021 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
1022 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
1023 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
1024 : !
1025 : ! [4] V.I. Lebedev
1026 : ! "Spherical quadrature formulas exact to orders 25-29"
1027 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
1028 : !
1029 : ! [5] V.I. Lebedev
1030 : ! "Quadratures on a sphere"
1031 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
1032 : ! 1976, pp. 10-24.
1033 : !
1034 : ! [6] V.I. Lebedev
1035 : ! "Values of the nodes and weights of ninth to seventeenth
1036 : ! order Gauss-Markov quadrature formulae invariant under the
1037 : ! octahedron group with inversion"
1038 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
1039 : ! 1975, pp. 44-51.
1040 : !
1041 : !
1042 : ! Given a point on a sphere (specified by a and b), generate all
1043 : ! the equivalent points under Oh symmetry, making grid points with
1044 : ! weight v.
1045 : ! The variable num is increased by the number of different points
1046 : ! generated.
1047 : !
1048 : ! Depending on code, there are 6...48 different but equivalent
1049 : ! points.
1050 : !
1051 : ! code=1: (0,0,1) etc ( 6 points)
1052 : ! code=2: (0,a,a) etc, a=1/sqrt(2) ( 12 points)
1053 : ! code=3: (a,a,a) etc, a=1/sqrt(3) ( 8 points)
1054 : ! code=4: (a,a,b) etc, b=sqrt(1-2 a^2) ( 24 points)
1055 : ! code=5: (a,b,0) etc, b=sqrt(1-a^2), a input ( 24 points)
1056 : ! code=6: (a,b,c) etc, c=sqrt(1-a^2-b^2), a/b input ( 48 points)
1057 : !
1058 0 : goto (1,2,3,4,5,6) code
1059 0 : write (oUnit,*) 'Gen_Oh: Invalid Code'
1060 0 : stop
1061 : 1 continue
1062 0 : a=1.0
1063 0 : x(1) = a
1064 0 : y(1) = 0.0
1065 0 : z(1) = 0.0
1066 0 : w(1) = v
1067 0 : x(2) = -a
1068 0 : y(2) = 0.0
1069 0 : z(2) = 0.0
1070 0 : w(2) = v
1071 0 : x(3) = 0.0
1072 0 : y(3) = a
1073 0 : z(3) = 0.0
1074 0 : w(3) = v
1075 0 : x(4) = 0.0
1076 0 : y(4) = -a
1077 0 : z(4) = 0.0
1078 0 : w(4) = v
1079 0 : x(5) = 0.0
1080 0 : y(5) = 0.0
1081 0 : z(5) = a
1082 0 : w(5) = v
1083 0 : x(6) = 0.0
1084 0 : y(6) = 0.0
1085 0 : z(6) = -a
1086 0 : w(6) = v
1087 0 : num=num+6
1088 0 : return
1089 : !
1090 : 2 continue
1091 0 : a=sqrt(0.5)
1092 0 : x( 1) = 0.0
1093 0 : y( 1) = a
1094 0 : z( 1) = a
1095 0 : w( 1) = v
1096 0 : x( 2) = 0.0
1097 0 : y( 2) = -a
1098 0 : z( 2) = a
1099 0 : w( 2) = v
1100 0 : x( 3) = 0.0
1101 0 : y( 3) = a
1102 0 : z( 3) = -a
1103 0 : w( 3) = v
1104 0 : x( 4) = 0.0
1105 0 : y( 4) = -a
1106 0 : z( 4) = -a
1107 0 : w( 4) = v
1108 0 : x( 5) = a
1109 0 : y( 5) = 0.0
1110 0 : z( 5) = a
1111 0 : w( 5) = v
1112 0 : x( 6) = -a
1113 0 : y( 6) = 0.0
1114 0 : z( 6) = a
1115 0 : w( 6) = v
1116 0 : x( 7) = a
1117 0 : y( 7) = 0.0
1118 0 : z( 7) = -a
1119 0 : w( 7) = v
1120 0 : x( 8) = -a
1121 0 : y( 8) = 0.0
1122 0 : z( 8) = -a
1123 0 : w( 8) = v
1124 0 : x( 9) = a
1125 0 : y( 9) = a
1126 0 : z( 9) = 0.0
1127 0 : w( 9) = v
1128 0 : x(10) = -a
1129 0 : y(10) = a
1130 0 : z(10) = 0.0
1131 0 : w(10) = v
1132 0 : x(11) = a
1133 0 : y(11) = -a
1134 0 : z(11) = 0.0
1135 0 : w(11) = v
1136 0 : x(12) = -a
1137 0 : y(12) = -a
1138 0 : z(12) = 0.0
1139 0 : w(12) = v
1140 0 : num=num+12
1141 0 : return
1142 : !
1143 : 3 continue
1144 0 : a = sqrt(1.0/3.0)
1145 0 : x(1) = a
1146 0 : y(1) = a
1147 0 : z(1) = a
1148 0 : w(1) = v
1149 0 : x(2) = -a
1150 0 : y(2) = a
1151 0 : z(2) = a
1152 0 : w(2) = v
1153 0 : x(3) = a
1154 0 : y(3) = -a
1155 0 : z(3) = a
1156 0 : w(3) = v
1157 0 : x(4) = -a
1158 0 : y(4) = -a
1159 0 : z(4) = a
1160 0 : w(4) = v
1161 0 : x(5) = a
1162 0 : y(5) = a
1163 0 : z(5) = -a
1164 0 : w(5) = v
1165 0 : x(6) = -a
1166 0 : y(6) = a
1167 0 : z(6) = -a
1168 0 : w(6) = v
1169 0 : x(7) = a
1170 0 : y(7) = -a
1171 0 : z(7) = -a
1172 0 : w(7) = v
1173 0 : x(8) = -a
1174 0 : y(8) = -a
1175 0 : z(8) = -a
1176 0 : w(8) = v
1177 0 : num=num+8
1178 0 : return
1179 : !
1180 : 4 continue
1181 0 : b = sqrt(1.0 - 2.0*a*a)
1182 0 : x( 1) = a
1183 0 : y( 1) = a
1184 0 : z( 1) = b
1185 0 : w( 1) = v
1186 0 : x( 2) = -a
1187 0 : y( 2) = a
1188 0 : z( 2) = b
1189 0 : w( 2) = v
1190 0 : x( 3) = a
1191 0 : y( 3) = -a
1192 0 : z( 3) = b
1193 0 : w( 3) = v
1194 0 : x( 4) = -a
1195 0 : y( 4) = -a
1196 0 : z( 4) = b
1197 0 : w( 4) = v
1198 0 : x( 5) = a
1199 0 : y( 5) = a
1200 0 : z( 5) = -b
1201 0 : w( 5) = v
1202 0 : x( 6) = -a
1203 0 : y( 6) = a
1204 0 : z( 6) = -b
1205 0 : w( 6) = v
1206 0 : x( 7) = a
1207 0 : y( 7) = -a
1208 0 : z( 7) = -b
1209 0 : w( 7) = v
1210 0 : x( 8) = -a
1211 0 : y( 8) = -a
1212 0 : z( 8) = -b
1213 0 : w( 8) = v
1214 0 : x( 9) = a
1215 0 : y( 9) = b
1216 0 : z( 9) = a
1217 0 : w( 9) = v
1218 0 : x(10) = -a
1219 0 : y(10) = b
1220 0 : z(10) = a
1221 0 : w(10) = v
1222 0 : x(11) = a
1223 0 : y(11) = -b
1224 0 : z(11) = a
1225 0 : w(11) = v
1226 0 : x(12) = -a
1227 0 : y(12) = -b
1228 0 : z(12) = a
1229 0 : w(12) = v
1230 0 : x(13) = a
1231 0 : y(13) = b
1232 0 : z(13) = -a
1233 0 : w(13) = v
1234 0 : x(14) = -a
1235 0 : y(14) = b
1236 0 : z(14) = -a
1237 0 : w(14) = v
1238 0 : x(15) = a
1239 0 : y(15) = -b
1240 0 : z(15) = -a
1241 0 : w(15) = v
1242 0 : x(16) = -a
1243 0 : y(16) = -b
1244 0 : z(16) = -a
1245 0 : w(16) = v
1246 0 : x(17) = b
1247 0 : y(17) = a
1248 0 : z(17) = a
1249 0 : w(17) = v
1250 0 : x(18) = -b
1251 0 : y(18) = a
1252 0 : z(18) = a
1253 0 : w(18) = v
1254 0 : x(19) = b
1255 0 : y(19) = -a
1256 0 : z(19) = a
1257 0 : w(19) = v
1258 0 : x(20) = -b
1259 0 : y(20) = -a
1260 0 : z(20) = a
1261 0 : w(20) = v
1262 0 : x(21) = b
1263 0 : y(21) = a
1264 0 : z(21) = -a
1265 0 : w(21) = v
1266 0 : x(22) = -b
1267 0 : y(22) = a
1268 0 : z(22) = -a
1269 0 : w(22) = v
1270 0 : x(23) = b
1271 0 : y(23) = -a
1272 0 : z(23) = -a
1273 0 : w(23) = v
1274 0 : x(24) = -b
1275 0 : y(24) = -a
1276 0 : z(24) = -a
1277 0 : w(24) = v
1278 0 : num=num+24
1279 0 : return
1280 : !
1281 : 5 continue
1282 0 : b=sqrt(1.0-a*a)
1283 0 : x( 1) = a
1284 0 : y( 1) = b
1285 0 : z( 1) = 0.0
1286 0 : w( 1) = v
1287 0 : x( 2) = -a
1288 0 : y( 2) = b
1289 0 : z( 2) = 0.0
1290 0 : w( 2) = v
1291 0 : x( 3) = a
1292 0 : y( 3) = -b
1293 0 : z( 3) = 0.0
1294 0 : w( 3) = v
1295 0 : x( 4) = -a
1296 0 : y( 4) = -b
1297 0 : z( 4) = 0.0
1298 0 : w( 4) = v
1299 0 : x( 5) = b
1300 0 : y( 5) = a
1301 0 : z( 5) = 0.0
1302 0 : w( 5) = v
1303 0 : x( 6) = -b
1304 0 : y( 6) = a
1305 0 : z( 6) = 0.0
1306 0 : w( 6) = v
1307 0 : x( 7) = b
1308 0 : y( 7) = -a
1309 0 : z( 7) = 0.0
1310 0 : w( 7) = v
1311 0 : x( 8) = -b
1312 0 : y( 8) = -a
1313 0 : z( 8) = 0.0
1314 0 : w( 8) = v
1315 0 : x( 9) = a
1316 0 : y( 9) = 0.0
1317 0 : z( 9) = b
1318 0 : w( 9) = v
1319 0 : x(10) = -a
1320 0 : y(10) = 0.0
1321 0 : z(10) = b
1322 0 : w(10) = v
1323 0 : x(11) = a
1324 0 : y(11) = 0.0
1325 0 : z(11) = -b
1326 0 : w(11) = v
1327 0 : x(12) = -a
1328 0 : y(12) = 0.0
1329 0 : z(12) = -b
1330 0 : w(12) = v
1331 0 : x(13) = b
1332 0 : y(13) = 0.0
1333 0 : z(13) = a
1334 0 : w(13) = v
1335 0 : x(14) = -b
1336 0 : y(14) = 0.0
1337 0 : z(14) = a
1338 0 : w(14) = v
1339 0 : x(15) = b
1340 0 : y(15) = 0.0
1341 0 : z(15) = -a
1342 0 : w(15) = v
1343 0 : x(16) = -b
1344 0 : y(16) = 0.0
1345 0 : z(16) = -a
1346 0 : w(16) = v
1347 0 : x(17) = 0.0
1348 0 : y(17) = a
1349 0 : z(17) = b
1350 0 : w(17) = v
1351 0 : x(18) = 0.0
1352 0 : y(18) = -a
1353 0 : z(18) = b
1354 0 : w(18) = v
1355 0 : x(19) = 0.0
1356 0 : y(19) = a
1357 0 : z(19) = -b
1358 0 : w(19) = v
1359 0 : x(20) = 0.0
1360 0 : y(20) = -a
1361 0 : z(20) = -b
1362 0 : w(20) = v
1363 0 : x(21) = 0.0
1364 0 : y(21) = b
1365 0 : z(21) = a
1366 0 : w(21) = v
1367 0 : x(22) = 0.0
1368 0 : y(22) = -b
1369 0 : z(22) = a
1370 0 : w(22) = v
1371 0 : x(23) = 0.0
1372 0 : y(23) = b
1373 0 : z(23) = -a
1374 0 : w(23) = v
1375 0 : x(24) = 0.0
1376 0 : y(24) = -b
1377 0 : z(24) = -a
1378 0 : w(24) = v
1379 0 : num=num+24
1380 0 : return
1381 : !
1382 : 6 continue
1383 0 : c=sqrt(1.0 - a*a - b*b)
1384 0 : x( 1) = a
1385 0 : y( 1) = b
1386 0 : z( 1) = c
1387 0 : w( 1) = v
1388 0 : x( 2) = -a
1389 0 : y( 2) = b
1390 0 : z( 2) = c
1391 0 : w( 2) = v
1392 0 : x( 3) = a
1393 0 : y( 3) = -b
1394 0 : z( 3) = c
1395 0 : w( 3) = v
1396 0 : x( 4) = -a
1397 0 : y( 4) = -b
1398 0 : z( 4) = c
1399 0 : w( 4) = v
1400 0 : x( 5) = a
1401 0 : y( 5) = b
1402 0 : z( 5) = -c
1403 0 : w( 5) = v
1404 0 : x( 6) = -a
1405 0 : y( 6) = b
1406 0 : z( 6) = -c
1407 0 : w( 6) = v
1408 0 : x( 7) = a
1409 0 : y( 7) = -b
1410 0 : z( 7) = -c
1411 0 : w( 7) = v
1412 0 : x( 8) = -a
1413 0 : y( 8) = -b
1414 0 : z( 8) = -c
1415 0 : w( 8) = v
1416 0 : x( 9) = a
1417 0 : y( 9) = c
1418 0 : z( 9) = b
1419 0 : w( 9) = v
1420 0 : x(10) = -a
1421 0 : y(10) = c
1422 0 : z(10) = b
1423 0 : w(10) = v
1424 0 : x(11) = a
1425 0 : y(11) = -c
1426 0 : z(11) = b
1427 0 : w(11) = v
1428 0 : x(12) = -a
1429 0 : y(12) = -c
1430 0 : z(12) = b
1431 0 : w(12) = v
1432 0 : x(13) = a
1433 0 : y(13) = c
1434 0 : z(13) = -b
1435 0 : w(13) = v
1436 0 : x(14) = -a
1437 0 : y(14) = c
1438 0 : z(14) = -b
1439 0 : w(14) = v
1440 0 : x(15) = a
1441 0 : y(15) = -c
1442 0 : z(15) = -b
1443 0 : w(15) = v
1444 0 : x(16) = -a
1445 0 : y(16) = -c
1446 0 : z(16) = -b
1447 0 : w(16) = v
1448 0 : x(17) = b
1449 0 : y(17) = a
1450 0 : z(17) = c
1451 0 : w(17) = v
1452 0 : x(18) = -b
1453 0 : y(18) = a
1454 0 : z(18) = c
1455 0 : w(18) = v
1456 0 : x(19) = b
1457 0 : y(19) = -a
1458 0 : z(19) = c
1459 0 : w(19) = v
1460 0 : x(20) = -b
1461 0 : y(20) = -a
1462 0 : z(20) = c
1463 0 : w(20) = v
1464 0 : x(21) = b
1465 0 : y(21) = a
1466 0 : z(21) = -c
1467 0 : w(21) = v
1468 0 : x(22) = -b
1469 0 : y(22) = a
1470 0 : z(22) = -c
1471 0 : w(22) = v
1472 0 : x(23) = b
1473 0 : y(23) = -a
1474 0 : z(23) = -c
1475 0 : w(23) = v
1476 0 : x(24) = -b
1477 0 : y(24) = -a
1478 0 : z(24) = -c
1479 0 : w(24) = v
1480 0 : x(25) = b
1481 0 : y(25) = c
1482 0 : z(25) = a
1483 0 : w(25) = v
1484 0 : x(26) = -b
1485 0 : y(26) = c
1486 0 : z(26) = a
1487 0 : w(26) = v
1488 0 : x(27) = b
1489 0 : y(27) = -c
1490 0 : z(27) = a
1491 0 : w(27) = v
1492 0 : x(28) = -b
1493 0 : y(28) = -c
1494 0 : z(28) = a
1495 0 : w(28) = v
1496 0 : x(29) = b
1497 0 : y(29) = c
1498 0 : z(29) = -a
1499 0 : w(29) = v
1500 0 : x(30) = -b
1501 0 : y(30) = c
1502 0 : z(30) = -a
1503 0 : w(30) = v
1504 0 : x(31) = b
1505 0 : y(31) = -c
1506 0 : z(31) = -a
1507 0 : w(31) = v
1508 0 : x(32) = -b
1509 0 : y(32) = -c
1510 0 : z(32) = -a
1511 0 : w(32) = v
1512 0 : x(33) = c
1513 0 : y(33) = a
1514 0 : z(33) = b
1515 0 : w(33) = v
1516 0 : x(34) = -c
1517 0 : y(34) = a
1518 0 : z(34) = b
1519 0 : w(34) = v
1520 0 : x(35) = c
1521 0 : y(35) = -a
1522 0 : z(35) = b
1523 0 : w(35) = v
1524 0 : x(36) = -c
1525 0 : y(36) = -a
1526 0 : z(36) = b
1527 0 : w(36) = v
1528 0 : x(37) = c
1529 0 : y(37) = a
1530 0 : z(37) = -b
1531 0 : w(37) = v
1532 0 : x(38) = -c
1533 0 : y(38) = a
1534 0 : z(38) = -b
1535 0 : w(38) = v
1536 0 : x(39) = c
1537 0 : y(39) = -a
1538 0 : z(39) = -b
1539 0 : w(39) = v
1540 0 : x(40) = -c
1541 0 : y(40) = -a
1542 0 : z(40) = -b
1543 0 : w(40) = v
1544 0 : x(41) = c
1545 0 : y(41) = b
1546 0 : z(41) = a
1547 0 : w(41) = v
1548 0 : x(42) = -c
1549 0 : y(42) = b
1550 0 : z(42) = a
1551 0 : w(42) = v
1552 0 : x(43) = c
1553 0 : y(43) = -b
1554 0 : z(43) = a
1555 0 : w(43) = v
1556 0 : x(44) = -c
1557 0 : y(44) = -b
1558 0 : z(44) = a
1559 0 : w(44) = v
1560 0 : x(45) = c
1561 0 : y(45) = b
1562 0 : z(45) = -a
1563 0 : w(45) = v
1564 0 : x(46) = -c
1565 0 : y(46) = b
1566 0 : z(46) = -a
1567 0 : w(46) = v
1568 0 : x(47) = c
1569 0 : y(47) = -b
1570 0 : z(47) = -a
1571 0 : w(47) = v
1572 0 : x(48) = -c
1573 0 : y(48) = -b
1574 0 : z(48) = -a
1575 0 : w(48) = v
1576 0 : num=num+48
1577 0 : return
1578 : end
1579 0 : SUBROUTINE LD0006(X,Y,Z,W,N)
1580 : DOUBLE PRECISION X( 6)
1581 : DOUBLE PRECISION Y( 6)
1582 : DOUBLE PRECISION Z( 6)
1583 : DOUBLE PRECISION W( 6)
1584 : INTEGER N
1585 : DOUBLE PRECISION A,B,V
1586 : !
1587 : ! LEBEDEV 6-POINT ANGULAR GRID
1588 : !
1589 : !
1590 : ! This subroutine is part of a set of subroutines that generate
1591 : ! Lebedev grids [1-6] for integration on a sphere. The original
1592 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
1593 : ! translated into fortran by Dr. Christoph van Wuellen.
1594 : ! This subroutine was translated using a C to fortran77 conversion
1595 : ! tool written by Dr. Christoph van Wuellen.
1596 : !
1597 : ! Users of this code are asked to include reference [1] in their
1598 : ! publications, and in the user- and programmers-manuals
1599 : ! describing their codes.
1600 : !
1601 : ! This code was distributed through CCL (http://www.ccl.net/).
1602 : !
1603 : ! [1] V.I. Lebedev, and D.N. Laikov
1604 : ! "A quadrature formula for the sphere of the 131st
1605 : ! algebraic order of accuracy"
1606 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
1607 : !
1608 : ! [2] V.I. Lebedev
1609 : ! "A quadrature formula for the sphere of 59th algebraic
1610 : ! order of accuracy"
1611 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
1612 : !
1613 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
1614 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
1615 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
1616 : !
1617 : ! [4] V.I. Lebedev
1618 : ! "Spherical quadrature formulas exact to orders 25-29"
1619 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
1620 : !
1621 : ! [5] V.I. Lebedev
1622 : ! "Quadratures on a sphere"
1623 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
1624 : ! 1976, pp. 10-24.
1625 : !
1626 : ! [6] V.I. Lebedev
1627 : ! "Values of the nodes and weights of ninth to seventeenth
1628 : ! order Gauss-Markov quadrature formulae invariant under the
1629 : ! octahedron group with inversion"
1630 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
1631 : ! 1975, pp. 44-51.
1632 : !
1633 0 : N=1
1634 0 : V=0.1666666666666667
1635 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
1636 0 : N=N-1
1637 0 : RETURN
1638 : END
1639 0 : SUBROUTINE LD0014(X,Y,Z,W,N)
1640 : DOUBLE PRECISION X( 14)
1641 : DOUBLE PRECISION Y( 14)
1642 : DOUBLE PRECISION Z( 14)
1643 : DOUBLE PRECISION W( 14)
1644 : INTEGER N
1645 : DOUBLE PRECISION A,B,V
1646 : !
1647 : ! LEBEDEV 14-POINT ANGULAR GRID
1648 : !
1649 : !
1650 : ! This subroutine is part of a set of subroutines that generate
1651 : ! Lebedev grids [1-6] for integration on a sphere. The original
1652 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
1653 : ! translated into fortran by Dr. Christoph van Wuellen.
1654 : ! This subroutine was translated using a C to fortran77 conversion
1655 : ! tool written by Dr. Christoph van Wuellen.
1656 : !
1657 : ! Users of this code are asked to include reference [1] in their
1658 : ! publications, and in the user- and programmers-manuals
1659 : ! describing their codes.
1660 : !
1661 : ! This code was distributed through CCL (http://www.ccl.net/).
1662 : !
1663 : ! [1] V.I. Lebedev, and D.N. Laikov
1664 : ! "A quadrature formula for the sphere of the 131st
1665 : ! algebraic order of accuracy"
1666 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
1667 : !
1668 : ! [2] V.I. Lebedev
1669 : ! "A quadrature formula for the sphere of 59th algebraic
1670 : ! order of accuracy"
1671 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
1672 : !
1673 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
1674 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
1675 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
1676 : !
1677 : ! [4] V.I. Lebedev
1678 : ! "Spherical quadrature formulas exact to orders 25-29"
1679 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
1680 : !
1681 : ! [5] V.I. Lebedev
1682 : ! "Quadratures on a sphere"
1683 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
1684 : ! 1976, pp. 10-24.
1685 : !
1686 : ! [6] V.I. Lebedev
1687 : ! "Values of the nodes and weights of ninth to seventeenth
1688 : ! order Gauss-Markov quadrature formulae invariant under the
1689 : ! octahedron group with inversion"
1690 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
1691 : ! 1975, pp. 44-51.
1692 : !
1693 0 : N=1
1694 0 : V=0.6666666666666667e-1
1695 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
1696 0 : V=0.7500000000000000e-1
1697 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
1698 0 : N=N-1
1699 0 : RETURN
1700 : END
1701 0 : SUBROUTINE LD0026(X,Y,Z,W,N)
1702 : DOUBLE PRECISION X( 26)
1703 : DOUBLE PRECISION Y( 26)
1704 : DOUBLE PRECISION Z( 26)
1705 : DOUBLE PRECISION W( 26)
1706 : INTEGER N
1707 : DOUBLE PRECISION A,B,V
1708 : !
1709 : ! LEBEDEV 26-POINT ANGULAR GRID
1710 : !
1711 : !
1712 : ! This subroutine is part of a set of subroutines that generate
1713 : ! Lebedev grids [1-6] for integration on a sphere. The original
1714 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
1715 : ! translated into fortran by Dr. Christoph van Wuellen.
1716 : ! This subroutine was translated using a C to fortran77 conversion
1717 : ! tool written by Dr. Christoph van Wuellen.
1718 : !
1719 : ! Users of this code are asked to include reference [1] in their
1720 : ! publications, and in the user- and programmers-manuals
1721 : ! describing their codes.
1722 : !
1723 : ! This code was distributed through CCL (http://www.ccl.net/).
1724 : !
1725 : ! [1] V.I. Lebedev, and D.N. Laikov
1726 : ! "A quadrature formula for the sphere of the 131st
1727 : ! algebraic order of accuracy"
1728 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
1729 : !
1730 : ! [2] V.I. Lebedev
1731 : ! "A quadrature formula for the sphere of 59th algebraic
1732 : ! order of accuracy"
1733 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
1734 : !
1735 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
1736 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
1737 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
1738 : !
1739 : ! [4] V.I. Lebedev
1740 : ! "Spherical quadrature formulas exact to orders 25-29"
1741 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
1742 : !
1743 : ! [5] V.I. Lebedev
1744 : ! "Quadratures on a sphere"
1745 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
1746 : ! 1976, pp. 10-24.
1747 : !
1748 : ! [6] V.I. Lebedev
1749 : ! "Values of the nodes and weights of ninth to seventeenth
1750 : ! order Gauss-Markov quadrature formulae invariant under the
1751 : ! octahedron group with inversion"
1752 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
1753 : ! 1975, pp. 44-51.
1754 : !
1755 0 : N=1
1756 0 : V=0.4761904761904762e-1
1757 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
1758 0 : V=0.3809523809523810e-1
1759 0 : Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
1760 0 : V=0.3214285714285714e-1
1761 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
1762 0 : N=N-1
1763 0 : RETURN
1764 : END
1765 0 : SUBROUTINE LD0038(X,Y,Z,W,N)
1766 : DOUBLE PRECISION X( 38)
1767 : DOUBLE PRECISION Y( 38)
1768 : DOUBLE PRECISION Z( 38)
1769 : DOUBLE PRECISION W( 38)
1770 : INTEGER N
1771 : DOUBLE PRECISION A,B,V
1772 : !
1773 : ! LEBEDEV 38-POINT ANGULAR GRID
1774 : !
1775 : !
1776 : ! This subroutine is part of a set of subroutines that generate
1777 : ! Lebedev grids [1-6] for integration on a sphere. The original
1778 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
1779 : ! translated into fortran by Dr. Christoph van Wuellen.
1780 : ! This subroutine was translated using a C to fortran77 conversion
1781 : ! tool written by Dr. Christoph van Wuellen.
1782 : !
1783 : ! Users of this code are asked to include reference [1] in their
1784 : ! publications, and in the user- and programmers-manuals
1785 : ! describing their codes.
1786 : !
1787 : ! This code was distributed through CCL (http://www.ccl.net/).
1788 : !
1789 : ! [1] V.I. Lebedev, and D.N. Laikov
1790 : ! "A quadrature formula for the sphere of the 131st
1791 : ! algebraic order of accuracy"
1792 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
1793 : !
1794 : ! [2] V.I. Lebedev
1795 : ! "A quadrature formula for the sphere of 59th algebraic
1796 : ! order of accuracy"
1797 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
1798 : !
1799 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
1800 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
1801 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
1802 : !
1803 : ! [4] V.I. Lebedev
1804 : ! "Spherical quadrature formulas exact to orders 25-29"
1805 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
1806 : !
1807 : ! [5] V.I. Lebedev
1808 : ! "Quadratures on a sphere"
1809 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
1810 : ! 1976, pp. 10-24.
1811 : !
1812 : ! [6] V.I. Lebedev
1813 : ! "Values of the nodes and weights of ninth to seventeenth
1814 : ! order Gauss-Markov quadrature formulae invariant under the
1815 : ! octahedron group with inversion"
1816 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
1817 : ! 1975, pp. 44-51.
1818 : !
1819 0 : N=1
1820 0 : V=0.9523809523809524e-2
1821 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
1822 0 : V=0.3214285714285714e-1
1823 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
1824 0 : A=0.4597008433809831
1825 0 : V=0.2857142857142857e-1
1826 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
1827 0 : N=N-1
1828 0 : RETURN
1829 : END
1830 0 : SUBROUTINE LD0050(X,Y,Z,W,N)
1831 : DOUBLE PRECISION X( 50)
1832 : DOUBLE PRECISION Y( 50)
1833 : DOUBLE PRECISION Z( 50)
1834 : DOUBLE PRECISION W( 50)
1835 : INTEGER N
1836 : DOUBLE PRECISION A,B,V
1837 : !
1838 : ! LEBEDEV 50-POINT ANGULAR GRID
1839 : !
1840 : !
1841 : ! This subroutine is part of a set of subroutines that generate
1842 : ! Lebedev grids [1-6] for integration on a sphere. The original
1843 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
1844 : ! translated into fortran by Dr. Christoph van Wuellen.
1845 : ! This subroutine was translated using a C to fortran77 conversion
1846 : ! tool written by Dr. Christoph van Wuellen.
1847 : !
1848 : ! Users of this code are asked to include reference [1] in their
1849 : ! publications, and in the user- and programmers-manuals
1850 : ! describing their codes.
1851 : !
1852 : ! This code was distributed through CCL (http://www.ccl.net/).
1853 : !
1854 : ! [1] V.I. Lebedev, and D.N. Laikov
1855 : ! "A quadrature formula for the sphere of the 131st
1856 : ! algebraic order of accuracy"
1857 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
1858 : !
1859 : ! [2] V.I. Lebedev
1860 : ! "A quadrature formula for the sphere of 59th algebraic
1861 : ! order of accuracy"
1862 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
1863 : !
1864 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
1865 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
1866 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
1867 : !
1868 : ! [4] V.I. Lebedev
1869 : ! "Spherical quadrature formulas exact to orders 25-29"
1870 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
1871 : !
1872 : ! [5] V.I. Lebedev
1873 : ! "Quadratures on a sphere"
1874 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
1875 : ! 1976, pp. 10-24.
1876 : !
1877 : ! [6] V.I. Lebedev
1878 : ! "Values of the nodes and weights of ninth to seventeenth
1879 : ! order Gauss-Markov quadrature formulae invariant under the
1880 : ! octahedron group with inversion"
1881 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
1882 : ! 1975, pp. 44-51.
1883 : !
1884 0 : N=1
1885 0 : V=0.1269841269841270e-1
1886 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
1887 0 : V=0.2257495590828924e-1
1888 0 : Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
1889 0 : V=0.2109375000000000e-1
1890 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
1891 0 : A=0.3015113445777636
1892 0 : V=0.2017333553791887e-1
1893 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
1894 0 : N=N-1
1895 0 : RETURN
1896 : END
1897 0 : SUBROUTINE LD0074(X,Y,Z,W,N)
1898 : DOUBLE PRECISION X( 74)
1899 : DOUBLE PRECISION Y( 74)
1900 : DOUBLE PRECISION Z( 74)
1901 : DOUBLE PRECISION W( 74)
1902 : INTEGER N
1903 : DOUBLE PRECISION A,B,V
1904 : !
1905 : ! LEBEDEV 74-POINT ANGULAR GRID
1906 : !
1907 : !
1908 : ! This subroutine is part of a set of subroutines that generate
1909 : ! Lebedev grids [1-6] for integration on a sphere. The original
1910 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
1911 : ! translated into fortran by Dr. Christoph van Wuellen.
1912 : ! This subroutine was translated using a C to fortran77 conversion
1913 : ! tool written by Dr. Christoph van Wuellen.
1914 : !
1915 : ! Users of this code are asked to include reference [1] in their
1916 : ! publications, and in the user- and programmers-manuals
1917 : ! describing their codes.
1918 : !
1919 : ! This code was distributed through CCL (http://www.ccl.net/).
1920 : !
1921 : ! [1] V.I. Lebedev, and D.N. Laikov
1922 : ! "A quadrature formula for the sphere of the 131st
1923 : ! algebraic order of accuracy"
1924 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
1925 : !
1926 : ! [2] V.I. Lebedev
1927 : ! "A quadrature formula for the sphere of 59th algebraic
1928 : ! order of accuracy"
1929 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
1930 : !
1931 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
1932 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
1933 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
1934 : !
1935 : ! [4] V.I. Lebedev
1936 : ! "Spherical quadrature formulas exact to orders 25-29"
1937 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
1938 : !
1939 : ! [5] V.I. Lebedev
1940 : ! "Quadratures on a sphere"
1941 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
1942 : ! 1976, pp. 10-24.
1943 : !
1944 : ! [6] V.I. Lebedev
1945 : ! "Values of the nodes and weights of ninth to seventeenth
1946 : ! order Gauss-Markov quadrature formulae invariant under the
1947 : ! octahedron group with inversion"
1948 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
1949 : ! 1975, pp. 44-51.
1950 : !
1951 0 : N=1
1952 0 : V=0.5130671797338464e-3
1953 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
1954 0 : V=0.1660406956574204e-1
1955 0 : Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
1956 0 : V=-0.2958603896103896e-1
1957 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
1958 0 : A=0.4803844614152614
1959 0 : V=0.2657620708215946e-1
1960 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
1961 0 : A=0.3207726489807764
1962 0 : V=0.1652217099371571e-1
1963 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
1964 0 : N=N-1
1965 0 : RETURN
1966 : END
1967 0 : SUBROUTINE LD0086(X,Y,Z,W,N)
1968 : DOUBLE PRECISION X( 86)
1969 : DOUBLE PRECISION Y( 86)
1970 : DOUBLE PRECISION Z( 86)
1971 : DOUBLE PRECISION W( 86)
1972 : INTEGER N
1973 : DOUBLE PRECISION A,B,V
1974 : !
1975 : ! LEBEDEV 86-POINT ANGULAR GRID
1976 : !
1977 : !
1978 : ! This subroutine is part of a set of subroutines that generate
1979 : ! Lebedev grids [1-6] for integration on a sphere. The original
1980 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
1981 : ! translated into fortran by Dr. Christoph van Wuellen.
1982 : ! This subroutine was translated using a C to fortran77 conversion
1983 : ! tool written by Dr. Christoph van Wuellen.
1984 : !
1985 : ! Users of this code are asked to include reference [1] in their
1986 : ! publications, and in the user- and programmers-manuals
1987 : ! describing their codes.
1988 : !
1989 : ! This code was distributed through CCL (http://www.ccl.net/).
1990 : !
1991 : ! [1] V.I. Lebedev, and D.N. Laikov
1992 : ! "A quadrature formula for the sphere of the 131st
1993 : ! algebraic order of accuracy"
1994 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
1995 : !
1996 : ! [2] V.I. Lebedev
1997 : ! "A quadrature formula for the sphere of 59th algebraic
1998 : ! order of accuracy"
1999 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
2000 : !
2001 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
2002 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
2003 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
2004 : !
2005 : ! [4] V.I. Lebedev
2006 : ! "Spherical quadrature formulas exact to orders 25-29"
2007 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
2008 : !
2009 : ! [5] V.I. Lebedev
2010 : ! "Quadratures on a sphere"
2011 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
2012 : ! 1976, pp. 10-24.
2013 : !
2014 : ! [6] V.I. Lebedev
2015 : ! "Values of the nodes and weights of ninth to seventeenth
2016 : ! order Gauss-Markov quadrature formulae invariant under the
2017 : ! octahedron group with inversion"
2018 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
2019 : ! 1975, pp. 44-51.
2020 : !
2021 0 : N=1
2022 0 : V=0.1154401154401154e-1
2023 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
2024 0 : V=0.1194390908585628e-1
2025 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
2026 0 : A=0.3696028464541502
2027 0 : V=0.1111055571060340e-1
2028 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2029 0 : A=0.6943540066026664
2030 0 : V=0.1187650129453714e-1
2031 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2032 0 : A=0.3742430390903412
2033 0 : V=0.1181230374690448e-1
2034 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
2035 0 : N=N-1
2036 0 : RETURN
2037 : END
2038 0 : SUBROUTINE LD0110(X,Y,Z,W,N)
2039 : DOUBLE PRECISION X( 110)
2040 : DOUBLE PRECISION Y( 110)
2041 : DOUBLE PRECISION Z( 110)
2042 : DOUBLE PRECISION W( 110)
2043 : INTEGER N
2044 : DOUBLE PRECISION A,B,V
2045 : !
2046 : ! LEBEDEV 110-POINT ANGULAR GRID
2047 : !
2048 : !
2049 : ! This subroutine is part of a set of subroutines that generate
2050 : ! Lebedev grids [1-6] for integration on a sphere. The original
2051 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
2052 : ! translated into fortran by Dr. Christoph van Wuellen.
2053 : ! This subroutine was translated using a C to fortran77 conversion
2054 : ! tool written by Dr. Christoph van Wuellen.
2055 : !
2056 : ! Users of this code are asked to include reference [1] in their
2057 : ! publications, and in the user- and programmers-manuals
2058 : ! describing their codes.
2059 : !
2060 : ! This code was distributed through CCL (http://www.ccl.net/).
2061 : !
2062 : ! [1] V.I. Lebedev, and D.N. Laikov
2063 : ! "A quadrature formula for the sphere of the 131st
2064 : ! algebraic order of accuracy"
2065 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
2066 : !
2067 : ! [2] V.I. Lebedev
2068 : ! "A quadrature formula for the sphere of 59th algebraic
2069 : ! order of accuracy"
2070 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
2071 : !
2072 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
2073 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
2074 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
2075 : !
2076 : ! [4] V.I. Lebedev
2077 : ! "Spherical quadrature formulas exact to orders 25-29"
2078 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
2079 : !
2080 : ! [5] V.I. Lebedev
2081 : ! "Quadratures on a sphere"
2082 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
2083 : ! 1976, pp. 10-24.
2084 : !
2085 : ! [6] V.I. Lebedev
2086 : ! "Values of the nodes and weights of ninth to seventeenth
2087 : ! order Gauss-Markov quadrature formulae invariant under the
2088 : ! octahedron group with inversion"
2089 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
2090 : ! 1975, pp. 44-51.
2091 : !
2092 0 : N=1
2093 0 : V=0.3828270494937162e-2
2094 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
2095 0 : V=0.9793737512487512e-2
2096 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
2097 0 : A=0.1851156353447362
2098 0 : V=0.8211737283191111e-2
2099 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2100 0 : A=0.6904210483822922
2101 0 : V=0.9942814891178103e-2
2102 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2103 0 : A=0.3956894730559419
2104 0 : V=0.9595471336070963e-2
2105 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2106 0 : A=0.4783690288121502
2107 0 : V=0.9694996361663028e-2
2108 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
2109 0 : N=N-1
2110 0 : RETURN
2111 : END
2112 0 : SUBROUTINE LD0146(X,Y,Z,W,N)
2113 : DOUBLE PRECISION X( 146)
2114 : DOUBLE PRECISION Y( 146)
2115 : DOUBLE PRECISION Z( 146)
2116 : DOUBLE PRECISION W( 146)
2117 : INTEGER N
2118 : DOUBLE PRECISION A,B,V
2119 : !
2120 : ! LEBEDEV 146-POINT ANGULAR GRID
2121 : !
2122 : !
2123 : ! This subroutine is part of a set of subroutines that generate
2124 : ! Lebedev grids [1-6] for integration on a sphere. The original
2125 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
2126 : ! translated into fortran by Dr. Christoph van Wuellen.
2127 : ! This subroutine was translated using a C to fortran77 conversion
2128 : ! tool written by Dr. Christoph van Wuellen.
2129 : !
2130 : ! Users of this code are asked to include reference [1] in their
2131 : ! publications, and in the user- and programmers-manuals
2132 : ! describing their codes.
2133 : !
2134 : ! This code was distributed through CCL (http://www.ccl.net/).
2135 : !
2136 : ! [1] V.I. Lebedev, and D.N. Laikov
2137 : ! "A quadrature formula for the sphere of the 131st
2138 : ! algebraic order of accuracy"
2139 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
2140 : !
2141 : ! [2] V.I. Lebedev
2142 : ! "A quadrature formula for the sphere of 59th algebraic
2143 : ! order of accuracy"
2144 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
2145 : !
2146 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
2147 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
2148 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
2149 : !
2150 : ! [4] V.I. Lebedev
2151 : ! "Spherical quadrature formulas exact to orders 25-29"
2152 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
2153 : !
2154 : ! [5] V.I. Lebedev
2155 : ! "Quadratures on a sphere"
2156 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
2157 : ! 1976, pp. 10-24.
2158 : !
2159 : ! [6] V.I. Lebedev
2160 : ! "Values of the nodes and weights of ninth to seventeenth
2161 : ! order Gauss-Markov quadrature formulae invariant under the
2162 : ! octahedron group with inversion"
2163 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
2164 : ! 1975, pp. 44-51.
2165 : !
2166 0 : N=1
2167 0 : V=0.5996313688621381e-3
2168 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
2169 0 : V=0.7372999718620756e-2
2170 0 : Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
2171 0 : V=0.7210515360144488e-2
2172 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
2173 0 : A=0.6764410400114264
2174 0 : V=0.7116355493117555e-2
2175 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2176 0 : A=0.4174961227965453
2177 0 : V=0.6753829486314477e-2
2178 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2179 0 : A=0.1574676672039082
2180 0 : V=0.7574394159054034e-2
2181 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2182 0 : A=0.1403553811713183
2183 0 : B=0.4493328323269557
2184 0 : V=0.6991087353303262e-2
2185 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
2186 0 : N=N-1
2187 0 : RETURN
2188 : END
2189 0 : SUBROUTINE LD0170(X,Y,Z,W,N)
2190 : DOUBLE PRECISION X( 170)
2191 : DOUBLE PRECISION Y( 170)
2192 : DOUBLE PRECISION Z( 170)
2193 : DOUBLE PRECISION W( 170)
2194 : INTEGER N
2195 : DOUBLE PRECISION A,B,V
2196 : !
2197 : ! LEBEDEV 170-POINT ANGULAR GRID
2198 : !
2199 : !
2200 : ! This subroutine is part of a set of subroutines that generate
2201 : ! Lebedev grids [1-6] for integration on a sphere. The original
2202 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
2203 : ! translated into fortran by Dr. Christoph van Wuellen.
2204 : ! This subroutine was translated using a C to fortran77 conversion
2205 : ! tool written by Dr. Christoph van Wuellen.
2206 : !
2207 : ! Users of this code are asked to include reference [1] in their
2208 : ! publications, and in the user- and programmers-manuals
2209 : ! describing their codes.
2210 : !
2211 : ! This code was distributed through CCL (http://www.ccl.net/).
2212 : !
2213 : ! [1] V.I. Lebedev, and D.N. Laikov
2214 : ! "A quadrature formula for the sphere of the 131st
2215 : ! algebraic order of accuracy"
2216 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
2217 : !
2218 : ! [2] V.I. Lebedev
2219 : ! "A quadrature formula for the sphere of 59th algebraic
2220 : ! order of accuracy"
2221 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
2222 : !
2223 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
2224 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
2225 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
2226 : !
2227 : ! [4] V.I. Lebedev
2228 : ! "Spherical quadrature formulas exact to orders 25-29"
2229 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
2230 : !
2231 : ! [5] V.I. Lebedev
2232 : ! "Quadratures on a sphere"
2233 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
2234 : ! 1976, pp. 10-24.
2235 : !
2236 : ! [6] V.I. Lebedev
2237 : ! "Values of the nodes and weights of ninth to seventeenth
2238 : ! order Gauss-Markov quadrature formulae invariant under the
2239 : ! octahedron group with inversion"
2240 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
2241 : ! 1975, pp. 44-51.
2242 : !
2243 0 : N=1
2244 0 : V=0.5544842902037365e-2
2245 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
2246 0 : V=0.6071332770670752e-2
2247 0 : Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
2248 0 : V=0.6383674773515093e-2
2249 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
2250 0 : A=0.2551252621114134
2251 0 : V=0.5183387587747790e-2
2252 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2253 0 : A=0.6743601460362766
2254 0 : V=0.6317929009813725e-2
2255 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2256 0 : A=0.4318910696719410
2257 0 : V=0.6201670006589077e-2
2258 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2259 0 : A=0.2613931360335988
2260 0 : V=0.5477143385137348e-2
2261 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
2262 0 : A=0.4990453161796037
2263 0 : B=0.1446630744325115
2264 0 : V=0.5968383987681156e-2
2265 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
2266 0 : N=N-1
2267 0 : RETURN
2268 : END
2269 0 : SUBROUTINE LD0194(X,Y,Z,W,N)
2270 : DOUBLE PRECISION X( 194)
2271 : DOUBLE PRECISION Y( 194)
2272 : DOUBLE PRECISION Z( 194)
2273 : DOUBLE PRECISION W( 194)
2274 : INTEGER N
2275 : DOUBLE PRECISION A,B,V
2276 : !
2277 : ! LEBEDEV 194-POINT ANGULAR GRID
2278 : !
2279 : !
2280 : ! This subroutine is part of a set of subroutines that generate
2281 : ! Lebedev grids [1-6] for integration on a sphere. The original
2282 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
2283 : ! translated into fortran by Dr. Christoph van Wuellen.
2284 : ! This subroutine was translated using a C to fortran77 conversion
2285 : ! tool written by Dr. Christoph van Wuellen.
2286 : !
2287 : ! Users of this code are asked to include reference [1] in their
2288 : ! publications, and in the user- and programmers-manuals
2289 : ! describing their codes.
2290 : !
2291 : ! This code was distributed through CCL (http://www.ccl.net/).
2292 : !
2293 : ! [1] V.I. Lebedev, and D.N. Laikov
2294 : ! "A quadrature formula for the sphere of the 131st
2295 : ! algebraic order of accuracy"
2296 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
2297 : !
2298 : ! [2] V.I. Lebedev
2299 : ! "A quadrature formula for the sphere of 59th algebraic
2300 : ! order of accuracy"
2301 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
2302 : !
2303 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
2304 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
2305 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
2306 : !
2307 : ! [4] V.I. Lebedev
2308 : ! "Spherical quadrature formulas exact to orders 25-29"
2309 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
2310 : !
2311 : ! [5] V.I. Lebedev
2312 : ! "Quadratures on a sphere"
2313 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
2314 : ! 1976, pp. 10-24.
2315 : !
2316 : ! [6] V.I. Lebedev
2317 : ! "Values of the nodes and weights of ninth to seventeenth
2318 : ! order Gauss-Markov quadrature formulae invariant under the
2319 : ! octahedron group with inversion"
2320 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
2321 : ! 1975, pp. 44-51.
2322 : !
2323 0 : N=1
2324 0 : V=0.1782340447244611e-2
2325 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
2326 0 : V=0.5716905949977102e-2
2327 0 : Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
2328 0 : V=0.5573383178848738e-2
2329 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
2330 0 : A=0.6712973442695226
2331 0 : V=0.5608704082587997e-2
2332 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2333 0 : A=0.2892465627575439
2334 0 : V=0.5158237711805383e-2
2335 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2336 0 : A=0.4446933178717437
2337 0 : V=0.5518771467273614e-2
2338 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2339 0 : A=0.1299335447650067
2340 0 : V=0.4106777028169394e-2
2341 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2342 0 : A=0.3457702197611283
2343 0 : V=0.5051846064614808e-2
2344 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
2345 0 : A=0.1590417105383530
2346 0 : B=0.8360360154824589
2347 0 : V=0.5530248916233094e-2
2348 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
2349 0 : N=N-1
2350 0 : RETURN
2351 : END
2352 0 : SUBROUTINE LD0230(X,Y,Z,W,N)
2353 : DOUBLE PRECISION X( 230)
2354 : DOUBLE PRECISION Y( 230)
2355 : DOUBLE PRECISION Z( 230)
2356 : DOUBLE PRECISION W( 230)
2357 : INTEGER N
2358 : DOUBLE PRECISION A,B,V
2359 : !
2360 : ! LEBEDEV 230-POINT ANGULAR GRID
2361 : !
2362 : !
2363 : ! This subroutine is part of a set of subroutines that generate
2364 : ! Lebedev grids [1-6] for integration on a sphere. The original
2365 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
2366 : ! translated into fortran by Dr. Christoph van Wuellen.
2367 : ! This subroutine was translated using a C to fortran77 conversion
2368 : ! tool written by Dr. Christoph van Wuellen.
2369 : !
2370 : ! Users of this code are asked to include reference [1] in their
2371 : ! publications, and in the user- and programmers-manuals
2372 : ! describing their codes.
2373 : !
2374 : ! This code was distributed through CCL (http://www.ccl.net/).
2375 : !
2376 : ! [1] V.I. Lebedev, and D.N. Laikov
2377 : ! "A quadrature formula for the sphere of the 131st
2378 : ! algebraic order of accuracy"
2379 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
2380 : !
2381 : ! [2] V.I. Lebedev
2382 : ! "A quadrature formula for the sphere of 59th algebraic
2383 : ! order of accuracy"
2384 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
2385 : !
2386 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
2387 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
2388 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
2389 : !
2390 : ! [4] V.I. Lebedev
2391 : ! "Spherical quadrature formulas exact to orders 25-29"
2392 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
2393 : !
2394 : ! [5] V.I. Lebedev
2395 : ! "Quadratures on a sphere"
2396 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
2397 : ! 1976, pp. 10-24.
2398 : !
2399 : ! [6] V.I. Lebedev
2400 : ! "Values of the nodes and weights of ninth to seventeenth
2401 : ! order Gauss-Markov quadrature formulae invariant under the
2402 : ! octahedron group with inversion"
2403 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
2404 : ! 1975, pp. 44-51.
2405 : !
2406 0 : N=1
2407 0 : V=-0.5522639919727325e-1
2408 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
2409 0 : V=0.4450274607445226e-2
2410 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
2411 0 : A=0.4492044687397611
2412 0 : V=0.4496841067921404e-2
2413 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2414 0 : A=0.2520419490210201
2415 0 : V=0.5049153450478750e-2
2416 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2417 0 : A=0.6981906658447242
2418 0 : V=0.3976408018051883e-2
2419 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2420 0 : A=0.6587405243460960
2421 0 : V=0.4401400650381014e-2
2422 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2423 0 : A=0.4038544050097660e-1
2424 0 : V=0.1724544350544401e-1
2425 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2426 0 : A=0.5823842309715585
2427 0 : V=0.4231083095357343e-2
2428 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
2429 0 : A=0.3545877390518688
2430 0 : V=0.5198069864064399e-2
2431 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
2432 0 : A=0.2272181808998187
2433 0 : B=0.4864661535886647
2434 0 : V=0.4695720972568883e-2
2435 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
2436 0 : N=N-1
2437 0 : RETURN
2438 : END
2439 0 : SUBROUTINE LD0266(X,Y,Z,W,N)
2440 : DOUBLE PRECISION X( 266)
2441 : DOUBLE PRECISION Y( 266)
2442 : DOUBLE PRECISION Z( 266)
2443 : DOUBLE PRECISION W( 266)
2444 : INTEGER N
2445 : DOUBLE PRECISION A,B,V
2446 : !
2447 : ! LEBEDEV 266-POINT ANGULAR GRID
2448 : !
2449 : !
2450 : ! This subroutine is part of a set of subroutines that generate
2451 : ! Lebedev grids [1-6] for integration on a sphere. The original
2452 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
2453 : ! translated into fortran by Dr. Christoph van Wuellen.
2454 : ! This subroutine was translated using a C to fortran77 conversion
2455 : ! tool written by Dr. Christoph van Wuellen.
2456 : !
2457 : ! Users of this code are asked to include reference [1] in their
2458 : ! publications, and in the user- and programmers-manuals
2459 : ! describing their codes.
2460 : !
2461 : ! This code was distributed through CCL (http://www.ccl.net/).
2462 : !
2463 : ! [1] V.I. Lebedev, and D.N. Laikov
2464 : ! "A quadrature formula for the sphere of the 131st
2465 : ! algebraic order of accuracy"
2466 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
2467 : !
2468 : ! [2] V.I. Lebedev
2469 : ! "A quadrature formula for the sphere of 59th algebraic
2470 : ! order of accuracy"
2471 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
2472 : !
2473 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
2474 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
2475 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
2476 : !
2477 : ! [4] V.I. Lebedev
2478 : ! "Spherical quadrature formulas exact to orders 25-29"
2479 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
2480 : !
2481 : ! [5] V.I. Lebedev
2482 : ! "Quadratures on a sphere"
2483 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
2484 : ! 1976, pp. 10-24.
2485 : !
2486 : ! [6] V.I. Lebedev
2487 : ! "Values of the nodes and weights of ninth to seventeenth
2488 : ! order Gauss-Markov quadrature formulae invariant under the
2489 : ! octahedron group with inversion"
2490 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
2491 : ! 1975, pp. 44-51.
2492 : !
2493 0 : N=1
2494 0 : V=-0.1313769127326952e-2
2495 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
2496 0 : V=-0.2522728704859336e-2
2497 0 : Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
2498 0 : V=0.4186853881700583e-2
2499 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
2500 0 : A=0.7039373391585475
2501 0 : V=0.5315167977810885e-2
2502 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2503 0 : A=0.1012526248572414
2504 0 : V=0.4047142377086219e-2
2505 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2506 0 : A=0.4647448726420539
2507 0 : V=0.4112482394406990e-2
2508 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2509 0 : A=0.3277420654971629
2510 0 : V=0.3595584899758782e-2
2511 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2512 0 : A=0.6620338663699974
2513 0 : V=0.4256131351428158e-2
2514 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2515 0 : A=0.8506508083520399
2516 0 : V=0.4229582700647240e-2
2517 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
2518 0 : A=0.3233484542692899
2519 0 : B=0.1153112011009701
2520 0 : V=0.4080914225780505e-2
2521 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
2522 0 : A=0.2314790158712601
2523 0 : B=0.5244939240922365
2524 0 : V=0.4071467593830964e-2
2525 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
2526 0 : N=N-1
2527 0 : RETURN
2528 : END
2529 0 : SUBROUTINE LD0302(X,Y,Z,W,N)
2530 : DOUBLE PRECISION X( 302)
2531 : DOUBLE PRECISION Y( 302)
2532 : DOUBLE PRECISION Z( 302)
2533 : DOUBLE PRECISION W( 302)
2534 : INTEGER N
2535 : DOUBLE PRECISION A,B,V
2536 : !
2537 : ! LEBEDEV 302-POINT ANGULAR GRID
2538 : !
2539 : !
2540 : ! This subroutine is part of a set of subroutines that generate
2541 : ! Lebedev grids [1-6] for integration on a sphere. The original
2542 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
2543 : ! translated into fortran by Dr. Christoph van Wuellen.
2544 : ! This subroutine was translated using a C to fortran77 conversion
2545 : ! tool written by Dr. Christoph van Wuellen.
2546 : !
2547 : ! Users of this code are asked to include reference [1] in their
2548 : ! publications, and in the user- and programmers-manuals
2549 : ! describing their codes.
2550 : !
2551 : ! This code was distributed through CCL (http://www.ccl.net/).
2552 : !
2553 : ! [1] V.I. Lebedev, and D.N. Laikov
2554 : ! "A quadrature formula for the sphere of the 131st
2555 : ! algebraic order of accuracy"
2556 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
2557 : !
2558 : ! [2] V.I. Lebedev
2559 : ! "A quadrature formula for the sphere of 59th algebraic
2560 : ! order of accuracy"
2561 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
2562 : !
2563 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
2564 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
2565 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
2566 : !
2567 : ! [4] V.I. Lebedev
2568 : ! "Spherical quadrature formulas exact to orders 25-29"
2569 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
2570 : !
2571 : ! [5] V.I. Lebedev
2572 : ! "Quadratures on a sphere"
2573 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
2574 : ! 1976, pp. 10-24.
2575 : !
2576 : ! [6] V.I. Lebedev
2577 : ! "Values of the nodes and weights of ninth to seventeenth
2578 : ! order Gauss-Markov quadrature formulae invariant under the
2579 : ! octahedron group with inversion"
2580 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
2581 : ! 1975, pp. 44-51.
2582 : !
2583 0 : N=1
2584 0 : V=0.8545911725128148e-3
2585 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
2586 0 : V=0.3599119285025571e-2
2587 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
2588 0 : A=0.3515640345570105
2589 0 : V=0.3449788424305883e-2
2590 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2591 0 : A=0.6566329410219612
2592 0 : V=0.3604822601419882e-2
2593 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2594 0 : A=0.4729054132581005
2595 0 : V=0.3576729661743367e-2
2596 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2597 0 : A=0.9618308522614784e-1
2598 0 : V=0.2352101413689164e-2
2599 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2600 0 : A=0.2219645236294178
2601 0 : V=0.3108953122413675e-2
2602 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2603 0 : A=0.7011766416089545
2604 0 : V=0.3650045807677255e-2
2605 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2606 0 : A=0.2644152887060663
2607 0 : V=0.2982344963171804e-2
2608 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
2609 0 : A=0.5718955891878961
2610 0 : V=0.3600820932216460e-2
2611 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
2612 0 : A=0.2510034751770465
2613 0 : B=0.8000727494073952
2614 0 : V=0.3571540554273387e-2
2615 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
2616 0 : A=0.1233548532583327
2617 0 : B=0.4127724083168531
2618 0 : V=0.3392312205006170e-2
2619 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
2620 0 : N=N-1
2621 0 : RETURN
2622 : END
2623 0 : SUBROUTINE LD0350(X,Y,Z,W,N)
2624 : DOUBLE PRECISION X( 350)
2625 : DOUBLE PRECISION Y( 350)
2626 : DOUBLE PRECISION Z( 350)
2627 : DOUBLE PRECISION W( 350)
2628 : INTEGER N
2629 : DOUBLE PRECISION A,B,V
2630 : !
2631 : ! LEBEDEV 350-POINT ANGULAR GRID
2632 : !
2633 : !
2634 : ! This subroutine is part of a set of subroutines that generate
2635 : ! Lebedev grids [1-6] for integration on a sphere. The original
2636 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
2637 : ! translated into fortran by Dr. Christoph van Wuellen.
2638 : ! This subroutine was translated using a C to fortran77 conversion
2639 : ! tool written by Dr. Christoph van Wuellen.
2640 : !
2641 : ! Users of this code are asked to include reference [1] in their
2642 : ! publications, and in the user- and programmers-manuals
2643 : ! describing their codes.
2644 : !
2645 : ! This code was distributed through CCL (http://www.ccl.net/).
2646 : !
2647 : ! [1] V.I. Lebedev, and D.N. Laikov
2648 : ! "A quadrature formula for the sphere of the 131st
2649 : ! algebraic order of accuracy"
2650 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
2651 : !
2652 : ! [2] V.I. Lebedev
2653 : ! "A quadrature formula for the sphere of 59th algebraic
2654 : ! order of accuracy"
2655 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
2656 : !
2657 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
2658 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
2659 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
2660 : !
2661 : ! [4] V.I. Lebedev
2662 : ! "Spherical quadrature formulas exact to orders 25-29"
2663 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
2664 : !
2665 : ! [5] V.I. Lebedev
2666 : ! "Quadratures on a sphere"
2667 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
2668 : ! 1976, pp. 10-24.
2669 : !
2670 : ! [6] V.I. Lebedev
2671 : ! "Values of the nodes and weights of ninth to seventeenth
2672 : ! order Gauss-Markov quadrature formulae invariant under the
2673 : ! octahedron group with inversion"
2674 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
2675 : ! 1975, pp. 44-51.
2676 : !
2677 0 : N=1
2678 0 : V=0.3006796749453936e-2
2679 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
2680 0 : V=0.3050627745650771e-2
2681 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
2682 0 : A=0.7068965463912316
2683 0 : V=0.1621104600288991e-2
2684 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2685 0 : A=0.4794682625712025
2686 0 : V=0.3005701484901752e-2
2687 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2688 0 : A=0.1927533154878019
2689 0 : V=0.2990992529653774e-2
2690 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2691 0 : A=0.6930357961327123
2692 0 : V=0.2982170644107595e-2
2693 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2694 0 : A=0.3608302115520091
2695 0 : V=0.2721564237310992e-2
2696 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2697 0 : A=0.6498486161496169
2698 0 : V=0.3033513795811141e-2
2699 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2700 0 : A=0.1932945013230339
2701 0 : V=0.3007949555218533e-2
2702 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
2703 0 : A=0.3800494919899303
2704 0 : V=0.2881964603055307e-2
2705 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
2706 0 : A=0.2899558825499574
2707 0 : B=0.7934537856582316
2708 0 : V=0.2958357626535696e-2
2709 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
2710 0 : A=0.9684121455103957e-1
2711 0 : B=0.8280801506686862
2712 0 : V=0.3036020026407088e-2
2713 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
2714 0 : A=0.1833434647041659
2715 0 : B=0.9074658265305127
2716 0 : V=0.2832187403926303e-2
2717 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
2718 0 : N=N-1
2719 0 : RETURN
2720 : END
2721 0 : SUBROUTINE LD0434(X,Y,Z,W,N)
2722 : DOUBLE PRECISION X( 434)
2723 : DOUBLE PRECISION Y( 434)
2724 : DOUBLE PRECISION Z( 434)
2725 : DOUBLE PRECISION W( 434)
2726 : INTEGER N
2727 : DOUBLE PRECISION A,B,V
2728 : !
2729 : ! LEBEDEV 434-POINT ANGULAR GRID
2730 : !
2731 : !
2732 : ! This subroutine is part of a set of subroutines that generate
2733 : ! Lebedev grids [1-6] for integration on a sphere. The original
2734 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
2735 : ! translated into fortran by Dr. Christoph van Wuellen.
2736 : ! This subroutine was translated using a C to fortran77 conversion
2737 : ! tool written by Dr. Christoph van Wuellen.
2738 : !
2739 : ! Users of this code are asked to include reference [1] in their
2740 : ! publications, and in the user- and programmers-manuals
2741 : ! describing their codes.
2742 : !
2743 : ! This code was distributed through CCL (http://www.ccl.net/).
2744 : !
2745 : ! [1] V.I. Lebedev, and D.N. Laikov
2746 : ! "A quadrature formula for the sphere of the 131st
2747 : ! algebraic order of accuracy"
2748 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
2749 : !
2750 : ! [2] V.I. Lebedev
2751 : ! "A quadrature formula for the sphere of 59th algebraic
2752 : ! order of accuracy"
2753 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
2754 : !
2755 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
2756 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
2757 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
2758 : !
2759 : ! [4] V.I. Lebedev
2760 : ! "Spherical quadrature formulas exact to orders 25-29"
2761 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
2762 : !
2763 : ! [5] V.I. Lebedev
2764 : ! "Quadratures on a sphere"
2765 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
2766 : ! 1976, pp. 10-24.
2767 : !
2768 : ! [6] V.I. Lebedev
2769 : ! "Values of the nodes and weights of ninth to seventeenth
2770 : ! order Gauss-Markov quadrature formulae invariant under the
2771 : ! octahedron group with inversion"
2772 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
2773 : ! 1975, pp. 44-51.
2774 : !
2775 0 : N=1
2776 0 : V=0.5265897968224436e-3
2777 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
2778 0 : V=0.2548219972002607e-2
2779 0 : Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
2780 0 : V=0.2512317418927307e-2
2781 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
2782 0 : A=0.6909346307509111
2783 0 : V=0.2530403801186355e-2
2784 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2785 0 : A=0.1774836054609158
2786 0 : V=0.2014279020918528e-2
2787 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2788 0 : A=0.4914342637784746
2789 0 : V=0.2501725168402936e-2
2790 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2791 0 : A=0.6456664707424256
2792 0 : V=0.2513267174597564e-2
2793 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2794 0 : A=0.2861289010307638
2795 0 : V=0.2302694782227416e-2
2796 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2797 0 : A=0.7568084367178018e-1
2798 0 : V=0.1462495621594614e-2
2799 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2800 0 : A=0.3927259763368002
2801 0 : V=0.2445373437312980e-2
2802 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2803 0 : A=0.8818132877794288
2804 0 : V=0.2417442375638981e-2
2805 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
2806 0 : A=0.9776428111182649
2807 0 : V=0.1910951282179532e-2
2808 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
2809 0 : A=0.2054823696403044
2810 0 : B=0.8689460322872412
2811 0 : V=0.2416930044324775e-2
2812 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
2813 0 : A=0.5905157048925271
2814 0 : B=0.7999278543857286
2815 0 : V=0.2512236854563495e-2
2816 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
2817 0 : A=0.5550152361076807
2818 0 : B=0.7717462626915901
2819 0 : V=0.2496644054553086e-2
2820 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
2821 0 : A=0.9371809858553722
2822 0 : B=0.3344363145343455
2823 0 : V=0.2236607760437849e-2
2824 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
2825 0 : N=N-1
2826 0 : RETURN
2827 : END
2828 0 : SUBROUTINE LD0590(X,Y,Z,W,N)
2829 : DOUBLE PRECISION X( 590)
2830 : DOUBLE PRECISION Y( 590)
2831 : DOUBLE PRECISION Z( 590)
2832 : DOUBLE PRECISION W( 590)
2833 : INTEGER N
2834 : DOUBLE PRECISION A,B,V
2835 : !
2836 : ! LEBEDEV 590-POINT ANGULAR GRID
2837 : !
2838 : !
2839 : ! This subroutine is part of a set of subroutines that generate
2840 : ! Lebedev grids [1-6] for integration on a sphere. The original
2841 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
2842 : ! translated into fortran by Dr. Christoph van Wuellen.
2843 : ! This subroutine was translated using a C to fortran77 conversion
2844 : ! tool written by Dr. Christoph van Wuellen.
2845 : !
2846 : ! Users of this code are asked to include reference [1] in their
2847 : ! publications, and in the user- and programmers-manuals
2848 : ! describing their codes.
2849 : !
2850 : ! This code was distributed through CCL (http://www.ccl.net/).
2851 : !
2852 : ! [1] V.I. Lebedev, and D.N. Laikov
2853 : ! "A quadrature formula for the sphere of the 131st
2854 : ! algebraic order of accuracy"
2855 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
2856 : !
2857 : ! [2] V.I. Lebedev
2858 : ! "A quadrature formula for the sphere of 59th algebraic
2859 : ! order of accuracy"
2860 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
2861 : !
2862 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
2863 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
2864 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
2865 : !
2866 : ! [4] V.I. Lebedev
2867 : ! "Spherical quadrature formulas exact to orders 25-29"
2868 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
2869 : !
2870 : ! [5] V.I. Lebedev
2871 : ! "Quadratures on a sphere"
2872 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
2873 : ! 1976, pp. 10-24.
2874 : !
2875 : ! [6] V.I. Lebedev
2876 : ! "Values of the nodes and weights of ninth to seventeenth
2877 : ! order Gauss-Markov quadrature formulae invariant under the
2878 : ! octahedron group with inversion"
2879 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
2880 : ! 1975, pp. 44-51.
2881 : !
2882 0 : N=1
2883 0 : V=0.3095121295306187e-3
2884 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
2885 0 : V=0.1852379698597489e-2
2886 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
2887 0 : A=0.7040954938227469
2888 0 : V=0.1871790639277744e-2
2889 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2890 0 : A=0.6807744066455243
2891 0 : V=0.1858812585438317e-2
2892 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2893 0 : A=0.6372546939258752
2894 0 : V=0.1852028828296213e-2
2895 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2896 0 : A=0.5044419707800358
2897 0 : V=0.1846715956151242e-2
2898 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2899 0 : A=0.4215761784010967
2900 0 : V=0.1818471778162769e-2
2901 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2902 0 : A=0.3317920736472123
2903 0 : V=0.1749564657281154e-2
2904 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2905 0 : A=0.2384736701421887
2906 0 : V=0.1617210647254411e-2
2907 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2908 0 : A=0.1459036449157763
2909 0 : V=0.1384737234851692e-2
2910 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2911 0 : A=0.6095034115507196e-1
2912 0 : V=0.9764331165051050e-3
2913 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
2914 0 : A=0.6116843442009876
2915 0 : V=0.1857161196774078e-2
2916 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
2917 0 : A=0.3964755348199858
2918 0 : V=0.1705153996395864e-2
2919 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
2920 0 : A=0.1724782009907724
2921 0 : V=0.1300321685886048e-2
2922 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
2923 0 : A=0.5610263808622060
2924 0 : B=0.3518280927733519
2925 0 : V=0.1842866472905286e-2
2926 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
2927 0 : A=0.4742392842551980
2928 0 : B=0.2634716655937950
2929 0 : V=0.1802658934377451e-2
2930 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
2931 0 : A=0.5984126497885380
2932 0 : B=0.1816640840360209
2933 0 : V=0.1849830560443660e-2
2934 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
2935 0 : A=0.3791035407695563
2936 0 : B=0.1720795225656878
2937 0 : V=0.1713904507106709e-2
2938 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
2939 0 : A=0.2778673190586244
2940 0 : B=0.8213021581932511e-1
2941 0 : V=0.1555213603396808e-2
2942 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
2943 0 : A=0.5033564271075117
2944 0 : B=0.8999205842074875e-1
2945 0 : V=0.1802239128008525e-2
2946 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
2947 0 : N=N-1
2948 0 : RETURN
2949 : END
2950 0 : SUBROUTINE LD0770(X,Y,Z,W,N)
2951 : DOUBLE PRECISION X( 770)
2952 : DOUBLE PRECISION Y( 770)
2953 : DOUBLE PRECISION Z( 770)
2954 : DOUBLE PRECISION W( 770)
2955 : INTEGER N
2956 : DOUBLE PRECISION A,B,V
2957 : !
2958 : ! LEBEDEV 770-POINT ANGULAR GRID
2959 : !
2960 : !
2961 : ! This subroutine is part of a set of subroutines that generate
2962 : ! Lebedev grids [1-6] for integration on a sphere. The original
2963 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
2964 : ! translated into fortran by Dr. Christoph van Wuellen.
2965 : ! This subroutine was translated using a C to fortran77 conversion
2966 : ! tool written by Dr. Christoph van Wuellen.
2967 : !
2968 : ! Users of this code are asked to include reference [1] in their
2969 : ! publications, and in the user- and programmers-manuals
2970 : ! describing their codes.
2971 : !
2972 : ! This code was distributed through CCL (http://www.ccl.net/).
2973 : !
2974 : ! [1] V.I. Lebedev, and D.N. Laikov
2975 : ! "A quadrature formula for the sphere of the 131st
2976 : ! algebraic order of accuracy"
2977 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
2978 : !
2979 : ! [2] V.I. Lebedev
2980 : ! "A quadrature formula for the sphere of 59th algebraic
2981 : ! order of accuracy"
2982 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
2983 : !
2984 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
2985 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
2986 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
2987 : !
2988 : ! [4] V.I. Lebedev
2989 : ! "Spherical quadrature formulas exact to orders 25-29"
2990 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
2991 : !
2992 : ! [5] V.I. Lebedev
2993 : ! "Quadratures on a sphere"
2994 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
2995 : ! 1976, pp. 10-24.
2996 : !
2997 : ! [6] V.I. Lebedev
2998 : ! "Values of the nodes and weights of ninth to seventeenth
2999 : ! order Gauss-Markov quadrature formulae invariant under the
3000 : ! octahedron group with inversion"
3001 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
3002 : ! 1975, pp. 44-51.
3003 : !
3004 0 : N=1
3005 0 : V=0.2192942088181184e-3
3006 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
3007 0 : V=0.1436433617319080e-2
3008 0 : Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
3009 0 : V=0.1421940344335877e-2
3010 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
3011 0 : A=0.5087204410502360e-1
3012 0 : V=0.6798123511050502e-3
3013 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3014 0 : A=0.1228198790178831
3015 0 : V=0.9913184235294912e-3
3016 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3017 0 : A=0.2026890814408786
3018 0 : V=0.1180207833238949e-2
3019 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3020 0 : A=0.2847745156464294
3021 0 : V=0.1296599602080921e-2
3022 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3023 0 : A=0.3656719078978026
3024 0 : V=0.1365871427428316e-2
3025 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3026 0 : A=0.4428264886713469
3027 0 : V=0.1402988604775325e-2
3028 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3029 0 : A=0.5140619627249735
3030 0 : V=0.1418645563595609e-2
3031 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3032 0 : A=0.6306401219166803
3033 0 : V=0.1421376741851662e-2
3034 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3035 0 : A=0.6716883332022612
3036 0 : V=0.1423996475490962e-2
3037 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3038 0 : A=0.6979792685336881
3039 0 : V=0.1431554042178567e-2
3040 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3041 0 : A=0.1446865674195309
3042 0 : V=0.9254401499865368e-3
3043 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3044 0 : A=0.3390263475411216
3045 0 : V=0.1250239995053509e-2
3046 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3047 0 : A=0.5335804651263506
3048 0 : V=0.1394365843329230e-2
3049 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3050 0 : A=0.6944024393349413e-1
3051 0 : B=0.2355187894242326
3052 0 : V=0.1127089094671749e-2
3053 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3054 0 : A=0.2269004109529460
3055 0 : B=0.4102182474045730
3056 0 : V=0.1345753760910670e-2
3057 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3058 0 : A=0.8025574607775339e-1
3059 0 : B=0.6214302417481605
3060 0 : V=0.1424957283316783e-2
3061 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3062 0 : A=0.1467999527896572
3063 0 : B=0.3245284345717394
3064 0 : V=0.1261523341237750e-2
3065 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3066 0 : A=0.1571507769824727
3067 0 : B=0.5224482189696630
3068 0 : V=0.1392547106052696e-2
3069 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3070 0 : A=0.2365702993157246
3071 0 : B=0.6017546634089558
3072 0 : V=0.1418761677877656e-2
3073 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3074 0 : A=0.7714815866765732e-1
3075 0 : B=0.4346575516141163
3076 0 : V=0.1338366684479554e-2
3077 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3078 0 : A=0.3062936666210730
3079 0 : B=0.4908826589037616
3080 0 : V=0.1393700862676131e-2
3081 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3082 0 : A=0.3822477379524787
3083 0 : B=0.5648768149099500
3084 0 : V=0.1415914757466932e-2
3085 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3086 0 : N=N-1
3087 0 : RETURN
3088 : END
3089 0 : SUBROUTINE LD0974(X,Y,Z,W,N)
3090 : DOUBLE PRECISION X( 974)
3091 : DOUBLE PRECISION Y( 974)
3092 : DOUBLE PRECISION Z( 974)
3093 : DOUBLE PRECISION W( 974)
3094 : INTEGER N
3095 : DOUBLE PRECISION A,B,V
3096 : !
3097 : ! LEBEDEV 974-POINT ANGULAR GRID
3098 : !
3099 : !
3100 : ! This subroutine is part of a set of subroutines that generate
3101 : ! Lebedev grids [1-6] for integration on a sphere. The original
3102 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
3103 : ! translated into fortran by Dr. Christoph van Wuellen.
3104 : ! This subroutine was translated using a C to fortran77 conversion
3105 : ! tool written by Dr. Christoph van Wuellen.
3106 : !
3107 : ! Users of this code are asked to include reference [1] in their
3108 : ! publications, and in the user- and programmers-manuals
3109 : ! describing their codes.
3110 : !
3111 : ! This code was distributed through CCL (http://www.ccl.net/).
3112 : !
3113 : ! [1] V.I. Lebedev, and D.N. Laikov
3114 : ! "A quadrature formula for the sphere of the 131st
3115 : ! algebraic order of accuracy"
3116 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
3117 : !
3118 : ! [2] V.I. Lebedev
3119 : ! "A quadrature formula for the sphere of 59th algebraic
3120 : ! order of accuracy"
3121 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
3122 : !
3123 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
3124 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
3125 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
3126 : !
3127 : ! [4] V.I. Lebedev
3128 : ! "Spherical quadrature formulas exact to orders 25-29"
3129 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
3130 : !
3131 : ! [5] V.I. Lebedev
3132 : ! "Quadratures on a sphere"
3133 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
3134 : ! 1976, pp. 10-24.
3135 : !
3136 : ! [6] V.I. Lebedev
3137 : ! "Values of the nodes and weights of ninth to seventeenth
3138 : ! order Gauss-Markov quadrature formulae invariant under the
3139 : ! octahedron group with inversion"
3140 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
3141 : ! 1975, pp. 44-51.
3142 : !
3143 0 : N=1
3144 0 : V=0.1438294190527431e-3
3145 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
3146 0 : V=0.1125772288287004e-2
3147 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
3148 0 : A=0.4292963545341347e-1
3149 0 : V=0.4948029341949241e-3
3150 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3151 0 : A=0.1051426854086404
3152 0 : V=0.7357990109125470e-3
3153 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3154 0 : A=0.1750024867623087
3155 0 : V=0.8889132771304384e-3
3156 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3157 0 : A=0.2477653379650257
3158 0 : V=0.9888347838921435e-3
3159 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3160 0 : A=0.3206567123955957
3161 0 : V=0.1053299681709471e-2
3162 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3163 0 : A=0.3916520749849983
3164 0 : V=0.1092778807014578e-2
3165 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3166 0 : A=0.4590825874187624
3167 0 : V=0.1114389394063227e-2
3168 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3169 0 : A=0.5214563888415861
3170 0 : V=0.1123724788051555e-2
3171 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3172 0 : A=0.6253170244654199
3173 0 : V=0.1125239325243814e-2
3174 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3175 0 : A=0.6637926744523170
3176 0 : V=0.1126153271815905e-2
3177 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3178 0 : A=0.6910410398498301
3179 0 : V=0.1130286931123841e-2
3180 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3181 0 : A=0.7052907007457760
3182 0 : V=0.1134986534363955e-2
3183 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3184 0 : A=0.1236686762657990
3185 0 : V=0.6823367927109931e-3
3186 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3187 0 : A=0.2940777114468387
3188 0 : V=0.9454158160447096e-3
3189 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3190 0 : A=0.4697753849207649
3191 0 : V=0.1074429975385679e-2
3192 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3193 0 : A=0.6334563241139567
3194 0 : V=0.1129300086569132e-2
3195 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3196 0 : A=0.5974048614181342e-1
3197 0 : B=0.2029128752777523
3198 0 : V=0.8436884500901954e-3
3199 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3200 0 : A=0.1375760408473636
3201 0 : B=0.4602621942484054
3202 0 : V=0.1075255720448885e-2
3203 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3204 0 : A=0.3391016526336286
3205 0 : B=0.5030673999662036
3206 0 : V=0.1108577236864462e-2
3207 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3208 0 : A=0.1271675191439820
3209 0 : B=0.2817606422442134
3210 0 : V=0.9566475323783357e-3
3211 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3212 0 : A=0.2693120740413512
3213 0 : B=0.4331561291720157
3214 0 : V=0.1080663250717391e-2
3215 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3216 0 : A=0.1419786452601918
3217 0 : B=0.6256167358580814
3218 0 : V=0.1126797131196295e-2
3219 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3220 0 : A=0.6709284600738255e-1
3221 0 : B=0.3798395216859157
3222 0 : V=0.1022568715358061e-2
3223 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3224 0 : A=0.7057738183256172e-1
3225 0 : B=0.5517505421423520
3226 0 : V=0.1108960267713108e-2
3227 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3228 0 : A=0.2783888477882155
3229 0 : B=0.6029619156159187
3230 0 : V=0.1122790653435766e-2
3231 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3232 0 : A=0.1979578938917407
3233 0 : B=0.3589606329589096
3234 0 : V=0.1032401847117460e-2
3235 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3236 0 : A=0.2087307061103274
3237 0 : B=0.5348666438135476
3238 0 : V=0.1107249382283854e-2
3239 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3240 0 : A=0.4055122137872836
3241 0 : B=0.5674997546074373
3242 0 : V=0.1121780048519972e-2
3243 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3244 0 : N=N-1
3245 0 : RETURN
3246 : END
3247 0 : SUBROUTINE LD1202(X,Y,Z,W,N)
3248 : DOUBLE PRECISION X(1202)
3249 : DOUBLE PRECISION Y(1202)
3250 : DOUBLE PRECISION Z(1202)
3251 : DOUBLE PRECISION W(1202)
3252 : INTEGER N
3253 : DOUBLE PRECISION A,B,V
3254 : !
3255 : ! LEBEDEV 1202-POINT ANGULAR GRID
3256 : !
3257 : !
3258 : ! This subroutine is part of a set of subroutines that generate
3259 : ! Lebedev grids [1-6] for integration on a sphere. The original
3260 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
3261 : ! translated into fortran by Dr. Christoph van Wuellen.
3262 : ! This subroutine was translated using a C to fortran77 conversion
3263 : ! tool written by Dr. Christoph van Wuellen.
3264 : !
3265 : ! Users of this code are asked to include reference [1] in their
3266 : ! publications, and in the user- and programmers-manuals
3267 : ! describing their codes.
3268 : !
3269 : ! This code was distributed through CCL (http://www.ccl.net/).
3270 : !
3271 : ! [1] V.I. Lebedev, and D.N. Laikov
3272 : ! "A quadrature formula for the sphere of the 131st
3273 : ! algebraic order of accuracy"
3274 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
3275 : !
3276 : ! [2] V.I. Lebedev
3277 : ! "A quadrature formula for the sphere of 59th algebraic
3278 : ! order of accuracy"
3279 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
3280 : !
3281 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
3282 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
3283 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
3284 : !
3285 : ! [4] V.I. Lebedev
3286 : ! "Spherical quadrature formulas exact to orders 25-29"
3287 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
3288 : !
3289 : ! [5] V.I. Lebedev
3290 : ! "Quadratures on a sphere"
3291 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
3292 : ! 1976, pp. 10-24.
3293 : !
3294 : ! [6] V.I. Lebedev
3295 : ! "Values of the nodes and weights of ninth to seventeenth
3296 : ! order Gauss-Markov quadrature formulae invariant under the
3297 : ! octahedron group with inversion"
3298 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
3299 : ! 1975, pp. 44-51.
3300 : !
3301 0 : N=1
3302 0 : V=0.1105189233267572e-3
3303 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
3304 0 : V=0.9205232738090741e-3
3305 0 : Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
3306 0 : V=0.9133159786443561e-3
3307 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
3308 0 : A=0.3712636449657089e-1
3309 0 : V=0.3690421898017899e-3
3310 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3311 0 : A=0.9140060412262223e-1
3312 0 : V=0.5603990928680660e-3
3313 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3314 0 : A=0.1531077852469906
3315 0 : V=0.6865297629282609e-3
3316 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3317 0 : A=0.2180928891660612
3318 0 : V=0.7720338551145630e-3
3319 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3320 0 : A=0.2839874532200175
3321 0 : V=0.8301545958894795e-3
3322 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3323 0 : A=0.3491177600963764
3324 0 : V=0.8686692550179628e-3
3325 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3326 0 : A=0.4121431461444309
3327 0 : V=0.8927076285846890e-3
3328 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3329 0 : A=0.4718993627149127
3330 0 : V=0.9060820238568219e-3
3331 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3332 0 : A=0.5273145452842337
3333 0 : V=0.9119777254940867e-3
3334 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3335 0 : A=0.6209475332444019
3336 0 : V=0.9128720138604181e-3
3337 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3338 0 : A=0.6569722711857291
3339 0 : V=0.9130714935691735e-3
3340 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3341 0 : A=0.6841788309070143
3342 0 : V=0.9152873784554116e-3
3343 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3344 0 : A=0.7012604330123631
3345 0 : V=0.9187436274321654e-3
3346 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3347 0 : A=0.1072382215478166
3348 0 : V=0.5176977312965694e-3
3349 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3350 0 : A=0.2582068959496968
3351 0 : V=0.7331143682101417e-3
3352 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3353 0 : A=0.4172752955306717
3354 0 : V=0.8463232836379928e-3
3355 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3356 0 : A=0.5700366911792503
3357 0 : V=0.9031122694253992e-3
3358 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3359 0 : A=0.9827986018263947
3360 0 : B=0.1771774022615325
3361 0 : V=0.6485778453163257e-3
3362 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3363 0 : A=0.9624249230326228
3364 0 : B=0.2475716463426288
3365 0 : V=0.7435030910982369e-3
3366 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3367 0 : A=0.9402007994128811
3368 0 : B=0.3354616289066489
3369 0 : V=0.7998527891839054e-3
3370 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3371 0 : A=0.9320822040143202
3372 0 : B=0.3173615246611977
3373 0 : V=0.8101731497468018e-3
3374 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3375 0 : A=0.9043674199393299
3376 0 : B=0.4090268427085357
3377 0 : V=0.8483389574594331e-3
3378 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3379 0 : A=0.8912407560074747
3380 0 : B=0.3854291150669224
3381 0 : V=0.8556299257311812e-3
3382 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3383 0 : A=0.8676435628462708
3384 0 : B=0.4932221184851285
3385 0 : V=0.8803208679738260e-3
3386 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3387 0 : A=0.8581979986041619
3388 0 : B=0.4785320675922435
3389 0 : V=0.8811048182425720e-3
3390 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3391 0 : A=0.8396753624049856
3392 0 : B=0.4507422593157064
3393 0 : V=0.8850282341265444e-3
3394 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3395 0 : A=0.8165288564022188
3396 0 : B=0.5632123020762100
3397 0 : V=0.9021342299040653e-3
3398 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3399 0 : A=0.8015469370783529
3400 0 : B=0.5434303569693900
3401 0 : V=0.9010091677105086e-3
3402 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3403 0 : A=0.7773563069070351
3404 0 : B=0.5123518486419871
3405 0 : V=0.9022692938426915e-3
3406 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3407 0 : A=0.7661621213900394
3408 0 : B=0.6394279634749102
3409 0 : V=0.9158016174693465e-3
3410 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3411 0 : A=0.7553584143533510
3412 0 : B=0.6269805509024392
3413 0 : V=0.9131578003189435e-3
3414 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3415 0 : A=0.7344305757559503
3416 0 : B=0.6031161693096310
3417 0 : V=0.9107813579482705e-3
3418 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3419 0 : A=0.7043837184021765
3420 0 : B=0.5693702498468441
3421 0 : V=0.9105760258970126e-3
3422 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3423 0 : N=N-1
3424 0 : RETURN
3425 : END
3426 0 : SUBROUTINE LD1454(X,Y,Z,W,N)
3427 : DOUBLE PRECISION X(1454)
3428 : DOUBLE PRECISION Y(1454)
3429 : DOUBLE PRECISION Z(1454)
3430 : DOUBLE PRECISION W(1454)
3431 : INTEGER N
3432 : DOUBLE PRECISION A,B,V
3433 : !
3434 : ! LEBEDEV 1454-POINT ANGULAR GRID
3435 : !
3436 : !
3437 : ! This subroutine is part of a set of subroutines that generate
3438 : ! Lebedev grids [1-6] for integration on a sphere. The original
3439 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
3440 : ! translated into fortran by Dr. Christoph van Wuellen.
3441 : ! This subroutine was translated using a C to fortran77 conversion
3442 : ! tool written by Dr. Christoph van Wuellen.
3443 : !
3444 : ! Users of this code are asked to include reference [1] in their
3445 : ! publications, and in the user- and programmers-manuals
3446 : ! describing their codes.
3447 : !
3448 : ! This code was distributed through CCL (http://www.ccl.net/).
3449 : !
3450 : ! [1] V.I. Lebedev, and D.N. Laikov
3451 : ! "A quadrature formula for the sphere of the 131st
3452 : ! algebraic order of accuracy"
3453 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
3454 : !
3455 : ! [2] V.I. Lebedev
3456 : ! "A quadrature formula for the sphere of 59th algebraic
3457 : ! order of accuracy"
3458 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
3459 : !
3460 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
3461 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
3462 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
3463 : !
3464 : ! [4] V.I. Lebedev
3465 : ! "Spherical quadrature formulas exact to orders 25-29"
3466 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
3467 : !
3468 : ! [5] V.I. Lebedev
3469 : ! "Quadratures on a sphere"
3470 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
3471 : ! 1976, pp. 10-24.
3472 : !
3473 : ! [6] V.I. Lebedev
3474 : ! "Values of the nodes and weights of ninth to seventeenth
3475 : ! order Gauss-Markov quadrature formulae invariant under the
3476 : ! octahedron group with inversion"
3477 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
3478 : ! 1975, pp. 44-51.
3479 : !
3480 0 : N=1
3481 0 : V=0.7777160743261247e-4
3482 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
3483 0 : V=0.7557646413004701e-3
3484 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
3485 0 : A=0.3229290663413854e-1
3486 0 : V=0.2841633806090617e-3
3487 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3488 0 : A=0.8036733271462222e-1
3489 0 : V=0.4374419127053555e-3
3490 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3491 0 : A=0.1354289960531653
3492 0 : V=0.5417174740872172e-3
3493 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3494 0 : A=0.1938963861114426
3495 0 : V=0.6148000891358593e-3
3496 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3497 0 : A=0.2537343715011275
3498 0 : V=0.6664394485800705e-3
3499 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3500 0 : A=0.3135251434752570
3501 0 : V=0.7025039356923220e-3
3502 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3503 0 : A=0.3721558339375338
3504 0 : V=0.7268511789249627e-3
3505 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3506 0 : A=0.4286809575195696
3507 0 : V=0.7422637534208629e-3
3508 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3509 0 : A=0.4822510128282994
3510 0 : V=0.7509545035841214e-3
3511 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3512 0 : A=0.5320679333566263
3513 0 : V=0.7548535057718401e-3
3514 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3515 0 : A=0.6172998195394274
3516 0 : V=0.7554088969774001e-3
3517 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3518 0 : A=0.6510679849127481
3519 0 : V=0.7553147174442808e-3
3520 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3521 0 : A=0.6777315251687360
3522 0 : V=0.7564767653292297e-3
3523 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3524 0 : A=0.6963109410648741
3525 0 : V=0.7587991808518730e-3
3526 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3527 0 : A=0.7058935009831749
3528 0 : V=0.7608261832033027e-3
3529 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3530 0 : A=0.9955546194091857
3531 0 : V=0.4021680447874916e-3
3532 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3533 0 : A=0.9734115901794209
3534 0 : V=0.5804871793945964e-3
3535 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3536 0 : A=0.9275693732388626
3537 0 : V=0.6792151955945159e-3
3538 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3539 0 : A=0.8568022422795103
3540 0 : V=0.7336741211286294e-3
3541 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3542 0 : A=0.7623495553719372
3543 0 : V=0.7581866300989608e-3
3544 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3545 0 : A=0.5707522908892223
3546 0 : B=0.4387028039889501
3547 0 : V=0.7538257859800743e-3
3548 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3549 0 : A=0.5196463388403083
3550 0 : B=0.3858908414762617
3551 0 : V=0.7483517247053123e-3
3552 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3553 0 : A=0.4646337531215351
3554 0 : B=0.3301937372343854
3555 0 : V=0.7371763661112059e-3
3556 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3557 0 : A=0.4063901697557691
3558 0 : B=0.2725423573563777
3559 0 : V=0.7183448895756934e-3
3560 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3561 0 : A=0.3456329466643087
3562 0 : B=0.2139510237495250
3563 0 : V=0.6895815529822191e-3
3564 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3565 0 : A=0.2831395121050332
3566 0 : B=0.1555922309786647
3567 0 : V=0.6480105801792886e-3
3568 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3569 0 : A=0.2197682022925330
3570 0 : B=0.9892878979686097e-1
3571 0 : V=0.5897558896594636e-3
3572 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3573 0 : A=0.1564696098650355
3574 0 : B=0.4598642910675510e-1
3575 0 : V=0.5095708849247346e-3
3576 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3577 0 : A=0.6027356673721295
3578 0 : B=0.3376625140173426
3579 0 : V=0.7536906428909755e-3
3580 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3581 0 : A=0.5496032320255096
3582 0 : B=0.2822301309727988
3583 0 : V=0.7472505965575118e-3
3584 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3585 0 : A=0.4921707755234567
3586 0 : B=0.2248632342592540
3587 0 : V=0.7343017132279698e-3
3588 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3589 0 : A=0.4309422998598483
3590 0 : B=0.1666224723456479
3591 0 : V=0.7130871582177445e-3
3592 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3593 0 : A=0.3664108182313672
3594 0 : B=0.1086964901822169
3595 0 : V=0.6817022032112776e-3
3596 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3597 0 : A=0.2990189057758436
3598 0 : B=0.5251989784120085e-1
3599 0 : V=0.6380941145604121e-3
3600 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3601 0 : A=0.6268724013144998
3602 0 : B=0.2297523657550023
3603 0 : V=0.7550381377920310e-3
3604 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3605 0 : A=0.5707324144834607
3606 0 : B=0.1723080607093800
3607 0 : V=0.7478646640144802e-3
3608 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3609 0 : A=0.5096360901960365
3610 0 : B=0.1140238465390513
3611 0 : V=0.7335918720601220e-3
3612 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3613 0 : A=0.4438729938312456
3614 0 : B=0.5611522095882537e-1
3615 0 : V=0.7110120527658118e-3
3616 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3617 0 : A=0.6419978471082389
3618 0 : B=0.1164174423140873
3619 0 : V=0.7571363978689501e-3
3620 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3621 0 : A=0.5817218061802611
3622 0 : B=0.5797589531445219e-1
3623 0 : V=0.7489908329079234e-3
3624 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3625 0 : N=N-1
3626 0 : RETURN
3627 : END
3628 0 : SUBROUTINE LD1730(X,Y,Z,W,N)
3629 : DOUBLE PRECISION X(1730)
3630 : DOUBLE PRECISION Y(1730)
3631 : DOUBLE PRECISION Z(1730)
3632 : DOUBLE PRECISION W(1730)
3633 : INTEGER N
3634 : DOUBLE PRECISION A,B,V
3635 : !
3636 : ! LEBEDEV 1730-POINT ANGULAR GRID
3637 : !
3638 : !
3639 : ! This subroutine is part of a set of subroutines that generate
3640 : ! Lebedev grids [1-6] for integration on a sphere. The original
3641 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
3642 : ! translated into fortran by Dr. Christoph van Wuellen.
3643 : ! This subroutine was translated using a C to fortran77 conversion
3644 : ! tool written by Dr. Christoph van Wuellen.
3645 : !
3646 : ! Users of this code are asked to include reference [1] in their
3647 : ! publications, and in the user- and programmers-manuals
3648 : ! describing their codes.
3649 : !
3650 : ! This code was distributed through CCL (http://www.ccl.net/).
3651 : !
3652 : ! [1] V.I. Lebedev, and D.N. Laikov
3653 : ! "A quadrature formula for the sphere of the 131st
3654 : ! algebraic order of accuracy"
3655 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
3656 : !
3657 : ! [2] V.I. Lebedev
3658 : ! "A quadrature formula for the sphere of 59th algebraic
3659 : ! order of accuracy"
3660 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
3661 : !
3662 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
3663 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
3664 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
3665 : !
3666 : ! [4] V.I. Lebedev
3667 : ! "Spherical quadrature formulas exact to orders 25-29"
3668 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
3669 : !
3670 : ! [5] V.I. Lebedev
3671 : ! "Quadratures on a sphere"
3672 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
3673 : ! 1976, pp. 10-24.
3674 : !
3675 : ! [6] V.I. Lebedev
3676 : ! "Values of the nodes and weights of ninth to seventeenth
3677 : ! order Gauss-Markov quadrature formulae invariant under the
3678 : ! octahedron group with inversion"
3679 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
3680 : ! 1975, pp. 44-51.
3681 : !
3682 0 : N=1
3683 0 : V=0.6309049437420976e-4
3684 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
3685 0 : V=0.6398287705571748e-3
3686 0 : Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
3687 0 : V=0.6357185073530720e-3
3688 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
3689 0 : A=0.2860923126194662e-1
3690 0 : V=0.2221207162188168e-3
3691 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3692 0 : A=0.7142556767711522e-1
3693 0 : V=0.3475784022286848e-3
3694 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3695 0 : A=0.1209199540995559
3696 0 : V=0.4350742443589804e-3
3697 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3698 0 : A=0.1738673106594379
3699 0 : V=0.4978569136522127e-3
3700 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3701 0 : A=0.2284645438467734
3702 0 : V=0.5435036221998053e-3
3703 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3704 0 : A=0.2834807671701512
3705 0 : V=0.5765913388219542e-3
3706 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3707 0 : A=0.3379680145467339
3708 0 : V=0.6001200359226003e-3
3709 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3710 0 : A=0.3911355454819537
3711 0 : V=0.6162178172717512e-3
3712 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3713 0 : A=0.4422860353001403
3714 0 : V=0.6265218152438485e-3
3715 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3716 0 : A=0.4907781568726057
3717 0 : V=0.6323987160974212e-3
3718 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3719 0 : A=0.5360006153211468
3720 0 : V=0.6350767851540569e-3
3721 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3722 0 : A=0.6142105973596603
3723 0 : V=0.6354362775297107e-3
3724 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3725 0 : A=0.6459300387977504
3726 0 : V=0.6352302462706235e-3
3727 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3728 0 : A=0.6718056125089225
3729 0 : V=0.6358117881417972e-3
3730 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3731 0 : A=0.6910888533186254
3732 0 : V=0.6373101590310117e-3
3733 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3734 0 : A=0.7030467416823252
3735 0 : V=0.6390428961368665e-3
3736 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3737 0 : A=0.8354951166354646e-1
3738 0 : V=0.3186913449946576e-3
3739 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3740 0 : A=0.2050143009099486
3741 0 : V=0.4678028558591711e-3
3742 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3743 0 : A=0.3370208290706637
3744 0 : V=0.5538829697598626e-3
3745 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3746 0 : A=0.4689051484233963
3747 0 : V=0.6044475907190476e-3
3748 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3749 0 : A=0.5939400424557334
3750 0 : V=0.6313575103509012e-3
3751 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3752 0 : A=0.1394983311832261
3753 0 : B=0.4097581162050343e-1
3754 0 : V=0.4078626431855630e-3
3755 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3756 0 : A=0.1967999180485014
3757 0 : B=0.8851987391293348e-1
3758 0 : V=0.4759933057812725e-3
3759 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3760 0 : A=0.2546183732548967
3761 0 : B=0.1397680182969819
3762 0 : V=0.5268151186413440e-3
3763 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3764 0 : A=0.3121281074713875
3765 0 : B=0.1929452542226526
3766 0 : V=0.5643048560507316e-3
3767 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3768 0 : A=0.3685981078502492
3769 0 : B=0.2467898337061562
3770 0 : V=0.5914501076613073e-3
3771 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3772 0 : A=0.4233760321547856
3773 0 : B=0.3003104124785409
3774 0 : V=0.6104561257874195e-3
3775 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3776 0 : A=0.4758671236059246
3777 0 : B=0.3526684328175033
3778 0 : V=0.6230252860707806e-3
3779 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3780 0 : A=0.5255178579796463
3781 0 : B=0.4031134861145713
3782 0 : V=0.6305618761760796e-3
3783 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3784 0 : A=0.5718025633734589
3785 0 : B=0.4509426448342351
3786 0 : V=0.6343092767597889e-3
3787 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3788 0 : A=0.2686927772723415
3789 0 : B=0.4711322502423248e-1
3790 0 : V=0.5176268945737826e-3
3791 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3792 0 : A=0.3306006819904809
3793 0 : B=0.9784487303942695e-1
3794 0 : V=0.5564840313313692e-3
3795 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3796 0 : A=0.3904906850594983
3797 0 : B=0.1505395810025273
3798 0 : V=0.5856426671038980e-3
3799 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3800 0 : A=0.4479957951904390
3801 0 : B=0.2039728156296050
3802 0 : V=0.6066386925777091e-3
3803 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3804 0 : A=0.5027076848919780
3805 0 : B=0.2571529941121107
3806 0 : V=0.6208824962234458e-3
3807 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3808 0 : A=0.5542087392260217
3809 0 : B=0.3092191375815670
3810 0 : V=0.6296314297822907e-3
3811 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3812 0 : A=0.6020850887375187
3813 0 : B=0.3593807506130276
3814 0 : V=0.6340423756791859e-3
3815 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3816 0 : A=0.4019851409179594
3817 0 : B=0.5063389934378671e-1
3818 0 : V=0.5829627677107342e-3
3819 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3820 0 : A=0.4635614567449800
3821 0 : B=0.1032422269160612
3822 0 : V=0.6048693376081110e-3
3823 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3824 0 : A=0.5215860931591575
3825 0 : B=0.1566322094006254
3826 0 : V=0.6202362317732461e-3
3827 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3828 0 : A=0.5758202499099271
3829 0 : B=0.2098082827491099
3830 0 : V=0.6299005328403779e-3
3831 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3832 0 : A=0.6259893683876795
3833 0 : B=0.2618824114553391
3834 0 : V=0.6347722390609353e-3
3835 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3836 0 : A=0.5313795124811891
3837 0 : B=0.5263245019338556e-1
3838 0 : V=0.6203778981238834e-3
3839 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3840 0 : A=0.5893317955931995
3841 0 : B=0.1061059730982005
3842 0 : V=0.6308414671239979e-3
3843 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3844 0 : A=0.6426246321215801
3845 0 : B=0.1594171564034221
3846 0 : V=0.6362706466959498e-3
3847 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3848 0 : A=0.6511904367376113
3849 0 : B=0.5354789536565540e-1
3850 0 : V=0.6375414170333233e-3
3851 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3852 0 : N=N-1
3853 0 : RETURN
3854 : END
3855 0 : SUBROUTINE LD2030(X,Y,Z,W,N)
3856 : DOUBLE PRECISION X(2030)
3857 : DOUBLE PRECISION Y(2030)
3858 : DOUBLE PRECISION Z(2030)
3859 : DOUBLE PRECISION W(2030)
3860 : INTEGER N
3861 : DOUBLE PRECISION A,B,V
3862 : !
3863 : ! LEBEDEV 2030-POINT ANGULAR GRID
3864 : !
3865 : !
3866 : ! This subroutine is part of a set of subroutines that generate
3867 : ! Lebedev grids [1-6] for integration on a sphere. The original
3868 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
3869 : ! translated into fortran by Dr. Christoph van Wuellen.
3870 : ! This subroutine was translated using a C to fortran77 conversion
3871 : ! tool written by Dr. Christoph van Wuellen.
3872 : !
3873 : ! Users of this code are asked to include reference [1] in their
3874 : ! publications, and in the user- and programmers-manuals
3875 : ! describing their codes.
3876 : !
3877 : ! This code was distributed through CCL (http://www.ccl.net/).
3878 : !
3879 : ! [1] V.I. Lebedev, and D.N. Laikov
3880 : ! "A quadrature formula for the sphere of the 131st
3881 : ! algebraic order of accuracy"
3882 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
3883 : !
3884 : ! [2] V.I. Lebedev
3885 : ! "A quadrature formula for the sphere of 59th algebraic
3886 : ! order of accuracy"
3887 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
3888 : !
3889 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
3890 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
3891 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
3892 : !
3893 : ! [4] V.I. Lebedev
3894 : ! "Spherical quadrature formulas exact to orders 25-29"
3895 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
3896 : !
3897 : ! [5] V.I. Lebedev
3898 : ! "Quadratures on a sphere"
3899 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
3900 : ! 1976, pp. 10-24.
3901 : !
3902 : ! [6] V.I. Lebedev
3903 : ! "Values of the nodes and weights of ninth to seventeenth
3904 : ! order Gauss-Markov quadrature formulae invariant under the
3905 : ! octahedron group with inversion"
3906 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
3907 : ! 1975, pp. 44-51.
3908 : !
3909 0 : N=1
3910 0 : V=0.4656031899197431e-4
3911 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
3912 0 : V=0.5421549195295507e-3
3913 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
3914 0 : A=0.2540835336814348e-1
3915 0 : V=0.1778522133346553e-3
3916 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3917 0 : A=0.6399322800504915e-1
3918 0 : V=0.2811325405682796e-3
3919 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3920 0 : A=0.1088269469804125
3921 0 : V=0.3548896312631459e-3
3922 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3923 0 : A=0.1570670798818287
3924 0 : V=0.4090310897173364e-3
3925 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3926 0 : A=0.2071163932282514
3927 0 : V=0.4493286134169965e-3
3928 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3929 0 : A=0.2578914044450844
3930 0 : V=0.4793728447962723e-3
3931 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3932 0 : A=0.3085687558169623
3933 0 : V=0.5015415319164265e-3
3934 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3935 0 : A=0.3584719706267024
3936 0 : V=0.5175127372677937e-3
3937 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3938 0 : A=0.4070135594428709
3939 0 : V=0.5285522262081019e-3
3940 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3941 0 : A=0.4536618626222638
3942 0 : V=0.5356832703713962e-3
3943 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3944 0 : A=0.4979195686463577
3945 0 : V=0.5397914736175170e-3
3946 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3947 0 : A=0.5393075111126999
3948 0 : V=0.5416899441599930e-3
3949 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3950 0 : A=0.6115617676843916
3951 0 : V=0.5419308476889938e-3
3952 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3953 0 : A=0.6414308435160159
3954 0 : V=0.5416936902030596e-3
3955 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3956 0 : A=0.6664099412721607
3957 0 : V=0.5419544338703164e-3
3958 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3959 0 : A=0.6859161771214913
3960 0 : V=0.5428983656630975e-3
3961 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3962 0 : A=0.6993625593503890
3963 0 : V=0.5442286500098193e-3
3964 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3965 0 : A=0.7062393387719380
3966 0 : V=0.5452250345057301e-3
3967 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
3968 0 : A=0.7479028168349763e-1
3969 0 : V=0.2568002497728530e-3
3970 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3971 0 : A=0.1848951153969366
3972 0 : V=0.3827211700292145e-3
3973 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3974 0 : A=0.3059529066581305
3975 0 : V=0.4579491561917824e-3
3976 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3977 0 : A=0.4285556101021362
3978 0 : V=0.5042003969083574e-3
3979 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3980 0 : A=0.5468758653496526
3981 0 : V=0.5312708889976025e-3
3982 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3983 0 : A=0.6565821978343439
3984 0 : V=0.5438401790747117e-3
3985 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
3986 0 : A=0.1253901572367117
3987 0 : B=0.3681917226439641e-1
3988 0 : V=0.3316041873197344e-3
3989 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3990 0 : A=0.1775721510383941
3991 0 : B=0.7982487607213301e-1
3992 0 : V=0.3899113567153771e-3
3993 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3994 0 : A=0.2305693358216114
3995 0 : B=0.1264640966592335
3996 0 : V=0.4343343327201309e-3
3997 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
3998 0 : A=0.2836502845992063
3999 0 : B=0.1751585683418957
4000 0 : V=0.4679415262318919e-3
4001 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4002 0 : A=0.3361794746232590
4003 0 : B=0.2247995907632670
4004 0 : V=0.4930847981631031e-3
4005 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4006 0 : A=0.3875979172264824
4007 0 : B=0.2745299257422246
4008 0 : V=0.5115031867540091e-3
4009 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4010 0 : A=0.4374019316999074
4011 0 : B=0.3236373482441118
4012 0 : V=0.5245217148457367e-3
4013 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4014 0 : A=0.4851275843340022
4015 0 : B=0.3714967859436741
4016 0 : V=0.5332041499895321e-3
4017 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4018 0 : A=0.5303391803806868
4019 0 : B=0.4175353646321745
4020 0 : V=0.5384583126021542e-3
4021 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4022 0 : A=0.5726197380596287
4023 0 : B=0.4612084406355461
4024 0 : V=0.5411067210798852e-3
4025 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4026 0 : A=0.2431520732564863
4027 0 : B=0.4258040133043952e-1
4028 0 : V=0.4259797391468714e-3
4029 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4030 0 : A=0.3002096800895869
4031 0 : B=0.8869424306722721e-1
4032 0 : V=0.4604931368460021e-3
4033 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4034 0 : A=0.3558554457457432
4035 0 : B=0.1368811706510655
4036 0 : V=0.4871814878255202e-3
4037 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4038 0 : A=0.4097782537048887
4039 0 : B=0.1860739985015033
4040 0 : V=0.5072242910074885e-3
4041 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4042 0 : A=0.4616337666067458
4043 0 : B=0.2354235077395853
4044 0 : V=0.5217069845235350e-3
4045 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4046 0 : A=0.5110707008417874
4047 0 : B=0.2842074921347011
4048 0 : V=0.5315785966280310e-3
4049 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4050 0 : A=0.5577415286163795
4051 0 : B=0.3317784414984102
4052 0 : V=0.5376833708758905e-3
4053 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4054 0 : A=0.6013060431366950
4055 0 : B=0.3775299002040700
4056 0 : V=0.5408032092069521e-3
4057 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4058 0 : A=0.3661596767261781
4059 0 : B=0.4599367887164592e-1
4060 0 : V=0.4842744917904866e-3
4061 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4062 0 : A=0.4237633153506581
4063 0 : B=0.9404893773654421e-1
4064 0 : V=0.5048926076188130e-3
4065 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4066 0 : A=0.4786328454658452
4067 0 : B=0.1431377109091971
4068 0 : V=0.5202607980478373e-3
4069 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4070 0 : A=0.5305702076789774
4071 0 : B=0.1924186388843570
4072 0 : V=0.5309932388325743e-3
4073 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4074 0 : A=0.5793436224231788
4075 0 : B=0.2411590944775190
4076 0 : V=0.5377419770895208e-3
4077 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4078 0 : A=0.6247069017094747
4079 0 : B=0.2886871491583605
4080 0 : V=0.5411696331677717e-3
4081 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4082 0 : A=0.4874315552535204
4083 0 : B=0.4804978774953206e-1
4084 0 : V=0.5197996293282420e-3
4085 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4086 0 : A=0.5427337322059053
4087 0 : B=0.9716857199366665e-1
4088 0 : V=0.5311120836622945e-3
4089 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4090 0 : A=0.5943493747246700
4091 0 : B=0.1465205839795055
4092 0 : V=0.5384309319956951e-3
4093 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4094 0 : A=0.6421314033564943
4095 0 : B=0.1953579449803574
4096 0 : V=0.5421859504051886e-3
4097 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4098 0 : A=0.6020628374713980
4099 0 : B=0.4916375015738108e-1
4100 0 : V=0.5390948355046314e-3
4101 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4102 0 : A=0.6529222529856881
4103 0 : B=0.9861621540127005e-1
4104 0 : V=0.5433312705027845e-3
4105 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4106 0 : N=N-1
4107 0 : RETURN
4108 : END
4109 0 : SUBROUTINE LD2354(X,Y,Z,W,N)
4110 : DOUBLE PRECISION X(2354)
4111 : DOUBLE PRECISION Y(2354)
4112 : DOUBLE PRECISION Z(2354)
4113 : DOUBLE PRECISION W(2354)
4114 : INTEGER N
4115 : DOUBLE PRECISION A,B,V
4116 : !
4117 : ! LEBEDEV 2354-POINT ANGULAR GRID
4118 : !
4119 : !
4120 : ! This subroutine is part of a set of subroutines that generate
4121 : ! Lebedev grids [1-6] for integration on a sphere. The original
4122 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
4123 : ! translated into fortran by Dr. Christoph van Wuellen.
4124 : ! This subroutine was translated using a C to fortran77 conversion
4125 : ! tool written by Dr. Christoph van Wuellen.
4126 : !
4127 : ! Users of this code are asked to include reference [1] in their
4128 : ! publications, and in the user- and programmers-manuals
4129 : ! describing their codes.
4130 : !
4131 : ! This code was distributed through CCL (http://www.ccl.net/).
4132 : !
4133 : ! [1] V.I. Lebedev, and D.N. Laikov
4134 : ! "A quadrature formula for the sphere of the 131st
4135 : ! algebraic order of accuracy"
4136 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
4137 : !
4138 : ! [2] V.I. Lebedev
4139 : ! "A quadrature formula for the sphere of 59th algebraic
4140 : ! order of accuracy"
4141 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
4142 : !
4143 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
4144 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
4145 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
4146 : !
4147 : ! [4] V.I. Lebedev
4148 : ! "Spherical quadrature formulas exact to orders 25-29"
4149 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
4150 : !
4151 : ! [5] V.I. Lebedev
4152 : ! "Quadratures on a sphere"
4153 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
4154 : ! 1976, pp. 10-24.
4155 : !
4156 : ! [6] V.I. Lebedev
4157 : ! "Values of the nodes and weights of ninth to seventeenth
4158 : ! order Gauss-Markov quadrature formulae invariant under the
4159 : ! octahedron group with inversion"
4160 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
4161 : ! 1975, pp. 44-51.
4162 : !
4163 0 : N=1
4164 0 : V=0.3922616270665292e-4
4165 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
4166 0 : V=0.4703831750854424e-3
4167 0 : Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
4168 0 : V=0.4678202801282136e-3
4169 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
4170 0 : A=0.2290024646530589e-1
4171 0 : V=0.1437832228979900e-3
4172 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4173 0 : A=0.5779086652271284e-1
4174 0 : V=0.2303572493577644e-3
4175 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4176 0 : A=0.9863103576375984e-1
4177 0 : V=0.2933110752447454e-3
4178 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4179 0 : A=0.1428155792982185
4180 0 : V=0.3402905998359838e-3
4181 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4182 0 : A=0.1888978116601463
4183 0 : V=0.3759138466870372e-3
4184 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4185 0 : A=0.2359091682970210
4186 0 : V=0.4030638447899798e-3
4187 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4188 0 : A=0.2831228833706171
4189 0 : V=0.4236591432242211e-3
4190 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4191 0 : A=0.3299495857966693
4192 0 : V=0.4390522656946746e-3
4193 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4194 0 : A=0.3758840802660796
4195 0 : V=0.4502523466626247e-3
4196 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4197 0 : A=0.4204751831009480
4198 0 : V=0.4580577727783541e-3
4199 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4200 0 : A=0.4633068518751051
4201 0 : V=0.4631391616615899e-3
4202 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4203 0 : A=0.5039849474507313
4204 0 : V=0.4660928953698676e-3
4205 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4206 0 : A=0.5421265793440747
4207 0 : V=0.4674751807936953e-3
4208 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4209 0 : A=0.6092660230557310
4210 0 : V=0.4676414903932920e-3
4211 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4212 0 : A=0.6374654204984869
4213 0 : V=0.4674086492347870e-3
4214 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4215 0 : A=0.6615136472609892
4216 0 : V=0.4674928539483207e-3
4217 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4218 0 : A=0.6809487285958127
4219 0 : V=0.4680748979686447e-3
4220 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4221 0 : A=0.6952980021665196
4222 0 : V=0.4690449806389040e-3
4223 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4224 0 : A=0.7041245497695400
4225 0 : V=0.4699877075860818e-3
4226 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4227 0 : A=0.6744033088306065e-1
4228 0 : V=0.2099942281069176e-3
4229 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
4230 0 : A=0.1678684485334166
4231 0 : V=0.3172269150712804e-3
4232 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
4233 0 : A=0.2793559049539613
4234 0 : V=0.3832051358546523e-3
4235 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
4236 0 : A=0.3935264218057639
4237 0 : V=0.4252193818146985e-3
4238 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
4239 0 : A=0.5052629268232558
4240 0 : V=0.4513807963755000e-3
4241 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
4242 0 : A=0.6107905315437531
4243 0 : V=0.4657797469114178e-3
4244 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
4245 0 : A=0.1135081039843524
4246 0 : B=0.3331954884662588e-1
4247 0 : V=0.2733362800522836e-3
4248 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4249 0 : A=0.1612866626099378
4250 0 : B=0.7247167465436538e-1
4251 0 : V=0.3235485368463559e-3
4252 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4253 0 : A=0.2100786550168205
4254 0 : B=0.1151539110849745
4255 0 : V=0.3624908726013453e-3
4256 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4257 0 : A=0.2592282009459942
4258 0 : B=0.1599491097143677
4259 0 : V=0.3925540070712828e-3
4260 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4261 0 : A=0.3081740561320203
4262 0 : B=0.2058699956028027
4263 0 : V=0.4156129781116235e-3
4264 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4265 0 : A=0.3564289781578164
4266 0 : B=0.2521624953502911
4267 0 : V=0.4330644984623263e-3
4268 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4269 0 : A=0.4035587288240703
4270 0 : B=0.2982090785797674
4271 0 : V=0.4459677725921312e-3
4272 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4273 0 : A=0.4491671196373903
4274 0 : B=0.3434762087235733
4275 0 : V=0.4551593004456795e-3
4276 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4277 0 : A=0.4928854782917489
4278 0 : B=0.3874831357203437
4279 0 : V=0.4613341462749918e-3
4280 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4281 0 : A=0.5343646791958988
4282 0 : B=0.4297814821746926
4283 0 : V=0.4651019618269806e-3
4284 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4285 0 : A=0.5732683216530990
4286 0 : B=0.4699402260943537
4287 0 : V=0.4670249536100625e-3
4288 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4289 0 : A=0.2214131583218986
4290 0 : B=0.3873602040643895e-1
4291 0 : V=0.3549555576441708e-3
4292 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4293 0 : A=0.2741796504750071
4294 0 : B=0.8089496256902013e-1
4295 0 : V=0.3856108245249010e-3
4296 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4297 0 : A=0.3259797439149485
4298 0 : B=0.1251732177620872
4299 0 : V=0.4098622845756882e-3
4300 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4301 0 : A=0.3765441148826891
4302 0 : B=0.1706260286403185
4303 0 : V=0.4286328604268950e-3
4304 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4305 0 : A=0.4255773574530558
4306 0 : B=0.2165115147300408
4307 0 : V=0.4427802198993945e-3
4308 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4309 0 : A=0.4727795117058430
4310 0 : B=0.2622089812225259
4311 0 : V=0.4530473511488561e-3
4312 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4313 0 : A=0.5178546895819012
4314 0 : B=0.3071721431296201
4315 0 : V=0.4600805475703138e-3
4316 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4317 0 : A=0.5605141192097460
4318 0 : B=0.3508998998801138
4319 0 : V=0.4644599059958017e-3
4320 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4321 0 : A=0.6004763319352512
4322 0 : B=0.3929160876166931
4323 0 : V=0.4667274455712508e-3
4324 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4325 0 : A=0.3352842634946949
4326 0 : B=0.4202563457288019e-1
4327 0 : V=0.4069360518020356e-3
4328 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4329 0 : A=0.3891971629814670
4330 0 : B=0.8614309758870850e-1
4331 0 : V=0.4260442819919195e-3
4332 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4333 0 : A=0.4409875565542281
4334 0 : B=0.1314500879380001
4335 0 : V=0.4408678508029063e-3
4336 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4337 0 : A=0.4904893058592484
4338 0 : B=0.1772189657383859
4339 0 : V=0.4518748115548597e-3
4340 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4341 0 : A=0.5375056138769549
4342 0 : B=0.2228277110050294
4343 0 : V=0.4595564875375116e-3
4344 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4345 0 : A=0.5818255708669969
4346 0 : B=0.2677179935014386
4347 0 : V=0.4643988774315846e-3
4348 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4349 0 : A=0.6232334858144959
4350 0 : B=0.3113675035544165
4351 0 : V=0.4668827491646946e-3
4352 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4353 0 : A=0.4489485354492058
4354 0 : B=0.4409162378368174e-1
4355 0 : V=0.4400541823741973e-3
4356 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4357 0 : A=0.5015136875933150
4358 0 : B=0.8939009917748489e-1
4359 0 : V=0.4514512890193797e-3
4360 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4361 0 : A=0.5511300550512623
4362 0 : B=0.1351806029383365
4363 0 : V=0.4596198627347549e-3
4364 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4365 0 : A=0.5976720409858000
4366 0 : B=0.1808370355053196
4367 0 : V=0.4648659016801781e-3
4368 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4369 0 : A=0.6409956378989354
4370 0 : B=0.2257852192301602
4371 0 : V=0.4675502017157673e-3
4372 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4373 0 : A=0.5581222330827514
4374 0 : B=0.4532173421637160e-1
4375 0 : V=0.4598494476455523e-3
4376 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4377 0 : A=0.6074705984161695
4378 0 : B=0.9117488031840314e-1
4379 0 : V=0.4654916955152048e-3
4380 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4381 0 : A=0.6532272537379033
4382 0 : B=0.1369294213140155
4383 0 : V=0.4684709779505137e-3
4384 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4385 0 : A=0.6594761494500487
4386 0 : B=0.4589901487275583e-1
4387 0 : V=0.4691445539106986e-3
4388 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4389 0 : N=N-1
4390 0 : RETURN
4391 : END
4392 0 : SUBROUTINE LD2702(X,Y,Z,W,N)
4393 : DOUBLE PRECISION X(2702)
4394 : DOUBLE PRECISION Y(2702)
4395 : DOUBLE PRECISION Z(2702)
4396 : DOUBLE PRECISION W(2702)
4397 : INTEGER N
4398 : DOUBLE PRECISION A,B,V
4399 : !
4400 : ! LEBEDEV 2702-POINT ANGULAR GRID
4401 : !
4402 : !
4403 : ! This subroutine is part of a set of subroutines that generate
4404 : ! Lebedev grids [1-6] for integration on a sphere. The original
4405 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
4406 : ! translated into fortran by Dr. Christoph van Wuellen.
4407 : ! This subroutine was translated using a C to fortran77 conversion
4408 : ! tool written by Dr. Christoph van Wuellen.
4409 : !
4410 : ! Users of this code are asked to include reference [1] in their
4411 : ! publications, and in the user- and programmers-manuals
4412 : ! describing their codes.
4413 : !
4414 : ! This code was distributed through CCL (http://www.ccl.net/).
4415 : !
4416 : ! [1] V.I. Lebedev, and D.N. Laikov
4417 : ! "A quadrature formula for the sphere of the 131st
4418 : ! algebraic order of accuracy"
4419 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
4420 : !
4421 : ! [2] V.I. Lebedev
4422 : ! "A quadrature formula for the sphere of 59th algebraic
4423 : ! order of accuracy"
4424 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
4425 : !
4426 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
4427 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
4428 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
4429 : !
4430 : ! [4] V.I. Lebedev
4431 : ! "Spherical quadrature formulas exact to orders 25-29"
4432 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
4433 : !
4434 : ! [5] V.I. Lebedev
4435 : ! "Quadratures on a sphere"
4436 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
4437 : ! 1976, pp. 10-24.
4438 : !
4439 : ! [6] V.I. Lebedev
4440 : ! "Values of the nodes and weights of ninth to seventeenth
4441 : ! order Gauss-Markov quadrature formulae invariant under the
4442 : ! octahedron group with inversion"
4443 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
4444 : ! 1975, pp. 44-51.
4445 : !
4446 0 : N=1
4447 0 : V=0.2998675149888161e-4
4448 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
4449 0 : V=0.4077860529495355e-3
4450 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
4451 0 : A=0.2065562538818703e-1
4452 0 : V=0.1185349192520667e-3
4453 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4454 0 : A=0.5250918173022379e-1
4455 0 : V=0.1913408643425751e-3
4456 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4457 0 : A=0.8993480082038376e-1
4458 0 : V=0.2452886577209897e-3
4459 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4460 0 : A=0.1306023924436019
4461 0 : V=0.2862408183288702e-3
4462 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4463 0 : A=0.1732060388531418
4464 0 : V=0.3178032258257357e-3
4465 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4466 0 : A=0.2168727084820249
4467 0 : V=0.3422945667633690e-3
4468 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4469 0 : A=0.2609528309173586
4470 0 : V=0.3612790520235922e-3
4471 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4472 0 : A=0.3049252927938952
4473 0 : V=0.3758638229818521e-3
4474 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4475 0 : A=0.3483484138084404
4476 0 : V=0.3868711798859953e-3
4477 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4478 0 : A=0.3908321549106406
4479 0 : V=0.3949429933189938e-3
4480 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4481 0 : A=0.4320210071894814
4482 0 : V=0.4006068107541156e-3
4483 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4484 0 : A=0.4715824795890053
4485 0 : V=0.4043192149672723e-3
4486 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4487 0 : A=0.5091984794078453
4488 0 : V=0.4064947495808078e-3
4489 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4490 0 : A=0.5445580145650803
4491 0 : V=0.4075245619813152e-3
4492 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4493 0 : A=0.6072575796841768
4494 0 : V=0.4076423540893566e-3
4495 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4496 0 : A=0.6339484505755803
4497 0 : V=0.4074280862251555e-3
4498 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4499 0 : A=0.6570718257486958
4500 0 : V=0.4074163756012244e-3
4501 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4502 0 : A=0.6762557330090709
4503 0 : V=0.4077647795071246e-3
4504 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4505 0 : A=0.6911161696923790
4506 0 : V=0.4084517552782530e-3
4507 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4508 0 : A=0.7012841911659961
4509 0 : V=0.4092468459224052e-3
4510 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4511 0 : A=0.7064559272410020
4512 0 : V=0.4097872687240906e-3
4513 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4514 0 : A=0.6123554989894765e-1
4515 0 : V=0.1738986811745028e-3
4516 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
4517 0 : A=0.1533070348312393
4518 0 : V=0.2659616045280191e-3
4519 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
4520 0 : A=0.2563902605244206
4521 0 : V=0.3240596008171533e-3
4522 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
4523 0 : A=0.3629346991663361
4524 0 : V=0.3621195964432943e-3
4525 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
4526 0 : A=0.4683949968987538
4527 0 : V=0.3868838330760539e-3
4528 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
4529 0 : A=0.5694479240657952
4530 0 : V=0.4018911532693111e-3
4531 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
4532 0 : A=0.6634465430993955
4533 0 : V=0.4089929432983252e-3
4534 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
4535 0 : A=0.1033958573552305
4536 0 : B=0.3034544009063584e-1
4537 0 : V=0.2279907527706409e-3
4538 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4539 0 : A=0.1473521412414395
4540 0 : B=0.6618803044247135e-1
4541 0 : V=0.2715205490578897e-3
4542 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4543 0 : A=0.1924552158705967
4544 0 : B=0.1054431128987715
4545 0 : V=0.3057917896703976e-3
4546 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4547 0 : A=0.2381094362890328
4548 0 : B=0.1468263551238858
4549 0 : V=0.3326913052452555e-3
4550 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4551 0 : A=0.2838121707936760
4552 0 : B=0.1894486108187886
4553 0 : V=0.3537334711890037e-3
4554 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4555 0 : A=0.3291323133373415
4556 0 : B=0.2326374238761579
4557 0 : V=0.3700567500783129e-3
4558 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4559 0 : A=0.3736896978741460
4560 0 : B=0.2758485808485768
4561 0 : V=0.3825245372589122e-3
4562 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4563 0 : A=0.4171406040760013
4564 0 : B=0.3186179331996921
4565 0 : V=0.3918125171518296e-3
4566 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4567 0 : A=0.4591677985256915
4568 0 : B=0.3605329796303794
4569 0 : V=0.3984720419937579e-3
4570 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4571 0 : A=0.4994733831718418
4572 0 : B=0.4012147253586509
4573 0 : V=0.4029746003338211e-3
4574 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4575 0 : A=0.5377731830445096
4576 0 : B=0.4403050025570692
4577 0 : V=0.4057428632156627e-3
4578 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4579 0 : A=0.5737917830001331
4580 0 : B=0.4774565904277483
4581 0 : V=0.4071719274114857e-3
4582 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4583 0 : A=0.2027323586271389
4584 0 : B=0.3544122504976147e-1
4585 0 : V=0.2990236950664119e-3
4586 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4587 0 : A=0.2516942375187273
4588 0 : B=0.7418304388646328e-1
4589 0 : V=0.3262951734212878e-3
4590 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4591 0 : A=0.3000227995257181
4592 0 : B=0.1150502745727186
4593 0 : V=0.3482634608242413e-3
4594 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4595 0 : A=0.3474806691046342
4596 0 : B=0.1571963371209364
4597 0 : V=0.3656596681700892e-3
4598 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4599 0 : A=0.3938103180359209
4600 0 : B=0.1999631877247100
4601 0 : V=0.3791740467794218e-3
4602 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4603 0 : A=0.4387519590455703
4604 0 : B=0.2428073457846535
4605 0 : V=0.3894034450156905e-3
4606 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4607 0 : A=0.4820503960077787
4608 0 : B=0.2852575132906155
4609 0 : V=0.3968600245508371e-3
4610 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4611 0 : A=0.5234573778475101
4612 0 : B=0.3268884208674639
4613 0 : V=0.4019931351420050e-3
4614 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4615 0 : A=0.5627318647235282
4616 0 : B=0.3673033321675939
4617 0 : V=0.4052108801278599e-3
4618 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4619 0 : A=0.5996390607156954
4620 0 : B=0.4061211551830290
4621 0 : V=0.4068978613940934e-3
4622 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4623 0 : A=0.3084780753791947
4624 0 : B=0.3860125523100059e-1
4625 0 : V=0.3454275351319704e-3
4626 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4627 0 : A=0.3589988275920223
4628 0 : B=0.7928938987104867e-1
4629 0 : V=0.3629963537007920e-3
4630 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4631 0 : A=0.4078628415881973
4632 0 : B=0.1212614643030087
4633 0 : V=0.3770187233889873e-3
4634 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4635 0 : A=0.4549287258889735
4636 0 : B=0.1638770827382693
4637 0 : V=0.3878608613694378e-3
4638 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4639 0 : A=0.5000278512957279
4640 0 : B=0.2065965798260176
4641 0 : V=0.3959065270221274e-3
4642 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4643 0 : A=0.5429785044928199
4644 0 : B=0.2489436378852235
4645 0 : V=0.4015286975463570e-3
4646 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4647 0 : A=0.5835939850491711
4648 0 : B=0.2904811368946891
4649 0 : V=0.4050866785614717e-3
4650 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4651 0 : A=0.6216870353444856
4652 0 : B=0.3307941957666609
4653 0 : V=0.4069320185051913e-3
4654 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4655 0 : A=0.4151104662709091
4656 0 : B=0.4064829146052554e-1
4657 0 : V=0.3760120964062763e-3
4658 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4659 0 : A=0.4649804275009218
4660 0 : B=0.8258424547294755e-1
4661 0 : V=0.3870969564418064e-3
4662 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4663 0 : A=0.5124695757009662
4664 0 : B=0.1251841962027289
4665 0 : V=0.3955287790534055e-3
4666 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4667 0 : A=0.5574711100606224
4668 0 : B=0.1679107505976331
4669 0 : V=0.4015361911302668e-3
4670 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4671 0 : A=0.5998597333287227
4672 0 : B=0.2102805057358715
4673 0 : V=0.4053836986719548e-3
4674 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4675 0 : A=0.6395007148516600
4676 0 : B=0.2518418087774107
4677 0 : V=0.4073578673299117e-3
4678 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4679 0 : A=0.5188456224746252
4680 0 : B=0.4194321676077518e-1
4681 0 : V=0.3954628379231406e-3
4682 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4683 0 : A=0.5664190707942778
4684 0 : B=0.8457661551921499e-1
4685 0 : V=0.4017645508847530e-3
4686 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4687 0 : A=0.6110464353283153
4688 0 : B=0.1273652932519396
4689 0 : V=0.4059030348651293e-3
4690 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4691 0 : A=0.6526430302051563
4692 0 : B=0.1698173239076354
4693 0 : V=0.4080565809484880e-3
4694 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4695 0 : A=0.6167551880377548
4696 0 : B=0.4266398851548864e-1
4697 0 : V=0.4063018753664651e-3
4698 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4699 0 : A=0.6607195418355383
4700 0 : B=0.8551925814238349e-1
4701 0 : V=0.4087191292799671e-3
4702 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4703 0 : N=N-1
4704 0 : RETURN
4705 : END
4706 0 : SUBROUTINE LD3074(X,Y,Z,W,N)
4707 : DOUBLE PRECISION X(3074)
4708 : DOUBLE PRECISION Y(3074)
4709 : DOUBLE PRECISION Z(3074)
4710 : DOUBLE PRECISION W(3074)
4711 : INTEGER N
4712 : DOUBLE PRECISION A,B,V
4713 : !
4714 : ! LEBEDEV 3074-POINT ANGULAR GRID
4715 : !
4716 : !
4717 : ! This subroutine is part of a set of subroutines that generate
4718 : ! Lebedev grids [1-6] for integration on a sphere. The original
4719 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
4720 : ! translated into fortran by Dr. Christoph van Wuellen.
4721 : ! This subroutine was translated using a C to fortran77 conversion
4722 : ! tool written by Dr. Christoph van Wuellen.
4723 : !
4724 : ! Users of this code are asked to include reference [1] in their
4725 : ! publications, and in the user- and programmers-manuals
4726 : ! describing their codes.
4727 : !
4728 : ! This code was distributed through CCL (http://www.ccl.net/).
4729 : !
4730 : ! [1] V.I. Lebedev, and D.N. Laikov
4731 : ! "A quadrature formula for the sphere of the 131st
4732 : ! algebraic order of accuracy"
4733 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
4734 : !
4735 : ! [2] V.I. Lebedev
4736 : ! "A quadrature formula for the sphere of 59th algebraic
4737 : ! order of accuracy"
4738 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
4739 : !
4740 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
4741 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
4742 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
4743 : !
4744 : ! [4] V.I. Lebedev
4745 : ! "Spherical quadrature formulas exact to orders 25-29"
4746 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
4747 : !
4748 : ! [5] V.I. Lebedev
4749 : ! "Quadratures on a sphere"
4750 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
4751 : ! 1976, pp. 10-24.
4752 : !
4753 : ! [6] V.I. Lebedev
4754 : ! "Values of the nodes and weights of ninth to seventeenth
4755 : ! order Gauss-Markov quadrature formulae invariant under the
4756 : ! octahedron group with inversion"
4757 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
4758 : ! 1975, pp. 44-51.
4759 : !
4760 0 : N=1
4761 0 : V=0.2599095953754734e-4
4762 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
4763 0 : V=0.3603134089687541e-3
4764 0 : Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
4765 0 : V=0.3586067974412447e-3
4766 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
4767 0 : A=0.1886108518723392e-1
4768 0 : V=0.9831528474385880e-4
4769 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4770 0 : A=0.4800217244625303e-1
4771 0 : V=0.1605023107954450e-3
4772 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4773 0 : A=0.8244922058397242e-1
4774 0 : V=0.2072200131464099e-3
4775 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4776 0 : A=0.1200408362484023
4777 0 : V=0.2431297618814187e-3
4778 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4779 0 : A=0.1595773530809965
4780 0 : V=0.2711819064496707e-3
4781 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4782 0 : A=0.2002635973434064
4783 0 : V=0.2932762038321116e-3
4784 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4785 0 : A=0.2415127590139982
4786 0 : V=0.3107032514197368e-3
4787 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4788 0 : A=0.2828584158458477
4789 0 : V=0.3243808058921213e-3
4790 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4791 0 : A=0.3239091015338138
4792 0 : V=0.3349899091374030e-3
4793 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4794 0 : A=0.3643225097962194
4795 0 : V=0.3430580688505218e-3
4796 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4797 0 : A=0.4037897083691802
4798 0 : V=0.3490124109290343e-3
4799 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4800 0 : A=0.4420247515194127
4801 0 : V=0.3532148948561955e-3
4802 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4803 0 : A=0.4787572538464938
4804 0 : V=0.3559862669062833e-3
4805 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4806 0 : A=0.5137265251275234
4807 0 : V=0.3576224317551411e-3
4808 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4809 0 : A=0.5466764056654611
4810 0 : V=0.3584050533086076e-3
4811 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4812 0 : A=0.6054859420813535
4813 0 : V=0.3584903581373224e-3
4814 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4815 0 : A=0.6308106701764562
4816 0 : V=0.3582991879040586e-3
4817 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4818 0 : A=0.6530369230179584
4819 0 : V=0.3582371187963125e-3
4820 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4821 0 : A=0.6718609524611158
4822 0 : V=0.3584353631122350e-3
4823 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4824 0 : A=0.6869676499894013
4825 0 : V=0.3589120166517785e-3
4826 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4827 0 : A=0.6980467077240748
4828 0 : V=0.3595445704531601e-3
4829 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4830 0 : A=0.7048241721250522
4831 0 : V=0.3600943557111074e-3
4832 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
4833 0 : A=0.5591105222058232e-1
4834 0 : V=0.1456447096742039e-3
4835 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
4836 0 : A=0.1407384078513916
4837 0 : V=0.2252370188283782e-3
4838 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
4839 0 : A=0.2364035438976309
4840 0 : V=0.2766135443474897e-3
4841 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
4842 0 : A=0.3360602737818170
4843 0 : V=0.3110729491500851e-3
4844 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
4845 0 : A=0.4356292630054665
4846 0 : V=0.3342506712303391e-3
4847 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
4848 0 : A=0.5321569415256174
4849 0 : V=0.3491981834026860e-3
4850 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
4851 0 : A=0.6232956305040554
4852 0 : V=0.3576003604348932e-3
4853 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
4854 0 : A=0.9469870086838469e-1
4855 0 : B=0.2778748387309470e-1
4856 0 : V=0.1921921305788564e-3
4857 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4858 0 : A=0.1353170300568141
4859 0 : B=0.6076569878628364e-1
4860 0 : V=0.2301458216495632e-3
4861 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4862 0 : A=0.1771679481726077
4863 0 : B=0.9703072762711040e-1
4864 0 : V=0.2604248549522893e-3
4865 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4866 0 : A=0.2197066664231751
4867 0 : B=0.1354112458524762
4868 0 : V=0.2845275425870697e-3
4869 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4870 0 : A=0.2624783557374927
4871 0 : B=0.1750996479744100
4872 0 : V=0.3036870897974840e-3
4873 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4874 0 : A=0.3050969521214442
4875 0 : B=0.2154896907449802
4876 0 : V=0.3188414832298066e-3
4877 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4878 0 : A=0.3472252637196021
4879 0 : B=0.2560954625740152
4880 0 : V=0.3307046414722089e-3
4881 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4882 0 : A=0.3885610219026360
4883 0 : B=0.2965070050624096
4884 0 : V=0.3398330969031360e-3
4885 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4886 0 : A=0.4288273776062765
4887 0 : B=0.3363641488734497
4888 0 : V=0.3466757899705373e-3
4889 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4890 0 : A=0.4677662471302948
4891 0 : B=0.3753400029836788
4892 0 : V=0.3516095923230054e-3
4893 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4894 0 : A=0.5051333589553359
4895 0 : B=0.4131297522144286
4896 0 : V=0.3549645184048486e-3
4897 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4898 0 : A=0.5406942145810492
4899 0 : B=0.4494423776081795
4900 0 : V=0.3570415969441392e-3
4901 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4902 0 : A=0.5742204122576457
4903 0 : B=0.4839938958841502
4904 0 : V=0.3581251798496118e-3
4905 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4906 0 : A=0.1865407027225188
4907 0 : B=0.3259144851070796e-1
4908 0 : V=0.2543491329913348e-3
4909 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4910 0 : A=0.2321186453689432
4911 0 : B=0.6835679505297343e-1
4912 0 : V=0.2786711051330776e-3
4913 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4914 0 : A=0.2773159142523882
4915 0 : B=0.1062284864451989
4916 0 : V=0.2985552361083679e-3
4917 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4918 0 : A=0.3219200192237254
4919 0 : B=0.1454404409323047
4920 0 : V=0.3145867929154039e-3
4921 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4922 0 : A=0.3657032593944029
4923 0 : B=0.1854018282582510
4924 0 : V=0.3273290662067609e-3
4925 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4926 0 : A=0.4084376778363622
4927 0 : B=0.2256297412014750
4928 0 : V=0.3372705511943501e-3
4929 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4930 0 : A=0.4499004945751427
4931 0 : B=0.2657104425000896
4932 0 : V=0.3448274437851510e-3
4933 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4934 0 : A=0.4898758141326335
4935 0 : B=0.3052755487631557
4936 0 : V=0.3503592783048583e-3
4937 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4938 0 : A=0.5281547442266309
4939 0 : B=0.3439863920645423
4940 0 : V=0.3541854792663162e-3
4941 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4942 0 : A=0.5645346989813992
4943 0 : B=0.3815229456121914
4944 0 : V=0.3565995517909428e-3
4945 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4946 0 : A=0.5988181252159848
4947 0 : B=0.4175752420966734
4948 0 : V=0.3578802078302898e-3
4949 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4950 0 : A=0.2850425424471603
4951 0 : B=0.3562149509862536e-1
4952 0 : V=0.2958644592860982e-3
4953 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4954 0 : A=0.3324619433027876
4955 0 : B=0.7330318886871096e-1
4956 0 : V=0.3119548129116835e-3
4957 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4958 0 : A=0.3785848333076282
4959 0 : B=0.1123226296008472
4960 0 : V=0.3250745225005984e-3
4961 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4962 0 : A=0.4232891028562115
4963 0 : B=0.1521084193337708
4964 0 : V=0.3355153415935208e-3
4965 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4966 0 : A=0.4664287050829722
4967 0 : B=0.1921844459223610
4968 0 : V=0.3435847568549328e-3
4969 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4970 0 : A=0.5078458493735726
4971 0 : B=0.2321360989678303
4972 0 : V=0.3495786831622488e-3
4973 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4974 0 : A=0.5473779816204180
4975 0 : B=0.2715886486360520
4976 0 : V=0.3537767805534621e-3
4977 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4978 0 : A=0.5848617133811376
4979 0 : B=0.3101924707571355
4980 0 : V=0.3564459815421428e-3
4981 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4982 0 : A=0.6201348281584888
4983 0 : B=0.3476121052890973
4984 0 : V=0.3578464061225468e-3
4985 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4986 0 : A=0.3852191185387871
4987 0 : B=0.3763224880035108e-1
4988 0 : V=0.3239748762836212e-3
4989 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4990 0 : A=0.4325025061073423
4991 0 : B=0.7659581935637135e-1
4992 0 : V=0.3345491784174287e-3
4993 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4994 0 : A=0.4778486229734490
4995 0 : B=0.1163381306083900
4996 0 : V=0.3429126177301782e-3
4997 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
4998 0 : A=0.5211663693009000
4999 0 : B=0.1563890598752899
5000 0 : V=0.3492420343097421e-3
5001 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5002 0 : A=0.5623469504853703
5003 0 : B=0.1963320810149200
5004 0 : V=0.3537399050235257e-3
5005 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5006 0 : A=0.6012718188659246
5007 0 : B=0.2357847407258738
5008 0 : V=0.3566209152659172e-3
5009 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5010 0 : A=0.6378179206390117
5011 0 : B=0.2743846121244060
5012 0 : V=0.3581084321919782e-3
5013 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5014 0 : A=0.4836936460214534
5015 0 : B=0.3895902610739024e-1
5016 0 : V=0.3426522117591512e-3
5017 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5018 0 : A=0.5293792562683797
5019 0 : B=0.7871246819312640e-1
5020 0 : V=0.3491848770121379e-3
5021 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5022 0 : A=0.5726281253100033
5023 0 : B=0.1187963808202981
5024 0 : V=0.3539318235231476e-3
5025 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5026 0 : A=0.6133658776169068
5027 0 : B=0.1587914708061787
5028 0 : V=0.3570231438458694e-3
5029 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5030 0 : A=0.6515085491865307
5031 0 : B=0.1983058575227646
5032 0 : V=0.3586207335051714e-3
5033 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5034 0 : A=0.5778692716064976
5035 0 : B=0.3977209689791542e-1
5036 0 : V=0.3541196205164025e-3
5037 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5038 0 : A=0.6207904288086192
5039 0 : B=0.7990157592981152e-1
5040 0 : V=0.3574296911573953e-3
5041 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5042 0 : A=0.6608688171046802
5043 0 : B=0.1199671308754309
5044 0 : V=0.3591993279818963e-3
5045 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5046 0 : A=0.6656263089489130
5047 0 : B=0.4015955957805969e-1
5048 0 : V=0.3595855034661997e-3
5049 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5050 0 : N=N-1
5051 0 : RETURN
5052 : END
5053 0 : SUBROUTINE LD3470(X,Y,Z,W,N)
5054 : DOUBLE PRECISION X(3470)
5055 : DOUBLE PRECISION Y(3470)
5056 : DOUBLE PRECISION Z(3470)
5057 : DOUBLE PRECISION W(3470)
5058 : INTEGER N
5059 : DOUBLE PRECISION A,B,V
5060 : !
5061 : ! LEBEDEV 3470-POINT ANGULAR GRID
5062 : !
5063 : !
5064 : ! This subroutine is part of a set of subroutines that generate
5065 : ! Lebedev grids [1-6] for integration on a sphere. The original
5066 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
5067 : ! translated into fortran by Dr. Christoph van Wuellen.
5068 : ! This subroutine was translated using a C to fortran77 conversion
5069 : ! tool written by Dr. Christoph van Wuellen.
5070 : !
5071 : ! Users of this code are asked to include reference [1] in their
5072 : ! publications, and in the user- and programmers-manuals
5073 : ! describing their codes.
5074 : !
5075 : ! This code was distributed through CCL (http://www.ccl.net/).
5076 : !
5077 : ! [1] V.I. Lebedev, and D.N. Laikov
5078 : ! "A quadrature formula for the sphere of the 131st
5079 : ! algebraic order of accuracy"
5080 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
5081 : !
5082 : ! [2] V.I. Lebedev
5083 : ! "A quadrature formula for the sphere of 59th algebraic
5084 : ! order of accuracy"
5085 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
5086 : !
5087 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
5088 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
5089 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
5090 : !
5091 : ! [4] V.I. Lebedev
5092 : ! "Spherical quadrature formulas exact to orders 25-29"
5093 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
5094 : !
5095 : ! [5] V.I. Lebedev
5096 : ! "Quadratures on a sphere"
5097 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
5098 : ! 1976, pp. 10-24.
5099 : !
5100 : ! [6] V.I. Lebedev
5101 : ! "Values of the nodes and weights of ninth to seventeenth
5102 : ! order Gauss-Markov quadrature formulae invariant under the
5103 : ! octahedron group with inversion"
5104 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
5105 : ! 1975, pp. 44-51.
5106 : !
5107 0 : N=1
5108 0 : V=0.2040382730826330e-4
5109 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
5110 0 : V=0.3178149703889544e-3
5111 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
5112 0 : A=0.1721420832906233e-1
5113 0 : V=0.8288115128076110e-4
5114 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5115 0 : A=0.4408875374981770e-1
5116 0 : V=0.1360883192522954e-3
5117 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5118 0 : A=0.7594680813878681e-1
5119 0 : V=0.1766854454542662e-3
5120 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5121 0 : A=0.1108335359204799
5122 0 : V=0.2083153161230153e-3
5123 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5124 0 : A=0.1476517054388567
5125 0 : V=0.2333279544657158e-3
5126 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5127 0 : A=0.1856731870860615
5128 0 : V=0.2532809539930247e-3
5129 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5130 0 : A=0.2243634099428821
5131 0 : V=0.2692472184211158e-3
5132 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5133 0 : A=0.2633006881662727
5134 0 : V=0.2819949946811885e-3
5135 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5136 0 : A=0.3021340904916283
5137 0 : V=0.2920953593973030e-3
5138 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5139 0 : A=0.3405594048030089
5140 0 : V=0.2999889782948352e-3
5141 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5142 0 : A=0.3783044434007372
5143 0 : V=0.3060292120496902e-3
5144 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5145 0 : A=0.4151194767407910
5146 0 : V=0.3105109167522192e-3
5147 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5148 0 : A=0.4507705766443257
5149 0 : V=0.3136902387550312e-3
5150 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5151 0 : A=0.4850346056573187
5152 0 : V=0.3157984652454632e-3
5153 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5154 0 : A=0.5176950817792470
5155 0 : V=0.3170516518425422e-3
5156 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5157 0 : A=0.5485384240820989
5158 0 : V=0.3176568425633755e-3
5159 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5160 0 : A=0.6039117238943308
5161 0 : V=0.3177198411207062e-3
5162 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5163 0 : A=0.6279956655573113
5164 0 : V=0.3175519492394733e-3
5165 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5166 0 : A=0.6493636169568952
5167 0 : V=0.3174654952634756e-3
5168 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5169 0 : A=0.6677644117704504
5170 0 : V=0.3175676415467654e-3
5171 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5172 0 : A=0.6829368572115624
5173 0 : V=0.3178923417835410e-3
5174 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5175 0 : A=0.6946195818184121
5176 0 : V=0.3183788287531909e-3
5177 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5178 0 : A=0.7025711542057026
5179 0 : V=0.3188755151918807e-3
5180 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5181 0 : A=0.7066004767140119
5182 0 : V=0.3191916889313849e-3
5183 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5184 0 : A=0.5132537689946062e-1
5185 0 : V=0.1231779611744508e-3
5186 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
5187 0 : A=0.1297994661331225
5188 0 : V=0.1924661373839880e-3
5189 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
5190 0 : A=0.2188852049401307
5191 0 : V=0.2380881867403424e-3
5192 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
5193 0 : A=0.3123174824903457
5194 0 : V=0.2693100663037885e-3
5195 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
5196 0 : A=0.4064037620738195
5197 0 : V=0.2908673382834366e-3
5198 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
5199 0 : A=0.4984958396944782
5200 0 : V=0.3053914619381535e-3
5201 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
5202 0 : A=0.5864975046021365
5203 0 : V=0.3143916684147777e-3
5204 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
5205 0 : A=0.6686711634580175
5206 0 : V=0.3187042244055363e-3
5207 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
5208 0 : A=0.8715738780835950e-1
5209 0 : B=0.2557175233367578e-1
5210 0 : V=0.1635219535869790e-3
5211 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5212 0 : A=0.1248383123134007
5213 0 : B=0.5604823383376681e-1
5214 0 : V=0.1968109917696070e-3
5215 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5216 0 : A=0.1638062693383378
5217 0 : B=0.8968568601900765e-1
5218 0 : V=0.2236754342249974e-3
5219 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5220 0 : A=0.2035586203373176
5221 0 : B=0.1254086651976279
5222 0 : V=0.2453186687017181e-3
5223 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5224 0 : A=0.2436798975293774
5225 0 : B=0.1624780150162012
5226 0 : V=0.2627551791580541e-3
5227 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5228 0 : A=0.2838207507773806
5229 0 : B=0.2003422342683208
5230 0 : V=0.2767654860152220e-3
5231 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5232 0 : A=0.3236787502217692
5233 0 : B=0.2385628026255263
5234 0 : V=0.2879467027765895e-3
5235 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5236 0 : A=0.3629849554840691
5237 0 : B=0.2767731148783578
5238 0 : V=0.2967639918918702e-3
5239 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5240 0 : A=0.4014948081992087
5241 0 : B=0.3146542308245309
5242 0 : V=0.3035900684660351e-3
5243 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5244 0 : A=0.4389818379260225
5245 0 : B=0.3519196415895088
5246 0 : V=0.3087338237298308e-3
5247 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5248 0 : A=0.4752331143674377
5249 0 : B=0.3883050984023654
5250 0 : V=0.3124608838860167e-3
5251 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5252 0 : A=0.5100457318374018
5253 0 : B=0.4235613423908649
5254 0 : V=0.3150084294226743e-3
5255 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5256 0 : A=0.5432238388954868
5257 0 : B=0.4574484717196220
5258 0 : V=0.3165958398598402e-3
5259 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5260 0 : A=0.5745758685072442
5261 0 : B=0.4897311639255524
5262 0 : V=0.3174320440957372e-3
5263 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5264 0 : A=0.1723981437592809
5265 0 : B=0.3010630597881105e-1
5266 0 : V=0.2182188909812599e-3
5267 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5268 0 : A=0.2149553257844597
5269 0 : B=0.6326031554204694e-1
5270 0 : V=0.2399727933921445e-3
5271 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5272 0 : A=0.2573256081247422
5273 0 : B=0.9848566980258631e-1
5274 0 : V=0.2579796133514652e-3
5275 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5276 0 : A=0.2993163751238106
5277 0 : B=0.1350835952384266
5278 0 : V=0.2727114052623535e-3
5279 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5280 0 : A=0.3407238005148000
5281 0 : B=0.1725184055442181
5282 0 : V=0.2846327656281355e-3
5283 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5284 0 : A=0.3813454978483264
5285 0 : B=0.2103559279730725
5286 0 : V=0.2941491102051334e-3
5287 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5288 0 : A=0.4209848104423343
5289 0 : B=0.2482278774554860
5290 0 : V=0.3016049492136107e-3
5291 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5292 0 : A=0.4594519699996300
5293 0 : B=0.2858099509982883
5294 0 : V=0.3072949726175648e-3
5295 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5296 0 : A=0.4965640166185930
5297 0 : B=0.3228075659915428
5298 0 : V=0.3114768142886460e-3
5299 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5300 0 : A=0.5321441655571562
5301 0 : B=0.3589459907204151
5302 0 : V=0.3143823673666223e-3
5303 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5304 0 : A=0.5660208438582166
5305 0 : B=0.3939630088864310
5306 0 : V=0.3162269764661535e-3
5307 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5308 0 : A=0.5980264315964364
5309 0 : B=0.4276029922949089
5310 0 : V=0.3172164663759821e-3
5311 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5312 0 : A=0.2644215852350733
5313 0 : B=0.3300939429072552e-1
5314 0 : V=0.2554575398967435e-3
5315 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5316 0 : A=0.3090113743443063
5317 0 : B=0.6803887650078501e-1
5318 0 : V=0.2701704069135677e-3
5319 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5320 0 : A=0.3525871079197808
5321 0 : B=0.1044326136206709
5322 0 : V=0.2823693413468940e-3
5323 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5324 0 : A=0.3950418005354029
5325 0 : B=0.1416751597517679
5326 0 : V=0.2922898463214289e-3
5327 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5328 0 : A=0.4362475663430163
5329 0 : B=0.1793408610504821
5330 0 : V=0.3001829062162428e-3
5331 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5332 0 : A=0.4760661812145854
5333 0 : B=0.2170630750175722
5334 0 : V=0.3062890864542953e-3
5335 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5336 0 : A=0.5143551042512103
5337 0 : B=0.2545145157815807
5338 0 : V=0.3108328279264746e-3
5339 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5340 0 : A=0.5509709026935597
5341 0 : B=0.2913940101706601
5342 0 : V=0.3140243146201245e-3
5343 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5344 0 : A=0.5857711030329428
5345 0 : B=0.3274169910910705
5346 0 : V=0.3160638030977130e-3
5347 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5348 0 : A=0.6186149917404392
5349 0 : B=0.3623081329317265
5350 0 : V=0.3171462882206275e-3
5351 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5352 0 : A=0.3586894569557064
5353 0 : B=0.3497354386450040e-1
5354 0 : V=0.2812388416031796e-3
5355 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5356 0 : A=0.4035266610019441
5357 0 : B=0.7129736739757095e-1
5358 0 : V=0.2912137500288045e-3
5359 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5360 0 : A=0.4467775312332510
5361 0 : B=0.1084758620193165
5362 0 : V=0.2993241256502206e-3
5363 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5364 0 : A=0.4883638346608543
5365 0 : B=0.1460915689241772
5366 0 : V=0.3057101738983822e-3
5367 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5368 0 : A=0.5281908348434601
5369 0 : B=0.1837790832369980
5370 0 : V=0.3105319326251432e-3
5371 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5372 0 : A=0.5661542687149311
5373 0 : B=0.2212075390874021
5374 0 : V=0.3139565514428167e-3
5375 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5376 0 : A=0.6021450102031452
5377 0 : B=0.2580682841160985
5378 0 : V=0.3161543006806366e-3
5379 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5380 0 : A=0.6360520783610050
5381 0 : B=0.2940656362094121
5382 0 : V=0.3172985960613294e-3
5383 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5384 0 : A=0.4521611065087196
5385 0 : B=0.3631055365867002e-1
5386 0 : V=0.2989400336901431e-3
5387 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5388 0 : A=0.4959365651560963
5389 0 : B=0.7348318468484350e-1
5390 0 : V=0.3054555883947677e-3
5391 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5392 0 : A=0.5376815804038283
5393 0 : B=0.1111087643812648
5394 0 : V=0.3104764960807702e-3
5395 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5396 0 : A=0.5773314480243768
5397 0 : B=0.1488226085145408
5398 0 : V=0.3141015825977616e-3
5399 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5400 0 : A=0.6148113245575056
5401 0 : B=0.1862892274135151
5402 0 : V=0.3164520621159896e-3
5403 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5404 0 : A=0.6500407462842380
5405 0 : B=0.2231909701714456
5406 0 : V=0.3176652305912204e-3
5407 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5408 0 : A=0.5425151448707213
5409 0 : B=0.3718201306118944e-1
5410 0 : V=0.3105097161023939e-3
5411 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5412 0 : A=0.5841860556907931
5413 0 : B=0.7483616335067346e-1
5414 0 : V=0.3143014117890550e-3
5415 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5416 0 : A=0.6234632186851500
5417 0 : B=0.1125990834266120
5418 0 : V=0.3168172866287200e-3
5419 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5420 0 : A=0.6602934551848843
5421 0 : B=0.1501303813157619
5422 0 : V=0.3181401865570968e-3
5423 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5424 0 : A=0.6278573968375105
5425 0 : B=0.3767559930245720e-1
5426 0 : V=0.3170663659156037e-3
5427 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5428 0 : A=0.6665611711264577
5429 0 : B=0.7548443301360158e-1
5430 0 : V=0.3185447944625510e-3
5431 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5432 0 : N=N-1
5433 0 : RETURN
5434 : END
5435 0 : SUBROUTINE LD3890(X,Y,Z,W,N)
5436 : DOUBLE PRECISION X(3890)
5437 : DOUBLE PRECISION Y(3890)
5438 : DOUBLE PRECISION Z(3890)
5439 : DOUBLE PRECISION W(3890)
5440 : INTEGER N
5441 : DOUBLE PRECISION A,B,V
5442 : !
5443 : ! LEBEDEV 3890-POINT ANGULAR GRID
5444 : !
5445 : !
5446 : ! This subroutine is part of a set of subroutines that generate
5447 : ! Lebedev grids [1-6] for integration on a sphere. The original
5448 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
5449 : ! translated into fortran by Dr. Christoph van Wuellen.
5450 : ! This subroutine was translated using a C to fortran77 conversion
5451 : ! tool written by Dr. Christoph van Wuellen.
5452 : !
5453 : ! Users of this code are asked to include reference [1] in their
5454 : ! publications, and in the user- and programmers-manuals
5455 : ! describing their codes.
5456 : !
5457 : ! This code was distributed through CCL (http://www.ccl.net/).
5458 : !
5459 : ! [1] V.I. Lebedev, and D.N. Laikov
5460 : ! "A quadrature formula for the sphere of the 131st
5461 : ! algebraic order of accuracy"
5462 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
5463 : !
5464 : ! [2] V.I. Lebedev
5465 : ! "A quadrature formula for the sphere of 59th algebraic
5466 : ! order of accuracy"
5467 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
5468 : !
5469 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
5470 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
5471 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
5472 : !
5473 : ! [4] V.I. Lebedev
5474 : ! "Spherical quadrature formulas exact to orders 25-29"
5475 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
5476 : !
5477 : ! [5] V.I. Lebedev
5478 : ! "Quadratures on a sphere"
5479 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
5480 : ! 1976, pp. 10-24.
5481 : !
5482 : ! [6] V.I. Lebedev
5483 : ! "Values of the nodes and weights of ninth to seventeenth
5484 : ! order Gauss-Markov quadrature formulae invariant under the
5485 : ! octahedron group with inversion"
5486 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
5487 : ! 1975, pp. 44-51.
5488 : !
5489 0 : N=1
5490 0 : V=0.1807395252196920e-4
5491 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
5492 0 : V=0.2848008782238827e-3
5493 0 : Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
5494 0 : V=0.2836065837530581e-3
5495 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
5496 0 : A=0.1587876419858352e-1
5497 0 : V=0.7013149266673816e-4
5498 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5499 0 : A=0.4069193593751206e-1
5500 0 : V=0.1162798021956766e-3
5501 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5502 0 : A=0.7025888115257997e-1
5503 0 : V=0.1518728583972105e-3
5504 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5505 0 : A=0.1027495450028704
5506 0 : V=0.1798796108216934e-3
5507 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5508 0 : A=0.1371457730893426
5509 0 : V=0.2022593385972785e-3
5510 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5511 0 : A=0.1727758532671953
5512 0 : V=0.2203093105575464e-3
5513 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5514 0 : A=0.2091492038929037
5515 0 : V=0.2349294234299855e-3
5516 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5517 0 : A=0.2458813281751915
5518 0 : V=0.2467682058747003e-3
5519 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5520 0 : A=0.2826545859450066
5521 0 : V=0.2563092683572224e-3
5522 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5523 0 : A=0.3191957291799622
5524 0 : V=0.2639253896763318e-3
5525 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5526 0 : A=0.3552621469299578
5527 0 : V=0.2699137479265108e-3
5528 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5529 0 : A=0.3906329503406230
5530 0 : V=0.2745196420166739e-3
5531 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5532 0 : A=0.4251028614093031
5533 0 : V=0.2779529197397593e-3
5534 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5535 0 : A=0.4584777520111870
5536 0 : V=0.2803996086684265e-3
5537 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5538 0 : A=0.4905711358710193
5539 0 : V=0.2820302356715842e-3
5540 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5541 0 : A=0.5212011669847385
5542 0 : V=0.2830056747491068e-3
5543 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5544 0 : A=0.5501878488737995
5545 0 : V=0.2834808950776839e-3
5546 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5547 0 : A=0.6025037877479342
5548 0 : V=0.2835282339078929e-3
5549 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5550 0 : A=0.6254572689549016
5551 0 : V=0.2833819267065800e-3
5552 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5553 0 : A=0.6460107179528248
5554 0 : V=0.2832858336906784e-3
5555 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5556 0 : A=0.6639541138154251
5557 0 : V=0.2833268235451244e-3
5558 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5559 0 : A=0.6790688515667495
5560 0 : V=0.2835432677029253e-3
5561 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5562 0 : A=0.6911338580371512
5563 0 : V=0.2839091722743049e-3
5564 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5565 0 : A=0.6999385956126490
5566 0 : V=0.2843308178875841e-3
5567 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5568 0 : A=0.7053037748656896
5569 0 : V=0.2846703550533846e-3
5570 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5571 0 : A=0.4732224387180115e-1
5572 0 : V=0.1051193406971900e-3
5573 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
5574 0 : A=0.1202100529326803
5575 0 : V=0.1657871838796974e-3
5576 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
5577 0 : A=0.2034304820664855
5578 0 : V=0.2064648113714232e-3
5579 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
5580 0 : A=0.2912285643573002
5581 0 : V=0.2347942745819741e-3
5582 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
5583 0 : A=0.3802361792726768
5584 0 : V=0.2547775326597726e-3
5585 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
5586 0 : A=0.4680598511056146
5587 0 : V=0.2686876684847025e-3
5588 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
5589 0 : A=0.5528151052155599
5590 0 : V=0.2778665755515867e-3
5591 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
5592 0 : A=0.6329386307803041
5593 0 : V=0.2830996616782929e-3
5594 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
5595 0 : A=0.8056516651369069e-1
5596 0 : B=0.2363454684003124e-1
5597 0 : V=0.1403063340168372e-3
5598 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5599 0 : A=0.1156476077139389
5600 0 : B=0.5191291632545936e-1
5601 0 : V=0.1696504125939477e-3
5602 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5603 0 : A=0.1520473382760421
5604 0 : B=0.8322715736994519e-1
5605 0 : V=0.1935787242745390e-3
5606 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5607 0 : A=0.1892986699745931
5608 0 : B=0.1165855667993712
5609 0 : V=0.2130614510521968e-3
5610 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5611 0 : A=0.2270194446777792
5612 0 : B=0.1513077167409504
5613 0 : V=0.2289381265931048e-3
5614 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5615 0 : A=0.2648908185093273
5616 0 : B=0.1868882025807859
5617 0 : V=0.2418630292816186e-3
5618 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5619 0 : A=0.3026389259574136
5620 0 : B=0.2229277629776224
5621 0 : V=0.2523400495631193e-3
5622 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5623 0 : A=0.3400220296151384
5624 0 : B=0.2590951840746235
5625 0 : V=0.2607623973449605e-3
5626 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5627 0 : A=0.3768217953335510
5628 0 : B=0.2951047291750847
5629 0 : V=0.2674441032689209e-3
5630 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5631 0 : A=0.4128372900921884
5632 0 : B=0.3307019714169930
5633 0 : V=0.2726432360343356e-3
5634 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5635 0 : A=0.4478807131815630
5636 0 : B=0.3656544101087634
5637 0 : V=0.2765787685924545e-3
5638 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5639 0 : A=0.4817742034089257
5640 0 : B=0.3997448951939695
5641 0 : V=0.2794428690642224e-3
5642 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5643 0 : A=0.5143472814653344
5644 0 : B=0.4327667110812024
5645 0 : V=0.2814099002062895e-3
5646 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5647 0 : A=0.5454346213905650
5648 0 : B=0.4645196123532293
5649 0 : V=0.2826429531578994e-3
5650 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5651 0 : A=0.5748739313170252
5652 0 : B=0.4948063555703345
5653 0 : V=0.2832983542550884e-3
5654 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5655 0 : A=0.1599598738286342
5656 0 : B=0.2792357590048985e-1
5657 0 : V=0.1886695565284976e-3
5658 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5659 0 : A=0.1998097412500951
5660 0 : B=0.5877141038139065e-1
5661 0 : V=0.2081867882748234e-3
5662 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5663 0 : A=0.2396228952566202
5664 0 : B=0.9164573914691377e-1
5665 0 : V=0.2245148680600796e-3
5666 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5667 0 : A=0.2792228341097746
5668 0 : B=0.1259049641962687
5669 0 : V=0.2380370491511872e-3
5670 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5671 0 : A=0.3184251107546741
5672 0 : B=0.1610594823400863
5673 0 : V=0.2491398041852455e-3
5674 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5675 0 : A=0.3570481164426244
5676 0 : B=0.1967151653460898
5677 0 : V=0.2581632405881230e-3
5678 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5679 0 : A=0.3949164710492144
5680 0 : B=0.2325404606175168
5681 0 : V=0.2653965506227417e-3
5682 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5683 0 : A=0.4318617293970503
5684 0 : B=0.2682461141151439
5685 0 : V=0.2710857216747087e-3
5686 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5687 0 : A=0.4677221009931678
5688 0 : B=0.3035720116011973
5689 0 : V=0.2754434093903659e-3
5690 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5691 0 : A=0.5023417939270955
5692 0 : B=0.3382781859197439
5693 0 : V=0.2786579932519380e-3
5694 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5695 0 : A=0.5355701836636128
5696 0 : B=0.3721383065625942
5697 0 : V=0.2809011080679474e-3
5698 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5699 0 : A=0.5672608451328771
5700 0 : B=0.4049346360466055
5701 0 : V=0.2823336184560987e-3
5702 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5703 0 : A=0.5972704202540162
5704 0 : B=0.4364538098633802
5705 0 : V=0.2831101175806309e-3
5706 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5707 0 : A=0.2461687022333596
5708 0 : B=0.3070423166833368e-1
5709 0 : V=0.2221679970354546e-3
5710 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5711 0 : A=0.2881774566286831
5712 0 : B=0.6338034669281885e-1
5713 0 : V=0.2356185734270703e-3
5714 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5715 0 : A=0.3293963604116978
5716 0 : B=0.9742862487067941e-1
5717 0 : V=0.2469228344805590e-3
5718 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5719 0 : A=0.3697303822241377
5720 0 : B=0.1323799532282290
5721 0 : V=0.2562726348642046e-3
5722 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5723 0 : A=0.4090663023135127
5724 0 : B=0.1678497018129336
5725 0 : V=0.2638756726753028e-3
5726 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5727 0 : A=0.4472819355411712
5728 0 : B=0.2035095105326114
5729 0 : V=0.2699311157390862e-3
5730 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5731 0 : A=0.4842513377231437
5732 0 : B=0.2390692566672091
5733 0 : V=0.2746233268403837e-3
5734 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5735 0 : A=0.5198477629962928
5736 0 : B=0.2742649818076149
5737 0 : V=0.2781225674454771e-3
5738 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5739 0 : A=0.5539453011883145
5740 0 : B=0.3088503806580094
5741 0 : V=0.2805881254045684e-3
5742 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5743 0 : A=0.5864196762401251
5744 0 : B=0.3425904245906614
5745 0 : V=0.2821719877004913e-3
5746 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5747 0 : A=0.6171484466668390
5748 0 : B=0.3752562294789468
5749 0 : V=0.2830222502333124e-3
5750 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5751 0 : A=0.3350337830565727
5752 0 : B=0.3261589934634747e-1
5753 0 : V=0.2457995956744870e-3
5754 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5755 0 : A=0.3775773224758284
5756 0 : B=0.6658438928081572e-1
5757 0 : V=0.2551474407503706e-3
5758 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5759 0 : A=0.4188155229848973
5760 0 : B=0.1014565797157954
5761 0 : V=0.2629065335195311e-3
5762 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5763 0 : A=0.4586805892009344
5764 0 : B=0.1368573320843822
5765 0 : V=0.2691900449925075e-3
5766 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5767 0 : A=0.4970895714224235
5768 0 : B=0.1724614851951608
5769 0 : V=0.2741275485754276e-3
5770 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5771 0 : A=0.5339505133960747
5772 0 : B=0.2079779381416412
5773 0 : V=0.2778530970122595e-3
5774 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5775 0 : A=0.5691665792531440
5776 0 : B=0.2431385788322288
5777 0 : V=0.2805010567646741e-3
5778 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5779 0 : A=0.6026387682680377
5780 0 : B=0.2776901883049853
5781 0 : V=0.2822055834031040e-3
5782 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5783 0 : A=0.6342676150163307
5784 0 : B=0.3113881356386632
5785 0 : V=0.2831016901243473e-3
5786 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5787 0 : A=0.4237951119537067
5788 0 : B=0.3394877848664351e-1
5789 0 : V=0.2624474901131803e-3
5790 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5791 0 : A=0.4656918683234929
5792 0 : B=0.6880219556291447e-1
5793 0 : V=0.2688034163039377e-3
5794 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5795 0 : A=0.5058857069185980
5796 0 : B=0.1041946859721635
5797 0 : V=0.2738932751287636e-3
5798 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5799 0 : A=0.5443204666713996
5800 0 : B=0.1398039738736393
5801 0 : V=0.2777944791242523e-3
5802 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5803 0 : A=0.5809298813759742
5804 0 : B=0.1753373381196155
5805 0 : V=0.2806011661660987e-3
5806 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5807 0 : A=0.6156416039447128
5808 0 : B=0.2105215793514010
5809 0 : V=0.2824181456597460e-3
5810 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5811 0 : A=0.6483801351066604
5812 0 : B=0.2450953312157051
5813 0 : V=0.2833585216577828e-3
5814 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5815 0 : A=0.5103616577251688
5816 0 : B=0.3485560643800719e-1
5817 0 : V=0.2738165236962878e-3
5818 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5819 0 : A=0.5506738792580681
5820 0 : B=0.7026308631512033e-1
5821 0 : V=0.2778365208203180e-3
5822 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5823 0 : A=0.5889573040995292
5824 0 : B=0.1059035061296403
5825 0 : V=0.2807852940418966e-3
5826 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5827 0 : A=0.6251641589516930
5828 0 : B=0.1414823925236026
5829 0 : V=0.2827245949674705e-3
5830 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5831 0 : A=0.6592414921570178
5832 0 : B=0.1767207908214530
5833 0 : V=0.2837342344829828e-3
5834 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5835 0 : A=0.5930314017533384
5836 0 : B=0.3542189339561672e-1
5837 0 : V=0.2809233907610981e-3
5838 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5839 0 : A=0.6309812253390175
5840 0 : B=0.7109574040369549e-1
5841 0 : V=0.2829930809742694e-3
5842 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5843 0 : A=0.6666296011353230
5844 0 : B=0.1067259792282730
5845 0 : V=0.2841097874111479e-3
5846 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5847 0 : A=0.6703715271049922
5848 0 : B=0.3569455268820809e-1
5849 0 : V=0.2843455206008783e-3
5850 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
5851 0 : N=N-1
5852 0 : RETURN
5853 : END
5854 0 : SUBROUTINE LD4334(X,Y,Z,W,N)
5855 : DOUBLE PRECISION X(4334)
5856 : DOUBLE PRECISION Y(4334)
5857 : DOUBLE PRECISION Z(4334)
5858 : DOUBLE PRECISION W(4334)
5859 : INTEGER N
5860 : DOUBLE PRECISION A,B,V
5861 : !
5862 : ! LEBEDEV 4334-POINT ANGULAR GRID
5863 : !
5864 : !
5865 : ! This subroutine is part of a set of subroutines that generate
5866 : ! Lebedev grids [1-6] for integration on a sphere. The original
5867 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
5868 : ! translated into fortran by Dr. Christoph van Wuellen.
5869 : ! This subroutine was translated using a C to fortran77 conversion
5870 : ! tool written by Dr. Christoph van Wuellen.
5871 : !
5872 : ! Users of this code are asked to include reference [1] in their
5873 : ! publications, and in the user- and programmers-manuals
5874 : ! describing their codes.
5875 : !
5876 : ! This code was distributed through CCL (http://www.ccl.net/).
5877 : !
5878 : ! [1] V.I. Lebedev, and D.N. Laikov
5879 : ! "A quadrature formula for the sphere of the 131st
5880 : ! algebraic order of accuracy"
5881 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
5882 : !
5883 : ! [2] V.I. Lebedev
5884 : ! "A quadrature formula for the sphere of 59th algebraic
5885 : ! order of accuracy"
5886 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
5887 : !
5888 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
5889 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
5890 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
5891 : !
5892 : ! [4] V.I. Lebedev
5893 : ! "Spherical quadrature formulas exact to orders 25-29"
5894 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
5895 : !
5896 : ! [5] V.I. Lebedev
5897 : ! "Quadratures on a sphere"
5898 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
5899 : ! 1976, pp. 10-24.
5900 : !
5901 : ! [6] V.I. Lebedev
5902 : ! "Values of the nodes and weights of ninth to seventeenth
5903 : ! order Gauss-Markov quadrature formulae invariant under the
5904 : ! octahedron group with inversion"
5905 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
5906 : ! 1975, pp. 44-51.
5907 : !
5908 0 : N=1
5909 0 : V=0.1449063022537883e-4
5910 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
5911 0 : V=0.2546377329828424e-3
5912 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
5913 0 : A=0.1462896151831013e-1
5914 0 : V=0.6018432961087496e-4
5915 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5916 0 : A=0.3769840812493139e-1
5917 0 : V=0.1002286583263673e-3
5918 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5919 0 : A=0.6524701904096891e-1
5920 0 : V=0.1315222931028093e-3
5921 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5922 0 : A=0.9560543416134648e-1
5923 0 : V=0.1564213746876724e-3
5924 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5925 0 : A=0.1278335898929198
5926 0 : V=0.1765118841507736e-3
5927 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5928 0 : A=0.1613096104466031
5929 0 : V=0.1928737099311080e-3
5930 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5931 0 : A=0.1955806225745371
5932 0 : V=0.2062658534263270e-3
5933 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5934 0 : A=0.2302935218498028
5935 0 : V=0.2172395445953787e-3
5936 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5937 0 : A=0.2651584344113027
5938 0 : V=0.2262076188876047e-3
5939 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5940 0 : A=0.2999276825183209
5941 0 : V=0.2334885699462397e-3
5942 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5943 0 : A=0.3343828669718798
5944 0 : V=0.2393355273179203e-3
5945 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5946 0 : A=0.3683265013750518
5947 0 : V=0.2439559200468863e-3
5948 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5949 0 : A=0.4015763206518108
5950 0 : V=0.2475251866060002e-3
5951 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5952 0 : A=0.4339612026399770
5953 0 : V=0.2501965558158773e-3
5954 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5955 0 : A=0.4653180651114582
5956 0 : V=0.2521081407925925e-3
5957 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5958 0 : A=0.4954893331080803
5959 0 : V=0.2533881002388081e-3
5960 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5961 0 : A=0.5243207068924930
5962 0 : V=0.2541582900848261e-3
5963 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5964 0 : A=0.5516590479041704
5965 0 : V=0.2545365737525860e-3
5966 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5967 0 : A=0.6012371927804176
5968 0 : V=0.2545726993066799e-3
5969 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5970 0 : A=0.6231574466449819
5971 0 : V=0.2544456197465555e-3
5972 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5973 0 : A=0.6429416514181271
5974 0 : V=0.2543481596881064e-3
5975 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5976 0 : A=0.6604124272943595
5977 0 : V=0.2543506451429194e-3
5978 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5979 0 : A=0.6753851470408250
5980 0 : V=0.2544905675493763e-3
5981 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5982 0 : A=0.6876717970626160
5983 0 : V=0.2547611407344429e-3
5984 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5985 0 : A=0.6970895061319234
5986 0 : V=0.2551060375448869e-3
5987 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5988 0 : A=0.7034746912553310
5989 0 : V=0.2554291933816039e-3
5990 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5991 0 : A=0.7067017217542295
5992 0 : V=0.2556255710686343e-3
5993 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
5994 0 : A=0.4382223501131123e-1
5995 0 : V=0.9041339695118195e-4
5996 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
5997 0 : A=0.1117474077400006
5998 0 : V=0.1438426330079022e-3
5999 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6000 0 : A=0.1897153252911440
6001 0 : V=0.1802523089820518e-3
6002 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6003 0 : A=0.2724023009910331
6004 0 : V=0.2060052290565496e-3
6005 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6006 0 : A=0.3567163308709902
6007 0 : V=0.2245002248967466e-3
6008 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6009 0 : A=0.4404784483028087
6010 0 : V=0.2377059847731150e-3
6011 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6012 0 : A=0.5219833154161411
6013 0 : V=0.2468118955882525e-3
6014 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6015 0 : A=0.5998179868977553
6016 0 : V=0.2525410872966528e-3
6017 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6018 0 : A=0.6727803154548222
6019 0 : V=0.2553101409933397e-3
6020 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6021 0 : A=0.7476563943166086e-1
6022 0 : B=0.2193168509461185e-1
6023 0 : V=0.1212879733668632e-3
6024 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6025 0 : A=0.1075341482001416
6026 0 : B=0.4826419281533887e-1
6027 0 : V=0.1472872881270931e-3
6028 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6029 0 : A=0.1416344885203259
6030 0 : B=0.7751191883575742e-1
6031 0 : V=0.1686846601010828e-3
6032 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6033 0 : A=0.1766325315388586
6034 0 : B=0.1087558139247680
6035 0 : V=0.1862698414660208e-3
6036 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6037 0 : A=0.2121744174481514
6038 0 : B=0.1413661374253096
6039 0 : V=0.2007430956991861e-3
6040 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6041 0 : A=0.2479669443408145
6042 0 : B=0.1748768214258880
6043 0 : V=0.2126568125394796e-3
6044 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6045 0 : A=0.2837600452294113
6046 0 : B=0.2089216406612073
6047 0 : V=0.2224394603372113e-3
6048 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6049 0 : A=0.3193344933193984
6050 0 : B=0.2431987685545972
6051 0 : V=0.2304264522673135e-3
6052 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6053 0 : A=0.3544935442438745
6054 0 : B=0.2774497054377770
6055 0 : V=0.2368854288424087e-3
6056 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6057 0 : A=0.3890571932288154
6058 0 : B=0.3114460356156915
6059 0 : V=0.2420352089461772e-3
6060 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6061 0 : A=0.4228581214259090
6062 0 : B=0.3449806851913012
6063 0 : V=0.2460597113081295e-3
6064 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6065 0 : A=0.4557387211304052
6066 0 : B=0.3778618641248256
6067 0 : V=0.2491181912257687e-3
6068 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6069 0 : A=0.4875487950541643
6070 0 : B=0.4099086391698978
6071 0 : V=0.2513528194205857e-3
6072 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6073 0 : A=0.5181436529962997
6074 0 : B=0.4409474925853973
6075 0 : V=0.2528943096693220e-3
6076 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6077 0 : A=0.5473824095600661
6078 0 : B=0.4708094517711291
6079 0 : V=0.2538660368488136e-3
6080 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6081 0 : A=0.5751263398976174
6082 0 : B=0.4993275140354637
6083 0 : V=0.2543868648299022e-3
6084 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6085 0 : A=0.1489515746840028
6086 0 : B=0.2599381993267017e-1
6087 0 : V=0.1642595537825183e-3
6088 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6089 0 : A=0.1863656444351767
6090 0 : B=0.5479286532462190e-1
6091 0 : V=0.1818246659849308e-3
6092 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6093 0 : A=0.2238602880356348
6094 0 : B=0.8556763251425254e-1
6095 0 : V=0.1966565649492420e-3
6096 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6097 0 : A=0.2612723375728160
6098 0 : B=0.1177257802267011
6099 0 : V=0.2090677905657991e-3
6100 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6101 0 : A=0.2984332990206190
6102 0 : B=0.1508168456192700
6103 0 : V=0.2193820409510504e-3
6104 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6105 0 : A=0.3351786584663333
6106 0 : B=0.1844801892177727
6107 0 : V=0.2278870827661928e-3
6108 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6109 0 : A=0.3713505522209120
6110 0 : B=0.2184145236087598
6111 0 : V=0.2348283192282090e-3
6112 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6113 0 : A=0.4067981098954663
6114 0 : B=0.2523590641486229
6115 0 : V=0.2404139755581477e-3
6116 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6117 0 : A=0.4413769993687534
6118 0 : B=0.2860812976901373
6119 0 : V=0.2448227407760734e-3
6120 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6121 0 : A=0.4749487182516394
6122 0 : B=0.3193686757808996
6123 0 : V=0.2482110455592573e-3
6124 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6125 0 : A=0.5073798105075426
6126 0 : B=0.3520226949547602
6127 0 : V=0.2507192397774103e-3
6128 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6129 0 : A=0.5385410448878654
6130 0 : B=0.3838544395667890
6131 0 : V=0.2524765968534880e-3
6132 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6133 0 : A=0.5683065353670530
6134 0 : B=0.4146810037640963
6135 0 : V=0.2536052388539425e-3
6136 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6137 0 : A=0.5965527620663510
6138 0 : B=0.4443224094681121
6139 0 : V=0.2542230588033068e-3
6140 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6141 0 : A=0.2299227700856157
6142 0 : B=0.2865757664057584e-1
6143 0 : V=0.1944817013047896e-3
6144 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6145 0 : A=0.2695752998553267
6146 0 : B=0.5923421684485993e-1
6147 0 : V=0.2067862362746635e-3
6148 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6149 0 : A=0.3086178716611389
6150 0 : B=0.9117817776057715e-1
6151 0 : V=0.2172440734649114e-3
6152 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6153 0 : A=0.3469649871659077
6154 0 : B=0.1240593814082605
6155 0 : V=0.2260125991723423e-3
6156 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6157 0 : A=0.3845153566319655
6158 0 : B=0.1575272058259175
6159 0 : V=0.2332655008689523e-3
6160 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6161 0 : A=0.4211600033403215
6162 0 : B=0.1912845163525413
6163 0 : V=0.2391699681532458e-3
6164 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6165 0 : A=0.4567867834329882
6166 0 : B=0.2250710177858171
6167 0 : V=0.2438801528273928e-3
6168 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6169 0 : A=0.4912829319232061
6170 0 : B=0.2586521303440910
6171 0 : V=0.2475370504260665e-3
6172 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6173 0 : A=0.5245364793303812
6174 0 : B=0.2918112242865407
6175 0 : V=0.2502707235640574e-3
6176 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6177 0 : A=0.5564369788915756
6178 0 : B=0.3243439239067890
6179 0 : V=0.2522031701054241e-3
6180 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6181 0 : A=0.5868757697775287
6182 0 : B=0.3560536787835351
6183 0 : V=0.2534511269978784e-3
6184 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6185 0 : A=0.6157458853519617
6186 0 : B=0.3867480821242581
6187 0 : V=0.2541284914955151e-3
6188 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6189 0 : A=0.3138461110672113
6190 0 : B=0.3051374637507278e-1
6191 0 : V=0.2161509250688394e-3
6192 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6193 0 : A=0.3542495872050569
6194 0 : B=0.6237111233730755e-1
6195 0 : V=0.2248778513437852e-3
6196 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6197 0 : A=0.3935751553120181
6198 0 : B=0.9516223952401907e-1
6199 0 : V=0.2322388803404617e-3
6200 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6201 0 : A=0.4317634668111147
6202 0 : B=0.1285467341508517
6203 0 : V=0.2383265471001355e-3
6204 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6205 0 : A=0.4687413842250821
6206 0 : B=0.1622318931656033
6207 0 : V=0.2432476675019525e-3
6208 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6209 0 : A=0.5044274237060283
6210 0 : B=0.1959581153836453
6211 0 : V=0.2471122223750674e-3
6212 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6213 0 : A=0.5387354077925727
6214 0 : B=0.2294888081183837
6215 0 : V=0.2500291752486870e-3
6216 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6217 0 : A=0.5715768898356105
6218 0 : B=0.2626031152713945
6219 0 : V=0.2521055942764682e-3
6220 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6221 0 : A=0.6028627200136111
6222 0 : B=0.2950904075286713
6223 0 : V=0.2534472785575503e-3
6224 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6225 0 : A=0.6325039812653463
6226 0 : B=0.3267458451113286
6227 0 : V=0.2541599713080121e-3
6228 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6229 0 : A=0.3981986708423407
6230 0 : B=0.3183291458749821e-1
6231 0 : V=0.2317380975862936e-3
6232 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6233 0 : A=0.4382791182133300
6234 0 : B=0.6459548193880908e-1
6235 0 : V=0.2378550733719775e-3
6236 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6237 0 : A=0.4769233057218166
6238 0 : B=0.9795757037087952e-1
6239 0 : V=0.2428884456739118e-3
6240 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6241 0 : A=0.5140823911194238
6242 0 : B=0.1316307235126655
6243 0 : V=0.2469002655757292e-3
6244 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6245 0 : A=0.5496977833862983
6246 0 : B=0.1653556486358704
6247 0 : V=0.2499657574265851e-3
6248 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6249 0 : A=0.5837047306512727
6250 0 : B=0.1988931724126510
6251 0 : V=0.2521676168486082e-3
6252 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6253 0 : A=0.6160349566926879
6254 0 : B=0.2320174581438950
6255 0 : V=0.2535935662645334e-3
6256 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6257 0 : A=0.6466185353209440
6258 0 : B=0.2645106562168662
6259 0 : V=0.2543356743363214e-3
6260 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6261 0 : A=0.4810835158795404
6262 0 : B=0.3275917807743992e-1
6263 0 : V=0.2427353285201535e-3
6264 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6265 0 : A=0.5199925041324341
6266 0 : B=0.6612546183967181e-1
6267 0 : V=0.2468258039744386e-3
6268 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6269 0 : A=0.5571717692207494
6270 0 : B=0.9981498331474143e-1
6271 0 : V=0.2500060956440310e-3
6272 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6273 0 : A=0.5925789250836378
6274 0 : B=0.1335687001410374
6275 0 : V=0.2523238365420979e-3
6276 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6277 0 : A=0.6261658523859670
6278 0 : B=0.1671444402896463
6279 0 : V=0.2538399260252846e-3
6280 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6281 0 : A=0.6578811126669331
6282 0 : B=0.2003106382156076
6283 0 : V=0.2546255927268069e-3
6284 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6285 0 : A=0.5609624612998100
6286 0 : B=0.3337500940231335e-1
6287 0 : V=0.2500583360048449e-3
6288 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6289 0 : A=0.5979959659984670
6290 0 : B=0.6708750335901803e-1
6291 0 : V=0.2524777638260203e-3
6292 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6293 0 : A=0.6330523711054002
6294 0 : B=0.1008792126424850
6295 0 : V=0.2540951193860656e-3
6296 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6297 0 : A=0.6660960998103972
6298 0 : B=0.1345050343171794
6299 0 : V=0.2549524085027472e-3
6300 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6301 0 : A=0.6365384364585819
6302 0 : B=0.3372799460737052e-1
6303 0 : V=0.2542569507009158e-3
6304 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6305 0 : A=0.6710994302899275
6306 0 : B=0.6755249309678028e-1
6307 0 : V=0.2552114127580376e-3
6308 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6309 0 : N=N-1
6310 0 : RETURN
6311 : END
6312 0 : SUBROUTINE LD4802(X,Y,Z,W,N)
6313 : DOUBLE PRECISION X(4802)
6314 : DOUBLE PRECISION Y(4802)
6315 : DOUBLE PRECISION Z(4802)
6316 : DOUBLE PRECISION W(4802)
6317 : INTEGER N
6318 : DOUBLE PRECISION A,B,V
6319 : !
6320 : ! LEBEDEV 4802-POINT ANGULAR GRID
6321 : !
6322 : !
6323 : ! This subroutine is part of a set of subroutines that generate
6324 : ! Lebedev grids [1-6] for integration on a sphere. The original
6325 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
6326 : ! translated into fortran by Dr. Christoph van Wuellen.
6327 : ! This subroutine was translated using a C to fortran77 conversion
6328 : ! tool written by Dr. Christoph van Wuellen.
6329 : !
6330 : ! Users of this code are asked to include reference [1] in their
6331 : ! publications, and in the user- and programmers-manuals
6332 : ! describing their codes.
6333 : !
6334 : ! This code was distributed through CCL (http://www.ccl.net/).
6335 : !
6336 : ! [1] V.I. Lebedev, and D.N. Laikov
6337 : ! "A quadrature formula for the sphere of the 131st
6338 : ! algebraic order of accuracy"
6339 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
6340 : !
6341 : ! [2] V.I. Lebedev
6342 : ! "A quadrature formula for the sphere of 59th algebraic
6343 : ! order of accuracy"
6344 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
6345 : !
6346 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
6347 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
6348 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
6349 : !
6350 : ! [4] V.I. Lebedev
6351 : ! "Spherical quadrature formulas exact to orders 25-29"
6352 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
6353 : !
6354 : ! [5] V.I. Lebedev
6355 : ! "Quadratures on a sphere"
6356 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
6357 : ! 1976, pp. 10-24.
6358 : !
6359 : ! [6] V.I. Lebedev
6360 : ! "Values of the nodes and weights of ninth to seventeenth
6361 : ! order Gauss-Markov quadrature formulae invariant under the
6362 : ! octahedron group with inversion"
6363 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
6364 : ! 1975, pp. 44-51.
6365 : !
6366 0 : N=1
6367 0 : V=0.9687521879420705e-4
6368 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
6369 0 : V=0.2307897895367918e-3
6370 0 : Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
6371 0 : V=0.2297310852498558e-3
6372 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
6373 0 : A=0.2335728608887064e-1
6374 0 : V=0.7386265944001919e-4
6375 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6376 0 : A=0.4352987836550653e-1
6377 0 : V=0.8257977698542210e-4
6378 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6379 0 : A=0.6439200521088801e-1
6380 0 : V=0.9706044762057630e-4
6381 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6382 0 : A=0.9003943631993181e-1
6383 0 : V=0.1302393847117003e-3
6384 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6385 0 : A=0.1196706615548473
6386 0 : V=0.1541957004600968e-3
6387 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6388 0 : A=0.1511715412838134
6389 0 : V=0.1704459770092199e-3
6390 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6391 0 : A=0.1835982828503801
6392 0 : V=0.1827374890942906e-3
6393 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6394 0 : A=0.2165081259155405
6395 0 : V=0.1926360817436107e-3
6396 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6397 0 : A=0.2496208720417563
6398 0 : V=0.2008010239494833e-3
6399 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6400 0 : A=0.2827200673567900
6401 0 : V=0.2075635983209175e-3
6402 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6403 0 : A=0.3156190823994346
6404 0 : V=0.2131306638690909e-3
6405 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6406 0 : A=0.3481476793749115
6407 0 : V=0.2176562329937335e-3
6408 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6409 0 : A=0.3801466086947226
6410 0 : V=0.2212682262991018e-3
6411 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6412 0 : A=0.4114652119634011
6413 0 : V=0.2240799515668565e-3
6414 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6415 0 : A=0.4419598786519751
6416 0 : V=0.2261959816187525e-3
6417 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6418 0 : A=0.4714925949329543
6419 0 : V=0.2277156368808855e-3
6420 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6421 0 : A=0.4999293972879466
6422 0 : V=0.2287351772128336e-3
6423 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6424 0 : A=0.5271387221431248
6425 0 : V=0.2293490814084085e-3
6426 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6427 0 : A=0.5529896780837761
6428 0 : V=0.2296505312376273e-3
6429 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6430 0 : A=0.6000856099481712
6431 0 : V=0.2296793832318756e-3
6432 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6433 0 : A=0.6210562192785175
6434 0 : V=0.2295785443842974e-3
6435 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6436 0 : A=0.6401165879934240
6437 0 : V=0.2295017931529102e-3
6438 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6439 0 : A=0.6571144029244334
6440 0 : V=0.2295059638184868e-3
6441 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6442 0 : A=0.6718910821718863
6443 0 : V=0.2296232343237362e-3
6444 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6445 0 : A=0.6842845591099010
6446 0 : V=0.2298530178740771e-3
6447 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6448 0 : A=0.6941353476269816
6449 0 : V=0.2301579790280501e-3
6450 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6451 0 : A=0.7012965242212991
6452 0 : V=0.2304690404996513e-3
6453 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6454 0 : A=0.7056471428242644
6455 0 : V=0.2307027995907102e-3
6456 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6457 0 : A=0.4595557643585895e-1
6458 0 : V=0.9312274696671092e-4
6459 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6460 0 : A=0.1049316742435023
6461 0 : V=0.1199919385876926e-3
6462 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6463 0 : A=0.1773548879549274
6464 0 : V=0.1598039138877690e-3
6465 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6466 0 : A=0.2559071411236127
6467 0 : V=0.1822253763574900e-3
6468 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6469 0 : A=0.3358156837985898
6470 0 : V=0.1988579593655040e-3
6471 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6472 0 : A=0.4155835743763893
6473 0 : V=0.2112620102533307e-3
6474 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6475 0 : A=0.4937894296167472
6476 0 : V=0.2201594887699007e-3
6477 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6478 0 : A=0.5691569694793316
6479 0 : V=0.2261622590895036e-3
6480 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6481 0 : A=0.6405840854894251
6482 0 : V=0.2296458453435705e-3
6483 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6484 0 : A=0.7345133894143348e-1
6485 0 : B=0.2177844081486067e-1
6486 0 : V=0.1006006990267000e-3
6487 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6488 0 : A=0.1009859834044931
6489 0 : B=0.4590362185775188e-1
6490 0 : V=0.1227676689635876e-3
6491 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6492 0 : A=0.1324289619748758
6493 0 : B=0.7255063095690877e-1
6494 0 : V=0.1467864280270117e-3
6495 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6496 0 : A=0.1654272109607127
6497 0 : B=0.1017825451960684
6498 0 : V=0.1644178912101232e-3
6499 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6500 0 : A=0.1990767186776461
6501 0 : B=0.1325652320980364
6502 0 : V=0.1777664890718961e-3
6503 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6504 0 : A=0.2330125945523278
6505 0 : B=0.1642765374496765
6506 0 : V=0.1884825664516690e-3
6507 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6508 0 : A=0.2670080611108287
6509 0 : B=0.1965360374337889
6510 0 : V=0.1973269246453848e-3
6511 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6512 0 : A=0.3008753376294316
6513 0 : B=0.2290726770542238
6514 0 : V=0.2046767775855328e-3
6515 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6516 0 : A=0.3344475596167860
6517 0 : B=0.2616645495370823
6518 0 : V=0.2107600125918040e-3
6519 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6520 0 : A=0.3675709724070786
6521 0 : B=0.2941150728843141
6522 0 : V=0.2157416362266829e-3
6523 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6524 0 : A=0.4001000887587812
6525 0 : B=0.3262440400919066
6526 0 : V=0.2197557816920721e-3
6527 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6528 0 : A=0.4318956350436028
6529 0 : B=0.3578835350611916
6530 0 : V=0.2229192611835437e-3
6531 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6532 0 : A=0.4628239056795531
6533 0 : B=0.3888751854043678
6534 0 : V=0.2253385110212775e-3
6535 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6536 0 : A=0.4927563229773636
6537 0 : B=0.4190678003222840
6538 0 : V=0.2271137107548774e-3
6539 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6540 0 : A=0.5215687136707969
6541 0 : B=0.4483151836883852
6542 0 : V=0.2283414092917525e-3
6543 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6544 0 : A=0.5491402346984905
6545 0 : B=0.4764740676087880
6546 0 : V=0.2291161673130077e-3
6547 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6548 0 : A=0.5753520160126075
6549 0 : B=0.5034021310998277
6550 0 : V=0.2295313908576598e-3
6551 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6552 0 : A=0.1388326356417754
6553 0 : B=0.2435436510372806e-1
6554 0 : V=0.1438204721359031e-3
6555 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6556 0 : A=0.1743686900537244
6557 0 : B=0.5118897057342652e-1
6558 0 : V=0.1607738025495257e-3
6559 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6560 0 : A=0.2099737037950268
6561 0 : B=0.8014695048539634e-1
6562 0 : V=0.1741483853528379e-3
6563 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6564 0 : A=0.2454492590908548
6565 0 : B=0.1105117874155699
6566 0 : V=0.1851918467519151e-3
6567 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6568 0 : A=0.2807219257864278
6569 0 : B=0.1417950531570966
6570 0 : V=0.1944628638070613e-3
6571 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6572 0 : A=0.3156842271975842
6573 0 : B=0.1736604945719597
6574 0 : V=0.2022495446275152e-3
6575 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6576 0 : A=0.3502090945177752
6577 0 : B=0.2058466324693981
6578 0 : V=0.2087462382438514e-3
6579 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6580 0 : A=0.3841684849519686
6581 0 : B=0.2381284261195919
6582 0 : V=0.2141074754818308e-3
6583 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6584 0 : A=0.4174372367906016
6585 0 : B=0.2703031270422569
6586 0 : V=0.2184640913748162e-3
6587 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6588 0 : A=0.4498926465011892
6589 0 : B=0.3021845683091309
6590 0 : V=0.2219309165220329e-3
6591 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6592 0 : A=0.4814146229807701
6593 0 : B=0.3335993355165720
6594 0 : V=0.2246123118340624e-3
6595 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6596 0 : A=0.5118863625734701
6597 0 : B=0.3643833735518232
6598 0 : V=0.2266062766915125e-3
6599 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6600 0 : A=0.5411947455119144
6601 0 : B=0.3943789541958179
6602 0 : V=0.2280072952230796e-3
6603 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6604 0 : A=0.5692301500357246
6605 0 : B=0.4234320144403542
6606 0 : V=0.2289082025202583e-3
6607 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6608 0 : A=0.5958857204139576
6609 0 : B=0.4513897947419260
6610 0 : V=0.2294012695120025e-3
6611 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6612 0 : A=0.2156270284785766
6613 0 : B=0.2681225755444491e-1
6614 0 : V=0.1722434488736947e-3
6615 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6616 0 : A=0.2532385054909710
6617 0 : B=0.5557495747805614e-1
6618 0 : V=0.1830237421455091e-3
6619 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6620 0 : A=0.2902564617771537
6621 0 : B=0.8569368062950249e-1
6622 0 : V=0.1923855349997633e-3
6623 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6624 0 : A=0.3266979823143256
6625 0 : B=0.1167367450324135
6626 0 : V=0.2004067861936271e-3
6627 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6628 0 : A=0.3625039627493614
6629 0 : B=0.1483861994003304
6630 0 : V=0.2071817297354263e-3
6631 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6632 0 : A=0.3975838937548699
6633 0 : B=0.1803821503011405
6634 0 : V=0.2128250834102103e-3
6635 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6636 0 : A=0.4318396099009774
6637 0 : B=0.2124962965666424
6638 0 : V=0.2174513719440102e-3
6639 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6640 0 : A=0.4651706555732742
6641 0 : B=0.2445221837805913
6642 0 : V=0.2211661839150214e-3
6643 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6644 0 : A=0.4974752649620969
6645 0 : B=0.2762701224322987
6646 0 : V=0.2240665257813102e-3
6647 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6648 0 : A=0.5286517579627517
6649 0 : B=0.3075627775211328
6650 0 : V=0.2262439516632620e-3
6651 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6652 0 : A=0.5586001195731895
6653 0 : B=0.3382311089826877
6654 0 : V=0.2277874557231869e-3
6655 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6656 0 : A=0.5872229902021319
6657 0 : B=0.3681108834741399
6658 0 : V=0.2287854314454994e-3
6659 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6660 0 : A=0.6144258616235123
6661 0 : B=0.3970397446872839
6662 0 : V=0.2293268499615575e-3
6663 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6664 0 : A=0.2951676508064861
6665 0 : B=0.2867499538750441e-1
6666 0 : V=0.1912628201529828e-3
6667 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6668 0 : A=0.3335085485472725
6669 0 : B=0.5867879341903510e-1
6670 0 : V=0.1992499672238701e-3
6671 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6672 0 : A=0.3709561760636381
6673 0 : B=0.8961099205022284e-1
6674 0 : V=0.2061275533454027e-3
6675 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6676 0 : A=0.4074722861667498
6677 0 : B=0.1211627927626297
6678 0 : V=0.2119318215968572e-3
6679 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6680 0 : A=0.4429923648839117
6681 0 : B=0.1530748903554898
6682 0 : V=0.2167416581882652e-3
6683 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6684 0 : A=0.4774428052721736
6685 0 : B=0.1851176436721877
6686 0 : V=0.2206430730516600e-3
6687 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6688 0 : A=0.5107446539535904
6689 0 : B=0.2170829107658179
6690 0 : V=0.2237186938699523e-3
6691 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6692 0 : A=0.5428151370542935
6693 0 : B=0.2487786689026271
6694 0 : V=0.2260480075032884e-3
6695 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6696 0 : A=0.5735699292556964
6697 0 : B=0.2800239952795016
6698 0 : V=0.2277098884558542e-3
6699 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6700 0 : A=0.6029253794562866
6701 0 : B=0.3106445702878119
6702 0 : V=0.2287845715109671e-3
6703 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6704 0 : A=0.6307998987073145
6705 0 : B=0.3404689500841194
6706 0 : V=0.2293547268236294e-3
6707 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6708 0 : A=0.3752652273692719
6709 0 : B=0.2997145098184479e-1
6710 0 : V=0.2056073839852528e-3
6711 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6712 0 : A=0.4135383879344028
6713 0 : B=0.6086725898678011e-1
6714 0 : V=0.2114235865831876e-3
6715 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6716 0 : A=0.4506113885153907
6717 0 : B=0.9238849548435643e-1
6718 0 : V=0.2163175629770551e-3
6719 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6720 0 : A=0.4864401554606072
6721 0 : B=0.1242786603851851
6722 0 : V=0.2203392158111650e-3
6723 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6724 0 : A=0.5209708076611709
6725 0 : B=0.1563086731483386
6726 0 : V=0.2235473176847839e-3
6727 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6728 0 : A=0.5541422135830122
6729 0 : B=0.1882696509388506
6730 0 : V=0.2260024141501235e-3
6731 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6732 0 : A=0.5858880915113817
6733 0 : B=0.2199672979126059
6734 0 : V=0.2277675929329182e-3
6735 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6736 0 : A=0.6161399390603444
6737 0 : B=0.2512165482924867
6738 0 : V=0.2289102112284834e-3
6739 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6740 0 : A=0.6448296482255090
6741 0 : B=0.2818368701871888
6742 0 : V=0.2295027954625118e-3
6743 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6744 0 : A=0.4544796274917948
6745 0 : B=0.3088970405060312e-1
6746 0 : V=0.2161281589879992e-3
6747 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6748 0 : A=0.4919389072146628
6749 0 : B=0.6240947677636835e-1
6750 0 : V=0.2201980477395102e-3
6751 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6752 0 : A=0.5279313026985183
6753 0 : B=0.9430706144280313e-1
6754 0 : V=0.2234952066593166e-3
6755 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6756 0 : A=0.5624169925571135
6757 0 : B=0.1263547818770374
6758 0 : V=0.2260540098520838e-3
6759 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6760 0 : A=0.5953484627093287
6761 0 : B=0.1583430788822594
6762 0 : V=0.2279157981899988e-3
6763 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6764 0 : A=0.6266730715339185
6765 0 : B=0.1900748462555988
6766 0 : V=0.2291296918565571e-3
6767 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6768 0 : A=0.6563363204278871
6769 0 : B=0.2213599519592567
6770 0 : V=0.2297533752536649e-3
6771 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6772 0 : A=0.5314574716585696
6773 0 : B=0.3152508811515374e-1
6774 0 : V=0.2234927356465995e-3
6775 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6776 0 : A=0.5674614932298185
6777 0 : B=0.6343865291465561e-1
6778 0 : V=0.2261288012985219e-3
6779 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6780 0 : A=0.6017706004970264
6781 0 : B=0.9551503504223951e-1
6782 0 : V=0.2280818160923688e-3
6783 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6784 0 : A=0.6343471270264178
6785 0 : B=0.1275440099801196
6786 0 : V=0.2293773295180159e-3
6787 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6788 0 : A=0.6651494599127802
6789 0 : B=0.1593252037671960
6790 0 : V=0.2300528767338634e-3
6791 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6792 0 : A=0.6050184986005704
6793 0 : B=0.3192538338496105e-1
6794 0 : V=0.2281893855065666e-3
6795 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6796 0 : A=0.6390163550880400
6797 0 : B=0.6402824353962306e-1
6798 0 : V=0.2295720444840727e-3
6799 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6800 0 : A=0.6711199107088448
6801 0 : B=0.9609805077002909e-1
6802 0 : V=0.2303227649026753e-3
6803 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6804 0 : A=0.6741354429572275
6805 0 : B=0.3211853196273233e-1
6806 0 : V=0.2304831913227114e-3
6807 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6808 0 : N=N-1
6809 0 : RETURN
6810 : END
6811 0 : SUBROUTINE LD5294(X,Y,Z,W,N)
6812 : DOUBLE PRECISION X(5294)
6813 : DOUBLE PRECISION Y(5294)
6814 : DOUBLE PRECISION Z(5294)
6815 : DOUBLE PRECISION W(5294)
6816 : INTEGER N
6817 : DOUBLE PRECISION A,B,V
6818 : !
6819 : ! LEBEDEV 5294-POINT ANGULAR GRID
6820 : !
6821 : !
6822 : ! This subroutine is part of a set of subroutines that generate
6823 : ! Lebedev grids [1-6] for integration on a sphere. The original
6824 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
6825 : ! translated into fortran by Dr. Christoph van Wuellen.
6826 : ! This subroutine was translated using a C to fortran77 conversion
6827 : ! tool written by Dr. Christoph van Wuellen.
6828 : !
6829 : ! Users of this code are asked to include reference [1] in their
6830 : ! publications, and in the user- and programmers-manuals
6831 : ! describing their codes.
6832 : !
6833 : ! This code was distributed through CCL (http://www.ccl.net/).
6834 : !
6835 : ! [1] V.I. Lebedev, and D.N. Laikov
6836 : ! "A quadrature formula for the sphere of the 131st
6837 : ! algebraic order of accuracy"
6838 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
6839 : !
6840 : ! [2] V.I. Lebedev
6841 : ! "A quadrature formula for the sphere of 59th algebraic
6842 : ! order of accuracy"
6843 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
6844 : !
6845 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
6846 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
6847 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
6848 : !
6849 : ! [4] V.I. Lebedev
6850 : ! "Spherical quadrature formulas exact to orders 25-29"
6851 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
6852 : !
6853 : ! [5] V.I. Lebedev
6854 : ! "Quadratures on a sphere"
6855 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
6856 : ! 1976, pp. 10-24.
6857 : !
6858 : ! [6] V.I. Lebedev
6859 : ! "Values of the nodes and weights of ninth to seventeenth
6860 : ! order Gauss-Markov quadrature formulae invariant under the
6861 : ! octahedron group with inversion"
6862 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
6863 : ! 1975, pp. 44-51.
6864 : !
6865 0 : N=1
6866 0 : V=0.9080510764308163e-4
6867 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
6868 0 : V=0.2084824361987793e-3
6869 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
6870 0 : A=0.2303261686261450e-1
6871 0 : V=0.5011105657239616e-4
6872 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6873 0 : A=0.3757208620162394e-1
6874 0 : V=0.5942520409683854e-4
6875 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6876 0 : A=0.5821912033821852e-1
6877 0 : V=0.9564394826109721e-4
6878 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6879 0 : A=0.8403127529194872e-1
6880 0 : V=0.1185530657126338e-3
6881 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6882 0 : A=0.1122927798060578
6883 0 : V=0.1364510114230331e-3
6884 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6885 0 : A=0.1420125319192987
6886 0 : V=0.1505828825605415e-3
6887 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6888 0 : A=0.1726396437341978
6889 0 : V=0.1619298749867023e-3
6890 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6891 0 : A=0.2038170058115696
6892 0 : V=0.1712450504267789e-3
6893 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6894 0 : A=0.2352849892876508
6895 0 : V=0.1789891098164999e-3
6896 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6897 0 : A=0.2668363354312461
6898 0 : V=0.1854474955629795e-3
6899 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6900 0 : A=0.2982941279900452
6901 0 : V=0.1908148636673661e-3
6902 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6903 0 : A=0.3295002922087076
6904 0 : V=0.1952377405281833e-3
6905 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6906 0 : A=0.3603094918363593
6907 0 : V=0.1988349254282232e-3
6908 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6909 0 : A=0.3905857895173920
6910 0 : V=0.2017079807160050e-3
6911 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6912 0 : A=0.4202005758160837
6913 0 : V=0.2039473082709094e-3
6914 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6915 0 : A=0.4490310061597227
6916 0 : V=0.2056360279288953e-3
6917 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6918 0 : A=0.4769586160311491
6919 0 : V=0.2068525823066865e-3
6920 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6921 0 : A=0.5038679887049750
6922 0 : V=0.2076724877534488e-3
6923 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6924 0 : A=0.5296454286519961
6925 0 : V=0.2081694278237885e-3
6926 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6927 0 : A=0.5541776207164850
6928 0 : V=0.2084157631219326e-3
6929 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6930 0 : A=0.5990467321921213
6931 0 : V=0.2084381531128593e-3
6932 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6933 0 : A=0.6191467096294587
6934 0 : V=0.2083476277129307e-3
6935 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6936 0 : A=0.6375251212901849
6937 0 : V=0.2082686194459732e-3
6938 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6939 0 : A=0.6540514381131168
6940 0 : V=0.2082475686112415e-3
6941 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6942 0 : A=0.6685899064391510
6943 0 : V=0.2083139860289915e-3
6944 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6945 0 : A=0.6810013009681648
6946 0 : V=0.2084745561831237e-3
6947 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6948 0 : A=0.6911469578730340
6949 0 : V=0.2087091313375890e-3
6950 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6951 0 : A=0.6988956915141736
6952 0 : V=0.2089718413297697e-3
6953 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6954 0 : A=0.7041335794868720
6955 0 : V=0.2092003303479793e-3
6956 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6957 0 : A=0.7067754398018567
6958 0 : V=0.2093336148263241e-3
6959 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
6960 0 : A=0.3840368707853623e-1
6961 0 : V=0.7591708117365267e-4
6962 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6963 0 : A=0.9835485954117399e-1
6964 0 : V=0.1083383968169186e-3
6965 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6966 0 : A=0.1665774947612998
6967 0 : V=0.1403019395292510e-3
6968 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6969 0 : A=0.2405702335362910
6970 0 : V=0.1615970179286436e-3
6971 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6972 0 : A=0.3165270770189046
6973 0 : V=0.1771144187504911e-3
6974 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6975 0 : A=0.3927386145645443
6976 0 : V=0.1887760022988168e-3
6977 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6978 0 : A=0.4678825918374656
6979 0 : V=0.1973474670768214e-3
6980 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6981 0 : A=0.5408022024266935
6982 0 : V=0.2033787661234659e-3
6983 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6984 0 : A=0.6104967445752438
6985 0 : V=0.2072343626517331e-3
6986 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6987 0 : A=0.6760910702685738
6988 0 : V=0.2091177834226918e-3
6989 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
6990 0 : A=0.6655644120217392e-1
6991 0 : B=0.1936508874588424e-1
6992 0 : V=0.9316684484675566e-4
6993 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6994 0 : A=0.9446246161270182e-1
6995 0 : B=0.4252442002115869e-1
6996 0 : V=0.1116193688682976e-3
6997 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
6998 0 : A=0.1242651925452509
6999 0 : B=0.6806529315354374e-1
7000 0 : V=0.1298623551559414e-3
7001 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7002 0 : A=0.1553438064846751
7003 0 : B=0.9560957491205369e-1
7004 0 : V=0.1450236832456426e-3
7005 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7006 0 : A=0.1871137110542670
7007 0 : B=0.1245931657452888
7008 0 : V=0.1572719958149914e-3
7009 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7010 0 : A=0.2192612628836257
7011 0 : B=0.1545385828778978
7012 0 : V=0.1673234785867195e-3
7013 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7014 0 : A=0.2515682807206955
7015 0 : B=0.1851004249723368
7016 0 : V=0.1756860118725188e-3
7017 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7018 0 : A=0.2838535866287290
7019 0 : B=0.2160182608272384
7020 0 : V=0.1826776290439367e-3
7021 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7022 0 : A=0.3159578817528521
7023 0 : B=0.2470799012277111
7024 0 : V=0.1885116347992865e-3
7025 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7026 0 : A=0.3477370882791392
7027 0 : B=0.2781014208986402
7028 0 : V=0.1933457860170574e-3
7029 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7030 0 : A=0.3790576960890540
7031 0 : B=0.3089172523515731
7032 0 : V=0.1973060671902064e-3
7033 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7034 0 : A=0.4097938317810200
7035 0 : B=0.3393750055472244
7036 0 : V=0.2004987099616311e-3
7037 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7038 0 : A=0.4398256572859637
7039 0 : B=0.3693322470987730
7040 0 : V=0.2030170909281499e-3
7041 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7042 0 : A=0.4690384114718480
7043 0 : B=0.3986541005609877
7044 0 : V=0.2049461460119080e-3
7045 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7046 0 : A=0.4973216048301053
7047 0 : B=0.4272112491408562
7048 0 : V=0.2063653565200186e-3
7049 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7050 0 : A=0.5245681526132446
7051 0 : B=0.4548781735309936
7052 0 : V=0.2073507927381027e-3
7053 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7054 0 : A=0.5506733911803888
7055 0 : B=0.4815315355023251
7056 0 : V=0.2079764593256122e-3
7057 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7058 0 : A=0.5755339829522475
7059 0 : B=0.5070486445801855
7060 0 : V=0.2083150534968778e-3
7061 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7062 0 : A=0.1305472386056362
7063 0 : B=0.2284970375722366e-1
7064 0 : V=0.1262715121590664e-3
7065 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7066 0 : A=0.1637327908216477
7067 0 : B=0.4812254338288384e-1
7068 0 : V=0.1414386128545972e-3
7069 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7070 0 : A=0.1972734634149637
7071 0 : B=0.7531734457511935e-1
7072 0 : V=0.1538740401313898e-3
7073 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7074 0 : A=0.2308694653110130
7075 0 : B=0.1039043639882017
7076 0 : V=0.1642434942331432e-3
7077 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7078 0 : A=0.2643899218338160
7079 0 : B=0.1334526587117626
7080 0 : V=0.1729790609237496e-3
7081 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7082 0 : A=0.2977171599622171
7083 0 : B=0.1636414868936382
7084 0 : V=0.1803505190260828e-3
7085 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7086 0 : A=0.3307293903032310
7087 0 : B=0.1942195406166568
7088 0 : V=0.1865475350079657e-3
7089 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7090 0 : A=0.3633069198219073
7091 0 : B=0.2249752879943753
7092 0 : V=0.1917182669679069e-3
7093 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7094 0 : A=0.3953346955922727
7095 0 : B=0.2557218821820032
7096 0 : V=0.1959851709034382e-3
7097 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7098 0 : A=0.4267018394184914
7099 0 : B=0.2862897925213193
7100 0 : V=0.1994529548117882e-3
7101 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7102 0 : A=0.4573009622571704
7103 0 : B=0.3165224536636518
7104 0 : V=0.2022138911146548e-3
7105 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7106 0 : A=0.4870279559856109
7107 0 : B=0.3462730221636496
7108 0 : V=0.2043518024208592e-3
7109 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7110 0 : A=0.5157819581450322
7111 0 : B=0.3754016870282835
7112 0 : V=0.2059450313018110e-3
7113 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7114 0 : A=0.5434651666465393
7115 0 : B=0.4037733784993613
7116 0 : V=0.2070685715318472e-3
7117 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7118 0 : A=0.5699823887764627
7119 0 : B=0.4312557784139123
7120 0 : V=0.2077955310694373e-3
7121 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7122 0 : A=0.5952403350947741
7123 0 : B=0.4577175367122110
7124 0 : V=0.2081980387824712e-3
7125 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7126 0 : A=0.2025152599210369
7127 0 : B=0.2520253617719557e-1
7128 0 : V=0.1521318610377956e-3
7129 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7130 0 : A=0.2381066653274425
7131 0 : B=0.5223254506119000e-1
7132 0 : V=0.1622772720185755e-3
7133 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7134 0 : A=0.2732823383651612
7135 0 : B=0.8060669688588620e-1
7136 0 : V=0.1710498139420709e-3
7137 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7138 0 : A=0.3080137692611118
7139 0 : B=0.1099335754081255
7140 0 : V=0.1785911149448736e-3
7141 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7142 0 : A=0.3422405614587601
7143 0 : B=0.1399120955959857
7144 0 : V=0.1850125313687736e-3
7145 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7146 0 : A=0.3758808773890420
7147 0 : B=0.1702977801651705
7148 0 : V=0.1904229703933298e-3
7149 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7150 0 : A=0.4088458383438932
7151 0 : B=0.2008799256601680
7152 0 : V=0.1949259956121987e-3
7153 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7154 0 : A=0.4410450550841152
7155 0 : B=0.2314703052180836
7156 0 : V=0.1986161545363960e-3
7157 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7158 0 : A=0.4723879420561312
7159 0 : B=0.2618972111375892
7160 0 : V=0.2015790585641370e-3
7161 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7162 0 : A=0.5027843561874343
7163 0 : B=0.2920013195600270
7164 0 : V=0.2038934198707418e-3
7165 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7166 0 : A=0.5321453674452458
7167 0 : B=0.3216322555190551
7168 0 : V=0.2056334060538251e-3
7169 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7170 0 : A=0.5603839113834030
7171 0 : B=0.3506456615934198
7172 0 : V=0.2068705959462289e-3
7173 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7174 0 : A=0.5874150706875146
7175 0 : B=0.3789007181306267
7176 0 : V=0.2076753906106002e-3
7177 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7178 0 : A=0.6131559381660038
7179 0 : B=0.4062580170572782
7180 0 : V=0.2081179391734803e-3
7181 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7182 0 : A=0.2778497016394506
7183 0 : B=0.2696271276876226e-1
7184 0 : V=0.1700345216228943e-3
7185 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7186 0 : A=0.3143733562261912
7187 0 : B=0.5523469316960465e-1
7188 0 : V=0.1774906779990410e-3
7189 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7190 0 : A=0.3501485810261827
7191 0 : B=0.8445193201626464e-1
7192 0 : V=0.1839659377002642e-3
7193 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7194 0 : A=0.3851430322303653
7195 0 : B=0.1143263119336083
7196 0 : V=0.1894987462975169e-3
7197 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7198 0 : A=0.4193013979470415
7199 0 : B=0.1446177898344475
7200 0 : V=0.1941548809452595e-3
7201 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7202 0 : A=0.4525585960458567
7203 0 : B=0.1751165438438091
7204 0 : V=0.1980078427252384e-3
7205 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7206 0 : A=0.4848447779622947
7207 0 : B=0.2056338306745660
7208 0 : V=0.2011296284744488e-3
7209 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7210 0 : A=0.5160871208276894
7211 0 : B=0.2359965487229226
7212 0 : V=0.2035888456966776e-3
7213 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7214 0 : A=0.5462112185696926
7215 0 : B=0.2660430223139146
7216 0 : V=0.2054516325352142e-3
7217 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7218 0 : A=0.5751425068101757
7219 0 : B=0.2956193664498032
7220 0 : V=0.2067831033092635e-3
7221 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7222 0 : A=0.6028073872853596
7223 0 : B=0.3245763905312779
7224 0 : V=0.2076485320284876e-3
7225 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7226 0 : A=0.6291338275278409
7227 0 : B=0.3527670026206972
7228 0 : V=0.2081141439525255e-3
7229 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7230 0 : A=0.3541797528439391
7231 0 : B=0.2823853479435550e-1
7232 0 : V=0.1834383015469222e-3
7233 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7234 0 : A=0.3908234972074657
7235 0 : B=0.5741296374713106e-1
7236 0 : V=0.1889540591777677e-3
7237 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7238 0 : A=0.4264408450107590
7239 0 : B=0.8724646633650199e-1
7240 0 : V=0.1936677023597375e-3
7241 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7242 0 : A=0.4609949666553286
7243 0 : B=0.1175034422915616
7244 0 : V=0.1976176495066504e-3
7245 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7246 0 : A=0.4944389496536006
7247 0 : B=0.1479755652628428
7248 0 : V=0.2008536004560983e-3
7249 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7250 0 : A=0.5267194884346086
7251 0 : B=0.1784740659484352
7252 0 : V=0.2034280351712291e-3
7253 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7254 0 : A=0.5577787810220990
7255 0 : B=0.2088245700431244
7256 0 : V=0.2053944466027758e-3
7257 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7258 0 : A=0.5875563763536670
7259 0 : B=0.2388628136570763
7260 0 : V=0.2068077642882360e-3
7261 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7262 0 : A=0.6159910016391269
7263 0 : B=0.2684308928769185
7264 0 : V=0.2077250949661599e-3
7265 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7266 0 : A=0.6430219602956268
7267 0 : B=0.2973740761960252
7268 0 : V=0.2082062440705320e-3
7269 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7270 0 : A=0.4300647036213646
7271 0 : B=0.2916399920493977e-1
7272 0 : V=0.1934374486546626e-3
7273 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7274 0 : A=0.4661486308935531
7275 0 : B=0.5898803024755659e-1
7276 0 : V=0.1974107010484300e-3
7277 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7278 0 : A=0.5009658555287261
7279 0 : B=0.8924162698525409e-1
7280 0 : V=0.2007129290388658e-3
7281 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7282 0 : A=0.5344824270447704
7283 0 : B=0.1197185199637321
7284 0 : V=0.2033736947471293e-3
7285 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7286 0 : A=0.5666575997416371
7287 0 : B=0.1502300756161382
7288 0 : V=0.2054287125902493e-3
7289 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7290 0 : A=0.5974457471404752
7291 0 : B=0.1806004191913564
7292 0 : V=0.2069184936818894e-3
7293 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7294 0 : A=0.6267984444116886
7295 0 : B=0.2106621764786252
7296 0 : V=0.2078883689808782e-3
7297 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7298 0 : A=0.6546664713575417
7299 0 : B=0.2402526932671914
7300 0 : V=0.2083886366116359e-3
7301 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7302 0 : A=0.5042711004437253
7303 0 : B=0.2982529203607657e-1
7304 0 : V=0.2006593275470817e-3
7305 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7306 0 : A=0.5392127456774380
7307 0 : B=0.6008728062339922e-1
7308 0 : V=0.2033728426135397e-3
7309 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7310 0 : A=0.5726819437668618
7311 0 : B=0.9058227674571398e-1
7312 0 : V=0.2055008781377608e-3
7313 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7314 0 : A=0.6046469254207278
7315 0 : B=0.1211219235803400
7316 0 : V=0.2070651783518502e-3
7317 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7318 0 : A=0.6350716157434952
7319 0 : B=0.1515286404791580
7320 0 : V=0.2080953335094320e-3
7321 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7322 0 : A=0.6639177679185454
7323 0 : B=0.1816314681255552
7324 0 : V=0.2086284998988521e-3
7325 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7326 0 : A=0.5757276040972253
7327 0 : B=0.3026991752575440e-1
7328 0 : V=0.2055549387644668e-3
7329 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7330 0 : A=0.6090265823139755
7331 0 : B=0.6078402297870770e-1
7332 0 : V=0.2071871850267654e-3
7333 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7334 0 : A=0.6406735344387661
7335 0 : B=0.9135459984176636e-1
7336 0 : V=0.2082856600431965e-3
7337 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7338 0 : A=0.6706397927793709
7339 0 : B=0.1218024155966590
7340 0 : V=0.2088705858819358e-3
7341 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7342 0 : A=0.6435019674426665
7343 0 : B=0.3052608357660639e-1
7344 0 : V=0.2083995867536322e-3
7345 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7346 0 : A=0.6747218676375681
7347 0 : B=0.6112185773983089e-1
7348 0 : V=0.2090509712889637e-3
7349 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7350 0 : N=N-1
7351 0 : RETURN
7352 : END
7353 0 : SUBROUTINE LD5810(X,Y,Z,W,N)
7354 : DOUBLE PRECISION X(5810)
7355 : DOUBLE PRECISION Y(5810)
7356 : DOUBLE PRECISION Z(5810)
7357 : DOUBLE PRECISION W(5810)
7358 : INTEGER N
7359 : DOUBLE PRECISION A,B,V
7360 : !
7361 : ! LEBEDEV 5810-POINT ANGULAR GRID
7362 : !
7363 : !
7364 : ! This subroutine is part of a set of subroutines that generate
7365 : ! Lebedev grids [1-6] for integration on a sphere. The original
7366 : ! C-code [1] was kindly provided by Dr. Dmitri N. Laikov and
7367 : ! translated into fortran by Dr. Christoph van Wuellen.
7368 : ! This subroutine was translated using a C to fortran77 conversion
7369 : ! tool written by Dr. Christoph van Wuellen.
7370 : !
7371 : ! Users of this code are asked to include reference [1] in their
7372 : ! publications, and in the user- and programmers-manuals
7373 : ! describing their codes.
7374 : !
7375 : ! This code was distributed through CCL (http://www.ccl.net/).
7376 : !
7377 : ! [1] V.I. Lebedev, and D.N. Laikov
7378 : ! "A quadrature formula for the sphere of the 131st
7379 : ! algebraic order of accuracy"
7380 : ! Doklady Mathematics, Vol. 59, No. 3, 1999, pp. 477-481.
7381 : !
7382 : ! [2] V.I. Lebedev
7383 : ! "A quadrature formula for the sphere of 59th algebraic
7384 : ! order of accuracy"
7385 : ! Russian Acad. Sci. Dokl. Math., Vol. 50, 1995, pp. 283-286.
7386 : !
7387 : ! [3] V.I. Lebedev, and A.L. Skorokhodov
7388 : ! "Quadrature formulas of orders 41, 47, and 53 for the sphere"
7389 : ! Russian Acad. Sci. Dokl. Math., Vol. 45, 1992, pp. 587-592.
7390 : !
7391 : ! [4] V.I. Lebedev
7392 : ! "Spherical quadrature formulas exact to orders 25-29"
7393 : ! Siberian Mathematical Journal, Vol. 18, 1977, pp. 99-107.
7394 : !
7395 : ! [5] V.I. Lebedev
7396 : ! "Quadratures on a sphere"
7397 : ! Computational Mathematics and Mathematical Physics, Vol. 16,
7398 : ! 1976, pp. 10-24.
7399 : !
7400 : ! [6] V.I. Lebedev
7401 : ! "Values of the nodes and weights of ninth to seventeenth
7402 : ! order Gauss-Markov quadrature formulae invariant under the
7403 : ! octahedron group with inversion"
7404 : ! Computational Mathematics and Mathematical Physics, Vol. 15,
7405 : ! 1975, pp. 44-51.
7406 : !
7407 0 : N=1
7408 0 : V=0.9735347946175486e-5
7409 0 : Call GEN_OH( 1, N, X(N), Y(N), Z(N), W(N), A, B, V)
7410 0 : V=0.1907581241803167e-3
7411 0 : Call GEN_OH( 2, N, X(N), Y(N), Z(N), W(N), A, B, V)
7412 0 : V=0.1901059546737578e-3
7413 0 : Call GEN_OH( 3, N, X(N), Y(N), Z(N), W(N), A, B, V)
7414 0 : A=0.1182361662400277e-1
7415 0 : V=0.3926424538919212e-4
7416 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7417 0 : A=0.3062145009138958e-1
7418 0 : V=0.6667905467294382e-4
7419 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7420 0 : A=0.5329794036834243e-1
7421 0 : V=0.8868891315019135e-4
7422 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7423 0 : A=0.7848165532862220e-1
7424 0 : V=0.1066306000958872e-3
7425 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7426 0 : A=0.1054038157636201
7427 0 : V=0.1214506743336128e-3
7428 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7429 0 : A=0.1335577797766211
7430 0 : V=0.1338054681640871e-3
7431 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7432 0 : A=0.1625769955502252
7433 0 : V=0.1441677023628504e-3
7434 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7435 0 : A=0.1921787193412792
7436 0 : V=0.1528880200826557e-3
7437 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7438 0 : A=0.2221340534690548
7439 0 : V=0.1602330623773609e-3
7440 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7441 0 : A=0.2522504912791132
7442 0 : V=0.1664102653445244e-3
7443 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7444 0 : A=0.2823610860679697
7445 0 : V=0.1715845854011323e-3
7446 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7447 0 : A=0.3123173966267560
7448 0 : V=0.1758901000133069e-3
7449 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7450 0 : A=0.3419847036953789
7451 0 : V=0.1794382485256736e-3
7452 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7453 0 : A=0.3712386456999758
7454 0 : V=0.1823238106757407e-3
7455 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7456 0 : A=0.3999627649876828
7457 0 : V=0.1846293252959976e-3
7458 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7459 0 : A=0.4280466458648093
7460 0 : V=0.1864284079323098e-3
7461 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7462 0 : A=0.4553844360185711
7463 0 : V=0.1877882694626914e-3
7464 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7465 0 : A=0.4818736094437834
7466 0 : V=0.1887716321852025e-3
7467 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7468 0 : A=0.5074138709260629
7469 0 : V=0.1894381638175673e-3
7470 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7471 0 : A=0.5319061304570707
7472 0 : V=0.1898454899533629e-3
7473 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7474 0 : A=0.5552514978677286
7475 0 : V=0.1900497929577815e-3
7476 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7477 0 : A=0.5981009025246183
7478 0 : V=0.1900671501924092e-3
7479 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7480 0 : A=0.6173990192228116
7481 0 : V=0.1899837555533510e-3
7482 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7483 0 : A=0.6351365239411131
7484 0 : V=0.1899014113156229e-3
7485 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7486 0 : A=0.6512010228227200
7487 0 : V=0.1898581257705106e-3
7488 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7489 0 : A=0.6654758363948120
7490 0 : V=0.1898804756095753e-3
7491 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7492 0 : A=0.6778410414853370
7493 0 : V=0.1899793610426402e-3
7494 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7495 0 : A=0.6881760887484110
7496 0 : V=0.1901464554844117e-3
7497 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7498 0 : A=0.6963645267094598
7499 0 : V=0.1903533246259542e-3
7500 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7501 0 : A=0.7023010617153579
7502 0 : V=0.1905556158463228e-3
7503 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7504 0 : A=0.7059004636628753
7505 0 : V=0.1907037155663528e-3
7506 0 : Call GEN_OH( 4, N, X(N), Y(N), Z(N), W(N), A, B, V)
7507 0 : A=0.3552470312472575e-1
7508 0 : V=0.5992997844249967e-4
7509 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
7510 0 : A=0.9151176620841283e-1
7511 0 : V=0.9749059382456978e-4
7512 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
7513 0 : A=0.1566197930068980
7514 0 : V=0.1241680804599158e-3
7515 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
7516 0 : A=0.2265467599271907
7517 0 : V=0.1437626154299360e-3
7518 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
7519 0 : A=0.2988242318581361
7520 0 : V=0.1584200054793902e-3
7521 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
7522 0 : A=0.3717482419703886
7523 0 : V=0.1694436550982744e-3
7524 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
7525 0 : A=0.4440094491758889
7526 0 : V=0.1776617014018108e-3
7527 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
7528 0 : A=0.5145337096756642
7529 0 : V=0.1836132434440077e-3
7530 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
7531 0 : A=0.5824053672860230
7532 0 : V=0.1876494727075983e-3
7533 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
7534 0 : A=0.6468283961043370
7535 0 : V=0.1899906535336482e-3
7536 0 : Call GEN_OH( 5, N, X(N), Y(N), Z(N), W(N), A, B, V)
7537 0 : A=0.6095964259104373e-1
7538 0 : B=0.1787828275342931e-1
7539 0 : V=0.8143252820767350e-4
7540 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7541 0 : A=0.8811962270959388e-1
7542 0 : B=0.3953888740792096e-1
7543 0 : V=0.9998859890887728e-4
7544 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7545 0 : A=0.1165936722428831
7546 0 : B=0.6378121797722990e-1
7547 0 : V=0.1156199403068359e-3
7548 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7549 0 : A=0.1460232857031785
7550 0 : B=0.8985890813745037e-1
7551 0 : V=0.1287632092635513e-3
7552 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7553 0 : A=0.1761197110181755
7554 0 : B=0.1172606510576162
7555 0 : V=0.1398378643365139e-3
7556 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7557 0 : A=0.2066471190463718
7558 0 : B=0.1456102876970995
7559 0 : V=0.1491876468417391e-3
7560 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7561 0 : A=0.2374076026328152
7562 0 : B=0.1746153823011775
7563 0 : V=0.1570855679175456e-3
7564 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7565 0 : A=0.2682305474337051
7566 0 : B=0.2040383070295584
7567 0 : V=0.1637483948103775e-3
7568 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7569 0 : A=0.2989653312142369
7570 0 : B=0.2336788634003698
7571 0 : V=0.1693500566632843e-3
7572 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7573 0 : A=0.3294762752772209
7574 0 : B=0.2633632752654219
7575 0 : V=0.1740322769393633e-3
7576 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7577 0 : A=0.3596390887276086
7578 0 : B=0.2929369098051601
7579 0 : V=0.1779126637278296e-3
7580 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7581 0 : A=0.3893383046398812
7582 0 : B=0.3222592785275512
7583 0 : V=0.1810908108835412e-3
7584 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7585 0 : A=0.4184653789358347
7586 0 : B=0.3512004791195743
7587 0 : V=0.1836529132600190e-3
7588 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7589 0 : A=0.4469172319076166
7590 0 : B=0.3796385677684537
7591 0 : V=0.1856752841777379e-3
7592 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7593 0 : A=0.4745950813276976
7594 0 : B=0.4074575378263879
7595 0 : V=0.1872270566606832e-3
7596 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7597 0 : A=0.5014034601410262
7598 0 : B=0.4345456906027828
7599 0 : V=0.1883722645591307e-3
7600 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7601 0 : A=0.5272493404551239
7602 0 : B=0.4607942515205134
7603 0 : V=0.1891714324525297e-3
7604 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7605 0 : A=0.5520413051846366
7606 0 : B=0.4860961284181720
7607 0 : V=0.1896827480450146e-3
7608 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7609 0 : A=0.5756887237503077
7610 0 : B=0.5103447395342790
7611 0 : V=0.1899628417059528e-3
7612 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7613 0 : A=0.1225039430588352
7614 0 : B=0.2136455922655793e-1
7615 0 : V=0.1123301829001669e-3
7616 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7617 0 : A=0.1539113217321372
7618 0 : B=0.4520926166137188e-1
7619 0 : V=0.1253698826711277e-3
7620 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7621 0 : A=0.1856213098637712
7622 0 : B=0.7086468177864818e-1
7623 0 : V=0.1366266117678531e-3
7624 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7625 0 : A=0.2174998728035131
7626 0 : B=0.9785239488772918e-1
7627 0 : V=0.1462736856106918e-3
7628 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7629 0 : A=0.2494128336938330
7630 0 : B=0.1258106396267210
7631 0 : V=0.1545076466685412e-3
7632 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7633 0 : A=0.2812321562143480
7634 0 : B=0.1544529125047001
7635 0 : V=0.1615096280814007e-3
7636 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7637 0 : A=0.3128372276456111
7638 0 : B=0.1835433512202753
7639 0 : V=0.1674366639741759e-3
7640 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7641 0 : A=0.3441145160177973
7642 0 : B=0.2128813258619585
7643 0 : V=0.1724225002437900e-3
7644 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7645 0 : A=0.3749567714853510
7646 0 : B=0.2422913734880829
7647 0 : V=0.1765810822987288e-3
7648 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7649 0 : A=0.4052621732015610
7650 0 : B=0.2716163748391453
7651 0 : V=0.1800104126010751e-3
7652 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7653 0 : A=0.4349335453522385
7654 0 : B=0.3007127671240280
7655 0 : V=0.1827960437331284e-3
7656 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7657 0 : A=0.4638776641524965
7658 0 : B=0.3294470677216479
7659 0 : V=0.1850140300716308e-3
7660 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7661 0 : A=0.4920046410462687
7662 0 : B=0.3576932543699155
7663 0 : V=0.1867333507394938e-3
7664 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7665 0 : A=0.5192273554861704
7666 0 : B=0.3853307059757764
7667 0 : V=0.1880178688638289e-3
7668 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7669 0 : A=0.5454609081136522
7670 0 : B=0.4122425044452694
7671 0 : V=0.1889278925654758e-3
7672 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7673 0 : A=0.5706220661424140
7674 0 : B=0.4383139587781027
7675 0 : V=0.1895213832507346e-3
7676 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7677 0 : A=0.5946286755181518
7678 0 : B=0.4634312536300553
7679 0 : V=0.1898548277397420e-3
7680 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7681 0 : A=0.1905370790924295
7682 0 : B=0.2371311537781979e-1
7683 0 : V=0.1349105935937341e-3
7684 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7685 0 : A=0.2242518717748009
7686 0 : B=0.4917878059254806e-1
7687 0 : V=0.1444060068369326e-3
7688 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7689 0 : A=0.2577190808025936
7690 0 : B=0.7595498960495142e-1
7691 0 : V=0.1526797390930008e-3
7692 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7693 0 : A=0.2908724534927187
7694 0 : B=0.1036991083191100
7695 0 : V=0.1598208771406474e-3
7696 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7697 0 : A=0.3236354020056219
7698 0 : B=0.1321348584450234
7699 0 : V=0.1659354368615331e-3
7700 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7701 0 : A=0.3559267359304543
7702 0 : B=0.1610316571314789
7703 0 : V=0.1711279910946440e-3
7704 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7705 0 : A=0.3876637123676956
7706 0 : B=0.1901912080395707
7707 0 : V=0.1754952725601440e-3
7708 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7709 0 : A=0.4187636705218842
7710 0 : B=0.2194384950137950
7711 0 : V=0.1791247850802529e-3
7712 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7713 0 : A=0.4491449019883107
7714 0 : B=0.2486155334763858
7715 0 : V=0.1820954300877716e-3
7716 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7717 0 : A=0.4787270932425445
7718 0 : B=0.2775768931812335
7719 0 : V=0.1844788524548449e-3
7720 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7721 0 : A=0.5074315153055574
7722 0 : B=0.3061863786591120
7723 0 : V=0.1863409481706220e-3
7724 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7725 0 : A=0.5351810507738336
7726 0 : B=0.3343144718152556
7727 0 : V=0.1877433008795068e-3
7728 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7729 0 : A=0.5619001025975381
7730 0 : B=0.3618362729028427
7731 0 : V=0.1887444543705232e-3
7732 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7733 0 : A=0.5875144035268046
7734 0 : B=0.3886297583620408
7735 0 : V=0.1894009829375006e-3
7736 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7737 0 : A=0.6119507308734495
7738 0 : B=0.4145742277792031
7739 0 : V=0.1897683345035198e-3
7740 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7741 0 : A=0.2619733870119463
7742 0 : B=0.2540047186389353e-1
7743 0 : V=0.1517327037467653e-3
7744 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7745 0 : A=0.2968149743237949
7746 0 : B=0.5208107018543989e-1
7747 0 : V=0.1587740557483543e-3
7748 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7749 0 : A=0.3310451504860488
7750 0 : B=0.7971828470885599e-1
7751 0 : V=0.1649093382274097e-3
7752 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7753 0 : A=0.3646215567376676
7754 0 : B=0.1080465999177927
7755 0 : V=0.1701915216193265e-3
7756 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7757 0 : A=0.3974916785279360
7758 0 : B=0.1368413849366629
7759 0 : V=0.1746847753144065e-3
7760 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7761 0 : A=0.4295967403772029
7762 0 : B=0.1659073184763559
7763 0 : V=0.1784555512007570e-3
7764 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7765 0 : A=0.4608742854473447
7766 0 : B=0.1950703730454614
7767 0 : V=0.1815687562112174e-3
7768 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7769 0 : A=0.4912598858949903
7770 0 : B=0.2241721144376724
7771 0 : V=0.1840864370663302e-3
7772 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7773 0 : A=0.5206882758945558
7774 0 : B=0.2530655255406489
7775 0 : V=0.1860676785390006e-3
7776 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7777 0 : A=0.5490940914019819
7778 0 : B=0.2816118409731066
7779 0 : V=0.1875690583743703e-3
7780 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7781 0 : A=0.5764123302025542
7782 0 : B=0.3096780504593238
7783 0 : V=0.1886453236347225e-3
7784 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7785 0 : A=0.6025786004213506
7786 0 : B=0.3371348366394987
7787 0 : V=0.1893501123329645e-3
7788 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7789 0 : A=0.6275291964794956
7790 0 : B=0.3638547827694396
7791 0 : V=0.1897366184519868e-3
7792 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7793 0 : A=0.3348189479861771
7794 0 : B=0.2664841935537443e-1
7795 0 : V=0.1643908815152736e-3
7796 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7797 0 : A=0.3699515545855295
7798 0 : B=0.5424000066843495e-1
7799 0 : V=0.1696300350907768e-3
7800 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7801 0 : A=0.4042003071474669
7802 0 : B=0.8251992715430854e-1
7803 0 : V=0.1741553103844483e-3
7804 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7805 0 : A=0.4375320100182624
7806 0 : B=0.1112695182483710
7807 0 : V=0.1780015282386092e-3
7808 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7809 0 : A=0.4699054490335947
7810 0 : B=0.1402964116467816
7811 0 : V=0.1812116787077125e-3
7812 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7813 0 : A=0.5012739879431952
7814 0 : B=0.1694275117584291
7815 0 : V=0.1838323158085421e-3
7816 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7817 0 : A=0.5315874883754966
7818 0 : B=0.1985038235312689
7819 0 : V=0.1859113119837737e-3
7820 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7821 0 : A=0.5607937109622117
7822 0 : B=0.2273765660020893
7823 0 : V=0.1874969220221698e-3
7824 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7825 0 : A=0.5888393223495521
7826 0 : B=0.2559041492849764
7827 0 : V=0.1886375612681076e-3
7828 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7829 0 : A=0.6156705979160163
7830 0 : B=0.2839497251976899
7831 0 : V=0.1893819575809276e-3
7832 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7833 0 : A=0.6412338809078123
7834 0 : B=0.3113791060500690
7835 0 : V=0.1897794748256767e-3
7836 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7837 0 : A=0.4076051259257167
7838 0 : B=0.2757792290858463e-1
7839 0 : V=0.1738963926584846e-3
7840 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7841 0 : A=0.4423788125791520
7842 0 : B=0.5584136834984293e-1
7843 0 : V=0.1777442359873466e-3
7844 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7845 0 : A=0.4760480917328258
7846 0 : B=0.8457772087727143e-1
7847 0 : V=0.1810010815068719e-3
7848 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7849 0 : A=0.5085838725946297
7850 0 : B=0.1135975846359248
7851 0 : V=0.1836920318248129e-3
7852 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7853 0 : A=0.5399513637391218
7854 0 : B=0.1427286904765053
7855 0 : V=0.1858489473214328e-3
7856 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7857 0 : A=0.5701118433636380
7858 0 : B=0.1718112740057635
7859 0 : V=0.1875079342496592e-3
7860 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7861 0 : A=0.5990240530606021
7862 0 : B=0.2006944855985351
7863 0 : V=0.1887080239102310e-3
7864 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7865 0 : A=0.6266452685139695
7866 0 : B=0.2292335090598907
7867 0 : V=0.1894905752176822e-3
7868 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7869 0 : A=0.6529320971415942
7870 0 : B=0.2572871512353714
7871 0 : V=0.1898991061200695e-3
7872 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7873 0 : A=0.4791583834610126
7874 0 : B=0.2826094197735932e-1
7875 0 : V=0.1809065016458791e-3
7876 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7877 0 : A=0.5130373952796940
7878 0 : B=0.5699871359683649e-1
7879 0 : V=0.1836297121596799e-3
7880 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7881 0 : A=0.5456252429628476
7882 0 : B=0.8602712528554394e-1
7883 0 : V=0.1858426916241869e-3
7884 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7885 0 : A=0.5768956329682385
7886 0 : B=0.1151748137221281
7887 0 : V=0.1875654101134641e-3
7888 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7889 0 : A=0.6068186944699046
7890 0 : B=0.1442811654136362
7891 0 : V=0.1888240751833503e-3
7892 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7893 0 : A=0.6353622248024907
7894 0 : B=0.1731930321657680
7895 0 : V=0.1896497383866979e-3
7896 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7897 0 : A=0.6624927035731797
7898 0 : B=0.2017619958756061
7899 0 : V=0.1900775530219121e-3
7900 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7901 0 : A=0.5484933508028488
7902 0 : B=0.2874219755907391e-1
7903 0 : V=0.1858525041478814e-3
7904 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7905 0 : A=0.5810207682142106
7906 0 : B=0.5778312123713695e-1
7907 0 : V=0.1876248690077947e-3
7908 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7909 0 : A=0.6120955197181352
7910 0 : B=0.8695262371439526e-1
7911 0 : V=0.1889404439064607e-3
7912 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7913 0 : A=0.6416944284294319
7914 0 : B=0.1160893767057166
7915 0 : V=0.1898168539265290e-3
7916 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7917 0 : A=0.6697926391731260
7918 0 : B=0.1450378826743251
7919 0 : V=0.1902779940661772e-3
7920 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7921 0 : A=0.6147594390585488
7922 0 : B=0.2904957622341456e-1
7923 0 : V=0.1890125641731815e-3
7924 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7925 0 : A=0.6455390026356783
7926 0 : B=0.5823809152617197e-1
7927 0 : V=0.1899434637795751e-3
7928 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7929 0 : A=0.6747258588365477
7930 0 : B=0.8740384899884715e-1
7931 0 : V=0.1904520856831751e-3
7932 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7933 0 : A=0.6772135750395347
7934 0 : B=0.2919946135808105e-1
7935 0 : V=0.1905534498734563e-3
7936 0 : Call GEN_OH( 6, N, X(N), Y(N), Z(N), W(N), A, B, V)
7937 0 : N=N-1
7938 0 : RETURN
7939 : END
7940 :
7941 :
7942 :
7943 :
7944 : end module m_corespec_eval
|