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.
55 lines
1.5 KiB
55 lines
1.5 KiB
integer function pvAcache(m1sq)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
include 'lib/TensorReduction/Include/pvAnames.f'
|
|
include 'lib/TensorReduction/Include/TRclear.f'
|
|
include 'lib/TensorReduction/Include/TRonshellcutoff.f'
|
|
real(dp):: para(Paa),m1sq
|
|
real(dp),save:: tableA(Paa,Namax)
|
|
integer,save:: Nstore=0
|
|
integer::j,jtable,Ntrue
|
|
!$omp threadprivate(tableA,Nstore)
|
|
|
|
if (clear(1)) then
|
|
clear(1)=.false.
|
|
Nstore=0
|
|
endif
|
|
|
|
|
|
if (Nstore .gt. NAmax) then
|
|
print *
|
|
print *, 'pvAcache: Nstore .gt. Namax'
|
|
print *, 'pvAcache:Nstore,Namax',Nstore,Namax
|
|
print *, 'Either adjust Namax in Anames.f and recompile'
|
|
print *, 'or call clearcache to clear the cache.'
|
|
stop
|
|
endif
|
|
para(1)=m1sq
|
|
|
|
C if parameter set is found set pvAcache equal to the starting
|
|
C value
|
|
if (Nstore .eq. 0) go to 20
|
|
do jtable=1,Nstore
|
|
Ntrue=0
|
|
do j=1,Paa
|
|
if (abs(para(j)-tableA(j,jtable)) .lt. 1d-8) Ntrue=Ntrue+1
|
|
enddo
|
|
if (Ntrue .eq. Paa) then
|
|
pvAcache=(jtable-1)*Naa
|
|
return
|
|
endif
|
|
enddo
|
|
|
|
C if parameter set is not found we have to calculate
|
|
20 pvAcache=Nstore*Naa
|
|
Nstore=Nstore+1
|
|
do j=1,Paa
|
|
if(abs(para(j)) .lt. onshellcutoff) para(j)=0._dp
|
|
enddo
|
|
do j=1,Paa
|
|
tableA(j,Nstore)=para(j)
|
|
enddo
|
|
c call pvAfill(m1sq,pvAcache)
|
|
call pvAfill(para(1),pvAcache)
|
|
return
|
|
end
|