You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
101 lines
1.9 KiB
101 lines
1.9 KiB
subroutine pvAtensor(m1s,FA0,FA1,FA2,FA3,FA4,FA5,FA6)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
include 'lib/TensorReduction/Include/TRconstants.f'
|
|
include 'lib/TensorReduction/Include/pvAnames.f'
|
|
include 'lib/TensorReduction/Include/pvAv.f'
|
|
include 'lib/TensorReduction/Include/TRydef.f'
|
|
include 'lib/TensorReduction/Include/TRmetric.f'
|
|
complex(dp):: FA0(-2:0),FA1(y1max,-2:0),
|
|
. FA2(y2max,-2:0),FA3(y3max,-2:0),FA4(y4max,-2:0),FA5(y5max,-2:0),
|
|
. FA6(y6max,-2:0)
|
|
real(dp):: m1s,pvSDDDD,pvSDDDDDD
|
|
integer n1,n2,n3,n4,n5,n6,ep,A0i,pvAcache
|
|
logical,save:: first=.true.
|
|
!$omp threadprivate(first)
|
|
if (first) then
|
|
first=.false.
|
|
call pvarraysetup
|
|
endif
|
|
|
|
|
|
A0i=pvAcache(m1s)
|
|
do ep=-2,0
|
|
FA0(ep)=Av(A0i+aa0,ep)
|
|
enddo
|
|
|
|
do ep=-2,0
|
|
do n1=1,4
|
|
FA1(n1,ep)=czip
|
|
enddo
|
|
enddo
|
|
|
|
|
|
do ep=-2,0
|
|
do n1=1,4
|
|
do n2=n1,4
|
|
FA2(y2(n1,n2),ep)=g(n1,n2)*Av(A0i+aa00,ep)
|
|
enddo
|
|
enddo
|
|
enddo
|
|
|
|
|
|
do ep=-2,0
|
|
do n1=1,4
|
|
do n2=n1,4
|
|
do n3=n2,4
|
|
FA3(y3(n1,n2,n3),ep)=czip
|
|
enddo
|
|
enddo
|
|
enddo
|
|
enddo
|
|
|
|
|
|
do ep=-2,0
|
|
do n1=1,4
|
|
do n2=n1,4
|
|
do n3=n2,4
|
|
do n4=n3,4
|
|
FA4(y4(n1,n2,n3,n4),ep)=pvSDDDD(n1,n2,n3,n4)*Av(A0i+aa0000,ep)
|
|
enddo
|
|
enddo
|
|
enddo
|
|
enddo
|
|
enddo
|
|
|
|
|
|
do ep=-2,0
|
|
do n1=1,4
|
|
do n2=n1,4
|
|
do n3=n2,4
|
|
do n4=n3,4
|
|
do n5=n4,4
|
|
FA5(y5(n1,n2,n3,n4,n5),ep)=czip
|
|
enddo
|
|
enddo
|
|
enddo
|
|
enddo
|
|
enddo
|
|
enddo
|
|
|
|
|
|
do ep=-2,0
|
|
do n1=1,4
|
|
do n2=n1,4
|
|
do n3=n2,4
|
|
do n4=n3,4
|
|
do n5=n4,4
|
|
do n6=n5,4
|
|
FA6(y6(n1,n2,n3,n4,n5,n6),ep)=
|
|
. pvSDDDDDD(n1,n2,n3,n4,n5,n6)*Av(A0i+aa000000,ep)
|
|
enddo
|
|
enddo
|
|
enddo
|
|
enddo
|
|
enddo
|
|
enddo
|
|
enddo
|
|
|
|
return
|
|
end
|
|
|