mirror of
https://code.it4i.cz/sccs/easyconfigs-it4i.git
synced 2025-04-16 19:50:50 +01:00
2958 lines
130 KiB
Fortran
Executable File
2958 lines
130 KiB
Fortran
Executable File
************************************************************************
|
|
subroutine ellip(ngrid,grfile,dcore,natoms,nangmax,ncontrmax,
|
|
$nprimmax,ncartmax,nsphermax,nang,ncontr,nprim,gexp,gcoef,coord,
|
|
$cartg,ctostr,nbasis,iout,atnum,inta,oeintfile,itol,eexp)
|
|
************************************************************************
|
|
* Genarate Cartesian-primitive -> spherical-contracted transformation
|
|
************************************************************************
|
|
implicit none
|
|
integer dblalloc,ngrid,grfile,nsphermax,ncontrmax,ncartmax,i
|
|
integer nprimmax,igrid,iweight,itrmat,isvec,iscart,ibasis,igexp2
|
|
integer natoms,nangmax,nang,nbasis,ncontr,nprim,iout,atnum
|
|
integer ikcartx,ikvecx,ikcarty,ikvecy,ikcartz,ikvecz
|
|
integer iscart2,isvec2,inta,oeintfile
|
|
real*8 dcore(*),gexp,gcoef,coord,ctostr,itol,eexp
|
|
logical cartg
|
|
C Allocate memory
|
|
igrid=dblalloc(3*ngrid)
|
|
iweight=dblalloc(ngrid)
|
|
itrmat=dblalloc(nsphermax*ncontrmax*ncartmax*nprimmax)
|
|
igexp2=dblalloc(nprimmax)
|
|
isvec=dblalloc(nbasis*ngrid)
|
|
iscart=dblalloc(ncartmax*nprimmax*ngrid)
|
|
ikvecx=dblalloc(nbasis*ngrid)
|
|
ikcartx=dblalloc(ncartmax*nprimmax*ngrid)
|
|
ikvecy=dblalloc(nbasis*ngrid)
|
|
ikcarty=dblalloc(ncartmax*nprimmax*ngrid)
|
|
ikvecz=dblalloc(nbasis*ngrid)
|
|
ikcartz=dblalloc(ncartmax*nprimmax*ngrid)
|
|
isvec2=dblalloc(nbasis*ngrid)
|
|
iscart2=dblalloc(ncartmax*nprimmax*ngrid)
|
|
C Read the grid
|
|
open(grfile,file='DFTGRID',form='unformatted')
|
|
rewind(grfile)
|
|
read(grfile) (dcore(igrid+i),i=0,3*ngrid-1)
|
|
read(grfile) (dcore(iweight+i),i=0,ngrid-1)
|
|
close(grfile)
|
|
C
|
|
c write(iout,*) 'Calculation integrals over elliptical Gaussians...'
|
|
call calcelli(ngrid,dcore(igrid),natoms,nangmax,ncontrmax,
|
|
$nprimmax,
|
|
$ncartmax,nsphermax,nang,ncontr,nprim,gexp,gcoef,coord,ctostr,
|
|
$cartg,dcore(isvec),nbasis,dcore(igexp2),dcore(iscart),
|
|
$dcore(itrmat),ibasis,dcore(iweight),atnum,
|
|
$dcore(ikvecx),dcore(ikcartx),dcore(ikvecy),dcore(ikcarty),
|
|
$dcore(ikvecz),dcore(ikcartz),dcore(iscart2),dcore(isvec2),
|
|
$inta,oeintfile,dcore,dcore,itol,eexp)
|
|
C
|
|
call dbldealloc(igrid)
|
|
c call timer
|
|
C
|
|
return
|
|
end
|
|
C
|
|
************************************************************************
|
|
subroutine calcelli(ngrid,grid,natoms,nangmax,ncontrmax,nprimmax,
|
|
$ncartmax,nsphermax,nang,ncontr,nprim,gexp,gcoef,coord,ctostr,
|
|
$cartg,svec,nbasis,gexp2,scart,trmat,ibasis,weight,atnum,
|
|
$kvecx,kcartx,kvecy,kcarty,kvecz,kcartz,scart2,svec2,
|
|
$inta,oeintfile,dcore,i4core,itol,eexp)
|
|
************************************************************************
|
|
* Calculate orbital values on grid
|
|
************************************************************************
|
|
implicit none
|
|
integer ngrid,natoms,nangmax,ncontrmax,nprimmax,ncartmax,nsphermax
|
|
integer nang(natoms),ncontr(0:nangmax,natoms),igrid,iprim,iatoms
|
|
integer nprim(0:nangmax,natoms),nicontr,niprim,nicart,nispher,iang
|
|
integer nbasis,ibasis,i,j,k,ispher,ii,nicp,atnum(natoms)
|
|
integer xx,yy,zz,jgrid,i1,i2,j1,j2,ii2,oeintfile
|
|
integer intn(2),inta(*)
|
|
real*8 grid(3,ngrid),gexp(nprimmax,0:nangmax,natoms),dcore(*)
|
|
real*8 gcoef(nprimmax,ncontrmax,0:nangmax,natoms),r2,ss,kk,nn,tt
|
|
real*8 coord(3,natoms),ctostr(ncartmax**2,0:nangmax),weight(ngrid)
|
|
real*8 x,y,z,ax,ay,az,a,gexp2(nprimmax),ax2,ay2,az2,itol
|
|
real*8 trmat(nsphermax*ncontrmax,ncartmax*nprimmax)
|
|
real*8 xa,ya,za,xa2,ya2,za2,alfa,khi(ngrid)
|
|
real*8 dx,dy,dz,rij,shift,t,hehe,hehe2
|
|
real*8 scart(ncartmax*nprimmax*ngrid),svec(nbasis,ngrid)
|
|
real*8 kcartx(ncartmax*nprimmax*ngrid),kvecx(nbasis,ngrid)
|
|
real*8 kcarty(ncartmax*nprimmax*ngrid),kvecy(nbasis,ngrid)
|
|
real*8 kcartz(ncartmax*nprimmax*ngrid),kvecz(nbasis,ngrid)
|
|
real*8 scart2(ncartmax*nprimmax*ngrid),svec2(nbasis,ngrid)
|
|
real*8 alpha(3,3),expo,advec(1,3),vec(3,1),fmat(1,3),smat(1,1)
|
|
real*8 eexp(3,3,nprimmax,0:nangmax,natoms)
|
|
real*8 a11,a22,a33,a12,a13,a23
|
|
integer*4 i4core(*)
|
|
logical cartg
|
|
parameter (shift=0.d0)
|
|
C Loop over atoms
|
|
ibasis=1
|
|
do iatoms=1,natoms
|
|
x=coord(1,iatoms)
|
|
y=coord(2,iatoms)
|
|
z=coord(3,iatoms)
|
|
C Loop over angular momenta
|
|
do iang=0,nang(iatoms)
|
|
nicontr=ncontr(iang,iatoms)
|
|
niprim=nprim(iang,iatoms)
|
|
nicart=(iang+1)*(iang+2)/2
|
|
nispher=2*iang+1
|
|
nicp=nicart*niprim
|
|
if(cartg) nispher=nicart
|
|
call gtrmat(trmat,nispher,nicontr,nicart,niprim,nprimmax,
|
|
$ncontrmax,gcoef(1,1,iang,iatoms),ctostr(1,iang))
|
|
c do iprim=1,niprim
|
|
c gexp2(iprim)=-gexp(iprim,iang,iatoms)
|
|
c enddo
|
|
C General shell
|
|
do igrid=1,ngrid
|
|
ax=grid(1,igrid)-x
|
|
ay=grid(2,igrid)-y
|
|
az=grid(3,igrid)-z
|
|
ax2=ax*ax
|
|
ay2=ay*ay
|
|
az2=az*az
|
|
r2=(ax2+ay2+az2)
|
|
C
|
|
xa=-ax
|
|
ya=-ay
|
|
za=-az
|
|
xa2=ax2
|
|
ya2=ay2
|
|
za2=az2
|
|
C Loop over primitives
|
|
ii=(igrid-1)*nicp
|
|
xx=(igrid-1)*nicp
|
|
yy=(igrid-1)*nicp
|
|
zz=(igrid-1)*nicp
|
|
do iprim=1,niprim
|
|
alpha(1,1)=eexp(1,1,iprim,iang,iatoms)
|
|
alpha(1,2)=eexp(1,2,iprim,iang,iatoms)
|
|
alpha(1,3)=eexp(1,3,iprim,iang,iatoms)
|
|
alpha(2,1)=eexp(2,1,iprim,iang,iatoms)
|
|
alpha(2,2)=eexp(2,2,iprim,iang,iatoms)
|
|
alpha(2,3)=eexp(2,3,iprim,iang,iatoms)
|
|
alpha(3,1)=eexp(3,1,iprim,iang,iatoms)
|
|
alpha(3,2)=eexp(3,2,iprim,iang,iatoms)
|
|
alpha(3,3)=eexp(3,3,iprim,iang,iatoms)
|
|
a11=alpha(1,1)
|
|
a22=alpha(2,2)
|
|
a33=alpha(3,3)
|
|
a12=alpha(1,2)
|
|
a13=alpha(1,3)
|
|
a23=alpha(2,3)
|
|
C vec=descartes oszlopvektor komponensek
|
|
vec(1,1)=ax
|
|
vec(2,1)=ay
|
|
vec(3,1)=az
|
|
C advec=descartes sorvektor komponensek
|
|
advec(1,1)=ax
|
|
advec(1,2)=ay
|
|
advec(1,3)=az
|
|
C fmat=sorvektor*alpha matrix eredmenymatrixa
|
|
fmat=matmul(advec,alpha)
|
|
C smat=eredmenymatrix*oszlopvektor skalarja
|
|
smat=matmul(fmat,vec)
|
|
C expo=gauss-fv parc.derivaltjaiban megjeleno exponens altalanos esetben
|
|
expo=dexp(-ax*(a11*ax+a12*ay+a13*az)-ay*(a12*ax+a22*ay+a23*az)
|
|
$-az*(a13*ax+a23*ay+a33*az))
|
|
c t=-ax*(a11*ax+a12*ay+a13*az)-ay*(a12*ax+
|
|
c $a22*ay+a23*az)-az*(a13*ax+a23*ay+a33*az)
|
|
c if (smat(1,1).lt.-11000) write(*,*) t
|
|
|
|
|
|
C Loop over Cartesian functions
|
|
do i=0,iang
|
|
do j=0,iang-i
|
|
k=iang-i-j
|
|
ii=ii+1
|
|
scart(ii)=ax**i*ay**j*az**k*dexp(-smat(1,1))
|
|
enddo
|
|
enddo
|
|
C Kinetic energy, a szingularitas miatt kell elkuloniteni az
|
|
C i,j,k=0 esetet
|
|
C x-szerinti tag
|
|
do i=0,iang
|
|
do j=0,iang-i
|
|
k=iang-i-j
|
|
xx=xx+1
|
|
if(i.eq.0) then
|
|
kcartx(xx)=2.d0*expo*ay**j*az**k*(x*a11+z*a13-a11*
|
|
$grid(1,igrid)+a12*ya-a13*grid(3,igrid))
|
|
hehe=2.d0*ay**j*az**k*(x*a11+z*a13-a11*
|
|
$grid(1,igrid)+a12*ya-a13*grid(3,igrid))
|
|
else
|
|
kcartx(xx)=expo*ax**(i-1.d0)*ay**j*az**k*(i+2.d0*xa*
|
|
$(-x*a11-a13*z+a11*grid(1,igrid)+a12*ay+a13*grid(3,igrid)))
|
|
hehe2=ax**(i-1.d0)*ay**j*az**k*(i+2.d0*xa*
|
|
$(-x*a11-a13*z+a11*grid(1,igrid)+a12*ay+a13*grid(3,igrid)))
|
|
c if(hehe.gt.1d5.or.hehe2.gt.1d5) write(*,*) hehe, hehe2
|
|
endif
|
|
enddo
|
|
enddo
|
|
C y-szerinti tag
|
|
do i=0,iang
|
|
do j=0,iang-i
|
|
k=iang-i-j
|
|
yy=yy+1
|
|
if(j.eq.0) then
|
|
kcarty(yy)=2.d0*expo*ax**i*az**k*(x*a12+z*a23-a12
|
|
$*grid(1,igrid)+a22*ya-a23*grid(3,igrid))
|
|
else
|
|
kcarty(yy)=expo*ax**i*ay**(j-1.d0)*az**k*(j+2.d0*ya*
|
|
$(-x*a12-a23*z+a12*grid(1,igrid)+a22*ay+a23*grid(3,igrid)))
|
|
endif
|
|
enddo
|
|
enddo
|
|
C z-szerinti tag
|
|
do i=0,iang
|
|
do j=0,iang-i
|
|
k=iang-i-j
|
|
zz=zz+1
|
|
if(k.eq.0) then
|
|
kcartz(zz)=2.d0*expo*ax**i*ay**j*(x*a13+a33*z-a13*
|
|
$grid(1,igrid)+a23*ya-a33*grid(3,igrid))
|
|
else
|
|
kcartz(zz)=expo*ax**i*ay**j*az**(k-1.d0)*(k+2.d0*za*
|
|
$(-x*a13-a33*z+a13*grid(1,igrid)+a23*ay+a33*grid(3,igrid)))
|
|
endif
|
|
enddo
|
|
enddo
|
|
enddo
|
|
enddo
|
|
C
|
|
C
|
|
C J-grid!!!!!!!!!!!!!!
|
|
cC General shell
|
|
c do jgrid=1,ngrid
|
|
c ax=grid(1,jgrid)+shift-x
|
|
c ay=grid(2,jgrid)-y
|
|
c az=grid(3,jgrid)-z
|
|
cC Loop over primitives
|
|
c ii2=(jgrid-1)*nicp
|
|
c do iprim=1,niprim
|
|
c alpha(1,1)=eexp(1,1,iprim,iang,iatoms)
|
|
c alpha(1,2)=eexp(1,2,iprim,iang,iatoms)
|
|
c alpha(1,3)=eexp(1,3,iprim,iang,iatoms)
|
|
c alpha(2,1)=eexp(2,1,iprim,iang,iatoms)
|
|
c alpha(2,2)=eexp(2,2,iprim,iang,iatoms)
|
|
c alpha(2,3)=eexp(2,3,iprim,iang,iatoms)
|
|
c alpha(3,1)=eexp(3,1,iprim,iang,iatoms)
|
|
c alpha(3,2)=eexp(3,2,iprim,iang,iatoms)
|
|
c alpha(3,3)=eexp(3,3,iprim,iang,iatoms)
|
|
cC vec=descartes oszlopvektor komponensek
|
|
c vec(1,1)=ax
|
|
c vec(2,1)=ay
|
|
c vec(3,1)=az
|
|
cC advec=descartes sorvektor komponensek
|
|
c advec(1,1)=ax
|
|
c advec(1,2)=ay
|
|
c advec(1,3)=az
|
|
cC fmat=sorvektor*alpha matrix eredmenymatrixa
|
|
c fmat=matmul(advec,alpha)
|
|
cC smat=eredmenymatrix*oszlopvektor skalarja
|
|
c smat=matmul(fmat,vec)
|
|
cC Loop over Cartesian functions
|
|
c do i=0,iang
|
|
c do j=0,iang-i
|
|
c k=iang-i-j
|
|
c ii2=ii2+1
|
|
c scart2(ii2)=ax**i*ay**j*az**k*dexp(-smat(1,1))
|
|
c enddo
|
|
c enddo
|
|
c enddo
|
|
c enddo
|
|
cC
|
|
C
|
|
C
|
|
C Spherical and primitive contraction
|
|
call dgemm('n','n',nispher*nicontr,ngrid,nicp,1.d0,
|
|
$trmat,nispher*nicontr,scart,nicp,0.d0,svec(ibasis,1),nbasis)
|
|
call dgemm('n','n',nispher*nicontr,ngrid,nicp,1.d0,
|
|
$trmat,nispher*nicontr,kcartx,nicp,0.d0,kvecx(ibasis,1),nbasis)
|
|
call dgemm('n','n',nispher*nicontr,ngrid,nicp,1.d0,
|
|
$trmat,nispher*nicontr,kcarty,nicp,0.d0,kvecy(ibasis,1),nbasis)
|
|
call dgemm('n','n',nispher*nicontr,ngrid,nicp,1.d0,
|
|
$trmat,nispher*nicontr,kcartz,nicp,0.d0,kvecz(ibasis,1),nbasis)
|
|
call dgemm('n','n',nispher*nicontr,ngrid,nicp,1.d0,
|
|
$trmat,nispher*nicontr,scart2,nicp,0.d0,svec2(ibasis,1),nbasis)
|
|
ibasis=ibasis+nispher*nicontr
|
|
enddo
|
|
enddo
|
|
C Calculate overlap matrix
|
|
rewind(oeintfile)
|
|
intn(1)=0
|
|
intn(2)=0
|
|
do i=1,nbasis
|
|
do j=1,i
|
|
ss=0.d0
|
|
do igrid=1,ngrid
|
|
ss=ss+weight(igrid)*svec(i,igrid)*svec(j,igrid)
|
|
enddo
|
|
C overlap egzakt felulirasa
|
|
if(dabs(ss).gt.itol) then
|
|
dcore(inta(1)+intn(1))=ss
|
|
i4core(2*(inta(1)+intn(1))+1)=i
|
|
i4core(2*(inta(1)+intn(1))+2)=j
|
|
intn(1)=intn(1)+2
|
|
endif
|
|
c if(i.ge.27.or.j.ge.27) then
|
|
c write(6,"(2i3,f16.12)") i,j,ss
|
|
c endif
|
|
enddo
|
|
enddo
|
|
write(oeintfile) intn(1)/2,(dcore(inta(1)+j),j=0,intn(1)-1)
|
|
C Calculate kinetic energy integrals
|
|
do i=1,nbasis
|
|
do j=1,i
|
|
kk=0.d0
|
|
do igrid=1,ngrid
|
|
kk=kk+weight(igrid)*(kvecx(i,igrid)*kvecx(j,igrid)+
|
|
$kvecy(i,igrid)*kvecy(j,igrid)+kvecz(i,igrid)*kvecz(j,igrid))*
|
|
$0.5d0
|
|
enddo
|
|
c if(i.ge.27.or.j.ge.27) then
|
|
c write(6,"(2i3,f15.6)") i,j,kk
|
|
c endif
|
|
enddo
|
|
enddo
|
|
C Calculate nuc.rep. energy integrals
|
|
do i=1,nbasis
|
|
do j=1,i
|
|
nn=0.d0
|
|
do igrid=1,ngrid
|
|
do iatoms=1,natoms
|
|
x=coord(1,iatoms)
|
|
y=coord(2,iatoms)
|
|
z=coord(3,iatoms)
|
|
ax=grid(1,igrid)-x
|
|
ay=grid(2,igrid)-y
|
|
az=grid(3,igrid)-z
|
|
ax2=ax*ax
|
|
ay2=ay*ay
|
|
az2=az*az
|
|
r2=(ax2+ay2+az2)
|
|
nn=nn-weight(igrid)*svec(i,igrid)*svec(j,igrid)*
|
|
$atnum(iatoms)/dsqrt(r2)
|
|
enddo
|
|
C kinetikus energiat is beleszummazza
|
|
nn=nn+weight(igrid)*(kvecx(i,igrid)*kvecx(j,igrid)+
|
|
$kvecy(i,igrid)*kvecy(j,igrid)+kvecz(i,igrid)*kvecz(j,igrid))*
|
|
$0.5d0
|
|
enddo
|
|
C kin+nuc.rep. egzakt felulirasa
|
|
if(dabs(nn).gt.itol) then
|
|
dcore(inta(2)+intn(2))=nn
|
|
i4core(2*(inta(2)+intn(2))+1)=i
|
|
i4core(2*(inta(2)+intn(2))+2)=j
|
|
intn(2)=intn(2)+2
|
|
endif
|
|
c if(i.ge.27.or.j.ge.27) then
|
|
c write(6,"(2i3,f16.12)") i,j,nn
|
|
c endif
|
|
enddo
|
|
enddo
|
|
write(oeintfile) intn(2)/2,(dcore(inta(2)+j),j=0,intn(2)-1)
|
|
********************* Calculate two-electron integrals ********************
|
|
c do i1=1,nbasis
|
|
c do i2=1,i1
|
|
c do jgrid=1,ngrid
|
|
c tt=0.d0
|
|
c do igrid=1,ngrid
|
|
c dx=grid(1,jgrid)-grid(1,igrid)
|
|
c dy=grid(2,jgrid)-grid(2,igrid)
|
|
c dz=grid(3,jgrid)-grid(3,igrid)
|
|
c rij=dsqrt((dx)**2.d0+(dy)**2.d0+(dz)**2.d0)
|
|
c if (rij.gt.1.d-8)
|
|
c $ tt=tt+weight(igrid)*
|
|
c $ svec(i1,igrid)*svec(i2,igrid)/rij
|
|
c enddo
|
|
c khi(jgrid)=tt*weight(jgrid)
|
|
c enddo
|
|
c do j1=1,nbasis
|
|
c do j2=1,j1
|
|
c tt=0.d0
|
|
c do jgrid=1,ngrid
|
|
c tt=tt+khi(jgrid)*svec2(j1,jgrid)*svec2(j2,jgrid)
|
|
c enddo
|
|
c if (tt.gt.1.d-7)
|
|
c $ write(6,"(4i3,f16.12)") i1,i2,j1,j2,tt
|
|
c enddo
|
|
c enddo
|
|
c enddo
|
|
c enddo
|
|
c
|
|
return
|
|
end
|
|
C
|
|
************************************************************************
|
|
subroutine dprimcalc_ellip(
|
|
$
|
|
$ niprim,njprim,nkprim,nlprim,
|
|
$ nispher,njspher,nkspher,nlspher,
|
|
$ nicart,njcart,nkcart,nlcart,
|
|
$ iatoms,jatoms,katoms,latoms,
|
|
$ iang,jang,kang,lang,
|
|
$ it1,it2,it3,it4,
|
|
$ ax,ay,az,bx,by,bz,cx,cy,cz,dx,dy,dz,
|
|
$ xab,yab,zab,
|
|
$ xcd,ycd,zcd,
|
|
$ njcontr,nkcontr,nlcontr,
|
|
$ it10,it12,it13,it14,it15,it16,
|
|
$ nmax,nmax1,nmax2,
|
|
$ ncdbra,ncdket,datoms,dero,
|
|
$ nprimmax,ncartmax,ncontrmax,nangmax,natoms,
|
|
$ ddi,ddj,ddk,ddl,dnmax,
|
|
$ nzipr,nzjpr,nzkpr,nzlpr,
|
|
$ reca,recb,recc,recd,
|
|
$ gcj,gck,gcl,
|
|
$ gcnj,gcnk,gcnl,
|
|
$ rqqb,rqqk,
|
|
$ gexp,ctostr,boysval,dcore,gc,cf,
|
|
$ sb2,sk2,norm1,
|
|
$ nm12,nmboys,ijkls,nzip,nzl,ncd,
|
|
$ abcdl,intalg,eexp
|
|
$ )
|
|
************************************************************************
|
|
C Calculation of primitive derivative hermite integrals
|
|
************************************************************************
|
|
implicit none
|
|
integer niprim,nzjp,njprim,jprim,it3,it1,nmax2,it10
|
|
integer jcontr,kcontr,lcontr,nli2,ijkls,it13
|
|
integer nkprim,il2,it2,nlcontr,kprim,katoms,it4,jpr,kpr,it14
|
|
integer nprimmax,nangmax,nm12,natoms,ncontrmax,it15
|
|
integer il,iu,ilo,iup,aa,nzkp,nzip,nmboys,ncartmax,datoms
|
|
integer iang,iprim,iatoms,jang,jatoms,nzlp,nlcart,ncd
|
|
integer lang,lprim,latoms,kang,nmax,lpr,nlprim,nmax1,njcart
|
|
integer nzipr(0:nprimmax),nzjpr(0:nprimmax),nzkpr(0:nprimmax)
|
|
integer nzlpr(0:nprimmax),njcontr,nkcontr,nlspher,nkspher
|
|
integer it12,njspher,nispher,it16,ncdbra,ncdket
|
|
integer ddi,ddj,ddk,ddl,dnmax,dero,ii,ider
|
|
integer nzl(nprimmax),nicart,nkcart
|
|
integer gcnj(2,ncontrmax) ! For the number of non-zero primitives of j
|
|
integer gcnk(2,ncontrmax) ! For the number of non-zero primitives of k
|
|
integer gcnl(2,ncontrmax) ! For the number of non-zero primitives of l
|
|
C
|
|
integer n,i,j,s,info,lwork ! n=n-ik sorfejtes, s=sorfejtesben szereplo tagok szama, i,j=matrixok sorai es oszlopai
|
|
parameter (s=51)
|
|
C
|
|
real*8 wab,wcd
|
|
real*8 rqqb(4*nangmax+1+dero,nprimmax,nprimmax)
|
|
real*8 rqqk(4*nangmax+1+dero,nprimmax,nprimmax)
|
|
real*8 ctostr(ncartmax**2,0:nangmax)
|
|
real*8 a,b,bxab,byab,bzab,xab,yab,zab,p,ap,bp,px,ax,ay,az
|
|
real*8 gexp(nprimmax,0:nangmax,natoms),gcj(nprimmax,ncontrmax)
|
|
real*8 gck(nprimmax,ncontrmax),gcl(nprimmax,ncontrmax)
|
|
real*8 bx,by,bz,xpa,ypa,zpa,py,pz,alq,norm2,norm1,norm3,ypq
|
|
real*8 c,d,q,cq,dq,qx,qy,qz,cx,cy,cz,dx,dy,dz,alp,zpq,xpq
|
|
real*8 arg,dcore(*),scr,normx,normy,normz,r2pq
|
|
real*8 gc(nprimmax),boysval,xcd,ycd,zcd,cf,sk2,sb2,psq,xqc,yqc,zqc
|
|
real*8 scl,qexp1
|
|
real*8 reca(4*nangmax,nprimmax),recb(4*nangmax,nprimmax)
|
|
real*8 recc(4*nangmax,nprimmax),recd(4*nangmax,nprimmax)
|
|
C
|
|
real*8 alphmat(3,3),betamat(3,3),gammmat(3,3),deltmat(3,3)
|
|
real*8 weightn(s),alphan(s),expmat(6,6),amat(6,6),omega(6,6)
|
|
real*8 w(6),work(10*6**2),detamat,invamat(6,6),scr2(6*(6+1)/2+2*6)
|
|
real*8 acord(3,1),bcord(3,1),ccord(3,1),dcord(3,1)
|
|
real*8 tacord(1,3),tbcord(1,3),tccord(1,3),tdcord(1,3)
|
|
real*8 fa(1,3),fb(1,3),fc(1,3),fd(1,3)
|
|
real*8 sa(1,1),sb(1,1),sc(1,1),sd(1,1),eadmc,rho,ssss,pi
|
|
real*8 jmat(6,1),adjmat(1,6),fj(1,6),sj(1,1),eadjaj
|
|
real*8 amat2(6,6),rescale,eexp(3,3,nprimmax,0:nangmax,natoms)
|
|
real*8 const
|
|
parameter(pi=3.14159265358979323846264338327950288419716939938d0)
|
|
C
|
|
character*4 intalg
|
|
logical abcdl,dcomp,feq4
|
|
C
|
|
data weightn/
|
|
$0.0000000050451803048178359086868815960338d0,
|
|
$0.0000000175512480547835357422373146715087d0,
|
|
$0.0000000460763944252665817625735166897026d0,
|
|
$0.0000001037673233129390509126324105063941d0,
|
|
$0.0000002121896595503141550289414030882330d0,
|
|
$0.0000004053046166065571428657350127782168d0,
|
|
$0.0000007353029062012610631508616740922152d0,
|
|
$0.0000012807454116574449052272768070701969d0,
|
|
$0.0000021578066668733483536132083039071070d0,
|
|
$0.0000035356532839120649470238062138339671d0,
|
|
$0.0000056572920050648003315207333799145579d0,
|
|
$0.0000088676057658497198673164071951343073d0,
|
|
$0.0000136507780937259894448131135944303569d0,
|
|
$0.0000206799111578314901206233487301997150d0,
|
|
$0.0000308823989434234475460869983671390385d0,
|
|
$0.0000455255568067325496204319545468560543d0,
|
|
$0.0000663281758931678536605198965659183075d0,
|
|
$0.0000956051142913331030126905597560545147d0,
|
|
$0.0001364538173663182369460442102380472174d0,
|
|
$0.0001929938489491189472106349555701604315d0,
|
|
$0.0002706731997835203593496707221788613595d0,
|
|
$0.0003766584239781328592074608239232899609d0,
|
|
$0.0005203296632578153014372063071574930904d0,
|
|
$0.0007139065054753700675378686553093632305d0,
|
|
$0.0009732365414307397313304724554335750630d0,
|
|
$0.0013187856740779511598793481263330873432d0,
|
|
$0.0017768779390556142448874581618242785019d0,
|
|
$0.0023812430773312128652263665491706223776d0,
|
|
$0.0031749427255755814296295572434630782865d0,
|
|
$0.0042127613294782127579431846818580620351d0,
|
|
$0.0055641661072436865518617374760240723575d0,
|
|
$0.0073169622572941922761491058760374706083d0,
|
|
$0.0095817957670440319647723530042948691943d0,
|
|
$0.0124976874187419557587022406891508197191d0,
|
|
$0.0162388188537725205707023656137577560798d0,
|
|
$0.0210228359800911130657135022364867538158d0,
|
|
$0.0271209880685295535467289364250920158383d0,
|
|
$0.0348704846639266616395479506107513145707d0,
|
|
$0.0446895308887809328001773905708615686194d0,
|
|
$0.0570956044073502307684868980336423405220d0,
|
|
$0.0727276919163623017714316934534402037116d0,
|
|
$0.0923734961731570815084927522642388453278d0,
|
|
$0.1170033334975339888136603751223052682917d0,
|
|
$0.1478144543347120862968914478674520296408d0,
|
|
$0.1862956697210908418909031461496716985948d0,
|
|
$0.2343415126224094653011389977059764078149d0,
|
|
$0.2945072929393096665894816871267281044311d0,
|
|
$0.3707050156944681631001389104929089057805d0,
|
|
$0.4704257426496352225721558210080885942261d0,
|
|
$0.6134284379944847375191671612348898179334d0,
|
|
$0.8855359052533989997315136410982461256935d0/
|
|
data alphan/
|
|
$0.0000000000000000028559903211931922418515d0,
|
|
$0.0000000000000001179792118413700494601965d0,
|
|
$0.0000000000000014052287038953572267521271d0,
|
|
$0.0000000000000102150176943398808826618024d0,
|
|
$0.0000000000000558258311133921862799009593d0,
|
|
$0.0000000000002520113269050802729839858961d0,
|
|
$0.0000000000009897044238313149546612761459d0,
|
|
$0.0000000000034915772846657043467192475455d0,
|
|
$0.0000000000113053889046264838991198588507d0,
|
|
$0.0000000000341103510556475126140650505929d0,
|
|
$0.0000000000969803780907197070607871387766d0,
|
|
$0.0000000002620494860089849339034357481860d0,
|
|
$0.0000000006774608525119497326895529337553d0,
|
|
$0.0000000016846356549358087819829799619392d0,
|
|
$0.0000000040470446605512923604879374171355d0,
|
|
$0.0000000094263412582804463604710742212256d0,
|
|
$0.0000000213516606982604444627528584843059d0,
|
|
$0.0000000471535679444385014592306990488582d0,
|
|
$0.0000001017521598767614515219587133351526d0,
|
|
$0.0000002149520286167652120663197378492503d0,
|
|
$0.0000004452716448364897612426100264502204d0,
|
|
$0.0000009057806898513037501099167183974298d0,
|
|
$0.0000018117199551281446369546668161642188d0,
|
|
$0.0000035671593636209099919490362971192837d0,
|
|
$0.0000069208282093448254808984008074518356d0,
|
|
$0.0000132432083883128842703866057148949422d0,
|
|
$0.0000250140741518045496437836275666261911d0,
|
|
$0.0000466717838710735026077369904794634597d0,
|
|
$0.0000860788164801249518347299183047404564d0,
|
|
$0.0001570281078637824059591956106702627383d0,
|
|
$0.0002834929420443670082061874820065008884d0,
|
|
$0.0005067750254721892456730854249150747259d0,
|
|
$0.0008974343749036539852475548827148710274d0,
|
|
$0.0015750531252149325577988691411863986236d0,
|
|
$0.0027407466300926769133345848022259572119d0,
|
|
$0.0047302824052432669571979632384961522718d0,
|
|
$0.0081003074628000800361241257908917479114d0,
|
|
$0.0137674497716026873869645669179462288412d0,
|
|
$0.0232313758323912501308042321060409740596d0,
|
|
$0.0389304263069324626819658462933970710651d0,
|
|
$0.0648055203919428521663957491749652461976d0,
|
|
$0.1071896642641441706308904485700495001765d0,
|
|
$0.1762044666040629465762670097239706024084d0,
|
|
$0.2879444114566413228913435706779466727312d0,
|
|
$0.4678880288239124341073595786388850115145d0,
|
|
$0.7562465696391534021808880638992889089423d0,
|
|
$1.2165015304766590061849237947022572825517d0,
|
|
$1.9497399159568810121179530114865485757036d0,
|
|
$3.1218040567418018889703223983644875261234d0,
|
|
$5.0288936612817780789051747003526315893396d0,
|
|
$8.3458046016526800988527545754891434626188d0/
|
|
C
|
|
c rewind(90)
|
|
c read(90,*) rescale
|
|
rescale=1d-7
|
|
C
|
|
nzip=0
|
|
nzipr(1)=niprim+1
|
|
do iprim=1,niprim
|
|
alphmat(1,1)=eexp(1,1,iprim,iang,iatoms)
|
|
alphmat(1,2)=eexp(1,2,iprim,iang,iatoms)
|
|
alphmat(1,3)=eexp(1,3,iprim,iang,iatoms)
|
|
alphmat(2,1)=eexp(2,1,iprim,iang,iatoms)
|
|
alphmat(2,2)=eexp(2,2,iprim,iang,iatoms)
|
|
alphmat(2,3)=eexp(2,3,iprim,iang,iatoms)
|
|
alphmat(3,1)=eexp(3,1,iprim,iang,iatoms)
|
|
alphmat(3,2)=eexp(3,2,iprim,iang,iatoms)
|
|
alphmat(3,3)=eexp(3,3,iprim,iang,iatoms)
|
|
a=gexp(iprim,iang,iatoms)
|
|
nzjp=0
|
|
nzjpr(1)=njprim+1
|
|
do jprim=1,njprim
|
|
betamat(1,1)=eexp(1,1,jprim,jang,jatoms)
|
|
betamat(1,2)=eexp(1,2,jprim,jang,jatoms)
|
|
betamat(1,3)=eexp(1,3,jprim,jang,jatoms)
|
|
betamat(2,1)=eexp(2,1,jprim,jang,jatoms)
|
|
betamat(2,2)=eexp(2,2,jprim,jang,jatoms)
|
|
betamat(2,3)=eexp(2,3,jprim,jang,jatoms)
|
|
betamat(3,1)=eexp(3,1,jprim,jang,jatoms)
|
|
betamat(3,2)=eexp(3,2,jprim,jang,jatoms)
|
|
betamat(3,3)=eexp(3,3,jprim,jang,jatoms)
|
|
b=gexp(jprim,jang,jatoms)
|
|
c if(.not.abcdl)then
|
|
bxab=b*xab
|
|
byab=b*yab
|
|
bzab=b*zab
|
|
c endif
|
|
p=a+b
|
|
ap=a/p
|
|
bp=b/p
|
|
wab=-b/a
|
|
px=(ap*ax+bp*bx)
|
|
py=(ap*ay+bp*by)
|
|
pz=(ap*az+bp*bz)
|
|
xpa=px-ax
|
|
ypa=py-ay
|
|
zpa=pz-az
|
|
norm2=norm1*dexp(-(ap*b)*sb2)/p
|
|
nzkp=0
|
|
nzkpr(1)=nkprim+1
|
|
do kprim=1,nkprim
|
|
gammmat(1,1)=eexp(1,1,kprim,kang,katoms)
|
|
gammmat(1,2)=eexp(1,2,kprim,kang,katoms)
|
|
gammmat(1,3)=eexp(1,3,kprim,kang,katoms)
|
|
gammmat(2,1)=eexp(2,1,kprim,kang,katoms)
|
|
gammmat(2,2)=eexp(2,2,kprim,kang,katoms)
|
|
gammmat(2,3)=eexp(2,3,kprim,kang,katoms)
|
|
gammmat(3,1)=eexp(3,1,kprim,kang,katoms)
|
|
gammmat(3,2)=eexp(3,2,kprim,kang,katoms)
|
|
gammmat(3,3)=eexp(3,3,kprim,kang,katoms)
|
|
il2=it2+nispher*njspher*nkspher*nlspher*nlcontr*(kprim-1)
|
|
c=gexp(kprim,kang,katoms)
|
|
nzlp=0
|
|
nzlpr(1)=nlprim+1
|
|
do lprim=1,nlprim
|
|
deltmat(1,1)=eexp(1,1,lprim,lang,latoms)
|
|
deltmat(1,2)=eexp(1,2,lprim,lang,latoms)
|
|
deltmat(1,3)=eexp(1,3,lprim,lang,latoms)
|
|
deltmat(2,1)=eexp(2,1,lprim,lang,latoms)
|
|
deltmat(2,2)=eexp(2,2,lprim,lang,latoms)
|
|
deltmat(2,3)=eexp(2,3,lprim,lang,latoms)
|
|
deltmat(3,1)=eexp(3,1,lprim,lang,latoms)
|
|
deltmat(3,2)=eexp(3,2,lprim,lang,latoms)
|
|
deltmat(3,3)=eexp(3,3,lprim,lang,latoms)
|
|
d=gexp(lprim,lang,latoms)
|
|
wcd=-d/c
|
|
q=c+d
|
|
psq=p+q
|
|
alp=p*q/psq
|
|
cq=c/q
|
|
dq=d/q
|
|
qx=(cq*cx+dq*dx)
|
|
qy=(cq*cy+dq*dy)
|
|
qz=(cq*cz+dq*dz)
|
|
xpq=px-qx
|
|
ypq=py-qy
|
|
zpq=pz-qz
|
|
xqc=qx-cx
|
|
yqc=qy-cy
|
|
zqc=qz-cz
|
|
normx=-(bxab+d*xcd)/q
|
|
normy=-(byab+d*ycd)/q
|
|
normz=-(bzab+d*zcd)/q
|
|
alq=p/(psq)
|
|
r2pq=1.d0/(4.d0*(p*q))
|
|
norm3=(norm2/(q*dsqrt(psq)))*dexp(-cq*d*sk2)
|
|
arg=(p*q/(psq))*(xpq**2+ypq**2+zpq**2)
|
|
********************************************************* ELLIPTIKUS GAUSS-FUGGVENY START
|
|
C
|
|
C expmat feltoltese
|
|
C
|
|
do i=1,6
|
|
do j=1,6
|
|
if (i.le.3.and.j.le.3) then
|
|
expmat(i,j)=alphmat(i,j)+betamat(i,j)
|
|
else if (i.gt.3.and.j.gt.3) then
|
|
expmat(i,j)=gammmat(i-3,j-3)+deltmat(i-3,j-3)
|
|
else
|
|
expmat(i,j)=0.d0
|
|
endif
|
|
enddo
|
|
enddo
|
|
C
|
|
C e^-c kiszamolasa
|
|
C
|
|
acord(1,1)=ax
|
|
acord(2,1)=ay
|
|
acord(3,1)=az
|
|
bcord(1,1)=bx
|
|
bcord(2,1)=by
|
|
bcord(3,1)=bz
|
|
ccord(1,1)=cx
|
|
ccord(2,1)=cy
|
|
ccord(3,1)=cz
|
|
dcord(1,1)=dx
|
|
dcord(2,1)=dy
|
|
dcord(3,1)=dz
|
|
do i=1,3
|
|
tacord(1,i)=acord(i,1)
|
|
tbcord(1,i)=bcord(i,1)
|
|
tccord(1,i)=ccord(i,1)
|
|
tdcord(1,i)=dcord(i,1)
|
|
enddo
|
|
fa=matmul(tacord,alphmat)
|
|
sa=matmul(fa,acord)
|
|
fb=matmul(tbcord,betamat)
|
|
sb=matmul(fb,bcord)
|
|
fc=matmul(tccord,gammmat)
|
|
sc=matmul(fc,ccord)
|
|
fd=matmul(tdcord,deltmat)
|
|
sd=matmul(fd,dcord)
|
|
const=-(sa(1,1)+sb(1,1)+sc(1,1)+sd(1,1))
|
|
c eadmc=qexp1(const)
|
|
C
|
|
C J matrix feltoltese
|
|
C
|
|
do i=1,6
|
|
if (i.le.3) then
|
|
jmat(i,1)=2.d0*(fa(1,i)+fb(1,i))
|
|
else
|
|
jmat(i,1)=2.d0*(fc(1,i-3)+fd(1,i-3))
|
|
endif
|
|
adjmat(1,i)=jmat(i,1)
|
|
enddo
|
|
C
|
|
C Loop az osszes tagra a sorfejtesben
|
|
C
|
|
info=0
|
|
lwork=10*6**2
|
|
ssss=0.d0
|
|
do n=1,s
|
|
C
|
|
C omega es A matrix feltoltese
|
|
C
|
|
do i=1,6
|
|
do j=1,6
|
|
if (i.eq.j) then
|
|
omega(i,j)=alphan(n)/rescale
|
|
elseif (abs(i-j).eq.3) then
|
|
omega(i,j)=-alphan(n)/rescale
|
|
else
|
|
omega(i,j)=0.d0
|
|
endif
|
|
amat(i,j)=expmat(i,j)+omega(i,j)
|
|
amat2(i,j)=amat(i,j)
|
|
enddo
|
|
enddo
|
|
C
|
|
C n-ik A matrix sajatertekeinek es determinansanak kiszamolasa
|
|
C
|
|
call dsyev('N','U',6,amat,6,w,work,lwork,info)
|
|
detamat=product(w)
|
|
C
|
|
C n-ik A matrix inverzenek szamolasa
|
|
C
|
|
call syminv(amat2,invamat,6,6,scr2)
|
|
C
|
|
C e^(JAJ/4) kiszamolasa
|
|
C
|
|
fj=matmul(adjmat,invamat)
|
|
sj=matmul(fj,jmat)
|
|
eadjaj=dexp(sj(1,1)/4.d0+const)
|
|
c if(sj(1,1)/4.d0+const.gt.700) write(*,*) "ERROR!"
|
|
C
|
|
C rho_n kiszamolasa
|
|
C
|
|
rho=dsqrt(pi**6.d0/detamat)*eadjaj
|
|
C
|
|
C SSSS eset:
|
|
C
|
|
ssss=ssss+rho*weightn(n)/dsqrt(rescale)
|
|
C
|
|
enddo ! Loop end az osszes tagra a sorfejtesben
|
|
C
|
|
************************************************************* ELLIPTIKUS GAUSS-FUGGVENY VEGE
|
|
C
|
|
nzlp=nzlp+1
|
|
c feq4=.false.
|
|
c if(dero.eq.1.and.iatoms.eq.jatoms)then
|
|
c if(katoms.eq.latoms.and.iang.eq.jang)then
|
|
c if(kang.eq.lang.and.iprim.eq.jprim)then
|
|
c if(kprim.eq.lprim.and.iprim.eq.kprim)then
|
|
c if(kang.eq.iang)then
|
|
c if(katoms.eq.iatoms)then
|
|
c feq4=.true.
|
|
c endif
|
|
c endif
|
|
c endif
|
|
c endif
|
|
c endif
|
|
c endif
|
|
|
|
nzlpr(nzlp)=lprim
|
|
ider=0
|
|
do ddi=0,dero ! Generate derivative partitions of order "dero"
|
|
do ddj=0,dero-ddi
|
|
do ddk=0,dero-ddi-ddj
|
|
ddl=dero-ddi-ddj-ddk
|
|
dcomp=.false.
|
|
c ncd=(ddi+1)*(ddi+2)* !Number of cartesian derivatives of < d ^ddi i d ^ddj j d ^ddk k d ^ddl l >
|
|
c $ (ddj+1)*(ddj+2)* ! dX^ddi dX^ddj dX^ddk dX^ddl
|
|
c $ (ddk+1)*(ddk+2)*
|
|
c $ (ddl+1)*(ddl+2)/16
|
|
if(ddi.gt.0.and.iatoms.eq.datoms)dcomp=.true.
|
|
if(ddj.gt.0.and.jatoms.eq.datoms)dcomp=.true.
|
|
if(ddk.gt.0.and.katoms.eq.datoms)dcomp=.true.
|
|
if(ddl.gt.0.and.latoms.eq.datoms)dcomp=.true.
|
|
dcomp=.true.
|
|
if(dcomp)then
|
|
ncdbra=(ddi+1)*(ddi+2)*(ddj+1)*(ddj+2)/4
|
|
ncdket=(ddk+1)*(ddk+2)*(ddl+1)*(ddl+2)/4
|
|
dnmax=nmax+ddi+ddj+ddk+ddl
|
|
scl=(2.d0*a)**(ddi)*
|
|
$ (2.d0*b)**(ddj)*
|
|
$ (2.d0*c)**(ddk)*
|
|
$ (2.d0*d)**(ddl)
|
|
alp=q/(psq)
|
|
call dboys(
|
|
C
|
|
$ arg, ! Argument, where the boys function is evaluated
|
|
$ 0,dnmax, ! n=nlo,nmax
|
|
$ boysval,cf, ! auxiliary arrays
|
|
$ nmboys, ! max ( N )
|
|
$ dcore(it1), ! destination array
|
|
$ norm3, ! scaling factor
|
|
$ p*q/psq, ! scaling factor for Hermite recursion
|
|
$ (nmax1+1+ddi+ddj)**3*(nmax2+ddk+ddl+1)**3 ! first dimension of "t"
|
|
C
|
|
$ )
|
|
C
|
|
C ssss integral felulirasa
|
|
C
|
|
c write(*,'(2f18.12,4i3)') dcore(it1),ssss,iprim,jprim,kprim,lprim
|
|
dcore(it1)=ssss
|
|
C
|
|
if(dnmax.ge.1)then
|
|
call dvrr2_ellip(
|
|
$ ijkls,dcore,it10,ncd,lprim,iang,jang,kang,lang,
|
|
$ ax,ay,az,bx,by,bz,cx,cy,cz,dx,dy,dz,rescale,
|
|
$ alphmat,betamat,gammmat,deltmat,expmat,acord,bcord,ccord,
|
|
$ dcord,tacord,tbcord,tccord,tdcord,fa,sa,fb,sb,fc,sc,fd,
|
|
$ sd,const,eadmc,jmat,adjmat,weightn,alphan)
|
|
ider=ider+1
|
|
else ! dnmax .ge. 1
|
|
dcore(it10+lprim-1)=scl*dcore(it1)
|
|
endif! dnmax .ge. 1
|
|
endif ! if dcomp
|
|
enddo ! ddk
|
|
enddo ! ddj
|
|
enddo ! ddi
|
|
enddo !lprim
|
|
**********************************************************************
|
|
C Contraction of the integrals into the contracted basis starts here
|
|
**********************************************************************
|
|
if(nzlp.gt.0) then
|
|
do lcontr=0,nlcontr-1
|
|
nli2=ijkls*ncd*lcontr+it2+ijkls*ncd*nlcontr*(kprim-1)
|
|
il=max(nzlpr(1),gcnl(1,lcontr+1))
|
|
iu=min(nzlpr(nzlp),gcnl(2,lcontr+1))
|
|
ilo=1
|
|
do while(nzlpr(ilo).lt.il)
|
|
ilo=ilo+1
|
|
enddo
|
|
iup=nzlp
|
|
do while(nzlpr(iup).gt.iu)
|
|
iup=iup-1
|
|
enddo
|
|
do lpr=ilo,iup
|
|
lprim=nzlpr(lpr)
|
|
gc(lpr)=gcl(lprim,lcontr+1)
|
|
nzl(lpr)=ijkls*ncd*lprim+it10-ijkls*ncd
|
|
enddo
|
|
do aa=0,ijkls*ncd-1
|
|
scr=0.d0
|
|
do lpr=ilo,iup
|
|
scr=scr+gc(lpr)*dcore(aa+nzl(lpr))
|
|
enddo
|
|
dcore(nli2+aa)=scr
|
|
enddo
|
|
enddo
|
|
nzkp=nzkp+1
|
|
nzkpr(nzkp)=kprim
|
|
endif
|
|
enddo !kprim
|
|
C Multiply with contrcation coefficients for k
|
|
C it2(ijkls*ncd,lcontr,kprim) -> it3(ijkls*ncd,lcontr,kcontr,jprim)
|
|
if(nzkp.gt.0) then
|
|
do kcontr=0,nkcontr-1
|
|
il=max(nzkpr(1),gcnk(1,kcontr+1))
|
|
iu=min(nzkpr(nzkp),gcnk(2,kcontr+1))
|
|
ilo=1
|
|
do while(nzkpr(ilo).lt.il)
|
|
ilo=ilo+1
|
|
enddo
|
|
iup=nzkp
|
|
do while(nzkpr(iup).gt.iu)
|
|
iup=iup-1
|
|
enddo
|
|
do kpr=ilo,iup
|
|
kprim=nzkpr(kpr)
|
|
gc(kpr)=gck(kprim,kcontr+1)
|
|
nzl(kpr)=it2+ijkls*ncd*nlcontr*(kprim-1)
|
|
enddo
|
|
do aa=0,ijkls*ncd*nlcontr-1
|
|
scr=0.d0
|
|
do kpr=ilo,iup
|
|
scr=scr+gc(kpr)*dcore(nzl(kpr)+aa)
|
|
enddo
|
|
dcore(ijkls*ncd*nlcontr*nkcontr*(jprim-1)+
|
|
$it3+ijkls*ncd*nlcontr*kcontr+aa)=scr
|
|
enddo
|
|
enddo
|
|
nzjp=nzjp+1
|
|
nzjpr(nzjp)=jprim
|
|
endif
|
|
enddo !jprim
|
|
C Multiply with contrcation coefficients for j
|
|
C it3(ijkls*ncd,lcontr,kcontr,jprim) ->it4(ijkls*ncd,lcontr,kcontr,jcontr,iprim)
|
|
if(nzjp.gt.0) then
|
|
do jcontr=0,njcontr-1
|
|
il=max(nzjpr(1),gcnj(1,jcontr+1))
|
|
iu=min(nzjpr(nzjp),gcnj(2,jcontr+1))
|
|
ilo=1
|
|
do while(nzjpr(ilo).lt.il)
|
|
ilo=ilo+1
|
|
enddo
|
|
iup=nzjp
|
|
do while(nzjpr(iup).gt.iu)
|
|
iup=iup-1
|
|
enddo
|
|
do jpr=ilo,iup
|
|
jprim=nzjpr(jpr)
|
|
gc(jpr)=gcj(jprim,jcontr+1)
|
|
nzl(jpr)=it3+ijkls*ncd*nlcontr*nkcontr*(jprim-1)
|
|
enddo
|
|
do aa=0,ijkls*ncd*nlcontr*nkcontr-1
|
|
scr=0.d0
|
|
do jpr=ilo,iup
|
|
scr=scr+gc(jpr)*dcore(aa+nzl(jpr))
|
|
|
|
enddo
|
|
dcore(it4+ijkls*ncd*nlcontr*nkcontr*njcontr*(iprim-1)+
|
|
$ ijkls*ncd*nlcontr*nkcontr*jcontr+aa)=scr
|
|
enddo
|
|
enddo
|
|
nzip=nzip+1
|
|
nzipr(nzip)=iprim
|
|
endif
|
|
enddo !iprim
|
|
end
|
|
************************************************************************
|
|
subroutine dvrr2_ellip(
|
|
$ijkls,dcore,it10,ncd,lprim,iang,jang,kang,lang,
|
|
$ax,ay,az,bx,by,bz,cx,cy,cz,dx,dy,dz,rescale,
|
|
$alphmat,betamat,gammmat,deltmat,expmat,acord,bcord,ccord,dcord,
|
|
$tacord,tbcord,tccord,tdcord,fa,sa,fb,sb,fc,sc,fd,sd,const,eadmc,
|
|
$jmat,adjmat,weightn,alphan)
|
|
************************************************************************
|
|
C Vertical recurrence relation for the two electron integral calc.
|
|
************************************************************************
|
|
implicit none
|
|
integer ijkls,lprim,ncd,it10,iang,jang,kang,lang
|
|
integer n,j,s,info,lwork,i ! n=n-ik sorfejtes, s=sorfejtesben szereplo tagok szama, i,j=matrixok sorai es oszlopai
|
|
parameter (s=51)
|
|
C
|
|
real*8 alphmat(3,3),betamat(3,3),gammmat(3,3),deltmat(3,3)
|
|
real*8 weightn(s),alphan(s),expmat(6,6),amat(6,6),omega(6,6)
|
|
real*8 w(6),work(10*6**2),detamat,invamat(6,6),scr2(6*(6+1)/2+2*6)
|
|
real*8 acord(3,1),bcord(3,1),ccord(3,1),dcord(3,1)
|
|
real*8 tacord(1,3),tbcord(1,3),tccord(1,3),tdcord(1,3)
|
|
real*8 fa(1,3),fb(1,3),fc(1,3),fd(1,3)
|
|
real*8 sa(1,1),sb(1,1),sc(1,1),sd(1,1),const,eadmc,rho,ssss,pi
|
|
real*8 jmat(6,1),adjmat(1,6),fj(1,6),sj(1,1),eadjaj
|
|
real*8 amat2(6,6),rescale
|
|
real*8 J1,J2,J3,J4,J5,J6
|
|
real*8 a11,a12,a13,a22,a33,a23
|
|
real*8 b11,b12,b13,b22,b33,b23
|
|
real*8 c11,c12,c13,c22,c33,c23
|
|
real*8 d11,d12,d13,d22,d33,d23
|
|
real*8 a0,b0,c0,d0,e0,f0,g0,h0,i0,j0,k0,l0,m0,n0,o0,p0,q0,r0,s0
|
|
real*8 t0,u0
|
|
real*8 ax,ay,az,bx,by,bz,cx,cy,cz,dx,dy,dz
|
|
real*8 psss1,psss2,psss3
|
|
real*8 ppss1,ppss2,ppss3,ppss4,ppss5,ppss6,ppss7,ppss8,ppss9
|
|
real*8 psps1,psps2,psps3,psps4,psps5,psps6,psps7,psps8,psps9
|
|
real*8 ppps1,ppps2,ppps3,ppps4,ppps5,ppps6,ppps7,ppps8,ppps9
|
|
real*8 ppps10,ppps11,ppps12,ppps13,ppps14,ppps15,ppps16,ppps17
|
|
real*8 ppps18,ppps19,ppps20,ppps21,ppps22,ppps23,ppps24,ppps25
|
|
real*8 ppps26,ppps27
|
|
real*8 pppp1,pppp16,pppp31,pppp46,pppp61,pppp76
|
|
real*8 pppp2,pppp17,pppp32,pppp47,pppp62,pppp77
|
|
real*8 pppp3,pppp18,pppp33,pppp48,pppp63,pppp78
|
|
real*8 pppp4,pppp19,pppp34,pppp49,pppp64,pppp79
|
|
real*8 pppp5,pppp20,pppp35,pppp50,pppp65,pppp80
|
|
real*8 pppp6,pppp21,pppp36,pppp51,pppp66,pppp81
|
|
real*8 pppp7,pppp22,pppp37,pppp52,pppp67
|
|
real*8 pppp8,pppp23,pppp38,pppp53,pppp68
|
|
real*8 pppp9,pppp24,pppp39,pppp54,pppp69
|
|
real*8 pppp10,pppp25,pppp40,pppp55,pppp70
|
|
real*8 pppp11,pppp26,pppp41,pppp56,pppp71
|
|
real*8 pppp12,pppp27,pppp42,pppp57,pppp72
|
|
real*8 pppp13,pppp28,pppp43,pppp58,pppp73
|
|
real*8 pppp14,pppp29,pppp44,pppp59,pppp74
|
|
real*8 pppp15,pppp30,pppp45,pppp60,pppp75,uvec(6,1),dcore(*)
|
|
real*8 K1,K2,K3,K4,K5,K6,z1,y1,x1,z2,y2,x2,qexp1
|
|
C
|
|
parameter(pi=3.14159265358979323846264338327950288419716939938d0)
|
|
C
|
|
c rewind(90)
|
|
c read(90,*) rescale
|
|
C
|
|
J1=jmat(1,1)
|
|
J2=jmat(2,1)
|
|
J3=jmat(3,1)
|
|
J4=jmat(4,1)
|
|
J5=jmat(5,1)
|
|
J6=jmat(6,1)
|
|
a11=alphmat(1,1)
|
|
a22=alphmat(2,2)
|
|
a33=alphmat(3,3)
|
|
a12=alphmat(1,2)
|
|
a13=alphmat(1,3)
|
|
a23=alphmat(2,3)
|
|
b11=betamat(1,1)
|
|
b22=betamat(2,2)
|
|
b33=betamat(3,3)
|
|
b12=betamat(1,2)
|
|
b13=betamat(1,3)
|
|
b23=betamat(2,3)
|
|
c11=gammmat(1,1)
|
|
c22=gammmat(2,2)
|
|
c33=gammmat(3,3)
|
|
c12=gammmat(1,2)
|
|
c13=gammmat(1,3)
|
|
c23=gammmat(2,3)
|
|
d11=deltmat(1,1)
|
|
d22=deltmat(2,2)
|
|
d33=deltmat(3,3)
|
|
d12=deltmat(1,2)
|
|
d13=deltmat(1,3)
|
|
d23=deltmat(2,3)
|
|
C
|
|
C Loop az osszes tagra a sorfejtesben
|
|
C
|
|
info=0
|
|
lwork=10*6**2
|
|
ssss=0.d0
|
|
psss1=0.d0
|
|
psss2=0.d0
|
|
psss3=0.d0
|
|
ppss1=0.d0
|
|
ppss2=0.d0
|
|
ppss3=0.d0
|
|
ppss4=0.d0
|
|
ppss5=0.d0
|
|
ppss6=0.d0
|
|
ppss7=0.d0
|
|
ppss8=0.d0
|
|
ppss9=0.d0
|
|
psps1=0.d0
|
|
psps2=0.d0
|
|
psps3=0.d0
|
|
psps4=0.d0
|
|
psps5=0.d0
|
|
psps6=0.d0
|
|
psps7=0.d0
|
|
psps8=0.d0
|
|
psps9=0.d0
|
|
ppps1=0.d0
|
|
ppps2=0.d0
|
|
ppps3=0.d0
|
|
ppps4=0.d0
|
|
ppps5=0.d0
|
|
ppps6=0.d0
|
|
ppps7=0.d0
|
|
ppps8=0.d0
|
|
ppps9=0.d0
|
|
ppps10=0.d0
|
|
ppps11=0.d0
|
|
ppps12=0.d0
|
|
ppps13=0.d0
|
|
ppps14=0.d0
|
|
ppps15=0.d0
|
|
ppps16=0.d0
|
|
ppps17=0.d0
|
|
ppps18=0.d0
|
|
ppps19=0.d0
|
|
ppps20=0.d0
|
|
ppps21=0.d0
|
|
ppps22=0.d0
|
|
ppps23=0.d0
|
|
ppps24=0.d0
|
|
ppps25=0.d0
|
|
ppps26=0.d0
|
|
ppps27=0.d0
|
|
pppp1=0.d0
|
|
pppp2=0.d0
|
|
pppp3=0.d0
|
|
pppp4=0.d0
|
|
pppp5=0.d0
|
|
pppp6=0.d0
|
|
pppp7=0.d0
|
|
pppp8=0.d0
|
|
pppp9=0.d0
|
|
pppp10=0.d0
|
|
pppp11=0.d0
|
|
pppp12=0.d0
|
|
pppp13=0.d0
|
|
pppp14=0.d0
|
|
pppp15=0.d0
|
|
pppp16=0.d0
|
|
pppp17=0.d0
|
|
pppp18=0.d0
|
|
pppp19=0.d0
|
|
pppp20=0.d0
|
|
pppp21=0.d0
|
|
pppp22=0.d0
|
|
pppp23=0.d0
|
|
pppp24=0.d0
|
|
pppp25=0.d0
|
|
pppp26=0.d0
|
|
pppp27=0.d0
|
|
pppp28=0.d0
|
|
pppp29=0.d0
|
|
pppp30=0.d0
|
|
pppp31=0.d0
|
|
pppp32=0.d0
|
|
pppp33=0.d0
|
|
pppp34=0.d0
|
|
pppp35=0.d0
|
|
pppp36=0.d0
|
|
pppp37=0.d0
|
|
pppp38=0.d0
|
|
pppp39=0.d0
|
|
pppp40=0.d0
|
|
pppp41=0.d0
|
|
pppp42=0.d0
|
|
pppp43=0.d0
|
|
pppp44=0.d0
|
|
pppp45=0.d0
|
|
pppp46=0.d0
|
|
pppp47=0.d0
|
|
pppp48=0.d0
|
|
pppp49=0.d0
|
|
pppp50=0.d0
|
|
pppp51=0.d0
|
|
pppp52=0.d0
|
|
pppp53=0.d0
|
|
pppp54=0.d0
|
|
pppp55=0.d0
|
|
pppp56=0.d0
|
|
pppp57=0.d0
|
|
pppp58=0.d0
|
|
pppp59=0.d0
|
|
pppp60=0.d0
|
|
pppp61=0.d0
|
|
pppp62=0.d0
|
|
pppp63=0.d0
|
|
pppp64=0.d0
|
|
pppp65=0.d0
|
|
pppp66=0.d0
|
|
pppp67=0.d0
|
|
pppp68=0.d0
|
|
pppp69=0.d0
|
|
pppp70=0.d0
|
|
pppp71=0.d0
|
|
pppp72=0.d0
|
|
pppp73=0.d0
|
|
pppp74=0.d0
|
|
pppp75=0.d0
|
|
pppp76=0.d0
|
|
pppp77=0.d0
|
|
pppp78=0.d0
|
|
pppp79=0.d0
|
|
pppp80=0.d0
|
|
pppp81=0.d0
|
|
do n=1,s
|
|
C
|
|
C omega es A matrix feltoltese
|
|
C
|
|
do i=1,6
|
|
do j=1,6
|
|
if (i.eq.j) then
|
|
omega(i,j)=alphan(n)/rescale
|
|
elseif (abs(i-j).eq.3) then
|
|
omega(i,j)=-alphan(n)/rescale
|
|
else
|
|
omega(i,j)=0.d0
|
|
endif
|
|
amat(i,j)=expmat(i,j)+omega(i,j)
|
|
amat2(i,j)=amat(i,j)
|
|
enddo
|
|
enddo ! Loop end a matrixokra
|
|
C
|
|
C n-ik A matrix sajatertekeinek es determinansanak kiszamolasa
|
|
C
|
|
call dsyev('N','U',6,amat,6,w,work,lwork,info)
|
|
detamat=product(w)
|
|
C
|
|
C n-ik A matrix inverzenek szamolasa
|
|
C
|
|
call syminv(amat2,invamat,6,6,scr2)
|
|
C
|
|
C e^(JAJ/4) kiszamolasa
|
|
C
|
|
a0=invamat(1,1)
|
|
b0=invamat(2,2)
|
|
c0=invamat(3,3)
|
|
d0=invamat(4,4)
|
|
e0=invamat(5,5)
|
|
f0=invamat(6,6)
|
|
g0=invamat(1,2)
|
|
h0=invamat(1,3)
|
|
i0=invamat(1,4)
|
|
j0=invamat(1,5)
|
|
k0=invamat(1,6)
|
|
l0=invamat(2,3)
|
|
m0=invamat(2,4)
|
|
n0=invamat(2,5)
|
|
o0=invamat(2,6)
|
|
p0=invamat(3,4)
|
|
q0=invamat(3,5)
|
|
r0=invamat(3,6)
|
|
s0=invamat(4,5)
|
|
t0=invamat(4,6)
|
|
u0=invamat(5,6)
|
|
C
|
|
K3=h0*J1+c0*J3+J2*l0+J4*p0+J5*q0+J6*r0
|
|
K2=g0*J1+b0*J2+J3*l0+J4*m0+J5*n0+J6*o0
|
|
K1=a0*J1+g0*J2+h0*J3+i0*J4+j0*J5+J6*k0
|
|
K6=f0*J6+J1*k0+J2*o0+J3*r0+J4*t0+J5*u0
|
|
K5=j0*J1+e0*J5+J2*n0+J3*q0+J4*s0+J6*u0
|
|
K4=i0*J1+d0*J4+J2*m0+J3*p0+J5*s0+J6*t0
|
|
z1=K3/2.d0
|
|
y1=K2/2.d0
|
|
x1=K1/2.d0
|
|
z2=K6/2.d0
|
|
y2=K5/2.d0
|
|
x2=K4/2.d0
|
|
C
|
|
fj=matmul(adjmat,invamat)
|
|
sj=matmul(fj,jmat)
|
|
eadjaj=dexp(sj(1,1)/4.d0+const)
|
|
uvec=matmul(invamat/2.d0,jmat)
|
|
c if(sj(1,1)/4.d0+const.gt.700) write(*,*) "ERROR!"
|
|
C
|
|
C rho_n kiszamolasa
|
|
C
|
|
rho=dsqrt(pi**6.d0/detamat)*eadjaj
|
|
C
|
|
C SSSS eset:
|
|
C
|
|
c ssss=ssss+rho*weightn(n)/dsqrt(rescale)
|
|
C
|
|
C derivaltak
|
|
C
|
|
C PSSS eset:
|
|
C
|
|
c wikipedia keplet:
|
|
C
|
|
c psss1=psss1+((uvec(3,1)-az)*rho)/dsqrt(rescale)*weightn(n)
|
|
C
|
|
c psss2=psss2+((uvec(2,1)-ay)*rho)/dsqrt(rescale)*weightn(n)
|
|
C
|
|
c psss3=psss3+((uvec(1,1)-ax)*rho)/dsqrt(rescale)*weightn(n)
|
|
C
|
|
C dJ derivaltak:
|
|
C
|
|
psss1=psss1+(z1-az)*rho*weightn(n)/dsqrt(rescale)
|
|
|
|
psss2=psss2+(y1-ay)*rho*weightn(n)/dsqrt(rescale)
|
|
|
|
psss3=psss3+(x1-ax)*rho*weightn(n)/dsqrt(rescale)
|
|
C
|
|
C PPSS eset:
|
|
C
|
|
ppss1=ppss1+((z1-az)*(z1-bz)+c0/2.d0)*rho
|
|
$*weightn(n)/dsqrt(rescale)
|
|
|
|
ppss2=ppss2+((z1-az)*(y1-by)+l0/2.d0)*rho
|
|
$*weightn(n)/dsqrt(rescale)
|
|
|
|
ppss3=ppss3+((z1-az)*(x1-bx)+h0/2.d0)*rho
|
|
$*weightn(n)/dsqrt(rescale)
|
|
|
|
ppss4=ppss4+((y1-ay)*(z1-bz)+l0/2.d0)*rho
|
|
$*weightn(n)/dsqrt(rescale)
|
|
|
|
ppss5=ppss5+((y1-ay)*(y1-by)+b0/2.d0)*rho
|
|
$*weightn(n)/dsqrt(rescale)
|
|
|
|
ppss6=ppss6+((y1-ay)*(x1-bx)+g0/2.d0)*rho
|
|
$*weightn(n)/dsqrt(rescale)
|
|
|
|
ppss7=ppss7+((x1-ax)*(z1-bz)+h0/2.d0)*rho
|
|
$*weightn(n)/dsqrt(rescale)
|
|
|
|
ppss8=ppss8+((x1-ax)*(y1-by)+g0/2.d0)*rho
|
|
$*weightn(n)/dsqrt(rescale)
|
|
|
|
ppss9=ppss9+((x1-ax)*(x1-bx)+a0/2.d0)*rho
|
|
$*weightn(n)/dsqrt(rescale)
|
|
C
|
|
C PSPS eset:
|
|
C
|
|
psps1=psps1+((z1-az)*(z2-cz)+r0/2.d0)*rho
|
|
$*weightn(n)/dsqrt(rescale)
|
|
|
|
psps2=psps2+((z1-az)*(y2-cy)+q0/2.d0)*rho
|
|
$*weightn(n)/dsqrt(rescale)
|
|
|
|
psps3=psps3+((z1-az)*(x2-cx)+p0/2.d0)*rho
|
|
$*weightn(n)/dsqrt(rescale)
|
|
|
|
psps4=psps4+((y1-ay)*(z2-cz)+o0/2.d0)*rho
|
|
$*weightn(n)/dsqrt(rescale)
|
|
|
|
psps5=psps5+((y1-ay)*(y2-cy)+n0/2.d0)*rho
|
|
$*weightn(n)/dsqrt(rescale)
|
|
|
|
psps6=psps6+((y1-ay)*(x2-cx)+m0/2.d0)*rho
|
|
$*weightn(n)/dsqrt(rescale)
|
|
|
|
psps7=psps7+((x1-ax)*(z2-cz)+k0/2.d0)*rho
|
|
$*weightn(n)/dsqrt(rescale)
|
|
|
|
psps8=psps8+((x1-ax)*(y2-cy)+j0/2.d0)*rho
|
|
$*weightn(n)/dsqrt(rescale)
|
|
|
|
psps9=psps9+((x1-ax)*(x2-cx)+i0/2.d0)*rho
|
|
$*weightn(n)/dsqrt(rescale)
|
|
C
|
|
C PPPS eset:
|
|
C
|
|
ppps1=ppps1+ ((rho*(-8.d0*az*bz*cz
|
|
$ + 4.d0*az*cz*(K3) + 4.d0*bz*cz*(K3) +
|
|
$ 4.d0*r0*(K3) - 2.d0*cz*(2.d0*c0 + (K3)**2) +
|
|
$ 4.d0*az*bz*(K6) + 2.d0*c0*(K6) + (K3)**2*(K6) -
|
|
$ 2.d0*az*(2.d0*r0 + (K3)*(K6)) - 2.d0*bz*(2.d0*r0 +
|
|
$ (K3)*(K6))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps2=ppps2+ ((rho*(-8.d0*az*bz*cy
|
|
$ + 4.d0*az*cy*(K3) + 4.d0*bz*cy*(K3) +
|
|
$ 4.d0*q0*(K3) - 2.d0*cy*(2.d0*c0 + (K3)**2) +
|
|
$ 4.d0*az*bz*(K5) + 2.d0*c0*(K5) + (K3)**2*(K5) -
|
|
$ 2.d0*az*(2.d0*q0 + (K3)*(K5)) - 2.d0*bz*(2.d0*q0 +
|
|
$ (K3)*(K5))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps3=ppps3+ ((rho*(-8.d0*az*bz*cx
|
|
$ + 4.d0*az*cx*(K3) + 4.d0*bz*cx*(K3) +
|
|
$ 4.d0*p0*(K3) - 2.d0*cx*(2.d0*c0 + (K3)**2) +
|
|
$ 4.d0*az*bz*(K4) + 2.d0*c0*(K4) + (K3)**2*(K4) -
|
|
$ 2.d0*az*(2.d0*p0 + (K3)*(K4)) - 2.d0*bz*(2.d0*p0 +
|
|
$ (K3)*(K4))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps4=ppps4+ ((rho*(-8.d0*az*by*cz +
|
|
$ 4.d0*az*cz*(K2) + 2.d0*(K2)*r0 + 4.d0*by*cz*(K3)
|
|
$ + 2.d0*o0*(K3) - 2.d0*cz*(2.d0*l0 + (K2)*(K3)) +
|
|
$ 4.d0*az*by*(K6) + 2.d0*l0*(K6) + (K2)*(K3)*(K6) -
|
|
$ 2.d0*az*(2.d0*o0 + (K2)*(K6)) - 2.d0*by*(2.d0*r0 +
|
|
$ (K3)*(K6))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps5=ppps5+ ((rho*(-8.d0*az*by*cy +
|
|
$ 4.d0*az*cy*(K2) + 2.d0*(K2)*q0 + 4.d0*by*cy*(K3)
|
|
$ + 2.d0*n0*(K3) - 2.d0*cy*(2.d0*l0 + (K2)*(K3)) +
|
|
$ 4.d0*az*by*(K5) + 2.d0*l0*(K5) + (K2)*(K3)*(K5) -
|
|
$ 2.d0*az*(2.d0*n0 + (K2)*(K5)) - 2.d0*by*(2.d0*q0 +
|
|
$ (K3)*(K5))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps6=ppps6+ ((rho*(-8.d0*az*by*cx +
|
|
$ 4.d0*az*cx*(K2) + 2.d0*(K2)*p0 + 4.d0*by*cx*(K3)
|
|
$ + 2.d0*m0*(K3) - 2.d0*cx*(2.d0*l0 + (K2)*(K3)) +
|
|
$ 4.d0*az*by*(K4) + 2.d0*l0*(K4) + (K2)*(K3)*(K4) -
|
|
$ 2.d0*az*(2.d0*m0 + (K2)*(K4)) - 2.d0*by*(2.d0*p0 +
|
|
$ (K3)*(K4))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps7=ppps7+ ((rho*(-8.d0*az*bx*cz +
|
|
$ 4.d0*az*cz*(K1) + 2.d0*(K1)*r0 + 4.d0*bx*cz*(K3)
|
|
$ + 2.d0*k0*(K3) - 2.d0*cz*(2.d0*h0 + (K1)*(K3)) +
|
|
$ 4.d0*az*bx*(K6) + 2.d0*h0*(K6) + (K1)*(K3)*(K6) -
|
|
$ 2.d0*az*(2.d0*k0 + (K1)*(K6)) - 2.d0*bx*(2.d0*r0 +
|
|
$ (K3)*(K6))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps8=ppps8+ ((rho*(-8.d0*az*bx*cy +
|
|
$ 4.d0*az*cy*(K1) + 2.d0*(K1)*q0 + 4.d0*bx*cy*(K3)
|
|
$ + 2.d0*j0*(K3) - 2.d0*cy*(2.d0*h0 + (K1)*(K3)) +
|
|
$ 4.d0*az*bx*(K5) + 2.d0*h0*(K5) + (K1)*(K3)*(K5) -
|
|
$ 2.d0*az*(2.d0*j0 + (K1)*(K5)) - 2.d0*bx*(2.d0*q0 +
|
|
$ (K3)*(K5))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps9=ppps9+ ((rho*(-8.d0*az*bx*cx +
|
|
$ 4.d0*az*cx*(K1) + 2.d0*(K1)*p0 + 4.d0*bx*cx*(K3)
|
|
$ + 2.d0*i0*(K3) - 2.d0*cx*(2.d0*h0 + (K1)*(K3)) +
|
|
$ 4.d0*az*bx*(K4) + 2.d0*h0*(K4) + (K1)*(K3)*(K4) -
|
|
$ 2.d0*az*(2.d0*i0 + (K1)*(K4)) - 2.d0*bx*(2.d0*p0 +
|
|
$ (K3)*(K4))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps10=ppps10+ ((rho*(-8.d0*ay*bz*cz +
|
|
$ 4.d0*bz*cz*(K2) + 2.d0*(K2)*r0 + 4.d0*ay*cz*(K3)
|
|
$ + 2.d0*o0*(K3) - 2.d0*cz*(2.d0*l0 + (K2)*(K3)) +
|
|
$ 4.d0*ay*bz*(K6) + 2.d0*l0*(K6) + (K2)*(K3)*(K6) -
|
|
$ 2.d0*bz*(2.d0*o0 + (K2)*(K6)) - 2.d0*ay*(2.d0*r0 +
|
|
$ (K3)*(K6))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps11=ppps11+ ((rho*(-8.d0*ay*bz*cy +
|
|
$ 4.d0*bz*cy*(K2) + 2.d0*(K2)*q0 + 4.d0*ay*cy*(K3)
|
|
$ + 2.d0*n0*(K3) - 2.d0*cy*(2.d0*l0 + (K2)*(K3)) +
|
|
$ 4.d0*ay*bz*(K5) + 2.d0*l0*(K5) + (K2)*(K3)*(K5) -
|
|
$ 2.d0*bz*(2.d0*n0 + (K2)*(K5)) - 2.d0*ay*(2.d0*q0 +
|
|
$ (K3)*(K5))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps12=ppps12+ ((rho*(-8.d0*ay*bz*cx +
|
|
$ 4.d0*bz*cx*(K2) + 2.d0*(K2)*p0 + 4.d0*ay*cx*(K3)
|
|
$ + 2.d0*m0*(K3) - 2.d0*cx*(2.d0*l0 + (K2)*(K3)) +
|
|
$ 4.d0*ay*bz*(K4) + 2.d0*l0*(K4) + (K2)*(K3)*(K4) -
|
|
$ 2.d0*bz*(2.d0*m0 + (K2)*(K4)) - 2.d0*ay*(2.d0*p0 +
|
|
$ (K3)*(K4))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps13=ppps13+ ((rho*(-8.d0*ay*by*cz
|
|
$ + 4.d0*ay*cz*(K2) + 4.d0*by*cz*(K2) +
|
|
$ 4.d0*o0*(K2) - 2.d0*cz*(2.d0*b0 + (K2)**2) +
|
|
$ 2.d0*b0*(K6) + 4.d0*ay*by*(K6) + (K2)**2*(K6) -
|
|
$ 2.d0*ay*(2.d0*o0 + (K2)*(K6)) - 2.d0*by*(2.d0*o0 +
|
|
$ (K2)*(K6))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps14=ppps14+ ((rho*(-8.d0*ay*by*cy
|
|
$ + 4.d0*ay*cy*(K2) + 4.d0*by*cy*(K2) +
|
|
$ 4.d0*n0*(K2) - 2.d0*cy*(2.d0*b0 + (K2)**2) +
|
|
$ 2.d0*b0*(K5) + 4.d0*ay*by*(K5) + (K2)**2*(K5) -
|
|
$ 2.d0*ay*(2.d0*n0 + (K2)*(K5)) - 2.d0*by*(2.d0*n0 +
|
|
$ (K2)*(K5))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps15=ppps15+ ((rho*(-8.d0*ay*by*cx
|
|
$ + 4.d0*ay*cx*(K2) + 4.d0*by*cx*(K2) +
|
|
$ 4.d0*m0*(K2) - 2.d0*cx*(2.d0*b0 + (K2)**2) +
|
|
$ 2.d0*b0*(K4) + 4.d0*ay*by*(K4) + (K2)**2*(K4) -
|
|
$ 2.d0*ay*(2.d0*m0 + (K2)*(K4)) - 2.d0*by*(2.d0*m0 +
|
|
$ (K2)*(K4))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps16=ppps16+ ((rho*(-8.d0*ay*bx*cz +
|
|
$ 4.d0*ay*cz*(K1) + 2.d0*(K1)*o0 + 4.d0*bx*cz*(K2)
|
|
$ + 2.d0*k0*(K2) - 2.d0*cz*(2.d0*g0 + (K1)*(K2)) +
|
|
$ 4.d0*ay*bx*(K6) + 2.d0*g0*(K6) + (K1)*(K2)*(K6) -
|
|
$ 2.d0*ay*(2.d0*k0 + (K1)*(K6)) - 2.d0*bx*(2.d0*o0 +
|
|
$ (K2)*(K6))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps17=ppps17+ ((rho*(-8.d0*ay*bx*cy +
|
|
$ 4.d0*ay*cy*(K1) + 2.d0*(K1)*n0 + 4.d0*bx*cy*(K2)
|
|
$ + 2.d0*j0*(K2) - 2.d0*cy*(2.d0*g0 + (K1)*(K2)) +
|
|
$ 4.d0*ay*bx*(K5) + 2.d0*g0*(K5) + (K1)*(K2)*(K5) -
|
|
$ 2.d0*ay*(2.d0*j0 + (K1)*(K5)) - 2.d0*bx*(2.d0*n0 +
|
|
$ (K2)*(K5))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps18=ppps18+ ((rho*(-8.d0*ay*bx*cx +
|
|
$ 4.d0*ay*cx*(K1) + 2.d0*(K1)*m0 + 4.d0*bx*cx*(K2)
|
|
$ + 2.d0*i0*(K2) - 2.d0*cx*(2.d0*g0 + (K1)*(K2)) +
|
|
$ 4.d0*ay*bx*(K4) + 2.d0*g0*(K4) + (K1)*(K2)*(K4) -
|
|
$ 2.d0*ay*(2.d0*i0 + (K1)*(K4)) - 2.d0*bx*(2.d0*m0 +
|
|
$ (K2)*(K4))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps19=ppps19+ ((rho*(-8.d0*ax*bz*cz +
|
|
$ 4.d0*bz*cz*(K1) + 2.d0*(K1)*r0 + 4.d0*ax*cz*(K3)
|
|
$ + 2.d0*k0*(K3) - 2.d0*cz*(2.d0*h0 + (K1)*(K3)) +
|
|
$ 4.d0*ax*bz*(K6) + 2.d0*h0*(K6) + (K1)*(K3)*(K6) -
|
|
$ 2.d0*bz*(2.d0*k0 + (K1)*(K6)) - 2.d0*ax*(2.d0*r0 +
|
|
$ (K3)*(K6))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps20=ppps20+ ((rho*(-8.d0*ax*bz*cy +
|
|
$ 4.d0*bz*cy*(K1) + 2.d0*(K1)*q0 + 4.d0*ax*cy*(K3)
|
|
$ + 2.d0*j0*(K3) - 2.d0*cy*(2.d0*h0 + (K1)*(K3)) +
|
|
$ 4.d0*ax*bz*(K5) + 2.d0*h0*(K5) + (K1)*(K3)*(K5) -
|
|
$ 2.d0*bz*(2.d0*j0 + (K1)*(K5)) - 2.d0*ax*(2.d0*q0 +
|
|
$ (K3)*(K5))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps21=ppps21+ ((rho*(-8.d0*ax*bz*cx +
|
|
$ 4.d0*bz*cx*(K1) + 2.d0*(K1)*p0 + 4.d0*ax*cx*(K3)
|
|
$ + 2.d0*i0*(K3) - 2.d0*cx*(2.d0*h0 + (K1)*(K3)) +
|
|
$ 4.d0*ax*bz*(K4) + 2.d0*h0*(K4) + (K1)*(K3)*(K4) -
|
|
$ 2.d0*bz*(2.d0*i0 + (K1)*(K4)) - 2.d0*ax*(2.d0*p0 +
|
|
$ (K3)*(K4))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps22=ppps22+ ((rho*(-8.d0*ax*by*cz +
|
|
$ 4.d0*by*cz*(K1) + 2.d0*(K1)*o0 + 4.d0*ax*cz*(K2)
|
|
$ + 2.d0*k0*(K2) - 2.d0*cz*(2.d0*g0 + (K1)*(K2)) +
|
|
$ 4.d0*ax*by*(K6) + 2.d0*g0*(K6) + (K1)*(K2)*(K6) -
|
|
$ 2.d0*by*(2.d0*k0 + (K1)*(K6)) - 2.d0*ax*(2.d0*o0 +
|
|
$ (K2)*(K6))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps23=ppps23+ ((rho*(-8.d0*ax*by*cy +
|
|
$ 4.d0*by*cy*(K1) + 2.d0*(K1)*n0 + 4.d0*ax*cy*(K2)
|
|
$ + 2.d0*j0*(K2) - 2.d0*cy*(2.d0*g0 + (K1)*(K2)) +
|
|
$ 4.d0*ax*by*(K5) + 2.d0*g0*(K5) + (K1)*(K2)*(K5) -
|
|
$ 2.d0*by*(2.d0*j0 + (K1)*(K5)) - 2.d0*ax*(2.d0*n0 +
|
|
$ (K2)*(K5))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps24=ppps24+ ((rho*(-8.d0*ax*by*cx +
|
|
$ 4.d0*by*cx*(K1) + 2.d0*(K1)*m0 + 4.d0*ax*cx*(K2)
|
|
$ + 2.d0*i0*(K2) - 2.d0*cx*(2.d0*g0 + (K1)*(K2)) +
|
|
$ 4.d0*ax*by*(K4) + 2.d0*g0*(K4) + (K1)*(K2)*(K4) -
|
|
$ 2.d0*by*(2.d0*i0 + (K1)*(K4)) - 2.d0*ax*(2.d0*m0 +
|
|
$ (K2)*(K4))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps25=ppps25+ ((rho*(-8.d0*ax*bx*cz
|
|
$ + 4.d0*ax*cz*(K1) + 4.d0*bx*cz*(K1) +
|
|
$ 4.d0*k0*(K1) - 2.d0*cz*(2.d0*a0 + (K1)**2) +
|
|
$ 2.d0*a0*(K6) + 4.d0*ax*bx*(K6) + (K1)**2*(K6) -
|
|
$ 2.d0*ax*(2.d0*k0 + (K1)*(K6)) - 2.d0*bx*(2.d0*k0 +
|
|
$ (K1)*(K6))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps26=ppps26+ ((rho*(-8.d0*ax*bx*cy
|
|
$ + 4.d0*ax*cy*(K1) + 4.d0*bx*cy*(K1) +
|
|
$ 4.d0*j0*(K1) - 2.d0*cy*(2.d0*a0 + (K1)**2) +
|
|
$ 2.d0*a0*(K5) + 4.d0*ax*bx*(K5) + (K1)**2*(K5) -
|
|
$ 2.d0*ax*(2.d0*j0 + (K1)*(K5)) - 2.d0*bx*(2.d0*j0 +
|
|
$ (K1)*(K5))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
ppps27=ppps27+ ((rho*(-8.d0*ax*bx*cx
|
|
$ + 4.d0*ax*cx*(K1) + 4.d0*bx*cx*(K1) +
|
|
$ 4.d0*i0*(K1) - 2.d0*cx*(2.d0*a0 + (K1)**2) +
|
|
$ 2.d0*a0*(K4) + 4.d0*ax*bx*(K4) + (K1)**2*(K4) -
|
|
$ 2.d0*ax*(2.d0*i0 + (K1)*(K4)) - 2.d0*bx*(2.d0*i0 +
|
|
$ (K1)*(K4))))/8.d0)*weightn(n)/dsqrt(rescale)
|
|
C
|
|
C PPPP eset:
|
|
C
|
|
pppp1=pppp1+ ((rho*(16.d0*az*bz*cz*dz + 4.d0*c0*f0 +
|
|
$ 8.d0*r0**2.d0 - 8.d0*az*bz*cz*(K3) - 8.d0*bz*cz*dz*(K3)
|
|
$ + 2.d0*f0*(K3)**2.d0 + 4.d0*cz*dz*(2.d0*c0 + (K3)**2.d0)
|
|
$ - 8.d0*az*bz*cz*(K6) - 8.d0*az*bz*dz*(K6)
|
|
$ + 8.d0*r0*(K3)*(K6) + 2.d0*c0*(K6)**2.d0 +
|
|
$ (K3)**2.d0*(K6)**2.d0 + 8.d0*az*cz*(2.d0*r0 +
|
|
$ (K3)*(K6)) + 4.d0*bz*cz*(2.d0*r0 + (K3)*(K6)) +
|
|
$ 4.d0*bz*dz*(2.d0*r0 + (K3)*(K6)) - 2.d0*cz*(4.d0*r0*(K3) +
|
|
$ 2.d0*c0*(K6) + (K3)**2.d0*(K6)) - 2.d0*dz*(4.d0*r0*(K3) +
|
|
$ 2.d0*c0*(K6) + (K3)**2.d0*(K6)) + 4.d0*az*bz*(2.d0*f0 +
|
|
$ (K6)**2.d0) - 2.d0*az*(2.d0*f0*(K3) + 4.d0*r0*(K6) +
|
|
$ (K3)*(K6)**2.d0) - 2.d0*bz*(2.d0*f0*(K3) + 4.d0*r0*(K6) +
|
|
$ (K3)*(K6)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp2=pppp2+ ((rho*(16.d0*az*bz*cz*dy +
|
|
$ 8.d0*q0*r0 - 8.d0*az*by*cz*(K3) - 8.d0*bz*cz*dy*(K3)
|
|
$ + 4.d0*cz*dy*(2.d0*c0 + (K3)**2.d0) + 4.d0*c0*u0 +
|
|
$ 2.d0*(K3)**2.d0*u0 - 8.d0*az*bz*dy*(K6) + 4.d0*q0*(K3)*(K6) -
|
|
$ 8.d0*az*bz*cz*(K5) + 4.d0*r0*(K3)*(K5) + 2.d0*c0*(K6)*(K5) +
|
|
$ (K3)**2.d0*(K6)*(K5) + 4.d0*az*cy*(2.d0*r0 + (K3)*(K6))
|
|
$ + 4.d0*bz*dy*(2.d0*r0 + (K3)*(K6)) - 2.d0*dy*(4.d0*r0*(K3)
|
|
$ + 2.d0*c0*(K6) + (K3)**2.d0*(K6)) + 4.d0*az*cz*(2.d0*q0
|
|
$ + (K3)*(K5)) + 4.d0*bz*cz*(2.d0*q0 + (K3)*(K5)) -
|
|
$ 2.d0*cz*(4.d0*q0*(K3) + 2.d0*c0*(K5) + (K3)**2.d0*(K5)) +
|
|
$ 4.d0*az*bz*(2.d0*u0 + (K6)*(K5)) - 2.d0*az*(2.d0*(K3)*u0
|
|
$ + 2.d0*q0*(K6) + 2.d0*r0*(K5) + (K3)*(K6)*(K5)) -
|
|
$ 2.d0*bz*(2.d0*(K3)*u0 + 2.d0*q0*(K6) + 2.d0*r0*(K5) +
|
|
$ (K3)*(K6)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp3=pppp3+ ((rho*(16.d0*az*bz*cz*dx +
|
|
$ 8.d0*p0*r0 - 8.d0*az*bx*cz*(K3) - 8.d0*bz*cz*dx*(K3)
|
|
$ + 4.d0*cz*dx*(2.d0*c0 + (K3)**2.d0) + 4.d0*c0*t0 +
|
|
$ 2.d0*(K3)**2.d0*t0 - 8.d0*az*bz*cz*(K4) + 4.d0*r0*(K3)*(K4)
|
|
$ + 4.d0*az*cz*(2.d0*p0 + (K3)*(K4)) + 4.d0*bz*cz*(2.d0*p0
|
|
$ + (K3)*(K4)) - 2.d0*cz*(4.d0*p0*(K3) + 2.d0*c0*(K4) +
|
|
$ (K3)**2.d0*(K4)) - 8.d0*az*bz*dx*(K6) + 4.d0*p0*(K3)*(K6) +
|
|
$ 2.d0*c0*(K4)*(K6) + (K3)**2.d0*(K4)*(K6) + 4.d0*az*cx*(2.d0*r0
|
|
$ + (K3)*(K6)) + 4.d0*bz*dx*(2.d0*r0 + (K3)*(K6)) -
|
|
$ 2.d0*dx*(4.d0*r0*(K3) + 2.d0*c0*(K6) + (K3)**2.d0*(K6)) +
|
|
$ 4.d0*az*bz*(2.d0*t0 + (K4)*(K6)) - 2.d0*az*(2.d0*(K3)*t0
|
|
$ + 2.d0*r0*(K4) + 2.d0*p0*(K6) + (K3)*(K4)*(K6)) -
|
|
$ 2.d0*bz*(2.d0*(K3)*t0 + 2.d0*r0*(K4) + 2.d0*p0*(K6) +
|
|
$ (K3)*(K4)*(K6))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp4=pppp4+ ((rho*(16.d0*az*bz*cy*dz +
|
|
$ 8.d0*q0*r0 - 8.d0*az*bz*cy*(K3) - 8.d0*bz*cy*dz*(K3)
|
|
$ + 4.d0*cy*dz*(2.d0*c0 + (K3)**2.d0) + 4.d0*c0*u0 +
|
|
$ 2.d0*(K3)**2.d0*u0 - 8.d0*az*bz*cy*(K6) + 4.d0*q0*(K3)*(K6) -
|
|
$ 8.d0*az*bz*dz*(K5) + 4.d0*r0*(K3)*(K5) + 2.d0*c0*(K6)*(K5) +
|
|
$ (K3)**2.d0*(K6)*(K5) + 4.d0*az*cy*(2.d0*r0 + (K3)*(K6))
|
|
$ + 4.d0*bz*cy*(2.d0*r0 + (K3)*(K6)) - 2.d0*cy*(4.d0*r0*(K3)
|
|
$ + 2.d0*c0*(K6) + (K3)**2.d0*(K6)) + 4.d0*az*cz*(2.d0*q0
|
|
$ + (K3)*(K5)) + 4.d0*bz*dz*(2.d0*q0 + (K3)*(K5)) -
|
|
$ 2.d0*dz*(4.d0*q0*(K3) + 2.d0*c0*(K5) + (K3)**2.d0*(K5)) +
|
|
$ 4.d0*az*bz*(2.d0*u0 + (K6)*(K5)) - 2.d0*az*(2.d0*(K3)*u0
|
|
$ + 2.d0*q0*(K6) + 2.d0*r0*(K5) + (K3)*(K6)*(K5)) -
|
|
$ 2.d0*bz*(2.d0*(K3)*u0 + 2.d0*q0*(K6) + 2.d0*r0*(K5) +
|
|
$ (K3)*(K6)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp5=pppp5+ ((rho*(16.d0*az*bz*cy*dy + 4.d0*c0*e0 +
|
|
$ 8.d0*q0**2.d0 - 8.d0*az*by*cy*(K3) - 8.d0*bz*cy*dy*(K3)
|
|
$ + 2.d0*e0*(K3)**2.d0 + 4.d0*cy*dy*(2.d0*c0 + (K3)**2.d0)
|
|
$ - 8.d0*az*bz*cy*(K5) - 8.d0*az*bz*dy*(K5)
|
|
$ + 8.d0*q0*(K3)*(K5) + 2.d0*c0*(K5)**2.d0 +
|
|
$ (K3)**2.d0*(K5)**2.d0 + 8.d0*az*cy*(2.d0*q0 +
|
|
$ (K3)*(K5)) + 4.d0*bz*cy*(2.d0*q0 + (K3)*(K5)) +
|
|
$ 4.d0*bz*dy*(2.d0*q0 + (K3)*(K5)) - 2.d0*cy*(4.d0*q0*(K3) +
|
|
$ 2.d0*c0*(K5) + (K3)**2.d0*(K5)) - 2.d0*dy*(4.d0*q0*(K3) +
|
|
$ 2.d0*c0*(K5) + (K3)**2.d0*(K5)) + 4.d0*az*bz*(2.d0*e0 +
|
|
$ (K5)**2.d0) - 2.d0*az*(2.d0*e0*(K3) + 4.d0*q0*(K5) +
|
|
$ (K3)*(K5)**2.d0) - 2.d0*bz*(2.d0*e0*(K3) + 4.d0*q0*(K5) +
|
|
$ (K3)*(K5)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp6=pppp6+ ((rho*(16.d0*az*bz*cy*dx +
|
|
$ 8.d0*p0*q0 - 8.d0*az*bx*cy*(K3) - 8.d0*bz*cy*dx*(K3)
|
|
$ + 4.d0*cy*dx*(2.d0*c0 + (K3)**2.d0) + 4.d0*c0*s0 +
|
|
$ 2.d0*(K3)**2.d0*s0 - 8.d0*az*bz*cy*(K4) + 4.d0*q0*(K3)*(K4)
|
|
$ + 4.d0*az*cy*(2.d0*p0 + (K3)*(K4)) + 4.d0*bz*cy*(2.d0*p0
|
|
$ + (K3)*(K4)) - 2.d0*cy*(4.d0*p0*(K3) + 2.d0*c0*(K4) +
|
|
$ (K3)**2.d0*(K4)) - 8.d0*az*bz*dx*(K5) + 4.d0*p0*(K3)*(K5) +
|
|
$ 2.d0*c0*(K4)*(K5) + (K3)**2.d0*(K4)*(K5) + 4.d0*az*cx*(2.d0*q0
|
|
$ + (K3)*(K5)) + 4.d0*bz*dx*(2.d0*q0 + (K3)*(K5)) -
|
|
$ 2.d0*dx*(4.d0*q0*(K3) + 2.d0*c0*(K5) + (K3)**2.d0*(K5)) +
|
|
$ 4.d0*az*bz*(2.d0*s0 + (K4)*(K5)) - 2.d0*az*(2.d0*(K3)*s0
|
|
$ + 2.d0*q0*(K4) + 2.d0*p0*(K5) + (K3)*(K4)*(K5)) -
|
|
$ 2.d0*bz*(2.d0*(K3)*s0 + 2.d0*q0*(K4) + 2.d0*p0*(K5) +
|
|
$ (K3)*(K4)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp7=pppp7+ ((rho*(16.d0*az*bz*cx*dz +
|
|
$ 8.d0*p0*r0 - 8.d0*az*bz*cx*(K3) - 8.d0*bz*cx*dz*(K3)
|
|
$ + 4.d0*cx*dz*(2.d0*c0 + (K3)**2.d0) + 4.d0*c0*t0 +
|
|
$ 2.d0*(K3)**2.d0*t0 - 8.d0*az*bz*dz*(K4) + 4.d0*r0*(K3)*(K4)
|
|
$ + 4.d0*az*cz*(2.d0*p0 + (K3)*(K4)) + 4.d0*bz*dz*(2.d0*p0
|
|
$ + (K3)*(K4)) - 2.d0*dz*(4.d0*p0*(K3) + 2.d0*c0*(K4) +
|
|
$ (K3)**2.d0*(K4)) - 8.d0*az*bz*cx*(K6) + 4.d0*p0*(K3)*(K6) +
|
|
$ 2.d0*c0*(K4)*(K6) + (K3)**2.d0*(K4)*(K6) + 4.d0*az*cx*(2.d0*r0
|
|
$ + (K3)*(K6)) + 4.d0*bz*cx*(2.d0*r0 + (K3)*(K6)) -
|
|
$ 2.d0*cx*(4.d0*r0*(K3) + 2.d0*c0*(K6) + (K3)**2.d0*(K6)) +
|
|
$ 4.d0*az*bz*(2.d0*t0 + (K4)*(K6)) - 2.d0*az*(2.d0*(K3)*t0
|
|
$ + 2.d0*r0*(K4) + 2.d0*p0*(K6) + (K3)*(K4)*(K6)) -
|
|
$ 2.d0*bz*(2.d0*(K3)*t0 + 2.d0*r0*(K4) + 2.d0*p0*(K6) +
|
|
$ (K3)*(K4)*(K6))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp8=pppp8+ ((rho*(16.d0*az*bz*cx*dy +
|
|
$ 8.d0*p0*q0 - 8.d0*az*by*cx*(K3) - 8.d0*bz*cx*dy*(K3)
|
|
$ + 4.d0*cx*dy*(2.d0*c0 + (K3)**2.d0) + 4.d0*c0*s0 +
|
|
$ 2.d0*(K3)**2.d0*s0 - 8.d0*az*bz*dy*(K4) + 4.d0*q0*(K3)*(K4)
|
|
$ + 4.d0*az*cy*(2.d0*p0 + (K3)*(K4)) + 4.d0*bz*dy*(2.d0*p0
|
|
$ + (K3)*(K4)) - 2.d0*dy*(4.d0*p0*(K3) + 2.d0*c0*(K4) +
|
|
$ (K3)**2.d0*(K4)) - 8.d0*az*bz*cx*(K5) + 4.d0*p0*(K3)*(K5) +
|
|
$ 2.d0*c0*(K4)*(K5) + (K3)**2.d0*(K4)*(K5) + 4.d0*az*cx*(2.d0*q0
|
|
$ + (K3)*(K5)) + 4.d0*bz*cx*(2.d0*q0 + (K3)*(K5)) -
|
|
$ 2.d0*cx*(4.d0*q0*(K3) + 2.d0*c0*(K5) + (K3)**2.d0*(K5)) +
|
|
$ 4.d0*az*bz*(2.d0*s0 + (K4)*(K5)) - 2.d0*az*(2.d0*(K3)*s0
|
|
$ + 2.d0*q0*(K4) + 2.d0*p0*(K5) + (K3)*(K4)*(K5)) -
|
|
$ 2.d0*bz*(2.d0*(K3)*s0 + 2.d0*q0*(K4) + 2.d0*p0*(K5) +
|
|
$ (K3)*(K4)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp9=pppp9+ ((rho*(4.d0*c0*d0 + 16.d0*az*bz*cx*dx +
|
|
$ 8.d0*p0**2.d0 - 8.d0*az*bx*cx*(K3) - 8.d0*bz*cx*dx*(K3)
|
|
$ + 2.d0*d0*(K3)**2.d0 + 4.d0*cx*dx*(2.d0*c0 + (K3)**2.d0)
|
|
$ - 8.d0*az*bz*cx*(K4) - 8.d0*az*bz*dx*(K4)
|
|
$ + 8.d0*p0*(K3)*(K4) + 2.d0*c0*(K4)**2.d0 +
|
|
$ (K3)**2.d0*(K4)**2.d0 + 8.d0*az*cx*(2.d0*p0 +
|
|
$ (K3)*(K4)) + 4.d0*bz*cx*(2.d0*p0 + (K3)*(K4)) +
|
|
$ 4.d0*bz*dx*(2.d0*p0 + (K3)*(K4)) - 2.d0*cx*(4.d0*p0*(K3) +
|
|
$ 2.d0*c0*(K4) + (K3)**2.d0*(K4)) - 2.d0*dx*(4.d0*p0*(K3) +
|
|
$ 2.d0*c0*(K4) + (K3)**2.d0*(K4)) + 4.d0*az*bz*(2.d0*d0 +
|
|
$ (K4)**2.d0) - 2.d0*az*(2.d0*d0*(K3) + 4.d0*p0*(K4) +
|
|
$ (K3)*(K4)**2.d0) - 2.d0*bz*(2.d0*d0*(K3) + 4.d0*p0*(K4) +
|
|
$ (K3)*(K4)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp10=pppp10+ ((rho*(16.d0*az*by*cz*dz + 4.d0*f0*l0 -
|
|
$ 8.d0*az*bz*cz*(K2) + 8.d0*o0*r0 - 8.d0*by*cz*dz*(K3)
|
|
$ + 2.d0*f0*(K2)*(K3) + 4.d0*cz*dz*(2.d0*l0 + (K2)*(K3))
|
|
$ - 8.d0*az*by*cz*(K6) - 8.d0*az*by*dz*(K6) +
|
|
$ 4.d0*(K2)*r0*(K6) + 4.d0*o0*(K3)*(K6) + 2.d0*l0*(K6)**2.d0 +
|
|
$ (K2)*(K3)*(K6)**2.d0 + 8.d0*az*cz*(2.d0*o0 + (K2)*(K6))
|
|
$ + 4.d0*by*cz*(2.d0*r0 + (K3)*(K6)) + 4.d0*by*dz*(2.d0*r0 +
|
|
$ (K3)*(K6)) - 2.d0*cz*(2.d0*(K2)*r0 + 2.d0*o0*(K3) + 2.d0*l0*(K6)
|
|
$ + (K2)*(K3)*(K6)) - 2.d0*dz*(2.d0*(K2)*r0 + 2.d0*o0*(K3)
|
|
$ + 2.d0*l0*(K6) + (K2)*(K3)*(K6)) + 4.d0*az*by*(2.d0*f0 +
|
|
$ (K6)**2.d0) - 2.d0*az*(2.d0*f0*(K2) + 4.d0*o0*(K6) +
|
|
$ (K2)*(K6)**2.d0) - 2.d0*by*(2.d0*f0*(K3) + 4.d0*r0*(K6) +
|
|
$ (K3)*(K6)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp11=pppp11+ ((rho*(16.d0*az*by*cz*dy
|
|
$ - 8.d0*az*by*cz*(K2) + 4.d0*o0*q0 + 4.d0*n0*r0 -
|
|
$ 8.d0*by*cz*dy*(K3) + 4.d0*cz*dy*(2.d0*l0 + (K2)*(K3))
|
|
$ + 4.d0*l0*u0 + 2.d0*(K2)*(K3)*u0 - 8.d0*az*by*dy*(K6) +
|
|
$ 2.d0*(K2)*q0*(K6) + 2.d0*n0*(K3)*(K6) - 8.d0*az*by*cz*(K5)
|
|
$ + 2.d0*(K2)*r0*(K5) + 2.d0*o0*(K3)*(K5) + 2.d0*l0*(K6)*(K5)
|
|
$ + (K2)*(K3)*(K6)*(K5) + 4.d0*az*cy*(2.d0*o0 +
|
|
$ (K2)*(K6)) + 4.d0*by*dy*(2.d0*r0 + (K3)*(K6)) -
|
|
$ 2.d0*dy*(2.d0*(K2)*r0 + 2.d0*o0*(K3) + 2.d0*l0*(K6) +
|
|
$ (K2)*(K3)*(K6)) + 4.d0*az*cz*(2.d0*n0 + (K2)*(K5)) +
|
|
$ 4.d0*by*cz*(2.d0*q0 + (K3)*(K5)) - 2.d0*cz*(2.d0*(K2)*q0
|
|
$ + 2.d0*n0*(K3) + 2.d0*l0*(K5) + (K2)*(K3)*(K5)) +
|
|
$ 4.d0*az*by*(2.d0*u0 + (K6)*(K5)) - 2.d0*az*(2.d0*(K2)*u0
|
|
$ + 2.d0*n0*(K6) + 2.d0*o0*(K5) + (K2)*(K6)*(K5)) -
|
|
$ 2.d0*by*(2.d0*(K3)*u0 + 2.d0*q0*(K6) + 2.d0*r0*(K5) +
|
|
$ (K3)*(K6)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp12=pppp12+ ((rho*(16.d0*az*by*cz*dx
|
|
$ - 8.d0*az*bx*cz*(K2) + 4.d0*o0*p0 + 4.d0*m0*r0 -
|
|
$ 8.d0*by*cz*dx*(K3) + 4.d0*cz*dx*(2.d0*l0 + (K2)*(K3))
|
|
$ + 4.d0*l0*t0 + 2.d0*(K2)*(K3)*t0 - 8.d0*az*by*cz*(K4) +
|
|
$ 2.d0*(K2)*r0*(K4) + 2.d0*o0*(K3)*(K4) + 4.d0*az*cz*(2.d0*m0
|
|
$ + (K2)*(K4)) + 4.d0*by*cz*(2.d0*p0 + (K3)*(K4))
|
|
$ - 2.d0*cz*(2.d0*(K2)*p0 + 2.d0*m0*(K3) + 2.d0*l0*(K4)
|
|
$ + (K2)*(K3)*(K4)) - 8.d0*az*by*dx*(K6) +
|
|
$ 2.d0*(K2)*p0*(K6) + 2.d0*m0*(K3)*(K6) + 2.d0*l0*(K4)*(K6) +
|
|
$ (K2)*(K3)*(K4)*(K6) + 4.d0*az*cx*(2.d0*o0 + (K2)*(K6)) +
|
|
$ 4.d0*by*dx*(2.d0*r0 + (K3)*(K6)) - 2.d0*dx*(2.d0*(K2)*r0
|
|
$ + 2.d0*o0*(K3) + 2.d0*l0*(K6) + (K2)*(K3)*(K6)) +
|
|
$ 4.d0*az*by*(2.d0*t0 + (K4)*(K6)) - 2.d0*az*(2.d0*(K2)*t0
|
|
$ + 2.d0*o0*(K4) + 2.d0*m0*(K6) + (K2)*(K4)*(K6)) -
|
|
$ 2.d0*by*(2.d0*(K3)*t0 + 2.d0*r0*(K4) + 2.d0*p0*(K6) +
|
|
$ (K3)*(K4)*(K6))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp13=pppp13+ ((rho*(16.d0*az*by*cy*dz
|
|
$ - 8.d0*az*bz*cy*(K2) + 4.d0*o0*q0 + 4.d0*n0*r0 -
|
|
$ 8.d0*by*cy*dz*(K3) + 4.d0*cy*dz*(2.d0*l0 + (K2)*(K3))
|
|
$ + 4.d0*l0*u0 + 2.d0*(K2)*(K3)*u0 - 8.d0*az*by*cy*(K6) +
|
|
$ 2.d0*(K2)*q0*(K6) + 2.d0*n0*(K3)*(K6) - 8.d0*az*by*dz*(K5)
|
|
$ + 2.d0*(K2)*r0*(K5) + 2.d0*o0*(K3)*(K5) + 2.d0*l0*(K6)*(K5)
|
|
$ + (K2)*(K3)*(K6)*(K5) + 4.d0*az*cy*(2.d0*o0 +
|
|
$ (K2)*(K6)) + 4.d0*by*cy*(2.d0*r0 + (K3)*(K6)) -
|
|
$ 2.d0*cy*(2.d0*(K2)*r0 + 2.d0*o0*(K3) + 2.d0*l0*(K6) +
|
|
$ (K2)*(K3)*(K6)) + 4.d0*az*cz*(2.d0*n0 + (K2)*(K5)) +
|
|
$ 4.d0*by*dz*(2.d0*q0 + (K3)*(K5)) - 2.d0*dz*(2.d0*(K2)*q0
|
|
$ + 2.d0*n0*(K3) + 2.d0*l0*(K5) + (K2)*(K3)*(K5)) +
|
|
$ 4.d0*az*by*(2.d0*u0 + (K6)*(K5)) - 2.d0*az*(2.d0*(K2)*u0
|
|
$ + 2.d0*n0*(K6) + 2.d0*o0*(K5) + (K2)*(K6)*(K5)) -
|
|
$ 2.d0*by*(2.d0*(K3)*u0 + 2.d0*q0*(K6) + 2.d0*r0*(K5) +
|
|
$ (K3)*(K6)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp14=pppp14+ ((rho*(16.d0*az*by*cy*dy + 4.d0*e0*l0 -
|
|
$ 8.d0*az*by*cy*(K2) + 8.d0*n0*q0 - 8.d0*by*cy*dy*(K3)
|
|
$ + 2.d0*e0*(K2)*(K3) + 4.d0*cy*dy*(2.d0*l0 + (K2)*(K3))
|
|
$ - 8.d0*az*by*cy*(K5) - 8.d0*az*by*dy*(K5) +
|
|
$ 4.d0*(K2)*q0*(K5) + 4.d0*n0*(K3)*(K5) + 2.d0*l0*(K5)**2.d0 +
|
|
$ (K2)*(K3)*(K5)**2.d0 + 8.d0*az*cy*(2.d0*n0 + (K2)*(K5))
|
|
$ + 4.d0*by*cy*(2.d0*q0 + (K3)*(K5)) + 4.d0*by*dy*(2.d0*q0 +
|
|
$ (K3)*(K5)) - 2.d0*cy*(2.d0*(K2)*q0 + 2.d0*n0*(K3) + 2.d0*l0*(K5)
|
|
$ + (K2)*(K3)*(K5)) - 2.d0*dy*(2.d0*(K2)*q0 + 2.d0*n0*(K3)
|
|
$ + 2.d0*l0*(K5) + (K2)*(K3)*(K5)) + 4.d0*az*by*(2.d0*e0 +
|
|
$ (K5)**2.d0) - 2.d0*az*(2.d0*e0*(K2) + 4.d0*n0*(K5) +
|
|
$ (K2)*(K5)**2.d0) - 2.d0*by*(2.d0*e0*(K3) + 4.d0*q0*(K5) +
|
|
$ (K3)*(K5)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp15=pppp15+ ((rho*(16.d0*az*by*cy*dx
|
|
$ - 8.d0*az*bx*cy*(K2) + 4.d0*n0*p0 + 4.d0*m0*q0 -
|
|
$ 8.d0*by*cy*dx*(K3) + 4.d0*cy*dx*(2.d0*l0 + (K2)*(K3))
|
|
$ + 4.d0*l0*s0 + 2.d0*(K2)*(K3)*s0 - 8.d0*az*by*cy*(K4) +
|
|
$ 2.d0*(K2)*q0*(K4) + 2.d0*n0*(K3)*(K4) + 4.d0*az*cy*(2.d0*m0
|
|
$ + (K2)*(K4)) + 4.d0*by*cy*(2.d0*p0 + (K3)*(K4))
|
|
$ - 2.d0*cy*(2.d0*(K2)*p0 + 2.d0*m0*(K3) + 2.d0*l0*(K4)
|
|
$ + (K2)*(K3)*(K4)) - 8.d0*az*by*dx*(K5) +
|
|
$ 2.d0*(K2)*p0*(K5) + 2.d0*m0*(K3)*(K5) + 2.d0*l0*(K4)*(K5) +
|
|
$ (K2)*(K3)*(K4)*(K5) + 4.d0*az*cx*(2.d0*n0 + (K2)*(K5)) +
|
|
$ 4.d0*by*dx*(2.d0*q0 + (K3)*(K5)) - 2.d0*dx*(2.d0*(K2)*q0
|
|
$ + 2.d0*n0*(K3) + 2.d0*l0*(K5) + (K2)*(K3)*(K5)) +
|
|
$ 4.d0*az*by*(2.d0*s0 + (K4)*(K5)) - 2.d0*az*(2.d0*(K2)*s0
|
|
$ + 2.d0*n0*(K4) + 2.d0*m0*(K5) + (K2)*(K4)*(K5)) -
|
|
$ 2.d0*by*(2.d0*(K3)*s0 + 2.d0*q0*(K4) + 2.d0*p0*(K5) +
|
|
$ (K3)*(K4)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp16=pppp16+ ((rho*(16.d0*az*by*cx*dz
|
|
$ - 8.d0*az*bz*cx*(K2) + 4.d0*o0*p0 + 4.d0*m0*r0 -
|
|
$ 8.d0*by*cx*dz*(K3) + 4.d0*cx*dz*(2.d0*l0 + (K2)*(K3))
|
|
$ + 4.d0*l0*t0 + 2.d0*(K2)*(K3)*t0 - 8.d0*az*by*dz*(K4) +
|
|
$ 2.d0*(K2)*r0*(K4) + 2.d0*o0*(K3)*(K4) + 4.d0*az*cz*(2.d0*m0
|
|
$ + (K2)*(K4)) + 4.d0*by*dz*(2.d0*p0 + (K3)*(K4))
|
|
$ - 2.d0*dz*(2.d0*(K2)*p0 + 2.d0*m0*(K3) + 2.d0*l0*(K4)
|
|
$ + (K2)*(K3)*(K4)) - 8.d0*az*by*cx*(K6) +
|
|
$ 2.d0*(K2)*p0*(K6) + 2.d0*m0*(K3)*(K6) + 2.d0*l0*(K4)*(K6) +
|
|
$ (K2)*(K3)*(K4)*(K6) + 4.d0*az*cx*(2.d0*o0 + (K2)*(K6)) +
|
|
$ 4.d0*by*cx*(2.d0*r0 + (K3)*(K6)) - 2.d0*cx*(2.d0*(K2)*r0
|
|
$ + 2.d0*o0*(K3) + 2.d0*l0*(K6) + (K2)*(K3)*(K6)) +
|
|
$ 4.d0*az*by*(2.d0*t0 + (K4)*(K6)) - 2.d0*az*(2.d0*(K2)*t0
|
|
$ + 2.d0*o0*(K4) + 2.d0*m0*(K6) + (K2)*(K4)*(K6)) -
|
|
$ 2.d0*by*(2.d0*(K3)*t0 + 2.d0*r0*(K4) + 2.d0*p0*(K6) +
|
|
$ (K3)*(K4)*(K6))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp17=pppp17+ ((rho*(16.d0*az*by*cx*dy
|
|
$ - 8.d0*az*by*cx*(K2) + 4.d0*n0*p0 + 4.d0*m0*q0 -
|
|
$ 8.d0*by*cx*dy*(K3) + 4.d0*cx*dy*(2.d0*l0 + (K2)*(K3))
|
|
$ + 4.d0*l0*s0 + 2.d0*(K2)*(K3)*s0 - 8.d0*az*by*dy*(K4) +
|
|
$ 2.d0*(K2)*q0*(K4) + 2.d0*n0*(K3)*(K4) + 4.d0*az*cy*(2.d0*m0
|
|
$ + (K2)*(K4)) + 4.d0*by*dy*(2.d0*p0 + (K3)*(K4))
|
|
$ - 2.d0*dy*(2.d0*(K2)*p0 + 2.d0*m0*(K3) + 2.d0*l0*(K4)
|
|
$ + (K2)*(K3)*(K4)) - 8.d0*az*by*cx*(K5) +
|
|
$ 2.d0*(K2)*p0*(K5) + 2.d0*m0*(K3)*(K5) + 2.d0*l0*(K4)*(K5) +
|
|
$ (K2)*(K3)*(K4)*(K5) + 4.d0*az*cx*(2.d0*n0 + (K2)*(K5)) +
|
|
$ 4.d0*by*cx*(2.d0*q0 + (K3)*(K5)) - 2.d0*cx*(2.d0*(K2)*q0
|
|
$ + 2.d0*n0*(K3) + 2.d0*l0*(K5) + (K2)*(K3)*(K5)) +
|
|
$ 4.d0*az*by*(2.d0*s0 + (K4)*(K5)) - 2.d0*az*(2.d0*(K2)*s0
|
|
$ + 2.d0*n0*(K4) + 2.d0*m0*(K5) + (K2)*(K4)*(K5)) -
|
|
$ 2.d0*by*(2.d0*(K3)*s0 + 2.d0*q0*(K4) + 2.d0*p0*(K5) +
|
|
$ (K3)*(K4)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp18=pppp18+ ((rho*(16.d0*az*by*cx*dx + 4.d0*d0*l0 -
|
|
$ 8.d0*az*bx*cx*(K2) + 8.d0*m0*p0 - 8.d0*by*cx*dx*(K3)
|
|
$ + 2.d0*d0*(K2)*(K3) + 4.d0*cx*dx*(2.d0*l0 + (K2)*(K3))
|
|
$ - 8.d0*az*by*cx*(K4) - 8.d0*az*by*dx*(K4) +
|
|
$ 4.d0*(K2)*p0*(K4) + 4.d0*m0*(K3)*(K4) + 2.d0*l0*(K4)**2.d0 +
|
|
$ (K2)*(K3)*(K4)**2.d0 + 8.d0*az*cx*(2.d0*m0 + (K2)*(K4))
|
|
$ + 4.d0*by*cx*(2.d0*p0 + (K3)*(K4)) + 4.d0*by*dx*(2.d0*p0 +
|
|
$ (K3)*(K4)) - 2.d0*cx*(2.d0*(K2)*p0 + 2.d0*m0*(K3) + 2.d0*l0*(K4)
|
|
$ + (K2)*(K3)*(K4)) - 2.d0*dx*(2.d0*(K2)*p0 + 2.d0*m0*(K3)
|
|
$ + 2.d0*l0*(K4) + (K2)*(K3)*(K4)) + 4.d0*az*by*(2.d0*d0 +
|
|
$ (K4)**2.d0) - 2.d0*az*(2.d0*d0*(K2) + 4.d0*m0*(K4) +
|
|
$ (K2)*(K4)**2.d0) - 2.d0*by*(2.d0*d0*(K3) + 4.d0*p0*(K4) +
|
|
$ (K3)*(K4)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp19=pppp19+ ((rho*(16.d0*az*bx*cz*dz + 4.d0*f0*h0 -
|
|
$ 8.d0*az*bz*cz*(K1) + 8.d0*k0*r0 - 8.d0*bx*cz*dz*(K3)
|
|
$ + 2.d0*f0*(K1)*(K3) + 4.d0*cz*dz*(2.d0*h0 + (K1)*(K3))
|
|
$ - 8.d0*az*bx*cz*(K6) - 8.d0*az*bx*dz*(K6) +
|
|
$ 4.d0*(K1)*r0*(K6) + 4.d0*k0*(K3)*(K6) + 2.d0*h0*(K6)**2.d0 +
|
|
$ (K1)*(K3)*(K6)**2.d0 + 8.d0*az*cz*(2.d0*k0 + (K1)*(K6))
|
|
$ + 4.d0*bx*cz*(2.d0*r0 + (K3)*(K6)) + 4.d0*bx*dz*(2.d0*r0 +
|
|
$ (K3)*(K6)) - 2.d0*cz*(2.d0*(K1)*r0 + 2.d0*k0*(K3) + 2.d0*h0*(K6)
|
|
$ + (K1)*(K3)*(K6)) - 2.d0*dz*(2.d0*(K1)*r0 + 2.d0*k0*(K3)
|
|
$ + 2.d0*h0*(K6) + (K1)*(K3)*(K6)) + 4.d0*az*bx*(2.d0*f0 +
|
|
$ (K6)**2.d0) - 2.d0*az*(2.d0*f0*(K1) + 4.d0*k0*(K6) +
|
|
$ (K1)*(K6)**2.d0) - 2.d0*bx*(2.d0*f0*(K3) + 4.d0*r0*(K6) +
|
|
$ (K3)*(K6)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp20=pppp20+ ((rho*(16.d0*az*bx*cz*dy
|
|
$ - 8.d0*az*by*cz*(K1) + 4.d0*k0*q0 + 4.d0*j0*r0 -
|
|
$ 8.d0*bx*cz*dy*(K3) + 4.d0*cz*dy*(2.d0*h0 + (K1)*(K3))
|
|
$ + 4.d0*h0*u0 + 2.d0*(K1)*(K3)*u0 - 8.d0*az*bx*dy*(K6) +
|
|
$ 2.d0*(K1)*q0*(K6) + 2.d0*j0*(K3)*(K6) - 8.d0*az*bx*cz*(K5)
|
|
$ + 2.d0*(K1)*r0*(K5) + 2.d0*k0*(K3)*(K5) + 2.d0*h0*(K6)*(K5)
|
|
$ + (K1)*(K3)*(K6)*(K5) + 4.d0*az*cy*(2.d0*k0 +
|
|
$ (K1)*(K6)) + 4.d0*bx*dy*(2.d0*r0 + (K3)*(K6)) -
|
|
$ 2.d0*dy*(2.d0*(K1)*r0 + 2.d0*k0*(K3) + 2.d0*h0*(K6) +
|
|
$ (K1)*(K3)*(K6)) + 4.d0*az*cz*(2.d0*j0 + (K1)*(K5)) +
|
|
$ 4.d0*bx*cz*(2.d0*q0 + (K3)*(K5)) - 2.d0*cz*(2.d0*(K1)*q0
|
|
$ + 2.d0*j0*(K3) + 2.d0*h0*(K5) + (K1)*(K3)*(K5)) +
|
|
$ 4.d0*az*bx*(2.d0*u0 + (K6)*(K5)) - 2.d0*az*(2.d0*(K1)*u0
|
|
$ + 2.d0*j0*(K6) + 2.d0*k0*(K5) + (K1)*(K6)*(K5)) -
|
|
$ 2.d0*bx*(2.d0*(K3)*u0 + 2.d0*q0*(K6) + 2.d0*r0*(K5) +
|
|
$ (K3)*(K6)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp21=pppp21+ ((rho*(16.d0*az*bx*cz*dx
|
|
$ - 8.d0*az*bx*cz*(K1) + 4.d0*k0*p0 + 4.d0*i0*r0 -
|
|
$ 8.d0*bx*cz*dx*(K3) + 4.d0*cz*dx*(2.d0*h0 + (K1)*(K3))
|
|
$ + 4.d0*h0*t0 + 2.d0*(K1)*(K3)*t0 - 8.d0*az*bx*cz*(K4) +
|
|
$ 2.d0*(K1)*r0*(K4) + 2.d0*k0*(K3)*(K4) + 4.d0*az*cz*(2.d0*i0
|
|
$ + (K1)*(K4)) + 4.d0*bx*cz*(2.d0*p0 + (K3)*(K4))
|
|
$ - 2.d0*cz*(2.d0*(K1)*p0 + 2.d0*i0*(K3) + 2.d0*h0*(K4)
|
|
$ + (K1)*(K3)*(K4)) - 8.d0*az*bx*dx*(K6) +
|
|
$ 2.d0*(K1)*p0*(K6) + 2.d0*i0*(K3)*(K6) + 2.d0*h0*(K4)*(K6) +
|
|
$ (K1)*(K3)*(K4)*(K6) + 4.d0*az*cx*(2.d0*k0 + (K1)*(K6)) +
|
|
$ 4.d0*bx*dx*(2.d0*r0 + (K3)*(K6)) - 2.d0*dx*(2.d0*(K1)*r0
|
|
$ + 2.d0*k0*(K3) + 2.d0*h0*(K6) + (K1)*(K3)*(K6)) +
|
|
$ 4.d0*az*bx*(2.d0*t0 + (K4)*(K6)) - 2.d0*az*(2.d0*(K1)*t0
|
|
$ + 2.d0*k0*(K4) + 2.d0*i0*(K6) + (K1)*(K4)*(K6)) -
|
|
$ 2.d0*bx*(2.d0*(K3)*t0 + 2.d0*r0*(K4) + 2.d0*p0*(K6) +
|
|
$ (K3)*(K4)*(K6))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp22=pppp22+ ((rho*(16.d0*az*bx*cy*dz
|
|
$ - 8.d0*az*bz*cy*(K1) + 4.d0*k0*q0 + 4.d0*j0*r0 -
|
|
$ 8.d0*bx*cy*dz*(K3) + 4.d0*cy*dz*(2.d0*h0 + (K1)*(K3))
|
|
$ + 4.d0*h0*u0 + 2.d0*(K1)*(K3)*u0 - 8.d0*az*bx*cy*(K6) +
|
|
$ 2.d0*(K1)*q0*(K6) + 2.d0*j0*(K3)*(K6) - 8.d0*az*bx*dz*(K5)
|
|
$ + 2.d0*(K1)*r0*(K5) + 2.d0*k0*(K3)*(K5) + 2.d0*h0*(K6)*(K5)
|
|
$ + (K1)*(K3)*(K6)*(K5) + 4.d0*az*cy*(2.d0*k0 +
|
|
$ (K1)*(K6)) + 4.d0*bx*cy*(2.d0*r0 + (K3)*(K6)) -
|
|
$ 2.d0*cy*(2.d0*(K1)*r0 + 2.d0*k0*(K3) + 2.d0*h0*(K6) +
|
|
$ (K1)*(K3)*(K6)) + 4.d0*az*cz*(2.d0*j0 + (K1)*(K5)) +
|
|
$ 4.d0*bx*dz*(2.d0*q0 + (K3)*(K5)) - 2.d0*dz*(2.d0*(K1)*q0
|
|
$ + 2.d0*j0*(K3) + 2.d0*h0*(K5) + (K1)*(K3)*(K5)) +
|
|
$ 4.d0*az*bx*(2.d0*u0 + (K6)*(K5)) - 2.d0*az*(2.d0*(K1)*u0
|
|
$ + 2.d0*j0*(K6) + 2.d0*k0*(K5) + (K1)*(K6)*(K5)) -
|
|
$ 2.d0*bx*(2.d0*(K3)*u0 + 2.d0*q0*(K6) + 2.d0*r0*(K5) +
|
|
$ (K3)*(K6)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp23=pppp23+ ((rho*(16.d0*az*bx*cy*dy + 4.d0*e0*h0 -
|
|
$ 8.d0*az*by*cy*(K1) + 8.d0*j0*q0 - 8.d0*bx*cy*dy*(K3)
|
|
$ + 2.d0*e0*(K1)*(K3) + 4.d0*cy*dy*(2.d0*h0 + (K1)*(K3))
|
|
$ - 8.d0*az*bx*cy*(K5) - 8.d0*az*bx*dy*(K5) +
|
|
$ 4.d0*(K1)*q0*(K5) + 4.d0*j0*(K3)*(K5) + 2.d0*h0*(K5)**2.d0 +
|
|
$ (K1)*(K3)*(K5)**2.d0 + 8.d0*az*cy*(2.d0*j0 + (K1)*(K5))
|
|
$ + 4.d0*bx*cy*(2.d0*q0 + (K3)*(K5)) + 4.d0*bx*dy*(2.d0*q0 +
|
|
$ (K3)*(K5)) - 2.d0*cy*(2.d0*(K1)*q0 + 2.d0*j0*(K3) + 2.d0*h0*(K5)
|
|
$ + (K1)*(K3)*(K5)) - 2.d0*dy*(2.d0*(K1)*q0 + 2.d0*j0*(K3)
|
|
$ + 2.d0*h0*(K5) + (K1)*(K3)*(K5)) + 4.d0*az*bx*(2.d0*e0 +
|
|
$ (K5)**2.d0) - 2.d0*az*(2.d0*e0*(K1) + 4.d0*j0*(K5) +
|
|
$ (K1)*(K5)**2.d0) - 2.d0*bx*(2.d0*e0*(K3) + 4.d0*q0*(K5) +
|
|
$ (K3)*(K5)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp24=pppp24+ ((rho*(16.d0*az*bx*cy*dx
|
|
$ - 8.d0*az*bx*cy*(K1) + 4.d0*j0*p0 + 4.d0*i0*q0 -
|
|
$ 8.d0*bx*cy*dx*(K3) + 4.d0*cy*dx*(2.d0*h0 + (K1)*(K3))
|
|
$ + 4.d0*h0*s0 + 2.d0*(K1)*(K3)*s0 - 8.d0*az*bx*cy*(K4) +
|
|
$ 2.d0*(K1)*q0*(K4) + 2.d0*j0*(K3)*(K4) + 4.d0*az*cy*(2.d0*i0
|
|
$ + (K1)*(K4)) + 4.d0*bx*cy*(2.d0*p0 + (K3)*(K4))
|
|
$ - 2.d0*cy*(2.d0*(K1)*p0 + 2.d0*i0*(K3) + 2.d0*h0*(K4)
|
|
$ + (K1)*(K3)*(K4)) - 8.d0*az*bx*dx*(K5) +
|
|
$ 2.d0*(K1)*p0*(K5) + 2.d0*i0*(K3)*(K5) + 2.d0*h0*(K4)*(K5) +
|
|
$ (K1)*(K3)*(K4)*(K5) + 4.d0*az*cx*(2.d0*j0 + (K1)*(K5)) +
|
|
$ 4.d0*bx*dx*(2.d0*q0 + (K3)*(K5)) - 2.d0*dx*(2.d0*(K1)*q0
|
|
$ + 2.d0*j0*(K3) + 2.d0*h0*(K5) + (K1)*(K3)*(K5)) +
|
|
$ 4.d0*az*bx*(2.d0*s0 + (K4)*(K5)) - 2.d0*az*(2.d0*(K1)*s0
|
|
$ + 2.d0*j0*(K4) + 2.d0*i0*(K5) + (K1)*(K4)*(K5)) -
|
|
$ 2.d0*bx*(2.d0*(K3)*s0 + 2.d0*q0*(K4) + 2.d0*p0*(K5) +
|
|
$ (K3)*(K4)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp25=pppp25+ ((rho*(16.d0*az*bx*cx*dz
|
|
$ - 8.d0*az*bz*cx*(K1) + 4.d0*k0*p0 + 4.d0*i0*r0 -
|
|
$ 8.d0*bx*cx*dz*(K3) + 4.d0*cx*dz*(2.d0*h0 + (K1)*(K3))
|
|
$ + 4.d0*h0*t0 + 2.d0*(K1)*(K3)*t0 - 8.d0*az*bx*dz*(K4) +
|
|
$ 2.d0*(K1)*r0*(K4) + 2.d0*k0*(K3)*(K4) + 4.d0*az*cz*(2.d0*i0
|
|
$ + (K1)*(K4)) + 4.d0*bx*dz*(2.d0*p0 + (K3)*(K4))
|
|
$ - 2.d0*dz*(2.d0*(K1)*p0 + 2.d0*i0*(K3) + 2.d0*h0*(K4)
|
|
$ + (K1)*(K3)*(K4)) - 8.d0*az*bx*cx*(K6) +
|
|
$ 2.d0*(K1)*p0*(K6) + 2.d0*i0*(K3)*(K6) + 2.d0*h0*(K4)*(K6) +
|
|
$ (K1)*(K3)*(K4)*(K6) + 4.d0*az*cx*(2.d0*k0 + (K1)*(K6)) +
|
|
$ 4.d0*bx*cx*(2.d0*r0 + (K3)*(K6)) - 2.d0*cx*(2.d0*(K1)*r0
|
|
$ + 2.d0*k0*(K3) + 2.d0*h0*(K6) + (K1)*(K3)*(K6)) +
|
|
$ 4.d0*az*bx*(2.d0*t0 + (K4)*(K6)) - 2.d0*az*(2.d0*(K1)*t0
|
|
$ + 2.d0*k0*(K4) + 2.d0*i0*(K6) + (K1)*(K4)*(K6)) -
|
|
$ 2.d0*bx*(2.d0*(K3)*t0 + 2.d0*r0*(K4) + 2.d0*p0*(K6) +
|
|
$ (K3)*(K4)*(K6))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp26=pppp26+ ((rho*(16.d0*az*bx*cx*dy
|
|
$ - 8.d0*az*by*cx*(K1) + 4.d0*j0*p0 + 4.d0*i0*q0 -
|
|
$ 8.d0*bx*cx*dy*(K3) + 4.d0*cx*dy*(2.d0*h0 + (K1)*(K3))
|
|
$ + 4.d0*h0*s0 + 2.d0*(K1)*(K3)*s0 - 8.d0*az*bx*dy*(K4) +
|
|
$ 2.d0*(K1)*q0*(K4) + 2.d0*j0*(K3)*(K4) + 4.d0*az*cy*(2.d0*i0
|
|
$ + (K1)*(K4)) + 4.d0*bx*dy*(2.d0*p0 + (K3)*(K4))
|
|
$ - 2.d0*dy*(2.d0*(K1)*p0 + 2.d0*i0*(K3) + 2.d0*h0*(K4)
|
|
$ + (K1)*(K3)*(K4)) - 8.d0*az*bx*cx*(K5) +
|
|
$ 2.d0*(K1)*p0*(K5) + 2.d0*i0*(K3)*(K5) + 2.d0*h0*(K4)*(K5) +
|
|
$ (K1)*(K3)*(K4)*(K5) + 4.d0*az*cx*(2.d0*j0 + (K1)*(K5)) +
|
|
$ 4.d0*bx*cx*(2.d0*q0 + (K3)*(K5)) - 2.d0*cx*(2.d0*(K1)*q0
|
|
$ + 2.d0*j0*(K3) + 2.d0*h0*(K5) + (K1)*(K3)*(K5)) +
|
|
$ 4.d0*az*bx*(2.d0*s0 + (K4)*(K5)) - 2.d0*az*(2.d0*(K1)*s0
|
|
$ + 2.d0*j0*(K4) + 2.d0*i0*(K5) + (K1)*(K4)*(K5)) -
|
|
$ 2.d0*bx*(2.d0*(K3)*s0 + 2.d0*q0*(K4) + 2.d0*p0*(K5) +
|
|
$ (K3)*(K4)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp27=pppp27+ ((rho*(16.d0*az*bx*cx*dx + 4.d0*d0*h0 -
|
|
$ 8.d0*az*bx*cx*(K1) + 8.d0*i0*p0 - 8.d0*bx*cx*dx*(K3)
|
|
$ + 2.d0*d0*(K1)*(K3) + 4.d0*cx*dx*(2.d0*h0 + (K1)*(K3))
|
|
$ - 8.d0*az*bx*cx*(K4) - 8.d0*az*bx*dx*(K4) +
|
|
$ 4.d0*(K1)*p0*(K4) + 4.d0*i0*(K3)*(K4) + 2.d0*h0*(K4)**2.d0 +
|
|
$ (K1)*(K3)*(K4)**2.d0 + 8.d0*az*cx*(2.d0*i0 + (K1)*(K4))
|
|
$ + 4.d0*bx*cx*(2.d0*p0 + (K3)*(K4)) + 4.d0*bx*dx*(2.d0*p0 +
|
|
$ (K3)*(K4)) - 2.d0*cx*(2.d0*(K1)*p0 + 2.d0*i0*(K3) + 2.d0*h0*(K4)
|
|
$ + (K1)*(K3)*(K4)) - 2.d0*dx*(2.d0*(K1)*p0 + 2.d0*i0*(K3)
|
|
$ + 2.d0*h0*(K4) + (K1)*(K3)*(K4)) + 4.d0*az*bx*(2.d0*d0 +
|
|
$ (K4)**2.d0) - 2.d0*az*(2.d0*d0*(K1) + 4.d0*i0*(K4) +
|
|
$ (K1)*(K4)**2.d0) - 2.d0*bx*(2.d0*d0*(K3) + 4.d0*p0*(K4) +
|
|
$ (K3)*(K4)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp28=pppp28+ ((rho*(16.d0*ay*bz*cz*dz + 4.d0*f0*l0 -
|
|
$ 8.d0*bz*cz*dz*(K2) + 8.d0*o0*r0 - 8.d0*ay*bz*cz*(K3)
|
|
$ + 2.d0*f0*(K2)*(K3) + 4.d0*cz*dz*(2.d0*l0 + (K2)*(K3))
|
|
$ - 8.d0*ay*bz*cz*(K6) - 8.d0*ay*bz*dz*(K6) +
|
|
$ 4.d0*(K2)*r0*(K6) + 4.d0*o0*(K3)*(K6) + 2.d0*l0*(K6)**2.d0 +
|
|
$ (K2)*(K3)*(K6)**2.d0 + 4.d0*bz*cz*(2.d0*o0 + (K2)*(K6)) +
|
|
$ 4.d0*bz*dz*(2.d0*o0 + (K2)*(K6)) + 8.d0*ay*cz*(2.d0*r0 +
|
|
$ (K3)*(K6)) - 2.d0*cz*(2.d0*(K2)*r0 + 2.d0*o0*(K3) + 2.d0*l0*(K6)
|
|
$ + (K2)*(K3)*(K6)) - 2.d0*dz*(2.d0*(K2)*r0 + 2.d0*o0*(K3)
|
|
$ + 2.d0*l0*(K6) + (K2)*(K3)*(K6)) + 4.d0*ay*bz*(2.d0*f0 +
|
|
$ (K6)**2.d0) - 2.d0*bz*(2.d0*f0*(K2) + 4.d0*o0*(K6) +
|
|
$ (K2)*(K6)**2.d0) - 2.d0*ay*(2.d0*f0*(K3) + 4.d0*r0*(K6) +
|
|
$ (K3)*(K6)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp29=pppp29+ ((rho*(16.d0*ay*bz*cz*dy
|
|
$ - 8.d0*bz*cz*dy*(K2) + 4.d0*o0*q0 + 4.d0*n0*r0 -
|
|
$ 8.d0*ay*by*cz*(K3) + 4.d0*cz*dy*(2.d0*l0 + (K2)*(K3))
|
|
$ + 4.d0*l0*u0 + 2.d0*(K2)*(K3)*u0 - 8.d0*ay*bz*dy*(K6) +
|
|
$ 2.d0*(K2)*q0*(K6) + 2.d0*n0*(K3)*(K6) - 8.d0*ay*bz*cz*(K5)
|
|
$ + 2.d0*(K2)*r0*(K5) + 2.d0*o0*(K3)*(K5) + 2.d0*l0*(K6)*(K5)
|
|
$ + (K2)*(K3)*(K6)*(K5) + 4.d0*bz*dy*(2.d0*o0 +
|
|
$ (K2)*(K6)) + 4.d0*ay*cy*(2.d0*r0 + (K3)*(K6)) -
|
|
$ 2.d0*dy*(2.d0*(K2)*r0 + 2.d0*o0*(K3) + 2.d0*l0*(K6) +
|
|
$ (K2)*(K3)*(K6)) + 4.d0*bz*cz*(2.d0*n0 + (K2)*(K5)) +
|
|
$ 4.d0*ay*cz*(2.d0*q0 + (K3)*(K5)) - 2.d0*cz*(2.d0*(K2)*q0
|
|
$ + 2.d0*n0*(K3) + 2.d0*l0*(K5) + (K2)*(K3)*(K5)) +
|
|
$ 4.d0*ay*bz*(2.d0*u0 + (K6)*(K5)) - 2.d0*bz*(2.d0*(K2)*u0
|
|
$ + 2.d0*n0*(K6) + 2.d0*o0*(K5) + (K2)*(K6)*(K5)) -
|
|
$ 2.d0*ay*(2.d0*(K3)*u0 + 2.d0*q0*(K6) + 2.d0*r0*(K5) +
|
|
$ (K3)*(K6)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp30=pppp30+ ((rho*(16.d0*ay*bz*cz*dx
|
|
$ - 8.d0*bz*cz*dx*(K2) + 4.d0*o0*p0 + 4.d0*m0*r0 -
|
|
$ 8.d0*ay*bx*cz*(K3) + 4.d0*cz*dx*(2.d0*l0 + (K2)*(K3))
|
|
$ + 4.d0*l0*t0 + 2.d0*(K2)*(K3)*t0 - 8.d0*ay*bz*cz*(K4) +
|
|
$ 2.d0*(K2)*r0*(K4) + 2.d0*o0*(K3)*(K4) + 4.d0*bz*cz*(2.d0*m0
|
|
$ + (K2)*(K4)) + 4.d0*ay*cz*(2.d0*p0 + (K3)*(K4))
|
|
$ - 2.d0*cz*(2.d0*(K2)*p0 + 2.d0*m0*(K3) + 2.d0*l0*(K4)
|
|
$ + (K2)*(K3)*(K4)) - 8.d0*ay*bz*dx*(K6) +
|
|
$ 2.d0*(K2)*p0*(K6) + 2.d0*m0*(K3)*(K6) + 2.d0*l0*(K4)*(K6) +
|
|
$ (K2)*(K3)*(K4)*(K6) + 4.d0*bz*dx*(2.d0*o0 + (K2)*(K6)) +
|
|
$ 4.d0*ay*cx*(2.d0*r0 + (K3)*(K6)) - 2.d0*dx*(2.d0*(K2)*r0
|
|
$ + 2.d0*o0*(K3) + 2.d0*l0*(K6) + (K2)*(K3)*(K6)) +
|
|
$ 4.d0*ay*bz*(2.d0*t0 + (K4)*(K6)) - 2.d0*bz*(2.d0*(K2)*t0
|
|
$ + 2.d0*o0*(K4) + 2.d0*m0*(K6) + (K2)*(K4)*(K6)) -
|
|
$ 2.d0*ay*(2.d0*(K3)*t0 + 2.d0*r0*(K4) + 2.d0*p0*(K6) +
|
|
$ (K3)*(K4)*(K6))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp31=pppp31+ ((rho*(16.d0*ay*bz*cy*dz
|
|
$ - 8.d0*bz*cy*dz*(K2) + 4.d0*o0*q0 + 4.d0*n0*r0 -
|
|
$ 8.d0*ay*bz*cy*(K3) + 4.d0*cy*dz*(2.d0*l0 + (K2)*(K3))
|
|
$ + 4.d0*l0*u0 + 2.d0*(K2)*(K3)*u0 - 8.d0*ay*bz*cy*(K6) +
|
|
$ 2.d0*(K2)*q0*(K6) + 2.d0*n0*(K3)*(K6) - 8.d0*ay*bz*dz*(K5)
|
|
$ + 2.d0*(K2)*r0*(K5) + 2.d0*o0*(K3)*(K5) + 2.d0*l0*(K6)*(K5)
|
|
$ + (K2)*(K3)*(K6)*(K5) + 4.d0*bz*cy*(2.d0*o0 +
|
|
$ (K2)*(K6)) + 4.d0*ay*cy*(2.d0*r0 + (K3)*(K6)) -
|
|
$ 2.d0*cy*(2.d0*(K2)*r0 + 2.d0*o0*(K3) + 2.d0*l0*(K6) +
|
|
$ (K2)*(K3)*(K6)) + 4.d0*bz*dz*(2.d0*n0 + (K2)*(K5)) +
|
|
$ 4.d0*ay*cz*(2.d0*q0 + (K3)*(K5)) - 2.d0*dz*(2.d0*(K2)*q0
|
|
$ + 2.d0*n0*(K3) + 2.d0*l0*(K5) + (K2)*(K3)*(K5)) +
|
|
$ 4.d0*ay*bz*(2.d0*u0 + (K6)*(K5)) - 2.d0*bz*(2.d0*(K2)*u0
|
|
$ + 2.d0*n0*(K6) + 2.d0*o0*(K5) + (K2)*(K6)*(K5)) -
|
|
$ 2.d0*ay*(2.d0*(K3)*u0 + 2.d0*q0*(K6) + 2.d0*r0*(K5) +
|
|
$ (K3)*(K6)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp32=pppp32+ ((rho*(16.d0*ay*bz*cy*dy + 4.d0*e0*l0 -
|
|
$ 8.d0*bz*cy*dy*(K2) + 8.d0*n0*q0 - 8.d0*ay*by*cy*(K3)
|
|
$ + 2.d0*e0*(K2)*(K3) + 4.d0*cy*dy*(2.d0*l0 + (K2)*(K3))
|
|
$ - 8.d0*ay*bz*cy*(K5) - 8.d0*ay*bz*dy*(K5) +
|
|
$ 4.d0*(K2)*q0*(K5) + 4.d0*n0*(K3)*(K5) + 2.d0*l0*(K5)**2.d0 +
|
|
$ (K2)*(K3)*(K5)**2.d0 + 4.d0*bz*cy*(2.d0*n0 + (K2)*(K5)) +
|
|
$ 4.d0*bz*dy*(2.d0*n0 + (K2)*(K5)) + 8.d0*ay*cy*(2.d0*q0 +
|
|
$ (K3)*(K5)) - 2.d0*cy*(2.d0*(K2)*q0 + 2.d0*n0*(K3) + 2.d0*l0*(K5)
|
|
$ + (K2)*(K3)*(K5)) - 2.d0*dy*(2.d0*(K2)*q0 + 2.d0*n0*(K3)
|
|
$ + 2.d0*l0*(K5) + (K2)*(K3)*(K5)) + 4.d0*ay*bz*(2.d0*e0 +
|
|
$ (K5)**2.d0) - 2.d0*bz*(2.d0*e0*(K2) + 4.d0*n0*(K5) +
|
|
$ (K2)*(K5)**2.d0) - 2.d0*ay*(2.d0*e0*(K3) + 4.d0*q0*(K5) +
|
|
$ (K3)*(K5)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp33=pppp33+ ((rho*(16.d0*ay*bz*cy*dx
|
|
$ - 8.d0*bz*cy*dx*(K2) + 4.d0*n0*p0 + 4.d0*m0*q0 -
|
|
$ 8.d0*ay*bx*cy*(K3) + 4.d0*cy*dx*(2.d0*l0 + (K2)*(K3))
|
|
$ + 4.d0*l0*s0 + 2.d0*(K2)*(K3)*s0 - 8.d0*ay*bz*cy*(K4) +
|
|
$ 2.d0*(K2)*q0*(K4) + 2.d0*n0*(K3)*(K4) + 4.d0*bz*cy*(2.d0*m0
|
|
$ + (K2)*(K4)) + 4.d0*ay*cy*(2.d0*p0 + (K3)*(K4))
|
|
$ - 2.d0*cy*(2.d0*(K2)*p0 + 2.d0*m0*(K3) + 2.d0*l0*(K4)
|
|
$ + (K2)*(K3)*(K4)) - 8.d0*ay*bz*dx*(K5) +
|
|
$ 2.d0*(K2)*p0*(K5) + 2.d0*m0*(K3)*(K5) + 2.d0*l0*(K4)*(K5) +
|
|
$ (K2)*(K3)*(K4)*(K5) + 4.d0*bz*dx*(2.d0*n0 + (K2)*(K5)) +
|
|
$ 4.d0*ay*cx*(2.d0*q0 + (K3)*(K5)) - 2.d0*dx*(2.d0*(K2)*q0
|
|
$ + 2.d0*n0*(K3) + 2.d0*l0*(K5) + (K2)*(K3)*(K5)) +
|
|
$ 4.d0*ay*bz*(2.d0*s0 + (K4)*(K5)) - 2.d0*bz*(2.d0*(K2)*s0
|
|
$ + 2.d0*n0*(K4) + 2.d0*m0*(K5) + (K2)*(K4)*(K5)) -
|
|
$ 2.d0*ay*(2.d0*(K3)*s0 + 2.d0*q0*(K4) + 2.d0*p0*(K5) +
|
|
$ (K3)*(K4)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp34=pppp34+ ((rho*(16.d0*ay*bz*cx*dz
|
|
$ - 8.d0*bz*cx*dz*(K2) + 4.d0*o0*p0 + 4.d0*m0*r0 -
|
|
$ 8.d0*ay*bz*cx*(K3) + 4.d0*cx*dz*(2.d0*l0 + (K2)*(K3))
|
|
$ + 4.d0*l0*t0 + 2.d0*(K2)*(K3)*t0 - 8.d0*ay*bz*dz*(K4) +
|
|
$ 2.d0*(K2)*r0*(K4) + 2.d0*o0*(K3)*(K4) + 4.d0*bz*dz*(2.d0*m0
|
|
$ + (K2)*(K4)) + 4.d0*ay*cz*(2.d0*p0 + (K3)*(K4))
|
|
$ - 2.d0*dz*(2.d0*(K2)*p0 + 2.d0*m0*(K3) + 2.d0*l0*(K4)
|
|
$ + (K2)*(K3)*(K4)) - 8.d0*ay*bz*cx*(K6) +
|
|
$ 2.d0*(K2)*p0*(K6) + 2.d0*m0*(K3)*(K6) + 2.d0*l0*(K4)*(K6) +
|
|
$ (K2)*(K3)*(K4)*(K6) + 4.d0*bz*cx*(2.d0*o0 + (K2)*(K6)) +
|
|
$ 4.d0*ay*cx*(2.d0*r0 + (K3)*(K6)) - 2.d0*cx*(2.d0*(K2)*r0
|
|
$ + 2.d0*o0*(K3) + 2.d0*l0*(K6) + (K2)*(K3)*(K6)) +
|
|
$ 4.d0*ay*bz*(2.d0*t0 + (K4)*(K6)) - 2.d0*bz*(2.d0*(K2)*t0
|
|
$ + 2.d0*o0*(K4) + 2.d0*m0*(K6) + (K2)*(K4)*(K6)) -
|
|
$ 2.d0*ay*(2.d0*(K3)*t0 + 2.d0*r0*(K4) + 2.d0*p0*(K6) +
|
|
$ (K3)*(K4)*(K6))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp35=pppp35+ ((rho*(16.d0*ay*bz*cx*dy
|
|
$ - 8.d0*bz*cx*dy*(K2) + 4.d0*n0*p0 + 4.d0*m0*q0 -
|
|
$ 8.d0*ay*by*cx*(K3) + 4.d0*cx*dy*(2.d0*l0 + (K2)*(K3))
|
|
$ + 4.d0*l0*s0 + 2.d0*(K2)*(K3)*s0 - 8.d0*ay*bz*dy*(K4) +
|
|
$ 2.d0*(K2)*q0*(K4) + 2.d0*n0*(K3)*(K4) + 4.d0*bz*dy*(2.d0*m0
|
|
$ + (K2)*(K4)) + 4.d0*ay*cy*(2.d0*p0 + (K3)*(K4))
|
|
$ - 2.d0*dy*(2.d0*(K2)*p0 + 2.d0*m0*(K3) + 2.d0*l0*(K4)
|
|
$ + (K2)*(K3)*(K4)) - 8.d0*ay*bz*cx*(K5) +
|
|
$ 2.d0*(K2)*p0*(K5) + 2.d0*m0*(K3)*(K5) + 2.d0*l0*(K4)*(K5) +
|
|
$ (K2)*(K3)*(K4)*(K5) + 4.d0*bz*cx*(2.d0*n0 + (K2)*(K5)) +
|
|
$ 4.d0*ay*cx*(2.d0*q0 + (K3)*(K5)) - 2.d0*cx*(2.d0*(K2)*q0
|
|
$ + 2.d0*n0*(K3) + 2.d0*l0*(K5) + (K2)*(K3)*(K5)) +
|
|
$ 4.d0*ay*bz*(2.d0*s0 + (K4)*(K5)) - 2.d0*bz*(2.d0*(K2)*s0
|
|
$ + 2.d0*n0*(K4) + 2.d0*m0*(K5) + (K2)*(K4)*(K5)) -
|
|
$ 2.d0*ay*(2.d0*(K3)*s0 + 2.d0*q0*(K4) + 2.d0*p0*(K5) +
|
|
$ (K3)*(K4)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp36=pppp36+ ((rho*(16.d0*ay*bz*cx*dx + 4.d0*d0*l0 -
|
|
$ 8.d0*bz*cx*dx*(K2) + 8.d0*m0*p0 - 8.d0*ay*bx*cx*(K3)
|
|
$ + 2.d0*d0*(K2)*(K3) + 4.d0*cx*dx*(2.d0*l0 + (K2)*(K3))
|
|
$ - 8.d0*ay*bz*cx*(K4) - 8.d0*ay*bz*dx*(K4) +
|
|
$ 4.d0*(K2)*p0*(K4) + 4.d0*m0*(K3)*(K4) + 2.d0*l0*(K4)**2.d0 +
|
|
$ (K2)*(K3)*(K4)**2.d0 + 4.d0*bz*cx*(2.d0*m0 + (K2)*(K4)) +
|
|
$ 4.d0*bz*dx*(2.d0*m0 + (K2)*(K4)) + 8.d0*ay*cx*(2.d0*p0 +
|
|
$ (K3)*(K4)) - 2.d0*cx*(2.d0*(K2)*p0 + 2.d0*m0*(K3) + 2.d0*l0*(K4)
|
|
$ + (K2)*(K3)*(K4)) - 2.d0*dx*(2.d0*(K2)*p0 + 2.d0*m0*(K3)
|
|
$ + 2.d0*l0*(K4) + (K2)*(K3)*(K4)) + 4.d0*ay*bz*(2.d0*d0 +
|
|
$ (K4)**2.d0) - 2.d0*bz*(2.d0*d0*(K2) + 4.d0*m0*(K4) +
|
|
$ (K2)*(K4)**2.d0) - 2.d0*ay*(2.d0*d0*(K3) + 4.d0*p0*(K4) +
|
|
$ (K3)*(K4)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp37=pppp37+ ((rho*(16.d0*ay*by*cz*dz + 4.d0*b0*f0 +
|
|
$ 8.d0*o0**2.d0 - 8.d0*ay*bz*cz*(K2) - 8.d0*by*cz*dz*(K2)
|
|
$ + 2.d0*f0*(K2)**2.d0 + 4.d0*cz*dz*(2.d0*b0 + (K2)**2.d0)
|
|
$ - 8.d0*ay*by*cz*(K6) - 8.d0*ay*by*dz*(K6)
|
|
$ + 8.d0*o0*(K2)*(K6) + 2.d0*b0*(K6)**2.d0 +
|
|
$ (K2)**2.d0*(K6)**2.d0 + 8.d0*ay*cz*(2.d0*o0 +
|
|
$ (K2)*(K6)) + 4.d0*by*cz*(2.d0*o0 + (K2)*(K6)) +
|
|
$ 4.d0*by*dz*(2.d0*o0 + (K2)*(K6)) - 2.d0*cz*(4.d0*o0*(K2) +
|
|
$ 2.d0*b0*(K6) + (K2)**2.d0*(K6)) - 2.d0*dz*(4.d0*o0*(K2) +
|
|
$ 2.d0*b0*(K6) + (K2)**2.d0*(K6)) + 4.d0*ay*by*(2.d0*f0 +
|
|
$ (K6)**2.d0) - 2.d0*ay*(2.d0*f0*(K2) + 4.d0*o0*(K6) +
|
|
$ (K2)*(K6)**2.d0) - 2.d0*by*(2.d0*f0*(K2) + 4.d0*o0*(K6) +
|
|
$ (K2)*(K6)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp38=pppp38+ ((rho*(16.d0*ay*by*cz*dy +
|
|
$ 8.d0*n0*o0 - 8.d0*ay*by*cz*(K2) - 8.d0*by*cz*dy*(K2)
|
|
$ + 4.d0*cz*dy*(2.d0*b0 + (K2)**2.d0) + 4.d0*b0*u0 +
|
|
$ 2.d0*(K2)**2.d0*u0 - 8.d0*ay*by*dy*(K6) + 4.d0*n0*(K2)*(K6) -
|
|
$ 8.d0*ay*by*cz*(K5) + 4.d0*o0*(K2)*(K5) + 2.d0*b0*(K6)*(K5) +
|
|
$ (K2)**2.d0*(K6)*(K5) + 4.d0*ay*cy*(2.d0*o0 + (K2)*(K6))
|
|
$ + 4.d0*by*dy*(2.d0*o0 + (K2)*(K6)) - 2.d0*dy*(4.d0*o0*(K2)
|
|
$ + 2.d0*b0*(K6) + (K2)**2.d0*(K6)) + 4.d0*ay*cz*(2.d0*n0
|
|
$ + (K2)*(K5)) + 4.d0*by*cz*(2.d0*n0 + (K2)*(K5)) -
|
|
$ 2.d0*cz*(4.d0*n0*(K2) + 2.d0*b0*(K5) + (K2)**2.d0*(K5)) +
|
|
$ 4.d0*ay*by*(2.d0*u0 + (K6)*(K5)) - 2.d0*ay*(2.d0*(K2)*u0
|
|
$ + 2.d0*n0*(K6) + 2.d0*o0*(K5) + (K2)*(K6)*(K5)) -
|
|
$ 2.d0*by*(2.d0*(K2)*u0 + 2.d0*n0*(K6) + 2.d0*o0*(K5) +
|
|
$ (K2)*(K6)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp39=pppp39+ ((rho*(16.d0*ay*by*cz*dx +
|
|
$ 8.d0*m0*o0 - 8.d0*ay*bx*cz*(K2) - 8.d0*by*cz*dx*(K2)
|
|
$ + 4.d0*cz*dx*(2.d0*b0 + (K2)**2.d0) + 4.d0*b0*t0 +
|
|
$ 2.d0*(K2)**2.d0*t0 - 8.d0*ay*by*cz*(K4) + 4.d0*o0*(K2)*(K4)
|
|
$ + 4.d0*ay*cz*(2.d0*m0 + (K2)*(K4)) + 4.d0*by*cz*(2.d0*m0
|
|
$ + (K2)*(K4)) - 2.d0*cz*(4.d0*m0*(K2) + 2.d0*b0*(K4) +
|
|
$ (K2)**2.d0*(K4)) - 8.d0*ay*by*dx*(K6) + 4.d0*m0*(K2)*(K6) +
|
|
$ 2.d0*b0*(K4)*(K6) + (K2)**2.d0*(K4)*(K6) + 4.d0*ay*cx*(2.d0*o0
|
|
$ + (K2)*(K6)) + 4.d0*by*dx*(2.d0*o0 + (K2)*(K6)) -
|
|
$ 2.d0*dx*(4.d0*o0*(K2) + 2.d0*b0*(K6) + (K2)**2.d0*(K6)) +
|
|
$ 4.d0*ay*by*(2.d0*t0 + (K4)*(K6)) - 2.d0*ay*(2.d0*(K2)*t0
|
|
$ + 2.d0*o0*(K4) + 2.d0*m0*(K6) + (K2)*(K4)*(K6)) -
|
|
$ 2.d0*by*(2.d0*(K2)*t0 + 2.d0*o0*(K4) + 2.d0*m0*(K6) +
|
|
$ (K2)*(K4)*(K6))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp40=pppp40+ ((rho*(16.d0*ay*by*cy*dz +
|
|
$ 8.d0*n0*o0 - 8.d0*ay*bz*cy*(K2) - 8.d0*by*cy*dz*(K2)
|
|
$ + 4.d0*cy*dz*(2.d0*b0 + (K2)**2.d0) + 4.d0*b0*u0 +
|
|
$ 2.d0*(K2)**2.d0*u0 - 8.d0*ay*by*cy*(K6) + 4.d0*n0*(K2)*(K6) -
|
|
$ 8.d0*ay*by*dz*(K5) + 4.d0*o0*(K2)*(K5) + 2.d0*b0*(K6)*(K5) +
|
|
$ (K2)**2.d0*(K6)*(K5) + 4.d0*ay*cy*(2.d0*o0 + (K2)*(K6))
|
|
$ + 4.d0*by*cy*(2.d0*o0 + (K2)*(K6)) - 2.d0*cy*(4.d0*o0*(K2)
|
|
$ + 2.d0*b0*(K6) + (K2)**2.d0*(K6)) + 4.d0*ay*cz*(2.d0*n0
|
|
$ + (K2)*(K5)) + 4.d0*by*dz*(2.d0*n0 + (K2)*(K5)) -
|
|
$ 2.d0*dz*(4.d0*n0*(K2) + 2.d0*b0*(K5) + (K2)**2.d0*(K5)) +
|
|
$ 4.d0*ay*by*(2.d0*u0 + (K6)*(K5)) - 2.d0*ay*(2.d0*(K2)*u0
|
|
$ + 2.d0*n0*(K6) + 2.d0*o0*(K5) + (K2)*(K6)*(K5)) -
|
|
$ 2.d0*by*(2.d0*(K2)*u0 + 2.d0*n0*(K6) + 2.d0*o0*(K5) +
|
|
$ (K2)*(K6)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp41=pppp41+ ((rho*(16.d0*ay*by*cy*dy + 4.d0*b0*e0 +
|
|
$ 8.d0*n0**2.d0 - 8.d0*ay*by*cy*(K2) - 8.d0*by*cy*dy*(K2)
|
|
$ + 2.d0*e0*(K2)**2.d0 + 4.d0*cy*dy*(2.d0*b0 + (K2)**2.d0)
|
|
$ - 8.d0*ay*by*cy*(K5) - 8.d0*ay*by*dy*(K5)
|
|
$ + 8.d0*n0*(K2)*(K5) + 2.d0*b0*(K5)**2.d0 +
|
|
$ (K2)**2.d0*(K5)**2.d0 + 8.d0*ay*cy*(2.d0*n0 +
|
|
$ (K2)*(K5)) + 4.d0*by*cy*(2.d0*n0 + (K2)*(K5)) +
|
|
$ 4.d0*by*dy*(2.d0*n0 + (K2)*(K5)) - 2.d0*cy*(4.d0*n0*(K2) +
|
|
$ 2.d0*b0*(K5) + (K2)**2.d0*(K5)) - 2.d0*dy*(4.d0*n0*(K2) +
|
|
$ 2.d0*b0*(K5) + (K2)**2.d0*(K5)) + 4.d0*ay*by*(2.d0*e0 +
|
|
$ (K5)**2.d0) - 2.d0*ay*(2.d0*e0*(K2) + 4.d0*n0*(K5) +
|
|
$ (K2)*(K5)**2.d0) - 2.d0*by*(2.d0*e0*(K2) + 4.d0*n0*(K5) +
|
|
$ (K2)*(K5)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp42=pppp42+ ((rho*(16.d0*ay*by*cy*dx +
|
|
$ 8.d0*m0*n0 - 8.d0*ay*bx*cy*(K2) - 8.d0*by*cy*dx*(K2)
|
|
$ + 4.d0*cy*dx*(2.d0*b0 + (K2)**2.d0) + 4.d0*b0*s0 +
|
|
$ 2.d0*(K2)**2.d0*s0 - 8.d0*ay*by*cy*(K4) + 4.d0*n0*(K2)*(K4)
|
|
$ + 4.d0*ay*cy*(2.d0*m0 + (K2)*(K4)) + 4.d0*by*cy*(2.d0*m0
|
|
$ + (K2)*(K4)) - 2.d0*cy*(4.d0*m0*(K2) + 2.d0*b0*(K4) +
|
|
$ (K2)**2.d0*(K4)) - 8.d0*ay*by*dx*(K5) + 4.d0*m0*(K2)*(K5) +
|
|
$ 2.d0*b0*(K4)*(K5) + (K2)**2.d0*(K4)*(K5) + 4.d0*ay*cx*(2.d0*n0
|
|
$ + (K2)*(K5)) + 4.d0*by*dx*(2.d0*n0 + (K2)*(K5)) -
|
|
$ 2.d0*dx*(4.d0*n0*(K2) + 2.d0*b0*(K5) + (K2)**2.d0*(K5)) +
|
|
$ 4.d0*ay*by*(2.d0*s0 + (K4)*(K5)) - 2.d0*ay*(2.d0*(K2)*s0
|
|
$ + 2.d0*n0*(K4) + 2.d0*m0*(K5) + (K2)*(K4)*(K5)) -
|
|
$ 2.d0*by*(2.d0*(K2)*s0 + 2.d0*n0*(K4) + 2.d0*m0*(K5) +
|
|
$ (K2)*(K4)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp43=pppp43+ ((rho*(16.d0*ay*by*cx*dz +
|
|
$ 8.d0*m0*o0 - 8.d0*ay*bz*cx*(K2) - 8.d0*by*cx*dz*(K2)
|
|
$ + 4.d0*cx*dz*(2.d0*b0 + (K2)**2.d0) + 4.d0*b0*t0 +
|
|
$ 2.d0*(K2)**2.d0*t0 - 8.d0*ay*by*dz*(K4) + 4.d0*o0*(K2)*(K4)
|
|
$ + 4.d0*ay*cz*(2.d0*m0 + (K2)*(K4)) + 4.d0*by*dz*(2.d0*m0
|
|
$ + (K2)*(K4)) - 2.d0*dz*(4.d0*m0*(K2) + 2.d0*b0*(K4) +
|
|
$ (K2)**2.d0*(K4)) - 8.d0*ay*by*cx*(K6) + 4.d0*m0*(K2)*(K6) +
|
|
$ 2.d0*b0*(K4)*(K6) + (K2)**2.d0*(K4)*(K6) + 4.d0*ay*cx*(2.d0*o0
|
|
$ + (K2)*(K6)) + 4.d0*by*cx*(2.d0*o0 + (K2)*(K6)) -
|
|
$ 2.d0*cx*(4.d0*o0*(K2) + 2.d0*b0*(K6) + (K2)**2.d0*(K6)) +
|
|
$ 4.d0*ay*by*(2.d0*t0 + (K4)*(K6)) - 2.d0*ay*(2.d0*(K2)*t0
|
|
$ + 2.d0*o0*(K4) + 2.d0*m0*(K6) + (K2)*(K4)*(K6)) -
|
|
$ 2.d0*by*(2.d0*(K2)*t0 + 2.d0*o0*(K4) + 2.d0*m0*(K6) +
|
|
$ (K2)*(K4)*(K6))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp44=pppp44+ ((rho*(16.d0*ay*by*cx*dy +
|
|
$ 8.d0*m0*n0 - 8.d0*ay*by*cx*(K2) - 8.d0*by*cx*dy*(K2)
|
|
$ + 4.d0*cx*dy*(2.d0*b0 + (K2)**2.d0) + 4.d0*b0*s0 +
|
|
$ 2.d0*(K2)**2.d0*s0 - 8.d0*ay*by*dy*(K4) + 4.d0*n0*(K2)*(K4)
|
|
$ + 4.d0*ay*cy*(2.d0*m0 + (K2)*(K4)) + 4.d0*by*dy*(2.d0*m0
|
|
$ + (K2)*(K4)) - 2.d0*dy*(4.d0*m0*(K2) + 2.d0*b0*(K4) +
|
|
$ (K2)**2.d0*(K4)) - 8.d0*ay*by*cx*(K5) + 4.d0*m0*(K2)*(K5) +
|
|
$ 2.d0*b0*(K4)*(K5) + (K2)**2.d0*(K4)*(K5) + 4.d0*ay*cx*(2.d0*n0
|
|
$ + (K2)*(K5)) + 4.d0*by*cx*(2.d0*n0 + (K2)*(K5)) -
|
|
$ 2.d0*cx*(4.d0*n0*(K2) + 2.d0*b0*(K5) + (K2)**2.d0*(K5)) +
|
|
$ 4.d0*ay*by*(2.d0*s0 + (K4)*(K5)) - 2.d0*ay*(2.d0*(K2)*s0
|
|
$ + 2.d0*n0*(K4) + 2.d0*m0*(K5) + (K2)*(K4)*(K5)) -
|
|
$ 2.d0*by*(2.d0*(K2)*s0 + 2.d0*n0*(K4) + 2.d0*m0*(K5) +
|
|
$ (K2)*(K4)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp45=pppp45+ ((rho*(4.d0*b0*d0 + 16.d0*ay*by*cx*dx +
|
|
$ 8.d0*m0**2.d0 - 8.d0*ay*bx*cx*(K2) - 8.d0*by*cx*dx*(K2)
|
|
$ + 2.d0*d0*(K2)**2.d0 + 4.d0*cx*dx*(2.d0*b0 + (K2)**2.d0)
|
|
$ - 8.d0*ay*by*cx*(K4) - 8.d0*ay*by*dx*(K4)
|
|
$ + 8.d0*m0*(K2)*(K4) + 2.d0*b0*(K4)**2.d0 +
|
|
$ (K2)**2.d0*(K4)**2.d0 + 8.d0*ay*cx*(2.d0*m0 +
|
|
$ (K2)*(K4)) + 4.d0*by*cx*(2.d0*m0 + (K2)*(K4)) +
|
|
$ 4.d0*by*dx*(2.d0*m0 + (K2)*(K4)) - 2.d0*cx*(4.d0*m0*(K2) +
|
|
$ 2.d0*b0*(K4) + (K2)**2.d0*(K4)) - 2.d0*dx*(4.d0*m0*(K2) +
|
|
$ 2.d0*b0*(K4) + (K2)**2.d0*(K4)) + 4.d0*ay*by*(2.d0*d0 +
|
|
$ (K4)**2.d0) - 2.d0*ay*(2.d0*d0*(K2) + 4.d0*m0*(K4) +
|
|
$ (K2)*(K4)**2.d0) - 2.d0*by*(2.d0*d0*(K2) + 4.d0*m0*(K4) +
|
|
$ (K2)*(K4)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp46=pppp46+ ((rho*(16.d0*ay*bx*cz*dz + 4.d0*f0*g0 -
|
|
$ 8.d0*ay*bz*cz*(K1) + 8.d0*k0*o0 - 8.d0*bx*cz*dz*(K2)
|
|
$ + 2.d0*f0*(K1)*(K2) + 4.d0*cz*dz*(2.d0*g0 + (K1)*(K2))
|
|
$ - 8.d0*ay*bx*cz*(K6) - 8.d0*ay*bx*dz*(K6) +
|
|
$ 4.d0*(K1)*o0*(K6) + 4.d0*k0*(K2)*(K6) + 2.d0*g0*(K6)**2.d0 +
|
|
$ (K1)*(K2)*(K6)**2.d0 + 8.d0*ay*cz*(2.d0*k0 + (K1)*(K6))
|
|
$ + 4.d0*bx*cz*(2.d0*o0 + (K2)*(K6)) + 4.d0*bx*dz*(2.d0*o0 +
|
|
$ (K2)*(K6)) - 2.d0*cz*(2.d0*(K1)*o0 + 2.d0*k0*(K2) + 2.d0*g0*(K6)
|
|
$ + (K1)*(K2)*(K6)) - 2.d0*dz*(2.d0*(K1)*o0 + 2.d0*k0*(K2)
|
|
$ + 2.d0*g0*(K6) + (K1)*(K2)*(K6)) + 4.d0*ay*bx*(2.d0*f0 +
|
|
$ (K6)**2.d0) - 2.d0*ay*(2.d0*f0*(K1) + 4.d0*k0*(K6) +
|
|
$ (K1)*(K6)**2.d0) - 2.d0*bx*(2.d0*f0*(K2) + 4.d0*o0*(K6) +
|
|
$ (K2)*(K6)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp47=pppp47+ ((rho*(16.d0*ay*bx*cz*dy
|
|
$ - 8.d0*ay*by*cz*(K1) + 4.d0*k0*n0 + 4.d0*j0*o0 -
|
|
$ 8.d0*bx*cz*dy*(K2) + 4.d0*cz*dy*(2.d0*g0 + (K1)*(K2))
|
|
$ + 4.d0*g0*u0 + 2.d0*(K1)*(K2)*u0 - 8.d0*ay*bx*dy*(K6) +
|
|
$ 2.d0*(K1)*n0*(K6) + 2.d0*j0*(K2)*(K6) - 8.d0*ay*bx*cz*(K5)
|
|
$ + 2.d0*(K1)*o0*(K5) + 2.d0*k0*(K2)*(K5) + 2.d0*g0*(K6)*(K5)
|
|
$ + (K1)*(K2)*(K6)*(K5) + 4.d0*ay*cy*(2.d0*k0 +
|
|
$ (K1)*(K6)) + 4.d0*bx*dy*(2.d0*o0 + (K2)*(K6)) -
|
|
$ 2.d0*dy*(2.d0*(K1)*o0 + 2.d0*k0*(K2) + 2.d0*g0*(K6) +
|
|
$ (K1)*(K2)*(K6)) + 4.d0*ay*cz*(2.d0*j0 + (K1)*(K5)) +
|
|
$ 4.d0*bx*cz*(2.d0*n0 + (K2)*(K5)) - 2.d0*cz*(2.d0*(K1)*n0
|
|
$ + 2.d0*j0*(K2) + 2.d0*g0*(K5) + (K1)*(K2)*(K5)) +
|
|
$ 4.d0*ay*bx*(2.d0*u0 + (K6)*(K5)) - 2.d0*ay*(2.d0*(K1)*u0
|
|
$ + 2.d0*j0*(K6) + 2.d0*k0*(K5) + (K1)*(K6)*(K5)) -
|
|
$ 2.d0*bx*(2.d0*(K2)*u0 + 2.d0*n0*(K6) + 2.d0*o0*(K5) +
|
|
$ (K2)*(K6)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp48=pppp48+ ((rho*(16.d0*ay*bx*cz*dx
|
|
$ - 8.d0*ay*bx*cz*(K1) + 4.d0*k0*m0 + 4.d0*i0*o0 -
|
|
$ 8.d0*bx*cz*dx*(K2) + 4.d0*cz*dx*(2.d0*g0 + (K1)*(K2))
|
|
$ + 4.d0*g0*t0 + 2.d0*(K1)*(K2)*t0 - 8.d0*ay*bx*cz*(K4) +
|
|
$ 2.d0*(K1)*o0*(K4) + 2.d0*k0*(K2)*(K4) + 4.d0*ay*cz*(2.d0*i0
|
|
$ + (K1)*(K4)) + 4.d0*bx*cz*(2.d0*m0 + (K2)*(K4))
|
|
$ - 2.d0*cz*(2.d0*(K1)*m0 + 2.d0*i0*(K2) + 2.d0*g0*(K4)
|
|
$ + (K1)*(K2)*(K4)) - 8.d0*ay*bx*dx*(K6) +
|
|
$ 2.d0*(K1)*m0*(K6) + 2.d0*i0*(K2)*(K6) + 2.d0*g0*(K4)*(K6) +
|
|
$ (K1)*(K2)*(K4)*(K6) + 4.d0*ay*cx*(2.d0*k0 + (K1)*(K6)) +
|
|
$ 4.d0*bx*dx*(2.d0*o0 + (K2)*(K6)) - 2.d0*dx*(2.d0*(K1)*o0
|
|
$ + 2.d0*k0*(K2) + 2.d0*g0*(K6) + (K1)*(K2)*(K6)) +
|
|
$ 4.d0*ay*bx*(2.d0*t0 + (K4)*(K6)) - 2.d0*ay*(2.d0*(K1)*t0
|
|
$ + 2.d0*k0*(K4) + 2.d0*i0*(K6) + (K1)*(K4)*(K6)) -
|
|
$ 2.d0*bx*(2.d0*(K2)*t0 + 2.d0*o0*(K4) + 2.d0*m0*(K6) +
|
|
$ (K2)*(K4)*(K6))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp49=pppp49+ ((rho*(16.d0*ay*bx*cy*dz
|
|
$ - 8.d0*ay*bz*cy*(K1) + 4.d0*k0*n0 + 4.d0*j0*o0 -
|
|
$ 8.d0*bx*cy*dz*(K2) + 4.d0*cy*dz*(2.d0*g0 + (K1)*(K2))
|
|
$ + 4.d0*g0*u0 + 2.d0*(K1)*(K2)*u0 - 8.d0*ay*bx*cy*(K6) +
|
|
$ 2.d0*(K1)*n0*(K6) + 2.d0*j0*(K2)*(K6) - 8.d0*ay*bx*dz*(K5)
|
|
$ + 2.d0*(K1)*o0*(K5) + 2.d0*k0*(K2)*(K5) + 2.d0*g0*(K6)*(K5)
|
|
$ + (K1)*(K2)*(K6)*(K5) + 4.d0*ay*cy*(2.d0*k0 +
|
|
$ (K1)*(K6)) + 4.d0*bx*cy*(2.d0*o0 + (K2)*(K6)) -
|
|
$ 2.d0*cy*(2.d0*(K1)*o0 + 2.d0*k0*(K2) + 2.d0*g0*(K6) +
|
|
$ (K1)*(K2)*(K6)) + 4.d0*ay*cz*(2.d0*j0 + (K1)*(K5)) +
|
|
$ 4.d0*bx*dz*(2.d0*n0 + (K2)*(K5)) - 2.d0*dz*(2.d0*(K1)*n0
|
|
$ + 2.d0*j0*(K2) + 2.d0*g0*(K5) + (K1)*(K2)*(K5)) +
|
|
$ 4.d0*ay*bx*(2.d0*u0 + (K6)*(K5)) - 2.d0*ay*(2.d0*(K1)*u0
|
|
$ + 2.d0*j0*(K6) + 2.d0*k0*(K5) + (K1)*(K6)*(K5)) -
|
|
$ 2.d0*bx*(2.d0*(K2)*u0 + 2.d0*n0*(K6) + 2.d0*o0*(K5) +
|
|
$ (K2)*(K6)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp50=pppp50+ ((rho*(16.d0*ay*bx*cy*dy + 4.d0*e0*g0 -
|
|
$ 8.d0*ay*by*cy*(K1) + 8.d0*j0*n0 - 8.d0*bx*cy*dy*(K2)
|
|
$ + 2.d0*e0*(K1)*(K2) + 4.d0*cy*dy*(2.d0*g0 + (K1)*(K2))
|
|
$ - 8.d0*ay*bx*cy*(K5) - 8.d0*ay*bx*dy*(K5) +
|
|
$ 4.d0*(K1)*n0*(K5) + 4.d0*j0*(K2)*(K5) + 2.d0*g0*(K5)**2.d0 +
|
|
$ (K1)*(K2)*(K5)**2.d0 + 8.d0*ay*cy*(2.d0*j0 + (K1)*(K5))
|
|
$ + 4.d0*bx*cy*(2.d0*n0 + (K2)*(K5)) + 4.d0*bx*dy*(2.d0*n0 +
|
|
$ (K2)*(K5)) - 2.d0*cy*(2.d0*(K1)*n0 + 2.d0*j0*(K2) + 2.d0*g0*(K5)
|
|
$ + (K1)*(K2)*(K5)) - 2.d0*dy*(2.d0*(K1)*n0 + 2.d0*j0*(K2)
|
|
$ + 2.d0*g0*(K5) + (K1)*(K2)*(K5)) + 4.d0*ay*bx*(2.d0*e0 +
|
|
$ (K5)**2.d0) - 2.d0*ay*(2.d0*e0*(K1) + 4.d0*j0*(K5) +
|
|
$ (K1)*(K5)**2.d0) - 2.d0*bx*(2.d0*e0*(K2) + 4.d0*n0*(K5) +
|
|
$ (K2)*(K5)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp51=pppp51+ ((rho*(16.d0*ay*bx*cy*dx
|
|
$ - 8.d0*ay*bx*cy*(K1) + 4.d0*j0*m0 + 4.d0*i0*n0 -
|
|
$ 8.d0*bx*cy*dx*(K2) + 4.d0*cy*dx*(2.d0*g0 + (K1)*(K2))
|
|
$ + 4.d0*g0*s0 + 2.d0*(K1)*(K2)*s0 - 8.d0*ay*bx*cy*(K4) +
|
|
$ 2.d0*(K1)*n0*(K4) + 2.d0*j0*(K2)*(K4) + 4.d0*ay*cy*(2.d0*i0
|
|
$ + (K1)*(K4)) + 4.d0*bx*cy*(2.d0*m0 + (K2)*(K4))
|
|
$ - 2.d0*cy*(2.d0*(K1)*m0 + 2.d0*i0*(K2) + 2.d0*g0*(K4)
|
|
$ + (K1)*(K2)*(K4)) - 8.d0*ay*bx*dx*(K5) +
|
|
$ 2.d0*(K1)*m0*(K5) + 2.d0*i0*(K2)*(K5) + 2.d0*g0*(K4)*(K5) +
|
|
$ (K1)*(K2)*(K4)*(K5) + 4.d0*ay*cx*(2.d0*j0 + (K1)*(K5)) +
|
|
$ 4.d0*bx*dx*(2.d0*n0 + (K2)*(K5)) - 2.d0*dx*(2.d0*(K1)*n0
|
|
$ + 2.d0*j0*(K2) + 2.d0*g0*(K5) + (K1)*(K2)*(K5)) +
|
|
$ 4.d0*ay*bx*(2.d0*s0 + (K4)*(K5)) - 2.d0*ay*(2.d0*(K1)*s0
|
|
$ + 2.d0*j0*(K4) + 2.d0*i0*(K5) + (K1)*(K4)*(K5)) -
|
|
$ 2.d0*bx*(2.d0*(K2)*s0 + 2.d0*n0*(K4) + 2.d0*m0*(K5) +
|
|
$ (K2)*(K4)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp52=pppp52+ ((rho*(16.d0*ay*bx*cx*dz
|
|
$ - 8.d0*ay*bz*cx*(K1) + 4.d0*k0*m0 + 4.d0*i0*o0 -
|
|
$ 8.d0*bx*cx*dz*(K2) + 4.d0*cx*dz*(2.d0*g0 + (K1)*(K2))
|
|
$ + 4.d0*g0*t0 + 2.d0*(K1)*(K2)*t0 - 8.d0*ay*bx*dz*(K4) +
|
|
$ 2.d0*(K1)*o0*(K4) + 2.d0*k0*(K2)*(K4) + 4.d0*ay*cz*(2.d0*i0
|
|
$ + (K1)*(K4)) + 4.d0*bx*dz*(2.d0*m0 + (K2)*(K4))
|
|
$ - 2.d0*dz*(2.d0*(K1)*m0 + 2.d0*i0*(K2) + 2.d0*g0*(K4)
|
|
$ + (K1)*(K2)*(K4)) - 8.d0*ay*bx*cx*(K6) +
|
|
$ 2.d0*(K1)*m0*(K6) + 2.d0*i0*(K2)*(K6) + 2.d0*g0*(K4)*(K6) +
|
|
$ (K1)*(K2)*(K4)*(K6) + 4.d0*ay*cx*(2.d0*k0 + (K1)*(K6)) +
|
|
$ 4.d0*bx*cx*(2.d0*o0 + (K2)*(K6)) - 2.d0*cx*(2.d0*(K1)*o0
|
|
$ + 2.d0*k0*(K2) + 2.d0*g0*(K6) + (K1)*(K2)*(K6)) +
|
|
$ 4.d0*ay*bx*(2.d0*t0 + (K4)*(K6)) - 2.d0*ay*(2.d0*(K1)*t0
|
|
$ + 2.d0*k0*(K4) + 2.d0*i0*(K6) + (K1)*(K4)*(K6)) -
|
|
$ 2.d0*bx*(2.d0*(K2)*t0 + 2.d0*o0*(K4) + 2.d0*m0*(K6) +
|
|
$ (K2)*(K4)*(K6))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp53=pppp53+ ((rho*(16.d0*ay*bx*cx*dy
|
|
$ - 8.d0*ay*by*cx*(K1) + 4.d0*j0*m0 + 4.d0*i0*n0 -
|
|
$ 8.d0*bx*cx*dy*(K2) + 4.d0*cx*dy*(2.d0*g0 + (K1)*(K2))
|
|
$ + 4.d0*g0*s0 + 2.d0*(K1)*(K2)*s0 - 8.d0*ay*bx*dy*(K4) +
|
|
$ 2.d0*(K1)*n0*(K4) + 2.d0*j0*(K2)*(K4) + 4.d0*ay*cy*(2.d0*i0
|
|
$ + (K1)*(K4)) + 4.d0*bx*dy*(2.d0*m0 + (K2)*(K4))
|
|
$ - 2.d0*dy*(2.d0*(K1)*m0 + 2.d0*i0*(K2) + 2.d0*g0*(K4)
|
|
$ + (K1)*(K2)*(K4)) - 8.d0*ay*bx*cx*(K5) +
|
|
$ 2.d0*(K1)*m0*(K5) + 2.d0*i0*(K2)*(K5) + 2.d0*g0*(K4)*(K5) +
|
|
$ (K1)*(K2)*(K4)*(K5) + 4.d0*ay*cx*(2.d0*j0 + (K1)*(K5)) +
|
|
$ 4.d0*bx*cx*(2.d0*n0 + (K2)*(K5)) - 2.d0*cx*(2.d0*(K1)*n0
|
|
$ + 2.d0*j0*(K2) + 2.d0*g0*(K5) + (K1)*(K2)*(K5)) +
|
|
$ 4.d0*ay*bx*(2.d0*s0 + (K4)*(K5)) - 2.d0*ay*(2.d0*(K1)*s0
|
|
$ + 2.d0*j0*(K4) + 2.d0*i0*(K5) + (K1)*(K4)*(K5)) -
|
|
$ 2.d0*bx*(2.d0*(K2)*s0 + 2.d0*n0*(K4) + 2.d0*m0*(K5) +
|
|
$ (K2)*(K4)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp54=pppp54+ ((rho*(16.d0*ay*bx*cx*dx + 4.d0*d0*g0 -
|
|
$ 8.d0*ay*bx*cx*(K1) + 8.d0*i0*m0 - 8.d0*bx*cx*dx*(K2)
|
|
$ + 2.d0*d0*(K1)*(K2) + 4.d0*cx*dx*(2.d0*g0 + (K1)*(K2))
|
|
$ - 8.d0*ay*bx*cx*(K4) - 8.d0*ay*bx*dx*(K4) +
|
|
$ 4.d0*(K1)*m0*(K4) + 4.d0*i0*(K2)*(K4) + 2.d0*g0*(K4)**2.d0 +
|
|
$ (K1)*(K2)*(K4)**2.d0 + 8.d0*ay*cx*(2.d0*i0 + (K1)*(K4))
|
|
$ + 4.d0*bx*cx*(2.d0*m0 + (K2)*(K4)) + 4.d0*bx*dx*(2.d0*m0 +
|
|
$ (K2)*(K4)) - 2.d0*cx*(2.d0*(K1)*m0 + 2.d0*i0*(K2) + 2.d0*g0*(K4)
|
|
$ + (K1)*(K2)*(K4)) - 2.d0*dx*(2.d0*(K1)*m0 + 2.d0*i0*(K2)
|
|
$ + 2.d0*g0*(K4) + (K1)*(K2)*(K4)) + 4.d0*ay*bx*(2.d0*d0 +
|
|
$ (K4)**2.d0) - 2.d0*ay*(2.d0*d0*(K1) + 4.d0*i0*(K4) +
|
|
$ (K1)*(K4)**2.d0) - 2.d0*bx*(2.d0*d0*(K2) + 4.d0*m0*(K4) +
|
|
$ (K2)*(K4)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp55=pppp55+ ((rho*(16.d0*ax*bz*cz*dz + 4.d0*f0*h0 -
|
|
$ 8.d0*bz*cz*dz*(K1) + 8.d0*k0*r0 - 8.d0*ax*bz*cz*(K3)
|
|
$ + 2.d0*f0*(K1)*(K3) + 4.d0*cz*dz*(2.d0*h0 + (K1)*(K3))
|
|
$ - 8.d0*ax*bz*cz*(K6) - 8.d0*ax*bz*dz*(K6) +
|
|
$ 4.d0*(K1)*r0*(K6) + 4.d0*k0*(K3)*(K6) + 2.d0*h0*(K6)**2.d0 +
|
|
$ (K1)*(K3)*(K6)**2.d0 + 4.d0*bz*cz*(2.d0*k0 + (K1)*(K6)) +
|
|
$ 4.d0*bz*dz*(2.d0*k0 + (K1)*(K6)) + 8.d0*ax*cz*(2.d0*r0 +
|
|
$ (K3)*(K6)) - 2.d0*cz*(2.d0*(K1)*r0 + 2.d0*k0*(K3) + 2.d0*h0*(K6)
|
|
$ + (K1)*(K3)*(K6)) - 2.d0*dz*(2.d0*(K1)*r0 + 2.d0*k0*(K3)
|
|
$ + 2.d0*h0*(K6) + (K1)*(K3)*(K6)) + 4.d0*ax*bz*(2.d0*f0 +
|
|
$ (K6)**2.d0) - 2.d0*bz*(2.d0*f0*(K1) + 4.d0*k0*(K6) +
|
|
$ (K1)*(K6)**2.d0) - 2.d0*ax*(2.d0*f0*(K3) + 4.d0*r0*(K6) +
|
|
$ (K3)*(K6)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp56=pppp56+ ((rho*(16.d0*ax*bz*cz*dy
|
|
$ - 8.d0*bz*cz*dy*(K1) + 4.d0*k0*q0 + 4.d0*j0*r0 -
|
|
$ 8.d0*ax*by*cz*(K3) + 4.d0*cz*dy*(2.d0*h0 + (K1)*(K3))
|
|
$ + 4.d0*h0*u0 + 2.d0*(K1)*(K3)*u0 - 8.d0*ax*bz*dy*(K6) +
|
|
$ 2.d0*(K1)*q0*(K6) + 2.d0*j0*(K3)*(K6) - 8.d0*ax*bz*cz*(K5)
|
|
$ + 2.d0*(K1)*r0*(K5) + 2.d0*k0*(K3)*(K5) + 2.d0*h0*(K6)*(K5)
|
|
$ + (K1)*(K3)*(K6)*(K5) + 4.d0*bz*dy*(2.d0*k0 +
|
|
$ (K1)*(K6)) + 4.d0*ax*cy*(2.d0*r0 + (K3)*(K6)) -
|
|
$ 2.d0*dy*(2.d0*(K1)*r0 + 2.d0*k0*(K3) + 2.d0*h0*(K6) +
|
|
$ (K1)*(K3)*(K6)) + 4.d0*bz*cz*(2.d0*j0 + (K1)*(K5)) +
|
|
$ 4.d0*ax*cz*(2.d0*q0 + (K3)*(K5)) - 2.d0*cz*(2.d0*(K1)*q0
|
|
$ + 2.d0*j0*(K3) + 2.d0*h0*(K5) + (K1)*(K3)*(K5)) +
|
|
$ 4.d0*ax*bz*(2.d0*u0 + (K6)*(K5)) - 2.d0*bz*(2.d0*(K1)*u0
|
|
$ + 2.d0*j0*(K6) + 2.d0*k0*(K5) + (K1)*(K6)*(K5)) -
|
|
$ 2.d0*ax*(2.d0*(K3)*u0 + 2.d0*q0*(K6) + 2.d0*r0*(K5) +
|
|
$ (K3)*(K6)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp57=pppp57+ ((rho*(16.d0*ax*bz*cz*dx
|
|
$ - 8.d0*bz*cz*dx*(K1) + 4.d0*k0*p0 + 4.d0*i0*r0 -
|
|
$ 8.d0*ax*bx*cz*(K3) + 4.d0*cz*dx*(2.d0*h0 + (K1)*(K3))
|
|
$ + 4.d0*h0*t0 + 2.d0*(K1)*(K3)*t0 - 8.d0*ax*bz*cz*(K4) +
|
|
$ 2.d0*(K1)*r0*(K4) + 2.d0*k0*(K3)*(K4) + 4.d0*bz*cz*(2.d0*i0
|
|
$ + (K1)*(K4)) + 4.d0*ax*cz*(2.d0*p0 + (K3)*(K4))
|
|
$ - 2.d0*cz*(2.d0*(K1)*p0 + 2.d0*i0*(K3) + 2.d0*h0*(K4)
|
|
$ + (K1)*(K3)*(K4)) - 8.d0*ax*bz*dx*(K6) +
|
|
$ 2.d0*(K1)*p0*(K6) + 2.d0*i0*(K3)*(K6) + 2.d0*h0*(K4)*(K6) +
|
|
$ (K1)*(K3)*(K4)*(K6) + 4.d0*bz*dx*(2.d0*k0 + (K1)*(K6)) +
|
|
$ 4.d0*ax*cx*(2.d0*r0 + (K3)*(K6)) - 2.d0*dx*(2.d0*(K1)*r0
|
|
$ + 2.d0*k0*(K3) + 2.d0*h0*(K6) + (K1)*(K3)*(K6)) +
|
|
$ 4.d0*ax*bz*(2.d0*t0 + (K4)*(K6)) - 2.d0*bz*(2.d0*(K1)*t0
|
|
$ + 2.d0*k0*(K4) + 2.d0*i0*(K6) + (K1)*(K4)*(K6)) -
|
|
$ 2.d0*ax*(2.d0*(K3)*t0 + 2.d0*r0*(K4) + 2.d0*p0*(K6) +
|
|
$ (K3)*(K4)*(K6))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp58=pppp58+ ((rho*(16.d0*ax*bz*cy*dz
|
|
$ - 8.d0*bz*cy*dz*(K1) + 4.d0*k0*q0 + 4.d0*j0*r0 -
|
|
$ 8.d0*ax*bz*cy*(K3) + 4.d0*cy*dz*(2.d0*h0 + (K1)*(K3))
|
|
$ + 4.d0*h0*u0 + 2.d0*(K1)*(K3)*u0 - 8.d0*ax*bz*cy*(K6) +
|
|
$ 2.d0*(K1)*q0*(K6) + 2.d0*j0*(K3)*(K6) - 8.d0*ax*bz*dz*(K5)
|
|
$ + 2.d0*(K1)*r0*(K5) + 2.d0*k0*(K3)*(K5) + 2.d0*h0*(K6)*(K5)
|
|
$ + (K1)*(K3)*(K6)*(K5) + 4.d0*bz*cy*(2.d0*k0 +
|
|
$ (K1)*(K6)) + 4.d0*ax*cy*(2.d0*r0 + (K3)*(K6)) -
|
|
$ 2.d0*cy*(2.d0*(K1)*r0 + 2.d0*k0*(K3) + 2.d0*h0*(K6) +
|
|
$ (K1)*(K3)*(K6)) + 4.d0*bz*dz*(2.d0*j0 + (K1)*(K5)) +
|
|
$ 4.d0*ax*cz*(2.d0*q0 + (K3)*(K5)) - 2.d0*dz*(2.d0*(K1)*q0
|
|
$ + 2.d0*j0*(K3) + 2.d0*h0*(K5) + (K1)*(K3)*(K5)) +
|
|
$ 4.d0*ax*bz*(2.d0*u0 + (K6)*(K5)) - 2.d0*bz*(2.d0*(K1)*u0
|
|
$ + 2.d0*j0*(K6) + 2.d0*k0*(K5) + (K1)*(K6)*(K5)) -
|
|
$ 2.d0*ax*(2.d0*(K3)*u0 + 2.d0*q0*(K6) + 2.d0*r0*(K5) +
|
|
$ (K3)*(K6)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp59=pppp59+ ((rho*(16.d0*ax*bz*cy*dy + 4.d0*e0*h0 -
|
|
$ 8.d0*bz*cy*dy*(K1) + 8.d0*j0*q0 - 8.d0*ax*by*cy*(K3)
|
|
$ + 2.d0*e0*(K1)*(K3) + 4.d0*cy*dy*(2.d0*h0 + (K1)*(K3))
|
|
$ - 8.d0*ax*bz*cy*(K5) - 8.d0*ax*bz*dy*(K5) +
|
|
$ 4.d0*(K1)*q0*(K5) + 4.d0*j0*(K3)*(K5) + 2.d0*h0*(K5)**2.d0 +
|
|
$ (K1)*(K3)*(K5)**2.d0 + 4.d0*bz*cy*(2.d0*j0 + (K1)*(K5)) +
|
|
$ 4.d0*bz*dy*(2.d0*j0 + (K1)*(K5)) + 8.d0*ax*cy*(2.d0*q0 +
|
|
$ (K3)*(K5)) - 2.d0*cy*(2.d0*(K1)*q0 + 2.d0*j0*(K3) + 2.d0*h0*(K5)
|
|
$ + (K1)*(K3)*(K5)) - 2.d0*dy*(2.d0*(K1)*q0 + 2.d0*j0*(K3)
|
|
$ + 2.d0*h0*(K5) + (K1)*(K3)*(K5)) + 4.d0*ax*bz*(2.d0*e0 +
|
|
$ (K5)**2.d0) - 2.d0*bz*(2.d0*e0*(K1) + 4.d0*j0*(K5) +
|
|
$ (K1)*(K5)**2.d0) - 2.d0*ax*(2.d0*e0*(K3) + 4.d0*q0*(K5) +
|
|
$ (K3)*(K5)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp60=pppp60+ ((rho*(16.d0*ax*bz*cy*dx
|
|
$ - 8.d0*bz*cy*dx*(K1) + 4.d0*j0*p0 + 4.d0*i0*q0 -
|
|
$ 8.d0*ax*bx*cy*(K3) + 4.d0*cy*dx*(2.d0*h0 + (K1)*(K3))
|
|
$ + 4.d0*h0*s0 + 2.d0*(K1)*(K3)*s0 - 8.d0*ax*bz*cy*(K4) +
|
|
$ 2.d0*(K1)*q0*(K4) + 2.d0*j0*(K3)*(K4) + 4.d0*bz*cy*(2.d0*i0
|
|
$ + (K1)*(K4)) + 4.d0*ax*cy*(2.d0*p0 + (K3)*(K4))
|
|
$ - 2.d0*cy*(2.d0*(K1)*p0 + 2.d0*i0*(K3) + 2.d0*h0*(K4)
|
|
$ + (K1)*(K3)*(K4)) - 8.d0*ax*bz*dx*(K5) +
|
|
$ 2.d0*(K1)*p0*(K5) + 2.d0*i0*(K3)*(K5) + 2.d0*h0*(K4)*(K5) +
|
|
$ (K1)*(K3)*(K4)*(K5) + 4.d0*bz*dx*(2.d0*j0 + (K1)*(K5)) +
|
|
$ 4.d0*ax*cx*(2.d0*q0 + (K3)*(K5)) - 2.d0*dx*(2.d0*(K1)*q0
|
|
$ + 2.d0*j0*(K3) + 2.d0*h0*(K5) + (K1)*(K3)*(K5)) +
|
|
$ 4.d0*ax*bz*(2.d0*s0 + (K4)*(K5)) - 2.d0*bz*(2.d0*(K1)*s0
|
|
$ + 2.d0*j0*(K4) + 2.d0*i0*(K5) + (K1)*(K4)*(K5)) -
|
|
$ 2.d0*ax*(2.d0*(K3)*s0 + 2.d0*q0*(K4) + 2.d0*p0*(K5) +
|
|
$ (K3)*(K4)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp61=pppp61+ ((rho*(16.d0*ax*bz*cx*dz
|
|
$ - 8.d0*bz*cx*dz*(K1) + 4.d0*k0*p0 + 4.d0*i0*r0 -
|
|
$ 8.d0*ax*bz*cx*(K3) + 4.d0*cx*dz*(2.d0*h0 + (K1)*(K3))
|
|
$ + 4.d0*h0*t0 + 2.d0*(K1)*(K3)*t0 - 8.d0*ax*bz*dz*(K4) +
|
|
$ 2.d0*(K1)*r0*(K4) + 2.d0*k0*(K3)*(K4) + 4.d0*bz*dz*(2.d0*i0
|
|
$ + (K1)*(K4)) + 4.d0*ax*cz*(2.d0*p0 + (K3)*(K4))
|
|
$ - 2.d0*dz*(2.d0*(K1)*p0 + 2.d0*i0*(K3) + 2.d0*h0*(K4)
|
|
$ + (K1)*(K3)*(K4)) - 8.d0*ax*bz*cx*(K6) +
|
|
$ 2.d0*(K1)*p0*(K6) + 2.d0*i0*(K3)*(K6) + 2.d0*h0*(K4)*(K6) +
|
|
$ (K1)*(K3)*(K4)*(K6) + 4.d0*bz*cx*(2.d0*k0 + (K1)*(K6)) +
|
|
$ 4.d0*ax*cx*(2.d0*r0 + (K3)*(K6)) - 2.d0*cx*(2.d0*(K1)*r0
|
|
$ + 2.d0*k0*(K3) + 2.d0*h0*(K6) + (K1)*(K3)*(K6)) +
|
|
$ 4.d0*ax*bz*(2.d0*t0 + (K4)*(K6)) - 2.d0*bz*(2.d0*(K1)*t0
|
|
$ + 2.d0*k0*(K4) + 2.d0*i0*(K6) + (K1)*(K4)*(K6)) -
|
|
$ 2.d0*ax*(2.d0*(K3)*t0 + 2.d0*r0*(K4) + 2.d0*p0*(K6) +
|
|
$ (K3)*(K4)*(K6))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp62=pppp62+ ((rho*(16.d0*ax*bz*cx*dy
|
|
$ - 8.d0*bz*cx*dy*(K1) + 4.d0*j0*p0 + 4.d0*i0*q0 -
|
|
$ 8.d0*ax*by*cx*(K3) + 4.d0*cx*dy*(2.d0*h0 + (K1)*(K3))
|
|
$ + 4.d0*h0*s0 + 2.d0*(K1)*(K3)*s0 - 8.d0*ax*bz*dy*(K4) +
|
|
$ 2.d0*(K1)*q0*(K4) + 2.d0*j0*(K3)*(K4) + 4.d0*bz*dy*(2.d0*i0
|
|
$ + (K1)*(K4)) + 4.d0*ax*cy*(2.d0*p0 + (K3)*(K4))
|
|
$ - 2.d0*dy*(2.d0*(K1)*p0 + 2.d0*i0*(K3) + 2.d0*h0*(K4)
|
|
$ + (K1)*(K3)*(K4)) - 8.d0*ax*bz*cx*(K5) +
|
|
$ 2.d0*(K1)*p0*(K5) + 2.d0*i0*(K3)*(K5) + 2.d0*h0*(K4)*(K5) +
|
|
$ (K1)*(K3)*(K4)*(K5) + 4.d0*bz*cx*(2.d0*j0 + (K1)*(K5)) +
|
|
$ 4.d0*ax*cx*(2.d0*q0 + (K3)*(K5)) - 2.d0*cx*(2.d0*(K1)*q0
|
|
$ + 2.d0*j0*(K3) + 2.d0*h0*(K5) + (K1)*(K3)*(K5)) +
|
|
$ 4.d0*ax*bz*(2.d0*s0 + (K4)*(K5)) - 2.d0*bz*(2.d0*(K1)*s0
|
|
$ + 2.d0*j0*(K4) + 2.d0*i0*(K5) + (K1)*(K4)*(K5)) -
|
|
$ 2.d0*ax*(2.d0*(K3)*s0 + 2.d0*q0*(K4) + 2.d0*p0*(K5) +
|
|
$ (K3)*(K4)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp63=pppp63+ ((rho*(16.d0*ax*bz*cx*dx + 4.d0*d0*h0 -
|
|
$ 8.d0*bz*cx*dx*(K1) + 8.d0*i0*p0 - 8.d0*ax*bx*cx*(K3)
|
|
$ + 2.d0*d0*(K1)*(K3) + 4.d0*cx*dx*(2.d0*h0 + (K1)*(K3))
|
|
$ - 8.d0*ax*bz*cx*(K4) - 8.d0*ax*bz*dx*(K4) +
|
|
$ 4.d0*(K1)*p0*(K4) + 4.d0*i0*(K3)*(K4) + 2.d0*h0*(K4)**2.d0 +
|
|
$ (K1)*(K3)*(K4)**2.d0 + 4.d0*bz*cx*(2.d0*i0 + (K1)*(K4)) +
|
|
$ 4.d0*bz*dx*(2.d0*i0 + (K1)*(K4)) + 8.d0*ax*cx*(2.d0*p0 +
|
|
$ (K3)*(K4)) - 2.d0*cx*(2.d0*(K1)*p0 + 2.d0*i0*(K3) + 2.d0*h0*(K4)
|
|
$ + (K1)*(K3)*(K4)) - 2.d0*dx*(2.d0*(K1)*p0 + 2.d0*i0*(K3)
|
|
$ + 2.d0*h0*(K4) + (K1)*(K3)*(K4)) + 4.d0*ax*bz*(2.d0*d0 +
|
|
$ (K4)**2.d0) - 2.d0*bz*(2.d0*d0*(K1) + 4.d0*i0*(K4) +
|
|
$ (K1)*(K4)**2.d0) - 2.d0*ax*(2.d0*d0*(K3) + 4.d0*p0*(K4) +
|
|
$ (K3)*(K4)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp64=pppp64+ ((rho*(16.d0*ax*by*cz*dz + 4.d0*f0*g0 -
|
|
$ 8.d0*by*cz*dz*(K1) + 8.d0*k0*o0 - 8.d0*ax*bz*cz*(K2)
|
|
$ + 2.d0*f0*(K1)*(K2) + 4.d0*cz*dz*(2.d0*g0 + (K1)*(K2))
|
|
$ - 8.d0*ax*by*cz*(K6) - 8.d0*ax*by*dz*(K6) +
|
|
$ 4.d0*(K1)*o0*(K6) + 4.d0*k0*(K2)*(K6) + 2.d0*g0*(K6)**2.d0 +
|
|
$ (K1)*(K2)*(K6)**2.d0 + 4.d0*by*cz*(2.d0*k0 + (K1)*(K6)) +
|
|
$ 4.d0*by*dz*(2.d0*k0 + (K1)*(K6)) + 8.d0*ax*cz*(2.d0*o0 +
|
|
$ (K2)*(K6)) - 2.d0*cz*(2.d0*(K1)*o0 + 2.d0*k0*(K2) + 2.d0*g0*(K6)
|
|
$ + (K1)*(K2)*(K6)) - 2.d0*dz*(2.d0*(K1)*o0 + 2.d0*k0*(K2)
|
|
$ + 2.d0*g0*(K6) + (K1)*(K2)*(K6)) + 4.d0*ax*by*(2.d0*f0 +
|
|
$ (K6)**2.d0) - 2.d0*by*(2.d0*f0*(K1) + 4.d0*k0*(K6) +
|
|
$ (K1)*(K6)**2.d0) - 2.d0*ax*(2.d0*f0*(K2) + 4.d0*o0*(K6) +
|
|
$ (K2)*(K6)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp65=pppp65+ ((rho*(16.d0*ax*by*cz*dy
|
|
$ - 8.d0*by*cz*dy*(K1) + 4.d0*k0*n0 + 4.d0*j0*o0 -
|
|
$ 8.d0*ax*by*cz*(K2) + 4.d0*cz*dy*(2.d0*g0 + (K1)*(K2))
|
|
$ + 4.d0*g0*u0 + 2.d0*(K1)*(K2)*u0 - 8.d0*ax*by*dy*(K6) +
|
|
$ 2.d0*(K1)*n0*(K6) + 2.d0*j0*(K2)*(K6) - 8.d0*ax*by*cz*(K5)
|
|
$ + 2.d0*(K1)*o0*(K5) + 2.d0*k0*(K2)*(K5) + 2.d0*g0*(K6)*(K5)
|
|
$ + (K1)*(K2)*(K6)*(K5) + 4.d0*by*dy*(2.d0*k0 +
|
|
$ (K1)*(K6)) + 4.d0*ax*cy*(2.d0*o0 + (K2)*(K6)) -
|
|
$ 2.d0*dy*(2.d0*(K1)*o0 + 2.d0*k0*(K2) + 2.d0*g0*(K6) +
|
|
$ (K1)*(K2)*(K6)) + 4.d0*by*cz*(2.d0*j0 + (K1)*(K5)) +
|
|
$ 4.d0*ax*cz*(2.d0*n0 + (K2)*(K5)) - 2.d0*cz*(2.d0*(K1)*n0
|
|
$ + 2.d0*j0*(K2) + 2.d0*g0*(K5) + (K1)*(K2)*(K5)) +
|
|
$ 4.d0*ax*by*(2.d0*u0 + (K6)*(K5)) - 2.d0*by*(2.d0*(K1)*u0
|
|
$ + 2.d0*j0*(K6) + 2.d0*k0*(K5) + (K1)*(K6)*(K5)) -
|
|
$ 2.d0*ax*(2.d0*(K2)*u0 + 2.d0*n0*(K6) + 2.d0*o0*(K5) +
|
|
$ (K2)*(K6)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp66=pppp66+ ((rho*(16.d0*ax*by*cz*dx
|
|
$ - 8.d0*by*cz*dx*(K1) + 4.d0*k0*m0 + 4.d0*i0*o0 -
|
|
$ 8.d0*ax*bx*cz*(K2) + 4.d0*cz*dx*(2.d0*g0 + (K1)*(K2))
|
|
$ + 4.d0*g0*t0 + 2.d0*(K1)*(K2)*t0 - 8.d0*ax*by*cz*(K4) +
|
|
$ 2.d0*(K1)*o0*(K4) + 2.d0*k0*(K2)*(K4) + 4.d0*by*cz*(2.d0*i0
|
|
$ + (K1)*(K4)) + 4.d0*ax*cz*(2.d0*m0 + (K2)*(K4))
|
|
$ - 2.d0*cz*(2.d0*(K1)*m0 + 2.d0*i0*(K2) + 2.d0*g0*(K4)
|
|
$ + (K1)*(K2)*(K4)) - 8.d0*ax*by*dx*(K6) +
|
|
$ 2.d0*(K1)*m0*(K6) + 2.d0*i0*(K2)*(K6) + 2.d0*g0*(K4)*(K6) +
|
|
$ (K1)*(K2)*(K4)*(K6) + 4.d0*by*dx*(2.d0*k0 + (K1)*(K6)) +
|
|
$ 4.d0*ax*cx*(2.d0*o0 + (K2)*(K6)) - 2.d0*dx*(2.d0*(K1)*o0
|
|
$ + 2.d0*k0*(K2) + 2.d0*g0*(K6) + (K1)*(K2)*(K6)) +
|
|
$ 4.d0*ax*by*(2.d0*t0 + (K4)*(K6)) - 2.d0*by*(2.d0*(K1)*t0
|
|
$ + 2.d0*k0*(K4) + 2.d0*i0*(K6) + (K1)*(K4)*(K6)) -
|
|
$ 2.d0*ax*(2.d0*(K2)*t0 + 2.d0*o0*(K4) + 2.d0*m0*(K6) +
|
|
$ (K2)*(K4)*(K6))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp67=pppp67+ ((rho*(16.d0*ax*by*cy*dz
|
|
$ - 8.d0*by*cy*dz*(K1) + 4.d0*k0*n0 + 4.d0*j0*o0 -
|
|
$ 8.d0*ax*bz*cy*(K2) + 4.d0*cy*dz*(2.d0*g0 + (K1)*(K2))
|
|
$ + 4.d0*g0*u0 + 2.d0*(K1)*(K2)*u0 - 8.d0*ax*by*cy*(K6) +
|
|
$ 2.d0*(K1)*n0*(K6) + 2.d0*j0*(K2)*(K6) - 8.d0*ax*by*dz*(K5)
|
|
$ + 2.d0*(K1)*o0*(K5) + 2.d0*k0*(K2)*(K5) + 2.d0*g0*(K6)*(K5)
|
|
$ + (K1)*(K2)*(K6)*(K5) + 4.d0*by*cy*(2.d0*k0 +
|
|
$ (K1)*(K6)) + 4.d0*ax*cy*(2.d0*o0 + (K2)*(K6)) -
|
|
$ 2.d0*cy*(2.d0*(K1)*o0 + 2.d0*k0*(K2) + 2.d0*g0*(K6) +
|
|
$ (K1)*(K2)*(K6)) + 4.d0*by*dz*(2.d0*j0 + (K1)*(K5)) +
|
|
$ 4.d0*ax*cz*(2.d0*n0 + (K2)*(K5)) - 2.d0*dz*(2.d0*(K1)*n0
|
|
$ + 2.d0*j0*(K2) + 2.d0*g0*(K5) + (K1)*(K2)*(K5)) +
|
|
$ 4.d0*ax*by*(2.d0*u0 + (K6)*(K5)) - 2.d0*by*(2.d0*(K1)*u0
|
|
$ + 2.d0*j0*(K6) + 2.d0*k0*(K5) + (K1)*(K6)*(K5)) -
|
|
$ 2.d0*ax*(2.d0*(K2)*u0 + 2.d0*n0*(K6) + 2.d0*o0*(K5) +
|
|
$ (K2)*(K6)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp68=pppp68+ ((rho*(16.d0*ax*by*cy*dy + 4.d0*e0*g0 -
|
|
$ 8.d0*by*cy*dy*(K1) + 8.d0*j0*n0 - 8.d0*ax*by*cy*(K2)
|
|
$ + 2.d0*e0*(K1)*(K2) + 4.d0*cy*dy*(2.d0*g0 + (K1)*(K2))
|
|
$ - 8.d0*ax*by*cy*(K5) - 8.d0*ax*by*dy*(K5) +
|
|
$ 4.d0*(K1)*n0*(K5) + 4.d0*j0*(K2)*(K5) + 2.d0*g0*(K5)**2.d0 +
|
|
$ (K1)*(K2)*(K5)**2.d0 + 4.d0*by*cy*(2.d0*j0 + (K1)*(K5)) +
|
|
$ 4.d0*by*dy*(2.d0*j0 + (K1)*(K5)) + 8.d0*ax*cy*(2.d0*n0 +
|
|
$ (K2)*(K5)) - 2.d0*cy*(2.d0*(K1)*n0 + 2.d0*j0*(K2) + 2.d0*g0*(K5)
|
|
$ + (K1)*(K2)*(K5)) - 2.d0*dy*(2.d0*(K1)*n0 + 2.d0*j0*(K2)
|
|
$ + 2.d0*g0*(K5) + (K1)*(K2)*(K5)) + 4.d0*ax*by*(2.d0*e0 +
|
|
$ (K5)**2.d0) - 2.d0*by*(2.d0*e0*(K1) + 4.d0*j0*(K5) +
|
|
$ (K1)*(K5)**2.d0) - 2.d0*ax*(2.d0*e0*(K2) + 4.d0*n0*(K5) +
|
|
$ (K2)*(K5)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp69=pppp69+ ((rho*(16.d0*ax*by*cy*dx
|
|
$ - 8.d0*by*cy*dx*(K1) + 4.d0*j0*m0 + 4.d0*i0*n0 -
|
|
$ 8.d0*ax*bx*cy*(K2) + 4.d0*cy*dx*(2.d0*g0 + (K1)*(K2))
|
|
$ + 4.d0*g0*s0 + 2.d0*(K1)*(K2)*s0 - 8.d0*ax*by*cy*(K4) +
|
|
$ 2.d0*(K1)*n0*(K4) + 2.d0*j0*(K2)*(K4) + 4.d0*by*cy*(2.d0*i0
|
|
$ + (K1)*(K4)) + 4.d0*ax*cy*(2.d0*m0 + (K2)*(K4))
|
|
$ - 2.d0*cy*(2.d0*(K1)*m0 + 2.d0*i0*(K2) + 2.d0*g0*(K4)
|
|
$ + (K1)*(K2)*(K4)) - 8.d0*ax*by*dx*(K5) +
|
|
$ 2.d0*(K1)*m0*(K5) + 2.d0*i0*(K2)*(K5) + 2.d0*g0*(K4)*(K5) +
|
|
$ (K1)*(K2)*(K4)*(K5) + 4.d0*by*dx*(2.d0*j0 + (K1)*(K5)) +
|
|
$ 4.d0*ax*cx*(2.d0*n0 + (K2)*(K5)) - 2.d0*dx*(2.d0*(K1)*n0
|
|
$ + 2.d0*j0*(K2) + 2.d0*g0*(K5) + (K1)*(K2)*(K5)) +
|
|
$ 4.d0*ax*by*(2.d0*s0 + (K4)*(K5)) - 2.d0*by*(2.d0*(K1)*s0
|
|
$ + 2.d0*j0*(K4) + 2.d0*i0*(K5) + (K1)*(K4)*(K5)) -
|
|
$ 2.d0*ax*(2.d0*(K2)*s0 + 2.d0*n0*(K4) + 2.d0*m0*(K5) +
|
|
$ (K2)*(K4)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp70=pppp70+ ((rho*(16.d0*ax*by*cx*dz
|
|
$ - 8.d0*by*cx*dz*(K1) + 4.d0*k0*m0 + 4.d0*i0*o0 -
|
|
$ 8.d0*ax*bz*cx*(K2) + 4.d0*cx*dz*(2.d0*g0 + (K1)*(K2))
|
|
$ + 4.d0*g0*t0 + 2.d0*(K1)*(K2)*t0 - 8.d0*ax*by*dz*(K4) +
|
|
$ 2.d0*(K1)*o0*(K4) + 2.d0*k0*(K2)*(K4) + 4.d0*by*dz*(2.d0*i0
|
|
$ + (K1)*(K4)) + 4.d0*ax*cz*(2.d0*m0 + (K2)*(K4))
|
|
$ - 2.d0*dz*(2.d0*(K1)*m0 + 2.d0*i0*(K2) + 2.d0*g0*(K4)
|
|
$ + (K1)*(K2)*(K4)) - 8.d0*ax*by*cx*(K6) +
|
|
$ 2.d0*(K1)*m0*(K6) + 2.d0*i0*(K2)*(K6) + 2.d0*g0*(K4)*(K6) +
|
|
$ (K1)*(K2)*(K4)*(K6) + 4.d0*by*cx*(2.d0*k0 + (K1)*(K6)) +
|
|
$ 4.d0*ax*cx*(2.d0*o0 + (K2)*(K6)) - 2.d0*cx*(2.d0*(K1)*o0
|
|
$ + 2.d0*k0*(K2) + 2.d0*g0*(K6) + (K1)*(K2)*(K6)) +
|
|
$ 4.d0*ax*by*(2.d0*t0 + (K4)*(K6)) - 2.d0*by*(2.d0*(K1)*t0
|
|
$ + 2.d0*k0*(K4) + 2.d0*i0*(K6) + (K1)*(K4)*(K6)) -
|
|
$ 2.d0*ax*(2.d0*(K2)*t0 + 2.d0*o0*(K4) + 2.d0*m0*(K6) +
|
|
$ (K2)*(K4)*(K6))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp71=pppp71+ ((rho*(16.d0*ax*by*cx*dy
|
|
$ - 8.d0*by*cx*dy*(K1) + 4.d0*j0*m0 + 4.d0*i0*n0 -
|
|
$ 8.d0*ax*by*cx*(K2) + 4.d0*cx*dy*(2.d0*g0 + (K1)*(K2))
|
|
$ + 4.d0*g0*s0 + 2.d0*(K1)*(K2)*s0 - 8.d0*ax*by*dy*(K4) +
|
|
$ 2.d0*(K1)*n0*(K4) + 2.d0*j0*(K2)*(K4) + 4.d0*by*dy*(2.d0*i0
|
|
$ + (K1)*(K4)) + 4.d0*ax*cy*(2.d0*m0 + (K2)*(K4))
|
|
$ - 2.d0*dy*(2.d0*(K1)*m0 + 2.d0*i0*(K2) + 2.d0*g0*(K4)
|
|
$ + (K1)*(K2)*(K4)) - 8.d0*ax*by*cx*(K5) +
|
|
$ 2.d0*(K1)*m0*(K5) + 2.d0*i0*(K2)*(K5) + 2.d0*g0*(K4)*(K5) +
|
|
$ (K1)*(K2)*(K4)*(K5) + 4.d0*by*cx*(2.d0*j0 + (K1)*(K5)) +
|
|
$ 4.d0*ax*cx*(2.d0*n0 + (K2)*(K5)) - 2.d0*cx*(2.d0*(K1)*n0
|
|
$ + 2.d0*j0*(K2) + 2.d0*g0*(K5) + (K1)*(K2)*(K5)) +
|
|
$ 4.d0*ax*by*(2.d0*s0 + (K4)*(K5)) - 2.d0*by*(2.d0*(K1)*s0
|
|
$ + 2.d0*j0*(K4) + 2.d0*i0*(K5) + (K1)*(K4)*(K5)) -
|
|
$ 2.d0*ax*(2.d0*(K2)*s0 + 2.d0*n0*(K4) + 2.d0*m0*(K5) +
|
|
$ (K2)*(K4)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp72=pppp72+ ((rho*(16.d0*ax*by*cx*dx + 4.d0*d0*g0 -
|
|
$ 8.d0*by*cx*dx*(K1) + 8.d0*i0*m0 - 8.d0*ax*bx*cx*(K2)
|
|
$ + 2.d0*d0*(K1)*(K2) + 4.d0*cx*dx*(2.d0*g0 + (K1)*(K2))
|
|
$ - 8.d0*ax*by*cx*(K4) - 8.d0*ax*by*dx*(K4) +
|
|
$ 4.d0*(K1)*m0*(K4) + 4.d0*i0*(K2)*(K4) + 2.d0*g0*(K4)**2.d0 +
|
|
$ (K1)*(K2)*(K4)**2.d0 + 4.d0*by*cx*(2.d0*i0 + (K1)*(K4)) +
|
|
$ 4.d0*by*dx*(2.d0*i0 + (K1)*(K4)) + 8.d0*ax*cx*(2.d0*m0 +
|
|
$ (K2)*(K4)) - 2.d0*cx*(2.d0*(K1)*m0 + 2.d0*i0*(K2) + 2.d0*g0*(K4)
|
|
$ + (K1)*(K2)*(K4)) - 2.d0*dx*(2.d0*(K1)*m0 + 2.d0*i0*(K2)
|
|
$ + 2.d0*g0*(K4) + (K1)*(K2)*(K4)) + 4.d0*ax*by*(2.d0*d0 +
|
|
$ (K4)**2.d0) - 2.d0*by*(2.d0*d0*(K1) + 4.d0*i0*(K4) +
|
|
$ (K1)*(K4)**2.d0) - 2.d0*ax*(2.d0*d0*(K2) + 4.d0*m0*(K4) +
|
|
$ (K2)*(K4)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp73=pppp73+ ((rho*(16.d0*ax*bx*cz*dz + 4.d0*a0*f0 +
|
|
$ 8.d0*k0**2.d0 - 8.d0*ax*bz*cz*(K1) - 8.d0*bx*cz*dz*(K1)
|
|
$ + 2.d0*f0*(K1)**2.d0 + 4.d0*cz*dz*(2.d0*a0 + (K1)**2.d0)
|
|
$ - 8.d0*ax*bx*cz*(K6) - 8.d0*ax*bx*dz*(K6)
|
|
$ + 8.d0*k0*(K1)*(K6) + 2.d0*a0*(K6)**2.d0 +
|
|
$ (K1)**2.d0*(K6)**2.d0 + 8.d0*ax*cz*(2.d0*k0 +
|
|
$ (K1)*(K6)) + 4.d0*bx*cz*(2.d0*k0 + (K1)*(K6)) +
|
|
$ 4.d0*bx*dz*(2.d0*k0 + (K1)*(K6)) - 2.d0*cz*(4.d0*k0*(K1) +
|
|
$ 2.d0*a0*(K6) + (K1)**2.d0*(K6)) - 2.d0*dz*(4.d0*k0*(K1) +
|
|
$ 2.d0*a0*(K6) + (K1)**2.d0*(K6)) + 4.d0*ax*bx*(2.d0*f0 +
|
|
$ (K6)**2.d0) - 2.d0*ax*(2.d0*f0*(K1) + 4.d0*k0*(K6) +
|
|
$ (K1)*(K6)**2.d0) - 2.d0*bx*(2.d0*f0*(K1) + 4.d0*k0*(K6) +
|
|
$ (K1)*(K6)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp74=pppp74+ ((rho*(16.d0*ax*bx*cz*dy +
|
|
$ 8.d0*j0*k0 - 8.d0*ax*by*cz*(K1) - 8.d0*bx*cz*dy*(K1)
|
|
$ + 4.d0*cz*dy*(2.d0*a0 + (K1)**2.d0) + 4.d0*a0*u0 +
|
|
$ 2.d0*(K1)**2.d0*u0 - 8.d0*ax*bx*dy*(K6) + 4.d0*j0*(K1)*(K6) -
|
|
$ 8.d0*ax*bx*cz*(K5) + 4.d0*k0*(K1)*(K5) + 2.d0*a0*(K6)*(K5) +
|
|
$ (K1)**2.d0*(K6)*(K5) + 4.d0*ax*cy*(2.d0*k0 + (K1)*(K6))
|
|
$ + 4.d0*bx*dy*(2.d0*k0 + (K1)*(K6)) - 2.d0*dy*(4.d0*k0*(K1)
|
|
$ + 2.d0*a0*(K6) + (K1)**2.d0*(K6)) + 4.d0*ax*cz*(2.d0*j0
|
|
$ + (K1)*(K5)) + 4.d0*bx*cz*(2.d0*j0 + (K1)*(K5)) -
|
|
$ 2.d0*cz*(4.d0*j0*(K1) + 2.d0*a0*(K5) + (K1)**2.d0*(K5)) +
|
|
$ 4.d0*ax*bx*(2.d0*u0 + (K6)*(K5)) - 2.d0*ax*(2.d0*(K1)*u0
|
|
$ + 2.d0*j0*(K6) + 2.d0*k0*(K5) + (K1)*(K6)*(K5)) -
|
|
$ 2.d0*bx*(2.d0*(K1)*u0 + 2.d0*j0*(K6) + 2.d0*k0*(K5) +
|
|
$ (K1)*(K6)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp75=pppp75+ ((rho*(16.d0*ax*bx*cz*dx +
|
|
$ 8.d0*i0*k0 - 8.d0*ax*bx*cz*(K1) - 8.d0*bx*cz*dx*(K1)
|
|
$ + 4.d0*cz*dx*(2.d0*a0 + (K1)**2.d0) + 4.d0*a0*t0 +
|
|
$ 2.d0*(K1)**2.d0*t0 - 8.d0*ax*bx*cz*(K4) + 4.d0*k0*(K1)*(K4)
|
|
$ + 4.d0*ax*cz*(2.d0*i0 + (K1)*(K4)) + 4.d0*bx*cz*(2.d0*i0
|
|
$ + (K1)*(K4)) - 2.d0*cz*(4.d0*i0*(K1) + 2.d0*a0*(K4) +
|
|
$ (K1)**2.d0*(K4)) - 8.d0*ax*bx*dx*(K6) + 4.d0*i0*(K1)*(K6) +
|
|
$ 2.d0*a0*(K4)*(K6) + (K1)**2.d0*(K4)*(K6) + 4.d0*ax*cx*(2.d0*k0
|
|
$ + (K1)*(K6)) + 4.d0*bx*dx*(2.d0*k0 + (K1)*(K6)) -
|
|
$ 2.d0*dx*(4.d0*k0*(K1) + 2.d0*a0*(K6) + (K1)**2.d0*(K6)) +
|
|
$ 4.d0*ax*bx*(2.d0*t0 + (K4)*(K6)) - 2.d0*ax*(2.d0*(K1)*t0
|
|
$ + 2.d0*k0*(K4) + 2.d0*i0*(K6) + (K1)*(K4)*(K6)) -
|
|
$ 2.d0*bx*(2.d0*(K1)*t0 + 2.d0*k0*(K4) + 2.d0*i0*(K6) +
|
|
$ (K1)*(K4)*(K6))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp76=pppp76+ ((rho*(16.d0*ax*bx*cy*dz +
|
|
$ 8.d0*j0*k0 - 8.d0*ax*bz*cy*(K1) - 8.d0*bx*cy*dz*(K1)
|
|
$ + 4.d0*cy*dz*(2.d0*a0 + (K1)**2.d0) + 4.d0*a0*u0 +
|
|
$ 2.d0*(K1)**2.d0*u0 - 8.d0*ax*bx*cy*(K6) + 4.d0*j0*(K1)*(K6) -
|
|
$ 8.d0*ax*bx*dz*(K5) + 4.d0*k0*(K1)*(K5) + 2.d0*a0*(K6)*(K5) +
|
|
$ (K1)**2.d0*(K6)*(K5) + 4.d0*ax*cy*(2.d0*k0 + (K1)*(K6))
|
|
$ + 4.d0*bx*cy*(2.d0*k0 + (K1)*(K6)) - 2.d0*cy*(4.d0*k0*(K1)
|
|
$ + 2.d0*a0*(K6) + (K1)**2.d0*(K6)) + 4.d0*ax*cz*(2.d0*j0
|
|
$ + (K1)*(K5)) + 4.d0*bx*dz*(2.d0*j0 + (K1)*(K5)) -
|
|
$ 2.d0*dz*(4.d0*j0*(K1) + 2.d0*a0*(K5) + (K1)**2.d0*(K5)) +
|
|
$ 4.d0*ax*bx*(2.d0*u0 + (K6)*(K5)) - 2.d0*ax*(2.d0*(K1)*u0
|
|
$ + 2.d0*j0*(K6) + 2.d0*k0*(K5) + (K1)*(K6)*(K5)) -
|
|
$ 2.d0*bx*(2.d0*(K1)*u0 + 2.d0*j0*(K6) + 2.d0*k0*(K5) +
|
|
$ (K1)*(K6)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp77=pppp77+ ((rho*(16.d0*ax*bx*cy*dy + 4.d0*a0*e0 +
|
|
$ 8.d0*j0**2.d0 - 8.d0*ax*by*cy*(K1) - 8.d0*bx*cy*dy*(K1)
|
|
$ + 2.d0*e0*(K1)**2.d0 + 4.d0*cy*dy*(2.d0*a0 + (K1)**2.d0)
|
|
$ - 8.d0*ax*bx*cy*(K5) - 8.d0*ax*bx*dy*(K5)
|
|
$ + 8.d0*j0*(K1)*(K5) + 2.d0*a0*(K5)**2.d0 +
|
|
$ (K1)**2.d0*(K5)**2.d0 + 8.d0*ax*cy*(2.d0*j0 +
|
|
$ (K1)*(K5)) + 4.d0*bx*cy*(2.d0*j0 + (K1)*(K5)) +
|
|
$ 4.d0*bx*dy*(2.d0*j0 + (K1)*(K5)) - 2.d0*cy*(4.d0*j0*(K1) +
|
|
$ 2.d0*a0*(K5) + (K1)**2.d0*(K5)) - 2.d0*dy*(4.d0*j0*(K1) +
|
|
$ 2.d0*a0*(K5) + (K1)**2.d0*(K5)) + 4.d0*ax*bx*(2.d0*e0 +
|
|
$ (K5)**2.d0) - 2.d0*ax*(2.d0*e0*(K1) + 4.d0*j0*(K5) +
|
|
$ (K1)*(K5)**2.d0) - 2.d0*bx*(2.d0*e0*(K1) + 4.d0*j0*(K5) +
|
|
$ (K1)*(K5)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp78=pppp78+ ((rho*(16.d0*ax*bx*cy*dx +
|
|
$ 8.d0*i0*j0 - 8.d0*ax*bx*cy*(K1) - 8.d0*bx*cy*dx*(K1)
|
|
$ + 4.d0*cy*dx*(2.d0*a0 + (K1)**2.d0) + 4.d0*a0*s0 +
|
|
$ 2.d0*(K1)**2.d0*s0 - 8.d0*ax*bx*cy*(K4) + 4.d0*j0*(K1)*(K4)
|
|
$ + 4.d0*ax*cy*(2.d0*i0 + (K1)*(K4)) + 4.d0*bx*cy*(2.d0*i0
|
|
$ + (K1)*(K4)) - 2.d0*cy*(4.d0*i0*(K1) + 2.d0*a0*(K4) +
|
|
$ (K1)**2.d0*(K4)) - 8.d0*ax*bx*dx*(K5) + 4.d0*i0*(K1)*(K5) +
|
|
$ 2.d0*a0*(K4)*(K5) + (K1)**2.d0*(K4)*(K5) + 4.d0*ax*cx*(2.d0*j0
|
|
$ + (K1)*(K5)) + 4.d0*bx*dx*(2.d0*j0 + (K1)*(K5)) -
|
|
$ 2.d0*dx*(4.d0*j0*(K1) + 2.d0*a0*(K5) + (K1)**2.d0*(K5)) +
|
|
$ 4.d0*ax*bx*(2.d0*s0 + (K4)*(K5)) - 2.d0*ax*(2.d0*(K1)*s0
|
|
$ + 2.d0*j0*(K4) + 2.d0*i0*(K5) + (K1)*(K4)*(K5)) -
|
|
$ 2.d0*bx*(2.d0*(K1)*s0 + 2.d0*j0*(K4) + 2.d0*i0*(K5) +
|
|
$ (K1)*(K4)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp79=pppp79+ ((rho*(16.d0*ax*bx*cx*dz +
|
|
$ 8.d0*i0*k0 - 8.d0*ax*bz*cx*(K1) - 8.d0*bx*cx*dz*(K1)
|
|
$ + 4.d0*cx*dz*(2.d0*a0 + (K1)**2.d0) + 4.d0*a0*t0 +
|
|
$ 2.d0*(K1)**2.d0*t0 - 8.d0*ax*bx*dz*(K4) + 4.d0*k0*(K1)*(K4)
|
|
$ + 4.d0*ax*cz*(2.d0*i0 + (K1)*(K4)) + 4.d0*bx*dz*(2.d0*i0
|
|
$ + (K1)*(K4)) - 2.d0*dz*(4.d0*i0*(K1) + 2.d0*a0*(K4) +
|
|
$ (K1)**2.d0*(K4)) - 8.d0*ax*bx*cx*(K6) + 4.d0*i0*(K1)*(K6) +
|
|
$ 2.d0*a0*(K4)*(K6) + (K1)**2.d0*(K4)*(K6) + 4.d0*ax*cx*(2.d0*k0
|
|
$ + (K1)*(K6)) + 4.d0*bx*cx*(2.d0*k0 + (K1)*(K6)) -
|
|
$ 2.d0*cx*(4.d0*k0*(K1) + 2.d0*a0*(K6) + (K1)**2.d0*(K6)) +
|
|
$ 4.d0*ax*bx*(2.d0*t0 + (K4)*(K6)) - 2.d0*ax*(2.d0*(K1)*t0
|
|
$ + 2.d0*k0*(K4) + 2.d0*i0*(K6) + (K1)*(K4)*(K6)) -
|
|
$ 2.d0*bx*(2.d0*(K1)*t0 + 2.d0*k0*(K4) + 2.d0*i0*(K6) +
|
|
$ (K1)*(K4)*(K6))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp80=pppp80+ ((rho*(16.d0*ax*bx*cx*dy +
|
|
$ 8.d0*i0*j0 - 8.d0*ax*by*cx*(K1) - 8.d0*bx*cx*dy*(K1)
|
|
$ + 4.d0*cx*dy*(2.d0*a0 + (K1)**2.d0) + 4.d0*a0*s0 +
|
|
$ 2.d0*(K1)**2.d0*s0 - 8.d0*ax*bx*dy*(K4) + 4.d0*j0*(K1)*(K4)
|
|
$ + 4.d0*ax*cy*(2.d0*i0 + (K1)*(K4)) + 4.d0*bx*dy*(2.d0*i0
|
|
$ + (K1)*(K4)) - 2.d0*dy*(4.d0*i0*(K1) + 2.d0*a0*(K4) +
|
|
$ (K1)**2.d0*(K4)) - 8.d0*ax*bx*cx*(K5) + 4.d0*i0*(K1)*(K5) +
|
|
$ 2.d0*a0*(K4)*(K5) + (K1)**2.d0*(K4)*(K5) + 4.d0*ax*cx*(2.d0*j0
|
|
$ + (K1)*(K5)) + 4.d0*bx*cx*(2.d0*j0 + (K1)*(K5)) -
|
|
$ 2.d0*cx*(4.d0*j0*(K1) + 2.d0*a0*(K5) + (K1)**2.d0*(K5)) +
|
|
$ 4.d0*ax*bx*(2.d0*s0 + (K4)*(K5)) - 2.d0*ax*(2.d0*(K1)*s0
|
|
$ + 2.d0*j0*(K4) + 2.d0*i0*(K5) + (K1)*(K4)*(K5)) -
|
|
$ 2.d0*bx*(2.d0*(K1)*s0 + 2.d0*j0*(K4) + 2.d0*i0*(K5) +
|
|
$ (K1)*(K4)*(K5))))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
|
|
pppp81=pppp81+ ((rho*(4.d0*a0*d0 + 16.d0*ax*bx*cx*dx +
|
|
$ 8.d0*i0**2.d0 - 8.d0*ax*bx*cx*(K1) - 8.d0*bx*cx*dx*(K1)
|
|
$ + 2.d0*d0*(K1)**2.d0 + 4.d0*cx*dx*(2.d0*a0 + (K1)**2.d0)
|
|
$ - 8.d0*ax*bx*cx*(K4) - 8.d0*ax*bx*dx*(K4)
|
|
$ + 8.d0*i0*(K1)*(K4) + 2.d0*a0*(K4)**2.d0 +
|
|
$ (K1)**2.d0*(K4)**2.d0 + 8.d0*ax*cx*(2.d0*i0 +
|
|
$ (K1)*(K4)) + 4.d0*bx*cx*(2.d0*i0 + (K1)*(K4)) +
|
|
$ 4.d0*bx*dx*(2.d0*i0 + (K1)*(K4)) - 2.d0*cx*(4.d0*i0*(K1) +
|
|
$ 2.d0*a0*(K4) + (K1)**2.d0*(K4)) - 2.d0*dx*(4.d0*i0*(K1) +
|
|
$ 2.d0*a0*(K4) + (K1)**2.d0*(K4)) + 4.d0*ax*bx*(2.d0*d0 +
|
|
$ (K4)**2.d0) - 2.d0*ax*(2.d0*d0*(K1) + 4.d0*i0*(K4) +
|
|
$ (K1)*(K4)**2.d0) - 2.d0*bx*(2.d0*d0*(K1) + 4.d0*i0*(K4) +
|
|
$ (K1)*(K4)**2.d0)))/16.d0)*weightn(n)/dsqrt(rescale)
|
|
C
|
|
enddo ! Loop end az osszes tagra a sorfejtesben
|
|
c
|
|
************************************************************* ELLIPTIKUS GAUSS-FUGGVENY VEGE
|
|
|
|
C egzakt integralok felulirasa
|
|
|
|
if(iang.eq.1.and.jang.eq.0.and.kang.eq.0.and.lang.eq.0) then
|
|
dcore(it10+0+ijkls*ncd*(lprim-1))=psss1
|
|
dcore(it10+1+ijkls*ncd*(lprim-1))=psss2
|
|
dcore(it10+2+ijkls*ncd*(lprim-1))=psss3
|
|
else if(iang.eq.1.and.jang.eq.1.and.kang.eq.0.and.lang.eq.0) then
|
|
dcore(it10+0+ijkls*ncd*(lprim-1))=ppss1
|
|
dcore(it10+1+ijkls*ncd*(lprim-1))=ppss2
|
|
dcore(it10+2+ijkls*ncd*(lprim-1))=ppss3
|
|
dcore(it10+3+ijkls*ncd*(lprim-1))=ppss4
|
|
dcore(it10+4+ijkls*ncd*(lprim-1))=ppss5
|
|
dcore(it10+5+ijkls*ncd*(lprim-1))=ppss6
|
|
dcore(it10+6+ijkls*ncd*(lprim-1))=ppss7
|
|
dcore(it10+7+ijkls*ncd*(lprim-1))=ppss8
|
|
dcore(it10+8+ijkls*ncd*(lprim-1))=ppss9
|
|
else if(iang.eq.1.and.jang.eq.0.and.kang.eq.1.and.lang.eq.0) then
|
|
dcore(it10+0+ijkls*ncd*(lprim-1))=psps1
|
|
dcore(it10+1+ijkls*ncd*(lprim-1))=psps2
|
|
dcore(it10+2+ijkls*ncd*(lprim-1))=psps3
|
|
dcore(it10+3+ijkls*ncd*(lprim-1))=psps4
|
|
dcore(it10+4+ijkls*ncd*(lprim-1))=psps5
|
|
dcore(it10+5+ijkls*ncd*(lprim-1))=psps6
|
|
dcore(it10+6+ijkls*ncd*(lprim-1))=psps7
|
|
dcore(it10+7+ijkls*ncd*(lprim-1))=psps8
|
|
dcore(it10+8+ijkls*ncd*(lprim-1))=psps9
|
|
else if(iang.eq.1.and.jang.eq.1.and.kang.eq.1.and.lang.eq.0) then
|
|
dcore(it10+0+ijkls*ncd*(lprim-1))=ppps1
|
|
dcore(it10+1+ijkls*ncd*(lprim-1))=ppps2
|
|
dcore(it10+2+ijkls*ncd*(lprim-1))=ppps3
|
|
dcore(it10+3+ijkls*ncd*(lprim-1))=ppps4
|
|
dcore(it10+4+ijkls*ncd*(lprim-1))=ppps5
|
|
dcore(it10+5+ijkls*ncd*(lprim-1))=ppps6
|
|
dcore(it10+6+ijkls*ncd*(lprim-1))=ppps7
|
|
dcore(it10+7+ijkls*ncd*(lprim-1))=ppps8
|
|
dcore(it10+8+ijkls*ncd*(lprim-1))=ppps9
|
|
dcore(it10+9+ijkls*ncd*(lprim-1))=ppps10
|
|
dcore(it10+10+ijkls*ncd*(lprim-1))=ppps11
|
|
dcore(it10+11+ijkls*ncd*(lprim-1))=ppps12
|
|
dcore(it10+12+ijkls*ncd*(lprim-1))=ppps13
|
|
dcore(it10+13+ijkls*ncd*(lprim-1))=ppps14
|
|
dcore(it10+14+ijkls*ncd*(lprim-1))=ppps15
|
|
dcore(it10+15+ijkls*ncd*(lprim-1))=ppps16
|
|
dcore(it10+16+ijkls*ncd*(lprim-1))=ppps17
|
|
dcore(it10+17+ijkls*ncd*(lprim-1))=ppps18
|
|
dcore(it10+18+ijkls*ncd*(lprim-1))=ppps19
|
|
dcore(it10+19+ijkls*ncd*(lprim-1))=ppps20
|
|
dcore(it10+20+ijkls*ncd*(lprim-1))=ppps21
|
|
dcore(it10+21+ijkls*ncd*(lprim-1))=ppps22
|
|
dcore(it10+22+ijkls*ncd*(lprim-1))=ppps23
|
|
dcore(it10+23+ijkls*ncd*(lprim-1))=ppps24
|
|
dcore(it10+24+ijkls*ncd*(lprim-1))=ppps25
|
|
dcore(it10+25+ijkls*ncd*(lprim-1))=ppps26
|
|
dcore(it10+26+ijkls*ncd*(lprim-1))=ppps27
|
|
else if(iang.eq.1.and.jang.eq.1.and.kang.eq.1.and.lang.eq.1) then
|
|
dcore(it10+0+ijkls*ncd*(lprim-1))=pppp1
|
|
dcore(it10+1+ijkls*ncd*(lprim-1))=pppp2
|
|
dcore(it10+2+ijkls*ncd*(lprim-1))=pppp3
|
|
dcore(it10+3+ijkls*ncd*(lprim-1))=pppp4
|
|
dcore(it10+4+ijkls*ncd*(lprim-1))=pppp5
|
|
dcore(it10+5+ijkls*ncd*(lprim-1))=pppp6
|
|
dcore(it10+6+ijkls*ncd*(lprim-1))=pppp7
|
|
dcore(it10+7+ijkls*ncd*(lprim-1))=pppp8
|
|
dcore(it10+8+ijkls*ncd*(lprim-1))=pppp9
|
|
dcore(it10+9+ijkls*ncd*(lprim-1))=pppp10
|
|
dcore(it10+10+ijkls*ncd*(lprim-1))=pppp11
|
|
dcore(it10+11+ijkls*ncd*(lprim-1))=pppp12
|
|
dcore(it10+12+ijkls*ncd*(lprim-1))=pppp13
|
|
dcore(it10+13+ijkls*ncd*(lprim-1))=pppp14
|
|
dcore(it10+14+ijkls*ncd*(lprim-1))=pppp15
|
|
dcore(it10+15+ijkls*ncd*(lprim-1))=pppp16
|
|
dcore(it10+16+ijkls*ncd*(lprim-1))=pppp17
|
|
dcore(it10+17+ijkls*ncd*(lprim-1))=pppp18
|
|
dcore(it10+18+ijkls*ncd*(lprim-1))=pppp19
|
|
dcore(it10+19+ijkls*ncd*(lprim-1))=pppp20
|
|
dcore(it10+20+ijkls*ncd*(lprim-1))=pppp21
|
|
dcore(it10+21+ijkls*ncd*(lprim-1))=pppp22
|
|
dcore(it10+22+ijkls*ncd*(lprim-1))=pppp23
|
|
dcore(it10+23+ijkls*ncd*(lprim-1))=pppp24
|
|
dcore(it10+24+ijkls*ncd*(lprim-1))=pppp25
|
|
dcore(it10+25+ijkls*ncd*(lprim-1))=pppp26
|
|
dcore(it10+26+ijkls*ncd*(lprim-1))=pppp27
|
|
dcore(it10+27+ijkls*ncd*(lprim-1))=pppp28
|
|
dcore(it10+28+ijkls*ncd*(lprim-1))=pppp29
|
|
dcore(it10+29+ijkls*ncd*(lprim-1))=pppp30
|
|
dcore(it10+30+ijkls*ncd*(lprim-1))=pppp31
|
|
dcore(it10+31+ijkls*ncd*(lprim-1))=pppp32
|
|
dcore(it10+32+ijkls*ncd*(lprim-1))=pppp33
|
|
dcore(it10+33+ijkls*ncd*(lprim-1))=pppp34
|
|
dcore(it10+34+ijkls*ncd*(lprim-1))=pppp35
|
|
dcore(it10+35+ijkls*ncd*(lprim-1))=pppp36
|
|
dcore(it10+36+ijkls*ncd*(lprim-1))=pppp37
|
|
dcore(it10+37+ijkls*ncd*(lprim-1))=pppp38
|
|
dcore(it10+38+ijkls*ncd*(lprim-1))=pppp39
|
|
dcore(it10+39+ijkls*ncd*(lprim-1))=pppp40
|
|
dcore(it10+40+ijkls*ncd*(lprim-1))=pppp41
|
|
dcore(it10+41+ijkls*ncd*(lprim-1))=pppp42
|
|
dcore(it10+42+ijkls*ncd*(lprim-1))=pppp43
|
|
dcore(it10+43+ijkls*ncd*(lprim-1))=pppp44
|
|
dcore(it10+44+ijkls*ncd*(lprim-1))=pppp45
|
|
dcore(it10+45+ijkls*ncd*(lprim-1))=pppp46
|
|
dcore(it10+46+ijkls*ncd*(lprim-1))=pppp47
|
|
dcore(it10+47+ijkls*ncd*(lprim-1))=pppp48
|
|
dcore(it10+48+ijkls*ncd*(lprim-1))=pppp49
|
|
dcore(it10+49+ijkls*ncd*(lprim-1))=pppp50
|
|
dcore(it10+50+ijkls*ncd*(lprim-1))=pppp51
|
|
dcore(it10+51+ijkls*ncd*(lprim-1))=pppp52
|
|
dcore(it10+52+ijkls*ncd*(lprim-1))=pppp53
|
|
dcore(it10+53+ijkls*ncd*(lprim-1))=pppp54
|
|
dcore(it10+54+ijkls*ncd*(lprim-1))=pppp55
|
|
dcore(it10+55+ijkls*ncd*(lprim-1))=pppp56
|
|
dcore(it10+56+ijkls*ncd*(lprim-1))=pppp57
|
|
dcore(it10+57+ijkls*ncd*(lprim-1))=pppp58
|
|
dcore(it10+58+ijkls*ncd*(lprim-1))=pppp59
|
|
dcore(it10+59+ijkls*ncd*(lprim-1))=pppp60
|
|
dcore(it10+60+ijkls*ncd*(lprim-1))=pppp61
|
|
dcore(it10+61+ijkls*ncd*(lprim-1))=pppp62
|
|
dcore(it10+62+ijkls*ncd*(lprim-1))=pppp63
|
|
dcore(it10+63+ijkls*ncd*(lprim-1))=pppp64
|
|
dcore(it10+64+ijkls*ncd*(lprim-1))=pppp65
|
|
dcore(it10+65+ijkls*ncd*(lprim-1))=pppp66
|
|
dcore(it10+66+ijkls*ncd*(lprim-1))=pppp67
|
|
dcore(it10+67+ijkls*ncd*(lprim-1))=pppp68
|
|
dcore(it10+68+ijkls*ncd*(lprim-1))=pppp69
|
|
dcore(it10+69+ijkls*ncd*(lprim-1))=pppp70
|
|
dcore(it10+70+ijkls*ncd*(lprim-1))=pppp71
|
|
dcore(it10+71+ijkls*ncd*(lprim-1))=pppp72
|
|
dcore(it10+72+ijkls*ncd*(lprim-1))=pppp73
|
|
dcore(it10+73+ijkls*ncd*(lprim-1))=pppp74
|
|
dcore(it10+74+ijkls*ncd*(lprim-1))=pppp75
|
|
dcore(it10+75+ijkls*ncd*(lprim-1))=pppp76
|
|
dcore(it10+76+ijkls*ncd*(lprim-1))=pppp77
|
|
dcore(it10+77+ijkls*ncd*(lprim-1))=pppp78
|
|
dcore(it10+78+ijkls*ncd*(lprim-1))=pppp79
|
|
dcore(it10+79+ijkls*ncd*(lprim-1))=pppp80
|
|
dcore(it10+80+ijkls*ncd*(lprim-1))=pppp81
|
|
endif
|
|
c
|
|
return
|
|
end
|
|
C
|
|
*************************************
|
|
c real*8 function qexp1(xx)
|
|
c implicit none
|
|
c real*8 xx
|
|
c real*16 x,en,eo,num,den
|
|
c integer n
|
|
c
|
|
c x=xx
|
|
c eo=0.q0
|
|
c en=1.q0
|
|
c den=1.q0
|
|
c num=1.q0
|
|
c n=0
|
|
c do while (qabs(eo-en).gt.1.q-12)
|
|
c n=n+1
|
|
c eo=en
|
|
c num=num*x
|
|
c den=den*n
|
|
c en=en+num/den
|
|
c enddo
|
|
c qexp1=en
|
|
c
|
|
c return
|
|
c end
|
|
************************************
|
|
C
|