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.
35 lines
888 B
35 lines
888 B
subroutine pvextAtensor(m1s,FA0,FA1,FA2)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
include 'lib/TensorReduction/Include/TRconstants.f'
|
|
include 'lib/TensorReduction/Include/pvAnames.f'
|
|
include 'lib/TensorReduction/Include/pvextAv.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)
|
|
real(dp)::m1s
|
|
integer n1,n2,A0i,pvextAcache
|
|
logical,save:: first=.true.
|
|
!$omp threadprivate(first)
|
|
if (first) then
|
|
first=.false.
|
|
call pvarraysetup
|
|
endif
|
|
|
|
A0i=pvextAcache(m1s)
|
|
|
|
FA0(:)=Av(A0i+aa0,:)
|
|
|
|
do n1=1,4
|
|
FA1(n1,:)=czip
|
|
enddo
|
|
|
|
do n1=1,4
|
|
do n2=n1,4
|
|
FA2(y2(n1,n2),:)=g(n1,n2)*Av(A0i+aa00,:)
|
|
enddo
|
|
enddo
|
|
|
|
return
|
|
end
|
|
|